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


CEELOCT - 現在の現地日時の取得

CEELOCT は、現在の現地日時をリリアン日付 (1582 年 10 月 14 日から数えた日数)、リリアン秒数 (1582 年 10 月 14 日の 00:00:00 から数えた秒数)、グレゴリオ文字ストリング (YYYYMMDDHHMISS999) としてそれぞれ返します。

これらの値は、他の日時の呼び出し可能サービスや、既存の組み込み関数と互換性があります。

CEELOCT は、CEEGMT、CEEGMTO、および CEEDATM の各サービスを個別に呼び出すのと同じ機能を実行します。ただし、CEELOCT の呼び出しの方が、はるかに高速です。

CALL CEELOCT の構文
構文図を読む構文図をスキップする>>-CALL--"CEELOCT"--USING--output_Lilian,--output_seconds,------>
 
>--output_Gregorian,--fc.--------------------------------------><
 
output_Lilian (出力)
現在の現地日付をリリアン形式 (1 日目は 1582 年 10 月 15 日、148,887 日目は 1990 年 6 月 4 日) で表す、32 ビットの 2 進整数。

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

output_seconds (出力)
現在の現地日時を 1582 年 10 月 14 日の 00:00:00 から数えた (うるう秒は数えない) 秒数で表す、64 ビット長の浮動小数点数。例えば、1582 年 10 月 15 日の 00:00:01 は秒数 86,401 (24*60*60 + 01) に相当します。1990 年 6 月 4 日の 19:00:01.078 は、秒数 12,863,905,201.078 に相当します。

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

output_Gregorian (出力)
現地の年、月、日、時、分、秒、ミリ秒を表す、YYYYMMDDHHMISS999 形式の 17 バイト固定長文字ストリング。

output_Gregorian の形式が必要な形式と合わない場合は、CEEDATM 呼び出し可能サービスを使用して、output_seconds を別の形式に変換することができます。

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

表 92. CEELOCT のシンボリック条件
シンボリック・フィードバック・コード 重大度 メッセージ番号 メッセージ・テキスト
CEE000 0 サービスが正しく完了した。
CEE2F3 3 2531 システムから現地時間を使用できませんでした。

使用上の注意

CBL LIB
      ************************************************
      **                                            **
      ** Function: Call CEELOCT to get current      **
      **           local time                       **
      **                                            **
      ** In this example, a call is made to CEELOCT **
      ** to return the current local time in Lilian **
      ** days (the number of days since 14 October  **
      ** 1582), Lilian seconds (the number of       **
      ** seconds since 00:00:00 14 October 1582),   **
      ** and a Gregorian string (in the form        **
      ** YYYMMDDMISS999). The Gregorian character   **
      ** string is then displayed.                  **
      **                                            **
      ************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. CBLLOCT.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  LILIAN                  PIC S9(9) BINARY.
       01  SECONDS                 COMP-2.
       01  GREGORN                 PIC X(17).
       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-CBLLOCT.
           CALL 'CEELOCT' USING LILIAN, SECONDS,
                                GREGORN, FC.
      ************************************************
      ** If CEELOCT runs successfully, display      **
      **     Gregorian character string             **
      ************************************************
           IF CEE000 of FC  THEN
               DISPLAY 'Local Time is ' GREGORN
           ELSE
               DISPLAY 'CEELOCT failed with msg '
                   Msg-No of FC UPON CONSOLE
               STOP RUN
           END-IF.

           GOBACK.

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

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