Абзаци і ВИКОНУВАТИ

У COBOL модульність і логічне структурування коду всередині PROCEDURE DIVISION відбувається не через функції чи методи, а через Абзаци та оператор PERFORM.

Визначення абзаців

Абзац — це позначений розділ коду, який починається з назви в стовпці 8 (область A), закінчується крапкою ., за якою йде послідовність інструкцій у стовпці 12 (область B).

DISPLAY-MESSAGE.
    DISPLAY "This is a paragraph!".

Абзаци дозволяють розділити потенційно дуже довгі програми на багаторазові та самодокументовані блоки.

Виконання абзаців за допомогою PERFORM

Інструкція PERFORM викликає та виконує абзац, а потім повертає керування інструкції, що йде одразу після інструкції PERFORM.

PROCEDURE DIVISION.
MAIN-PROCEDURE.
    DISPLAY "Starting program...".
    PERFORM PROCESS-DATA.
    DISPLAY "Ending program.".
    STOP RUN.

PROCESS-DATA.
    DISPLAY "Processing data in memory...".

У наведеному вище списку:

1. DISPLAY всередині MAIN-PROCEDURE виконується.
2. PERFORM PROCESS-DATA розгалужує виконання до абзацу PROCESS-DATA.
3. Після завершення абзацу PROCESS-DATA виконання повертається до MAIN-PROCEDURE для друку «Завершення програми». і зупиніть використання STOP RUN..

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