530-COMPUTE-GREGORIAN

Note: This routine is provided for backward compatibility. Use instead.

The 530-COMPUTE-GREGORIAN routine converts a Julian date number, relative to year zero, to a Gregorian date. The routine does not validate the Julian number and a negative value produces erroneous results.

Library JULIANRTNS

Required Input

Field Type and length Definition
JULIAN-DAYS N 6 Julian date number.

Output

Field Type and length Definition
DATE-1 N 8 Gregorian date in yyyymmdd format.

Example

*       Convert record date back to print format.
        MOVE Julian-hold-date            TO JULIAN-DAYS.
        PERFORM 530-COMPUTE-GREGORIAN.