*Program 9-2 Adding a format statement to format each of the date values;
data four_dates;
   infile 'c:\books\learning\dates.txt' truncover;
   input @1  Subject   $3.
         @5 DOB       mmddyy10.
         @16 VisitDate mmddyy8.
         @26 TwoDigit  mmddyy8.
         @34 LastDate  date9.;
   format DOB VisitDate date9.
          TwoDigit LastDate mmddyy10.;
run;

title "Listing of AGES";
proc print data=four_dates;
   id Subject;
run;