Y2000:PROCEDURE
/* Convert year in 4 digit format */
ARG YY
IF LENGTH(YY)=2 THEN DO
   IF YY>80 THEN YY='19'YY
   ELSE YY='20'YY
END
RETURN YY