Procedure Modules › Julian Date Conversion (CULLUS11) › How to Use CULLUS11

How to Use CULLUS11

To invoke CULLUS11:

1. Define an 8-byte packed decimal numeric input field or a work field to contain the Julian date if the input date is stored in zoned decimal format.

   If the input field is stored as a zoned decimal:

   • Move the input field to a numeric work field
   • Use this work field as the sending field for the Julian date
2. Define a numeric work field to receive the Gregorian date.
3. Test for invalid dates in type 7 logic.
4. Issue a CALL to CULLUS11 in type 7 logic:

   Col
   2
   ▼
   RPT-nn7sss CALL US11 (jul-date-v greg-date-v)
   

   • Rpt-nn, coded in columns 2 and 3, specifies a 2-digit number in the range 00 through 99 that identifies the CA Culprit report.
   • Sss, coded in columns 5 through 7, specifies a 3-digit number indicating the sequence number of the type 7 parameter.
   • Jul-date-v (ARG1) requires the name of the 8-byte packed decimal field containing the Julian date.
   • Greg-date-v (ARG2) requires the name the numeric work field that receives the Gregorian date.