Procedure Modules › Century Date Conversion (CULLUS12) › Helpful Hints

Helpful Hints

• You can issue one or more calls to CULLUS12 from type 7 logic.
• CULLUS12 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.
• When using an output format code which requires a century (ccyy) and the input date does not include one, century will default to:
  • 20 if yy <= 40
  • 19 if yy > 40
• The year which determines the default century (40) can be overridden with the US12YR profile option when customizing the Culprit profile.

Note: For more information about this option, see the CA Culprit for CA IDMS Reference Guide.

Example

This example uses CULLUS12 to:

• Convert a zoned decimal input date in Canadian (ccyymmdd) format to Gregorian format (mmddyycc)
• Convert a work field date in Canadian format (ccyymmdd) to Julian format (ccyyddd)

The following code issues two calls to CULLUS12:

• The first CALL reads in a Canadian format zoned decimal input field, converts the date to a mmddccyy format, and stores the conversion in the work field WK-IN-DATE.
• The second CALL converts the work field WK-IN-DATE, converts the date to a ccyyddd format, and stores the conversion in the work field WK-JUL-DATE.

   IN 80 F 400
   REC IN-DATE 1 2
   990 WK-IN-DATE
   990 WK-JUL-DATE
   993CULLUS12
   99410001 ' '
   9951*010 IN-DATE   FM '9999/99/99'     HH 'INPUT DATE'
   9951*020 WK-IN-DATE  FM '99/99/9999'   HH 'CONVERTED' 'INPUT DATE'
   9951*040 WK-JUL-DATE  FM '9999.99'  HH 'CONVERTED' 'JULIAN DATE'
   997100 CALL US12 (IN-DATE 'Z' 'CDY' 'MDC' WK-IN-DATE)
   997200 CALL US12 (WK-IN-DATE 'P' 'MDC' 'CDD' WK-JUL-DATE)
  

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

                                                           CONVERTED                           CONVERTED
                        INPUT DATE                         INPUT DATE                         JULIAN DATE

                        1994/02/09                         02/09/1994                           1994.040
                        0093/12/25                         12/25/1993                           1993.359
                        0001/12/25                         12/25/2001                           2001.359
                        8888/88/88                         00/00/0000                           0000.000