Rational Developer for System z
Enterprise COBOL for z/OS バージョン 4.1 プログラミング・ガイド


それぞれのテーブル項目の個別の初期化

テーブルが小さい場合は、VALUE 節を使用してそれぞれの項目の値を個別に設定できます。

以下のコード例に示されている手法を使用します。

  1. テーブルに入れられる項目を含むレコード (以下の Error-Flag-Table など) を宣言します。
  2. 各項目の初期値を VALUE 節で設定します。
  3. そのレコードをテーブルに入れるための REDEFINES 記入項目をコーディングします。
***********************************************************
***           E R R O R   F L A G   T A B L E           ***
***********************************************************
 01  Error-Flag-Table                    Value Spaces.
   88 No-Errors                          Value Spaces.
     05 Type-Error                       Pic X.
     05 Shift-Error                      Pic X.
     05 Home-Code-Error                  Pic X.
     05 Work-Code-Error                  Pic X.
     05 Name-Error                       Pic X.
     05 Initials-Error                   Pic X.
     05 Duplicate-Error                  Pic X.
     05 Not-Found-Error                  Pic X.
 01  Filler Redefines Error-Flag-Table.
     05 Error-Flag Occurs 8 Times
          Indexed By Flag-Index          Pic X.

上の例で、01 レベルの VALUE 節は、それぞれのテーブル項目を同じ値に初期化します。 代わりに、それぞれのテーブル項目に独自の VALUE 節を記述して、その項目を別個の値に初期化することもできます。

もっと大きなテーブルを初期化する場合は、MOVEPERFORM、または INITIALIZE ステートメントを使用します。

関連参照
REDEFINES 節 (Enterprise COBOL 言語解説書)
OCCURS 節 (Enterprise COBOL 言語解説書)


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

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