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

data salaries (drop=type);
   retain ID LName FName;
   Length ID $ 6;
   infile 'salaries.dat';
   input Type $ @; 
   if Type='E' then  /*This is a header record*/
      input ID $ FName $ LName $;
   else if Type='S' then do;
      input SalYear Salary:comma8.;
      output;
         /*Ouputs one observation for each detail record*/
   end;
run;

proc print data=salaries;
   title 'Yearly Salaries Through 2001';
run;