CEEGMT は現在のグリニッジ標準時 (GMT) を、リリアン日付と、1582 年 10 月 14 日の 00:00:00 から数えた秒数の両方として戻します。 戻り値は、他の日時の呼び出し可能サービスによって生成および使用される値と互換性があります。
| ALL CEEGMT の構文 |
|---|
|
例えば、1988 年 5 月 16 日は、日数 148138 に相当します。システムから GMT を使用できない場合は、output_GMT_Lilian が 0 に設定され、CEEGMT が終了して非 CEE000 シンボリック・フィードバック・コードが戻されます。
例えば、1582 年 10 月 15 日の 00:00:01 は秒数 86,401 (24*60*60 + 01) に相当します。1988 年 5 月 16 日の 19:00:01.078 は、秒数 12,799,191,601.078 に相当します。システムから GMT を使用できない場合は、output_GMT_seconds が 0 に設定され、CEEGMT が終了して非 CEE000 シンボリック・フィードバック・コードが戻されます。
| シンボリック・フィードバック・コード | 重大度 | メッセージ番号 | メッセージ・テキスト |
|---|---|---|---|
| CEE000 | 0 | — | サービスが正しく完了した。 |
| CEE2E6 | 3 | 2502 | システムから UTC/GMT を使用できませんでした。 |
使用上の注意
CBL LIB
*************************************************
** **
** Function: Call CEEGMT to get current **
** Greenwich Mean Time **
** **
** In this example, a call is made to CEEGMT **
** to return the current GMT as a Lilian date **
** and as Lilian seconds. The results are **
** displayed. **
** **
*************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. IGZTGMT.
DATA DIVISION.
WORKING-STORAGE SECTION.
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) 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-CBLGMT.
CALL 'CEEGMT' USING LILIAN , SECS , FC.
IF CEE000 of FC THEN
DISPLAY 'The current GMT is also '
'known as Lilian day: ' LILIAN
DISPLAY 'The current GMT in Lilian '
'seconds is: ' SECS
ELSE
DISPLAY 'CEEGMT failed with msg '
Msg-No of FC UPON CONSOLE
STOP RUN
END-IF.
GOBACK.
関連タスク
環境変数の設定