CBL LIB,QUOTE
*Module/File Name: IGZTCWIN
****************************************************************
* Demonstrates how to use CEEQCEN and CEESCEN to query *
* and set the century window. *
****************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. CBCENTW.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 OLDCEN PIC S9(9) BINARY.
77 TEMPCEN PIC S9(9) BINARY.
01 FC.
02 Condition-Token-Value.
COPY CEEIGZCT.
03 Case-1-Condition-ID.
04 Severity PIC S9(4) BINARY.
04 Msg-No PIC S9(4) BINARY.
03 Case-2-Condition-ID
REDEFINES Case-1-Condition-ID.
04 Class-Code PIC S9(4) BINARY.
04 Cause-Code PIC S9(4) BINARY.
03 Case-Sev-Ctl PIC X.
03 Facility-ID PIC XXX.
02 I-S-Info PIC S9(9) BINARY.
PROCEDURE DIVISION.
**************************************************************
** Call CEEQCEN to retrieve and save current century window **
**************************************************************
CALL "CEEQCEN" USING OLDCEN , FC.
IF NOT CEE000 of FC THEN
DISPLAY "CEEQCEN failed with msg "
Msg-No of FC UPON CONSOLE
STOP RUN
END-IF.
**************************************************************
** Call CEESCEN to temporarily change century window to 30 **
**************************************************************
MOVE 30 TO TEMPCEN.
CALL "CEESCEN" USING TEMPCEN , FC.
IF NOT CEE000 of FC THEN
DISPLAY "First call to CEESCEN failed with msg "
Msg-No of FC UPON CONSOLE
STOP RUN
END-IF.
** Perform date processing with 2-digit years...
⋮
** Call CEESCEN again to reset century window
CALL "CEESCEN" USING OLDCEN , FC.
IF NOT CEE000 of FC THEN
DISPLAY "Second call to CEESCEN failed with msg "
Msg-No of FC UPON CONSOLE
STOP RUN
END-IF.
GOBACK.