Skip this step if you are not using Compiler.
Skip this step if you have not generated programs with a previous version or release of Compiler.
Skip this step if you generated programs with a previous version or release of Compiler and you have not enabled the DATETIME option.
Prior to this version/release, programs generated with the DATETIME option were unable to handle the year 2000 (and beyond) for the DATETIME date. Programs generated with the DATETIME option contain an 01 level variable named CURRNT-DATE in the source code. If the setting of this option is currently unknown for previously generated programs, a source search on CURRNT-DATE will point out the affected programs.
Important
Any new programs generated with this version/release (and all future versions/releases) will correctly handle the year 2000 (and beyond) for the DATETIME date.
To achieve full support of the year 2000 for the DATETIME date you can regenerate your programs using this version/release of Compiler. Alternately, you can modify existing source code according to the instructions below.
01 CURRNT-DATE. 03 FILLER PIC X(2) VALUE '19'. 03 CURRNT-DATE-DATA PIC X(8).
01 CURRNT-DATE. 03 CURRNT-DATE-CC PIC X(2) VALUE '19'. 03 CURRNT-DATE-DATA. 05 CURRNT-DATE-YEAR PIC X(2). 05 FILLER PIC X(1). 05 CURRNT-DATE-MONTH PIC X(2). 05 FILLER PIC X(1). 05 CURRNT-DATE-DAY PIC X(2).
EXEC CICS FORMATTIME ABSTIME(CURRNT-ABSTIME) YYMMDD(CURRNT-DATE-DATA) DATESEP('-') TIME(CURRNT-TIME) TIMESEP('.') END-EXEC.
IF CURRNT-DATE-YEAR < '90' MOVE '20' TO CURRNT-DATE-CC.
01 CURRNT-DATE PIC X(10).
01 CURRNT-DATE. 03 CURRNT-DATE-CC PIC X(2). 03 CURRNT-DATE-YYMMDD PIC X(8).
ACCEPT CURRNT-DATE-DATA FROM DATE. STRING '19' DELIMITED BY SIZE CURRNT-DATE-YEAR DELIMITED BY SIZE '-' DELIMITED BY SIZE CURRNT-DATE-MONTH DELIMITED BY SIZE '-' DELIMITED BY SIZE CURRNT-DATE-DAY DELIMITED BY SIZE INTO CURRNT-DATE.
ACCEPT CURRNT-DATE-DATA FROM DATE. IF CURRNT-DATE-YEAR < '90' MOVE '20' TO CURRNT-DATE-CC ELSE MOVE '19' TO CURRNT-DATE-CC. STRING CURRNT-DATE-YEAR DELIMITED BY SIZE '-' DELIMITED BY SIZE CURRNT-DATE-MONTH DELIMITED BY SIZE '-' DELIMITED BY SIZE CURRNT-DATE-DAY DELIMITED BY SIZE INTO CURRNT-DATE-YYMMDD.