%macro age( yymmdd ) ;
    int( ( today() - input( "&yymmdd" , yymmdd10. )  ) / 365.25 )
%mend age ;