+C* SRDAYS	MACRO .CONVERT GREGORIAN DATE TO DAY-NUMBER SINCE 3=1-1900
     C*-------------------------------------------------------------------
     C* THIS MACRO HAS BEEN AUTO-INCLUDED DUE TO PRESENCE OF EXSR SRDAYS
     C*-------------------------------------------------------------------
     CSR	 SRDAYS    BEGSR
    +C* Z-ADD GDATE TO GDATE 6.0
    +C* MOVEL GDATE TO XXXWMM 2.0
    +C* MOVE  GDATE TO XXXWK4 4
    +C* MOVEL XXXWK4 TO XXXWDD 2.0
    +C* MOVE  XXXWK4 TO XXXWYR 2.0
    +C* IF    XXXWMM LT 3
    +C*       ADD 13 TO XXXWMM
    +C*       SUB 1 FROM XXXWYR
    +C* ELSE
    +C*       ADD 1 TO XXXWMM
    +C* ENDIF
    +C* XXXWYR MULT BY 365.25 = XXXF1 5.0
    +C* XXXWMM MULT BY 30.6 = XXXF2 5.0
    +C* XXXF1 ADD XXXF2 = NDATE 5.0
    +C* ADD   XXXWDD TO NDATE
     CSR		   ENDSR
     C*