900-DATE-TO-JULIAN

900-DATE-TO-JULIAN converts the input date to its Julian date number for the input year.

Note: The input date must be a valid date.

See Century Parameter Processing.

Library CALRTNS

Required Input

Field Type and length Definition
WSDR-FR-DATE N 8 Date to be converted Julian date.

Output

Field Type and length Definition
WSDR-JULIAN-DAYS N 8 Number of days. Returns the resulting JulianDay.
WSDR-ERROR-NBR N 9

Error number

See Error Number.

Note: Be sure to set this to zero before using this API. If it is non-zero, WSDR-JULIAN-DAYS will be undefined.
WSDR-ERROR-VAR A 20 Input parameter is in error. Returns the invalid date.

Programming Example

     IF (PRM-AGING-DAYS          NOT = ZEROES)  
         MOVE PRM-CUTOFF-DATE        TO WSDR-FR-DATE
         PERFORM 900-DATE-TO-JULIAN
         SUBTRACT PRM-AGING-DAYS     FROM WSDR-JULIAN-DAYS
         PERFORM 900-JULIAN-TO-DATE
         MOVE WSDR-FR-DATE           TO AP130WS-RECON-DATE