Змінні та PICTURE

У COBOL усі використовувані змінні мають бути оголошені всередині DATA DIVISION. Зокрема, тимчасові змінні в пам’яті, які використовуються для логіки програми, знаходяться всередині РОЗДІЛУ РОБОЧОГО ЗБЕРІГАННЯ.

Номери рівнів

Оголошення змінної COBOL використовує номери рівнів для структурування та ієрархічної організації даних:

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

У сучасній практиці рівень 01 зазвичай використовується для оголошення незалежних елементарних змінних.

Речення PICTURE (або 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

Щоб присвоїти початкове значення змінній під час оголошення, використовуйте пропозицію VALUE.

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

Усі визначення змінних мають закінчуватися крапкою ..

Спробуйте самі