Zmienne i PICTURE

W COBOL-u wszystkie używane zmienne muszą być zadeklarowane wewnątrz sekcji DATA DIVISION. Konkretnie, zmienne tymczasowe w pamięci przeznaczone dla logiki programu znajdują się w sekcji WORKING-STORAGE SECTION.

Numery poziomów (Level Numbers)

Deklaracja zmiennych w COBOL-u wykorzystuje numery poziomów do hierarchicznego organizowania danych:

• 01: Definiuje główną zmienną lub rekord (najwyższy poziom).
• 05, 10, 15: Definiują pola podrzędne wewnątrz rekordu poziomu 01.
• 77: Historycznie wskazywał niezależne zmienne elementarne, których nie można było dalej dzielić.

W nowoczesnej praktyce powszechnie stosuje się poziom 01 do deklarowania niezależnych zmiennych elementarnych.

Klauzula PICTURE (lub PIC)

Klauzula PICTURE (w skrócie PIC) określa typ danych i rozmiar zmiennej w znakach. Trzy podstawowe znaki formatu to:

1. X (Alfanumeryczny): Może zawierać litery, cyfry i znaki specjalne.
   • PIC X(10) deklaruje ciąg o długości dokładnie 10 znaków.
2. 9 (Numeryczny): Może zawierać tylko cyfry.
   • PIC 9(3) deklaruje liczbę całkowitą składającą się z 3 cyfr (do 999).
3. V (Niejawny punkt dziesiętny): Używany w liczbach z przecinkiem do wskazania miejsca umieszczenia części ułamkowej (punkt dziesiętny nie jest fizycznie zapisywany).
   • PIC 9(3)V99 deklaruje liczbę z 3 cyframi całkowitymi i 2 dziesiętnymi.

Klauzula VALUE

Aby przypisać wartość początkową zmiennej w momencie deklaracji, używa się klauzuli VALUE.

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

Wszystkie definicje zmiennych muszą kończyć się kropką ..

Spróbuj sam