cobol
Podział danych
Szukaj…
Wprowadzenie
PODZIAŁ DANYCH to jedna z czterech części składających się na program COBOL. Zawiera instrukcje opisujące dane używane przez program. Składa się z czterech części: SEKCJA PLIKU, SEKCJA PRACY-PRZECHOWYWANIA, SEKCJA LOKALNEGO PRZECHOWYWANIA i SEKCJA ŁĄCZENIA.
Sekcje w dziale danych
SEKCJE w języku COBOL mogą być wymagane lub opcjonalne, w zależności od PODZIAŁU, w którym się znajdują.
DATA DIVISION.
FILE SECTION.
FD SAMPLE-FILE
01 FILE-NAME PIC X(20).
WORKING-STORAGE SECTION.
01 WS-STUDENT PIC A(10).
01 WS-ID PIC 9(5).
LOCAL-STORAGE SECTION.
01 LS-CLASS PIC 9(3).
LINKAGE SECTION.
01 LS-ID PIC 9(5).
W powyższym przykładzie 01 to numery poziomów.
Numer poziomu
Numer poziomu służy do określania poziomu danych w rekordzie. Służą do rozróżnienia elementów elementarnych i elementów grupowych. Elementy podstawowe można grupować, aby tworzyć elementy grupy.
- 01: Wpis opisu rekordu. Numer poziomu grupy to zawsze 01.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NAME PIC X(25). ---> ELEMENTARY ITEM
01 WS-SURNAME PIC X(25). ---> ELEMENTARY ITEM
01 WS-ADDRESS. ---> GROUP ITEM
05 WS-HOUSE-NUMBER PIC 9(3). ---> ELEMENTARY ITEM
05 WS-STREET PIC X(15). ---> ELEMENTARY ITEM
- 02 do 49: przedmioty podstawowe
- 66: Zmień nazwę przedmiotów klauzul
- 77: Pozycje, których nie można podzielić.
- 88: Poziom 88 jest specjalnym numerem poziomu stosowanym w celu poprawy czytelności programów COBOL i ulepszenia testów IF. Poziom 88 wygląda jak poziom pod inną zmienną, ale tak nie jest. Nie ma OBRAZU, ale ma wartość. Poziom 88 jest zawsze powiązany z inną zmienną i jest nazwą warunku dla tej zmiennej.
01 YES-NO PIC X.
88 ANSWER-IS-YES VALUE "Y".
Oba poniższe warunki sprawdzają, czy TAK-NIE jest równe „Y”:
IF YES-NO = "Y"
IF ANSWER-IS-YES
Nazwa warunku poziomu 88 może być używana dla zmiennej alfanumerycznej lub numerycznej.
Klauzula obrazowa
KLAUZULA OBRAZU definiuje dwie rzeczy dotyczące zmiennej: rozmiar zmiennej (liczba bajtów użytych w pamięci dla wartości) oraz typ danych, które mogą być przechowywane w zmiennej.