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

data allergies;
   length ID $ 5 LName FName $ 11 Plan $ 1 Blood $ 3 Allergy $ 1
          AlgyType $10;
   infile 'allergy.dat';
   input ID $ LName $ FName $ Plan $ Blood $ Allergy $ @;
                         /*Trailing @ prevents new record
                            from being LOADED*/
   if Allergy='N' then 
      input Dependents;
   else if Allergy='Y' then 
      input AlgyType $ Dependents;
run;

proc print data=allergies;
   title 'Patients and Allergy Code';
run;