Procedure Modules › Universal Date Conversion (CULLUS15) › Helpful Hints

Helpful Hints

• You can issue one or more calls to CULLUS15 from type 7 logic.
• CULLUS15 checks for invalid dates and values:
  • If an invalid date is encountered, the return date is converted to zero.
  • If an invalid data type or format code is encountered, the input date is converted to 999999.

Example

This example uses CULLUS15 to:

• Convert a zoned decimal input date in Gregorian format (mmddyy) to Canadian (yymmdd) format
• Convert a work field date in Julian format (yyddd) to Canadian format (yymmdd)

The following code issues two calls to CULLUS15:

• The first CALL reads in a Gregorian format zoned decimal input field, converts the date to a yymmdd format, and stores the conversion in the work field WK-IN-DATE.
• The second CALL reads the Julian date 86228 from the work field JUL-DATE, converts the date to a yymmdd format, and stores the conversion in the work field WK-JUL-DATE.

   IN 80 F 400
   REC IN-DATE 1 6 2
   990 WK-IN-DATE
   990 JUL-DATE.7 86228 86100 85030 83234 86341 85233 84078
   990 WK-JUL-DATE
   990 INDEX
   993CULLUS15
   99410001 ' '
   9951*010 IN-DATE   FD                  HH 'INPUT DATE'
   9951*020 WK-IN-DATE  FD                HH 'CONVERTED' 'INPUT DATE'
   9951*030 JUL-DATE.INDEX  FM '99.999'   HH 'JULIAN DATE'
   9951*040 WK-JUL-DATE  FD         HH 'CONVERTED' 'JULIAN DATE'
   997050 INDEX + 1 INDEX
   997    INDEX GT 7 STOP
   997100 CALL US15 (IN-DATE 'Z' 'MDY' 'YMD' WK-IN-DATE)
   997200 CALL US15 (JUL-DATE.INDEX 'P' 'YDD' 'YMD' WK-JUL-DATE)
  

REPORT NO. 99             CULLUS15      mm/dd/yy PAGE     1

                CONVERTED                   CONVERTED
   INPUT DATE   INPUT DATE   JULIAN DATE   JULIAN DATE

    01/10/90     90/01/10       86.228       86/08/16
    10/21/56     56/10/21       90.100       90/04/10
    12/25/87     87/12/25       89.030       89/01/30
    03/01/85     85/03/01       93.234       93/08/22
    03/17/94     94/03/17       86.341       86/12/07
    09/17/86     86/09/17       95.233       95/08/21
    09/08/93     93/09/08       94.078       94/03/19