CEEGMTO は、ローカル・システムの時刻とグリニッジ標準時 (GMT) の差を表す値を呼び出しルーチンに戻します。
| CALL CEEGMTO の構文 |
|---|
|
例えば太平洋標準時の場合、offset_hours は -8 に相当します。
offset_hours の範囲は -12 から +13 (+13 = +12 の時間帯における夏時間調整) です。
現地時間のオフセットを使用できない場合は、offset_hours が 0 になり、CEEGMTO が終了して非 CEE000 シンボリック・フィードバック・コードが戻されます。
offset_minutes の範囲は 0 から 59 です。
現地時間のオフセットを使用できない場合は、offset_minutes が 0 になり、CEEGMTO が終了して非 CEE000 シンボリック・フィードバック・コードが戻されます。
例えば、太平洋標準時は GMT よりも 8 時間遅れています。現地時間が標準時で太平洋標準時間帯に属する場合、CEEGMTO は -28,800 (-8 * 60 * 60) を戻します。offset_seconds の範囲は -43,200 から +46,800 です。offset_seconds を CEEGMT で使用すると、現地日時を計算することができます。
システムから現地時間のオフセットを使用できない場合は、offset_seconds が 0 に設定され、CEEGMTO が終了して非 CEE000 シンボリック・フィードバック・コードが戻されます。
| シンボリック・フィードバック・コード | 重大度 | メッセージ番号 | メッセージ・テキスト |
|---|---|---|---|
| CEE000 | 0 | — | サービスが正しく完了した。 |
| CEE2E7 | 3 | 2503 | UTC/GMT から現地時間までのオフセットをシステムから使用できませんでした。 |
使用上の注意
CBL LIB
*************************************************
** **
** Function: Call CEEGMTO to get offset from **
** Greenwich Mean Time to local **
** time **
** **
** In this example, a call is made to CEEGMTO **
** to return the offset from GMT to local time **
** as separate binary integers representing **
** offset hours, minutes, and seconds. The **
** results are displayed. **
** **
*************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. IGZTGMTO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 HOURS PIC S9(9) BINARY.
01 MINUTES PIC S9(9) BINARY.
01 SECONDS 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-CBLGMTO.
CALL 'CEEGMTO' USING HOURS , MINUTES ,
SECONDS , FC.
IF CEE000 of FC THEN
DISPLAY 'Local time differs from GMT '
'by: ' HOURS ' hours, '
MINUTES ' minutes, OR '
SECONDS ' seconds. '
ELSE
DISPLAY 'CEEGMTO failed with msg '
Msg-No of FC UPON CONSOLE
STOP RUN
END-IF.
GOBACK.
関連タスク
環境変数の設定
関連参照
CEEGMT (CEEGMT - 現在のグリニッジ標準時の取得)
ランタイム環境変数