JULIAN:PROCEDURE
/* Accepts date in US format as parm, return days' number in a year */
ARG DA
PARSE VAR DA MM'/'DD'/'YY
YY=Y2000(YY)

AD='31 28 31 30 31 30 31 31 30 31 30 31'
JULA=0
DO I=1 TO MM-1
   JULA=JULA+WORD(AD,I)
END
IF I>2 & LEAP(YY) THEN JULA=JULA+1
JULA=JULA+DD
RETURN JULA

/***GET Y2000 */
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

/***GET LEAP */
LEAP:PROCEDURE
/* Return 1 if parm is leap year */
ARG YY
IF LENGTH(YY)=2 THEN DO
   IF YY>80 THEN YY='19'YY
   ELSE YY='20'YY
END
RETURN (YY%4*4=YY)