TITLE1 'Example 1: Reading in an ASCII text data file';

OPTIONS LINESIZE=80;

DATA tests;

MISSING m;

  INFILE 'survey.dat' MISSOVER;
 
   INPUT name $  1-8
         gender $  9
         race    11
         age     13-14
         wgt     16-18
         hgt     20-23 .1
         test1   25-27
         test2   28-30
         test3   31-33;
 
PROC PRINT DATA= tests;

PROC FREQ;  TABLES race;  TABLES age;

LIBNAME sasdata '.'; 
DATA sasdata.test;
 SET tests;
 
 testotal=test1+test2+test3;
 testsum=sum(test1,test2,test3);
 
 IF age = . THEN adult = . ;
   ELSE IF age GE 1 AND age LT 21 THEN adult = 0 ;
   ELSE IF age GE 21 THEN adult = 1;
 
LABEL race = 'self-identified ethnicity'
      hgt = 'height'
      wgt = 'weight' ;
 
PROC MEANS N MEAN SKEWNESS KURTOSIS MIN MAX STD;
  VAR race test1-test3;

PROC PRINT; VAR name--adult;

/* If you need assistance with SAS please contact the statistical */
/* consultants at the ITC Research Computing Support Center at    */
/*         244 Wilson Hall - 243-8000  M-F 9-5 or                 */
/*            mail res-consult@virginia.edu                       */