+C* SRDATE	MACRO .CONVERT DAY-NUMNER TO GREGORIAN DATE
     C*-------------------------------------------------------------------
     C* THIS MACRO HAS BEEN AUTO-INCLUDED DUE TO PRESENCE OF 'EXSR SRDATE'
     C*-------------------------------------------------------------------
     CSR	 SRDATE    BEGSR
    +C* Z-ADD NDATE TO NDATE 5.0
    +C* NDATE SUB 122.25 = XXXF3 7.2
    +C* XXXF3 DIV 365.25 = XXXWYR 2.0
    +C*       MVR TO XXXF1 5.0
    +C* XXXF1 ADD 122.8 = XXXF4 4.1
    +C* XXXF4 DIV BY 30.6 = XXXWMM 2.0
    +C*       MVR TO XXXWDD 2.0
    +C* ADD   1 TO XXXWDD
    +C* IF    XXXWMM GT 13
    +C*       SUB 13 FROM XXXWMM
    +C*       ADD 1 TO XXXWYR
    +C* ELSE
    +C*       SUB 1 FROM XXXWMM
    +C* ENDIF
    +C* MOVE  XXXWDD TO XXXWK4 4
    +C* MOVEL XXXWMM TO XXXWK4
    +C* MOVE  XXXWYR TO GDATE 6.0
    +C* MOVEL XXXWK4 TO GDATE
     CSR		   ENDSR
     C*