/*View Raw Data File Before Writing Code*/
proc fslist fileref='bloodtyp.dat';
run;

data medical(drop=Plan) ;
   infile 'bloodtyp.dat';
   length ID $ 5 FName LName $ 11 Plan $ 1 Blood $ 3 ;
   input ID $ FName $ LName;
   input Plan $ Blood $; /*Second INPUT statement loads next record
                          a forward slash (/) can also be used*/
 run;

proc print data=medical;
   title 'Patient Names and Blood Types';
run;