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


CEESCEN - 世紀ウィンドウの設定

CEESCEN は、世紀ウィンドウを、他の日時の呼び出し可能サービスが使用できる 2 桁年号値に設定します。

次のような場合は、CEEDAYS または CEESECS と組み合わせて CEESCEN を使用します。

世紀ウィンドウを照会するには、CEEQCEN を使用します。

CALL CEESCEN の構文
構文図を読む構文図をスキップする>>-CALL--"CEESCEN"--USING--century_start,--fc.-----------------><
 
century_start
世紀ウィンドウを設定する、0 から 100 の整数。

例えば、値 80 の場合は、すべての 2 桁年桁が、システム日付より 80 年前から始まる 100 年間に属します。したがって、2008 年の場合、2 桁の年号はすべて 1928 から 2027 年の範囲内の日付を表すものと想定されます。

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

表 94. CEESCEN のシンボリック条件
シンボリック・フィードバック・コード 重大度 メッセージ番号 メッセージ・テキスト
CEE000 0 サービスが正しく完了した。
CEE2E6 3 2502 システムから UTC/GMT を使用できませんでした。
CEE2F5 3 2533 CEESCEN に渡された値が 0 から 100 の範囲内にありませんでした。

CBL LIB
      **************************************************
      **                                              **
      ** Function: Call CEESCEN to set the            **
      **           date and time callable services    **
      **           century window                     **
      **                                              **
      ** In this example, CEESCEN is called to change **
      ** the start of the century window to 30 years  **
      ** before the system date. CEEQCEN is then      **
      ** called to query that the change made.  A     **
      ** message that this has been done is then      **
      ** displayed.                                   **
      **                                              **
      **************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. CBLSCEN.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  STARTCW                 PIC S9(9) BINARY.
       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-CBLSCEN.
      **************************************************
      ** Specify 30 as century start, and two-digit
      **     years will be assumed to lie in the
      **     100-year window starting 30 years before
      **     the system date.
      **************************************************
           MOVE 30 TO STARTCW.

      **************************************************
      ** Call CEESCEN to change the start of the century
      **     window.
      **************************************************
           CALL 'CEESCEN' USING STARTCW, FC.
           IF NOT CEE000 of FC  THEN
               DISPLAY 'CEESCEN failed with msg '
                   Msg-No of FC UPON CONSOLE
               STOP RUN
           END-IF.

       PARA-CBLQCEN.
      **************************************************
      ** Call CEEQCEN to return the start of the century
      **     window
      **************************************************
           CALL 'CEEQCEN' USING STARTCW, FC.

      **************************************************
      ** CEEQCEN has no nonzero feedback codes to
      **     check, so just display result.
      **************************************************
               DISPLAY 'The start of the century '
                   'window is: ' STARTCW
           GOBACK.

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

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