Как работать с массивами (tables) в COBOL?

@elda 

Работа с массивами в COBOL достаточно проста, но отличается от работы с массивами в современных языках программирования. В COBOL массивы называются «tables» и создаются с помощью уровня 77 или 01 в разделе DATA DIVISION. Давайте рассмотрим основные шаги по созданию и работе с массивами в COBOL.

Создание массива

1. Определение массива: Массив объявляется в разделе WORKING-STORAGE SECTION или FILE SECTION, используя уровень 01 или 77, а также предложение OCCURS, чтобы указать количество элементов. WORKING-STORAGE SECTION. 01 STUDENT-NAMES. 05 NAME OCCURS 10 TIMES PIC A(30). В этом примере STUDENT-NAMES — это массив строк, где каждая строка может содержать до 30 символов, и массив содержит 10 таких строк.
2. Доступ к элементам массива: Для доступа к элементам массива используется индекс. COBOL поддерживает как числовые индексы, так и индексные переменные. PROCEDURE DIVISION. MOVE "John Doe" TO NAME(1). MOVE "Jane Smith" TO NAME(2). DISPLAY NAME(1). DISPLAY NAME(2).
3. Итерация по массиву: Используйте цикл PERFORM...VARYING для перебора элементов массива. Индексы в COBOL начинаются с 1, в отличие от многих других языков, где индексация начинается с 0. PROCEDURE DIVISION. PERFORM VARYING IDX FROM 1 BY 1 UNTIL IDX > 10 DISPLAY NAME(IDX) END-PERFORM. Здесь IDX — это обычная числовая переменная, используемая в качестве счетчика для перебора массива.
4. Использование индексных переменных (INDEXED BY): COBOL позволяет создать индексные переменные для более безопасного доступа к элементам массива. WORKING-STORAGE SECTION. 01 STUDENT-NAMES. 05 NAME OCCURS 10 TIMES INDEXED BY STUDENT-IDX PIC A(30). PROCEDURE DIVISION. SET STUDENT-IDX TO 1 DISPLAY NAME(STUDENT-IDX). SET STUDENT-IDX UP BY 1 DISPLAY NAME(STUDENT-IDX). Использование индексных переменных позволяет лучше контролировать доступ к элементам массива и минимизировать ошибки, связанные с неправильными индексами.

Заключение

Работа с массивами в COBOL требует внимательности из-за специфики языка и отсутствия некоторых современных возможностей (например, динамических массивов). Однако с использованием стандартных конструкций можно эффективно управлять массивами даже в этом языке.