YDAYS:PROCEDURE
/* How many days are in a given year */
ARG YY
IF LEAP(YY) THEN RETURN 366
ELSE RETURN 365

/***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)