Абзацы и ВЫПОЛНЕНИЕ

В COBOL модульность и логическое структурирование кода внутри PROCEDURE DIVISION осуществляются не с помощью функций или методов, а с помощью Paragraphs и оператора 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..

Попробуйте сами