協定世界時 (CEEGMT の別名) を取得します。
指定方法
CALL "CEEUTC" USING BY REFERENCE LILIAN, BY REFERENCE SECS, BY REFERENCE FC.
01 LILIAN PIC S9(9) BINARY. 01 SECS COMP-2. 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.
英国グリニッジの現在の日付をリリアン形式(1582 年10 月14 日からの日数)で格納する領域を指定します。
英国グリニッジにおける現在の日時を、1582 年10 月14 日の00:00:00 からの秒数(うるう秒数はカウントしない) を格納する領域を指定します。
フィードバック・コード域を指定します。
返却されるフィードバック・コードとコードの意味は以下のとおりです。
コード | 重大度 | メッセージ番号 | 意味 |
---|---|---|---|
CEE000 | 0 | 0 | 成功 |
CEE2E6 | 3 | 2502 | UTC/GMT がシステムから使用可能ではありません。 |