CEESCEN は、世紀ウィンドウを、他の日時の呼び出し可能サービスが使用できる 2 桁年号値に設定します。
次のような場合は、CEEDAYS または CEESECS と組み合わせて CEESCEN を使用します。
世紀ウィンドウを照会するには、CEEQCEN を使用します。
| CALL CEESCEN の構文 |
|---|
|
例えば、値 80 の場合は、すべての 2 桁年桁が、システム日付より 80 年前から始まる 100 年間に属します。したがって、2008 年の場合、2 桁の年号はすべて 1928 から 2027 年の範囲内の日付を表すものと想定されます。
| シンボリック・フィードバック・コード | 重大度 | メッセージ番号 | メッセージ・テキスト |
|---|---|---|---|
| CEE000 | 0 | — | サービスが正しく完了した。 |
| CEE2E6 | 3 | 2502 | システムから UTC/GMT を使用できませんでした。 |
| CEE2F5 | 3 | 2533 | CEESCEN に渡された値が 0 から 100 の範囲内にありませんでした。 |
CBL LIB
**************************************************
** **
** Function: Call CEESCEN to set the **
** date and time callable services **
** century window **
** **
** In this example, CEESCEN is called to change **
** the start of the century window to 30 years **
** before the system date. CEEQCEN is then **
** called to query that the change made. A **
** message that this has been done is then **
** displayed. **
** **
**************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. CBLSCEN.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 STARTCW PIC S9(9) BINARY.
01 FC.
02 Condition-Token-Value.
COPY CEEIGZCT.
03 Case-1-Condition-ID.
04 Severity PIC S9(4) COMP.
04 Msg-No PIC S9(4) COMP.
03 Case-2-Condition-ID
REDEFINES Case-1-Condition-ID.
04 Class-Code PIC S9(4) COMP.
04 Cause-Code PIC S9(4) COMP.
03 Case-Sev-Ctl PIC X.
03 Facility-ID PIC XXX.
02 I-S-Info PIC S9(9) COMP.
PROCEDURE DIVISION.
PARA-CBLSCEN.
**************************************************
** Specify 30 as century start, and two-digit
** years will be assumed to lie in the
** 100-year window starting 30 years before
** the system date.
**************************************************
MOVE 30 TO STARTCW.
**************************************************
** Call CEESCEN to change the start of the century
** window.
**************************************************
CALL 'CEESCEN' USING STARTCW, FC.
IF NOT CEE000 of FC THEN
DISPLAY 'CEESCEN failed with msg '
Msg-No of FC UPON CONSOLE
STOP RUN
END-IF.
PARA-CBLQCEN.
**************************************************
** Call CEEQCEN to return the start of the century
** window
**************************************************
CALL 'CEEQCEN' USING STARTCW, FC.
**************************************************
** CEEQCEN has no nonzero feedback codes to
** check, so just display result.
**************************************************
DISPLAY 'The start of the century '
'window is: ' STARTCW
GOBACK.