Таблицы и предложение OCCURS

В COBOL нет ключевых слов «массив» или «вектор» для определения списков однородных данных. Для этой цели вы используете предложение OCCURS, которое указывает, сколько раз переменная или структура повторяется в памяти.

Определение таблицы с помощью OCCURS

Предложение OCCURS добавляется к объявлению подчиненной переменной (например, уровень 05 или выше) внутри структуры группы (уровень 01):

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

В этом примере WS-MONTHLY-SALES представляет собой таблицу, состоящую из 12 числовых элементов по 4 цифры каждый. Памяти, выделенной под эту запись, будет ровно 12*4=48 символов.

Доступ к элементам и индексам

Чтобы получить доступ к определенному элементу таблицы, укажите индекс в круглых скобках сразу после имени поля.

[!ВАЖНО] В отличие от большинства современных языков, использующих индексацию с отсчетом от 0, COBOL использует индексацию с отсчетом от 1. Первый элемент имеет индекс 1, второй — индекс 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.

Попробуйте сами