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


CEEQCEN - 世紀ウィンドウの照会

CEEQCEN は、2 桁の年号値の世紀ウィンドウを照会します。

世紀ウィンドウを変更する場合は、CEEQCEN を使用して設定を取得した後、CEESCEN を使用して現行の設定を保存して復元します。

CALL CEEQCEN の構文
構文図を読む構文図をスキップする>>-CALL--"CEEQCEN"--USING--century_start,--fc.-----------------><
 
century_start (出力)
世紀ウィンドウの基になる年を表す、0 から 100 の整数。

例えば、日時の呼び出し可能サービスのデフォルトが有効な場合、2 桁の年号はすべて、システム日付より 80 年前から始まる 100 年間に属します。この後、CEEQCEN が値 80 を戻します。例えば、2008 年の場合、80 は、すべての 2 桁年号が 100 年間 (1928 年から 2027 年まで) にあることを示します。

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

表 93. CEEQCEN のシンボリック条件
シンボリック・フィードバック・コード 重大度 メッセージ番号 メッセージ・テキスト
CEE000 0 サービスが正しく完了した。

CBL LIB
      *************************************************
      **                                             **
      ** Function: Call CEEQCEN to query the         **
      **           date and time callable services   **
      **           century window                    **
      **                                             **
      ** In this example, CEEQCEN is called to query **
      ** the date at which the century window starts **
      ** The century window is the 100-year window   **
      ** within which the date and time callable     **
      ** services assume all two-digit years lie.    **
      **                                             **
      *************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. CBLQCEN.

       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-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.          **
      *************************************************
           IF CEE000 of FC  THEN
               DISPLAY 'The start of the century '
                   'window is: ' STARTCW
           ELSE
               DISPLAY 'CEEQCEN failed with msg '
                   Msg-No of FC UPON CONSOLE
               STOP RUN
           END-IF.

           GOBACK.

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

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