Procedure Modules › Julian Date Conversion (CULLUS11) › Helpful Hints

Helpful Hints

• Include error checking for invalid dates in the CA Culprit code. CULLUS11 does not issue an error message if the Julian day is less than 001 or greater than 366.
• CULLUS11 interprets a 00 year as a leap year. Dates in 1900 and 2100 will be interpreted incorrectly.

Example

This example uses CULLUS11 to convert an input date in Julian format (yyddd) to an output date in Gregorian format (mmddyy).

The following code:

• Defines numeric work fields for the Julian input date and the Gregorian date
• Checks for invalid dates
• Moves the input Julian date to the numeric work field JUL-DATE
• Issues a CALL to CULLUS11

  IN 80 F 400
  REC JUL-IN-DATE 1 5 2
  REC JUL-IN-DAY  3 3 2
  990 JUL-DATE 0
  990 GREG-DATE 0
  993CULLUS11
  9951*010 JUL-DATE   FM '99.999' HH 'JULIAN DATE'
  9951*020 GREG-DATE  FD          HH 'GREGORIAN DATE'
  997100 JUL-IN-DAY LT 001  DROP
  997150 JUL-IN-DAY GT 366  DROP
  997200 MOVE JUL-IN-DATE JUL-DATE
  997250 CALL US11 (JUL-DATE GREG-DATE)
  

REPORT NO. 99             CULLUS11      mm/dd/yy PAGE     1
           JULIAN DATE           GREGORIAN DATE

              96.299                10/25/96
              92.365                12/30/92
              90.100                04/10/90
              88.005                01/05/88
              94.050                02/19/94
              95.333                11/29/95
              91.083                03/24/91