段落とパフォーマンス

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. MAIN-PROCEDURE 内の DISPLAY が実行されます。
2. PERFORM PROCESS-DATA は、実行を PROCESS-DATA 段落に分岐します。
3. PROCESS-DATA 段落が終了すると、実行は MAIN-PROCEDURE に戻り、「プログラムの終了」を出力します。 STOP RUN. を使用して停止します。

自分で試してみてください