data EmpHire(keep=Id Hired Years);
   set prog2.NoDay;
   Hired=mdy(HiredMonth,15,HiredYear);

   /* The YRDIF function is not available in version
      6.

      The FLOOR function could be used in the following
      assignment statement. */

   Years=int((today()-Hired)/365.25);
   format Hired date9.;
run;

proc print data=EmpHire;
run;