テーブルと OCCURS 句

COBOL には、同種データのリストを定義するための「配列」または「ベクトル」キーワードはありません。この目的のために、変数または構造体がメモリ内で繰り返される回数を指定する OCCURS 句を使用します。

OCCURS を使用したテーブルの定義

OCCURS 句は、グループ構造 (レベル 01) 内の従属変数 (たとえば、レベル 05 以上) の宣言に追加されます。

01 WS-SALES-DATA.
    05 WS-MONTHLY-SALES PIC 9(4) OCCURS 12 TIMES.

この例では、WS-MONTHLY-SALES は、それぞれ 4 桁の 12 個の数値要素で構成されるテーブルです。このレコードに割り当てられるメモリは、ちょうど 12 * 4 = 48 文字になります。

要素とインデックスへのアクセス

テーブル内の特定の要素にアクセスするには、フィールド名の直後に括弧内にインデックスを指定します。

[!重要] 0 から始まるインデックスを使用する最新の言語とは異なり、COBOL は 1 から始まるインデックスを使用します。最初の要素はインデックス 1 にあり、2 番目の要素はインデックス 2 にあります。

MOVE 1500 TO WS-MONTHLY-SALES(1).
MOVE 2400 TO WS-MONTHLY-SALES(2).

テーブルの走査 (反復)

テーブルの要素をループするには、PERFORM VARYING ステートメントを使用するか、PERFORM UNTIL ループでカウンターを手動で管理します。

PERFORM UNTIL WS-INDEX > 12
    DISPLAY "Sales: " WS-MONTHLY-SALES(WS-INDEX)
    ADD 1 TO WS-INDEX
END-PERFORM.

自分で試してみてください