Procedure Modules › Gregorian Date Conversion (CULLUS14) › How to Use CULLUS14

How to Use CULLUS14

To invoke CULLUS14:

1. Define an 8-byte packed decimal numeric input field or a work field to contain

   the Gregorian date if the input date is stored in zoned decimal format.

   If the input date is stored as a zoned decimal:

   • Move the input field to a numeric work field
   • Use the work field as the sending field for the Julian date
2. Define a numeric work field to receive the Julian date.
3. Issue a CALL to CULLUS14 in type 7 logic:

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

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