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

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

   Years=int(yrdif(Hired,today(),'act/act'));
   format Hired date9.;
run;

proc print data=EmpHire;
run;