+C* GETMDY MACRO NDATE GDATE  .USE NUMERIC-DAY TO GET GREGORIAN DATE (
    +C* Z-ADD &1 TO NDATE
    +C* EXSR SRDATE
    +C* Z-ADD GDATE TO &2 6.0