テーブル・エレメントのデータ記述の VALUE 文節を使用して、 そのエレメントのすべてのインスタンスを指定の値に初期化することができます。
01 T2.
05 T-OBJ PIC 9 VALUE 3.
05 T OCCURS 5 TIMES
DEPENDING ON T-OBJ.
10 X PIC XX VALUE “AA”.
10 Y PIC 99 VALUE 19.
10 Z PIC XX VALUE “BB”.
例えば、この場合はすべての X エレメント (1 から 5) が AA に初期化され、すべての Y エレメント (1 から 5) が 19 に初期化され、すべての Z エレメント (1 から 5) が BB に初期化されます。その後、T-OBJ が 3 に設定されます。
関連タスク
可変長テーブルへの値の割り当て
関連参照
OCCURS 文節
(「COBOL for Windows 言語解説書」)