Переменные и ИЗОБРАЖЕНИЕ

В COBOL все используемые переменные должны быть объявлены внутри DATA DIVISION. В частности, временные переменные в памяти, используемые для логики программы, находятся внутри РАБОЧЕГО РАЗДЕЛА.

Номера уровней

В объявлении переменных COBOL номера уровней используются для структурирования и иерархической организации данных:

• 01: определяет основную переменную или элемент группы (самый высокий уровень).
• 05, 10, 15: определите подчиненные поля в элементе группы уровня 01.
• 77: исторически обозначаемые независимые элементарные переменные, которые невозможно подразделить дальше.

В современной практике уровень 01 обычно используется для объявления независимых элементарных переменных.

Пункт ИЗОБРАЖЕНИЕ (или PIC)

Предложение PICTURE (сокращенно PIC) определяет тип данных и длину символов переменной. Три основных символа формата:

1. X (буквенно-цифровой): может содержать буквы, цифры и специальные символы.
   • PIC X(10) объявляет строку длиной ровно 10 символов.
2. 9 (числовой): может содержать только числовые цифры.
   • PIC 9(3) объявляет целое число, состоящее из 3 цифр (до 999).
3. V (неявная десятичная точка): используется в десятичных числах для обозначения начала дробной части (десятичная точка не сохраняется физически).
   • PIC 9(3)V99 объявляет число, состоящее из 3 целых цифр и 2 десятичных знаков.

Пункт ЗНАЧЕНИЕ

Чтобы присвоить начальное значение переменной во время объявления, используйте предложение VALUE.

01 WS-PROJECT-NAME PIC X(15) VALUE "ELEARNER".
01 WS-USER-AGE     PIC 9(3)  VALUE 25.

Все определения переменных должны заканчиваться точкой ..

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