Paragrafy i PERFORM

W COBOL-u modularność i strukturyzacja kodu wewnątrz sekcji PROCEDURE DIVISION nie odbywa się za pomocą funkcji czy metod, lecz poprzez paragrafy oraz instrukcję PERFORM.

Definiowanie paragrafów

Paragraf to oznaczona sekcja kodu, która zaczyna się od nazwy w kolumnie 8 (Area A) zakończonej kropką ., po której następuje sekwencja instrukcji w kolumnie 12 (Area B).

Code

STAMPA-MESSAGGIO.
    DISPLAY "Questo è un paragrafo!".

Paragrafy pozwalają podzielić potencjalnie bardzo długie programy na czytelne bloki wielokrotnego użytku.

Wywoływanie paragrafów za pomocą PERFORM

Instrukcja PERFORM wywołuje i wykonuje dany paragraf, po czym zwraca kontrolę do linii znajdującej się bezpośrednio pod wywołaniem PERFORM.

Code

PROCEDURE DIVISION.
MAIN-PROCEDURE.
    DISPLAY "Inizio programma...".
    PERFORM ELABORA-DATI.
    DISPLAY "Fine programma.".
    STOP RUN.

ELABORA-DATI.
    DISPLAY "Sto elaborando i dati in memoria...".

W powyższym kodzie:

Wykonywana jest instrukcja DISPLAY w paragrafie MAIN-PROCEDURE.
PERFORM ELABORA-DATI przekazuje kontrolę do paragrafu ELABORA-DATI.
Po zakończeniu paragrafu ELABORA-DATI sterowanie wraca do MAIN-PROCEDURE, aby wypisać "Fine programma." i zakończyć program za pomocą STOP RUN..

Spróbuj sam

Ćwiczenie#cobol.m3.l1.e1

Próby: 0Ładowanie...

Zdefiniuj paragraf o nazwie DISPLAY-TOTAL wypisujący 'TOTAL IS DONE' za pomocą DISPLAY, i wywołaj go wewnątrz MAIN-PROCEDURE przy użyciu PERFORM przed zatrzymaniem programu.

Ładowanie edytora...

Pokaż wskazówkę

Napisz PERFORM DISPLAY-TOTAL. w kolumnie 12, a pod blokiem MAIN-PROCEDURE zadeklaruj paragraf DISPLAY-TOTAL. w kolumnie 8.

Rozwiązanie dostępne po 3 próbach

Ćwiczenie#cobol.m3.l1.e2

Próby: 0Ładowanie...

Wywołaj sekwencyjnie dwa paragrafy, najpierw INITIALIZE-DATA, a potem PROCESS-DATA, wewnątrz bloku MAIN-PROCEDURE.

Ładowanie edytora...

Pokaż wskazówkę

Wstaw dwie instrukcje PERFORM jedna po drugiej w kolumnie 12.

Rozwiązanie dostępne po 3 próbach