Как объявить переменные в COBOL?

@jeremy_larkin 

В COBOL объявление переменных происходит в разделе DATA DIVISION. Переменные описываются в разделе WORKING-STORAGE SECTION или в других подходящих секциях, таких как FILE SECTION или LINKAGE SECTION, в зависимости от их назначения и области использования. В каждой переменной необходимо указать уровень и, если необходимо, добавить дополнительную информацию о типе данных.

Ниже приведён пример объявления переменных в секции WORKING-STORAGE SECTION:

1
2
3
4
5
6

DATA DIVISION.
WORKING-STORAGE SECTION.
01 EMPLOYEE-NAME     PIC A(30).
01 EMPLOYEE-ID       PIC 9(5).
01 EMPLOYEE-SALARY   PIC 9(7)V99.
01 EMPLOYEE-DEPT     PIC X(3).

Разберём, что обозначает каждая часть описания:

1. Уровень (Level Number) — числа, такие как 01, 05, 77 и т. д., определяют уровень вложенности или иерархию данных. Уровень 01 используется для главных или самостоятельных переменных, в то время как уровни ниже могут использоваться для вложенных структур, таких как группы переменных.
2. Имя переменной — это имя, присваиваемое данным.
3. Картина (Picture, или PIC) — спецификация формата данных. A — алфавитные символы. X — любые символы (альфа-цифровые). 9 — цифровые символы. V — подразумеваемая десятичная точка (не занимает места в данных, но указывает, где находится десятичная дробь).

Таким образом, с помощью раздела DATA DIVISION и соответствующих спецификаций можно объявлять и организовывать переменные в COBOL-программе.