Rational Developer for System z
COBOL for Windows バージョン 7.5 プログラミング・ガイド


CEEGMTO - グリニッジ標準時から現地時間までのオフセットの取得

CEEGMTO は、ローカル・システムの時刻とグリニッジ標準時 (GMT) の差を表す値を呼び出しルーチンに戻します。

CALL CEEGMTO の構文
構文図を読む構文図をスキップする>>-CALL--"CEEGMTO"--USING--offset_hours,--offset_minutes,------->
 
>--offset_seconds,--fc.----------------------------------------><
 
offset_hours (出力)
GMT から現地時間までのオフセットを時間単位で表す 32 ビットの 2 進整数。

例えば太平洋標準時の場合、offset_hours は -8 に相当します。

offset_hours の範囲は -12 から +13 (+13 = +12 の時間帯における夏時間調整) です。

現地時間のオフセットを使用できない場合は、offset_hours が 0 になり、CEEGMTO が終了して非 CEE000 シンボリック・フィードバック・コードが戻されます。

offset_minutes (出力)
現地時間が GMT よりも何分進んでいるか、または何分遅れているかを表す、32 ビットの 2 進整数。

offset_minutes の範囲は 0 から 59 です。

現地時間のオフセットを使用できない場合は、offset_minutes が 0 になり、CEEGMTO が終了して非 CEE000 シンボリック・フィードバック・コードが戻されます。

offset_seconds (出力)
GMT から現地時間までのオフセットを秒単位で表す 64 ビット長の浮動小数点数。

例えば、太平洋標準時は GMT よりも 8 時間遅れています。現地時間が標準時で太平洋標準時間帯に属する場合、CEEGMTO は -28,800 (-8 * 60 * 60) を戻します。offset_seconds の範囲は -43,200 から +46,800 です。offset_seconds を CEEGMT で使用すると、現地日時を計算することができます。

システムから現地時間のオフセットを使用できない場合は、offset_seconds が 0 に設定され、CEEGMTO が終了して非 CEE000 シンボリック・フィードバック・コードが戻されます。

fc (出力)
このサービスの結果を示す 12 バイトのフィードバック・コード (オプション)。

表 90. CEEGMTO のシンボリック条件
シンボリック・フィードバック・コード 重大度 メッセージ番号 メッセージ・テキスト
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 - 現在のグリニッジ標準時の取得)
ランタイム環境変数


ご利用条件 | フィードバック

Copyright IBM Corporation 1996, 2008.
このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)