520-COMPUTE-JULIAN

This routine is provided for backward compatibility. Use 900-DATE-TO-JULIAN instead.

The 520-COMPUTE-JULIAN routine calculates a Julian date number from the base date of Oct. 15, 1582.

Library JULIANRTNS

Required Input

Field Type and length Definition
DATE-1 N 8 Date to be changed.*

*If the input date century equals 00, it changes to 19 or 20. See Century Parameter Processing.

Output

Field Type and length Definition
JULIAN-DAYS N 6 Julian date number. Always set. May be zero.

Example

*       Compute a base Julian date.
        MOVE new-date                   TO DATE-1.
        PERFORM 520-COMPUTE-JULIAN.