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


CEEGMT - 現在のグリニッジ標準時の取得

CEEGMT は現在のグリニッジ標準時 (GMT) を、リリアン日付と、1582 年 10 月 14 日の 00:00:00 から数えた秒数の両方として戻します。 戻り値は、他の日時の呼び出し可能サービスによって生成および使用される値と互換性があります。

ALL CEEGMT の構文
構文図を読む構文図をスキップする>>-CALL--"CEEGMT"--USING--output_GMT_Lilian,-------------------->
 
>--output_GMT_seconds,--fc.------------------------------------><
 
output_GMT_Lilian (出力)
グリニッジ (イングランド) の現在の日付をリリアン形式 (1582 年 10 月 14 日から数えた日数) で表す 32 ビットの 2 進整数。

例えば、1988 年 5 月 16 日は、日数 148138 に相当します。システムから GMT を使用できない場合は、output_GMT_Lilian が 0 に設定され、CEEGMT が終了して非 CEE000 シンボリック・フィードバック・コードが戻されます。

output_GMT_seconds (出力)
グリニッジ (イングランド) の現在の日時を 1582 年 10 月 14 日の 00:00:00 から数えた (うるう秒は数えない) 秒数で表す、64 ビット長の浮動小数点数。

例えば、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 シンボリック・フィードバック・コードが戻されます。

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

表 89. CEEGMT のシンボリック条件
シンボリック・フィードバック・コード 重大度 メッセージ番号 メッセージ・テキスト
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.

関連タスク
環境変数の設定


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

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