世紀ウィンドウを設定します。
世紀ウィンドウについては、CEEQCENを参照してください。
指定方法
CALL "CEESCEN" USING BY REFERENCE STARTCW, BY REFERENCE FC.
01 STARTCW 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.
世紀ウィンドウを設定する0 から100 までの整数を指定します。
フィードバック・コード域を指定します。
返却されるフィードバック・コードとコードの意味は以下のとおりです。
コード | 重大度 | メッセージ番号 | 意味 |
---|---|---|---|
CEE000 | 0 | 0 | 成功 |
CEE2E6 | 3 | 2502 | UTC/GMT がシステムから使用可能ではありません。 |