ページの先頭行へ戻る
NetCOBOL V12.0 LEサブルーチン ユーザーズガイド
FUJITSU Software

4.11 CEESCEN

世紀ウィンドウを設定します。

世紀ウィンドウについては、CEEQCENを参照してください。

指定方法

呼出しの記述
CALL "CEESCEN" USING
               BY REFERENCE STARTCW, 
               BY REFERENCE FC.
パラメタのデータ定義
01 STARTCW PIC S9(9) BINARY.
01 FC.
   02 Condition-Token-Value.
   COPY CEEIGZCT.
       03 Case-1-Condition-ID.
           04 Severity PIC S9(4) BINARY.
           04 Msg-No   PIC S9(4) BINARY.
       03 Case-2-Condition-ID
           REDEFINES Case-1-Condition-ID.
           04 Class-Code PIC S9(4) BINARY.
           04 Cause-Code PIC S9(4) BINARY.
       03 Case-Sev-Ctl PIC X.
       03 Facility-ID PIC XXX.
   02 I-S-Info PIC S9(9) BINARY.
STARTCW (出力)

世紀ウィンドウを設定する0 から100 までの整数を指定します。

FC (出力)

フィードバック・コード域を指定します。

返却されるフィードバック・コードとコードの意味は以下のとおりです。

コード

重大度
(Severity)

メッセージ番号
(Msg-No)

意味

CEE000

0

0

成功

CEE2E6

3

2502

UTC/GMT がシステムから使用可能ではありません。