1. 導入：なぜ今、PERFORM THRUを再考すべきか
ベテランの現場ではよく目にする「PERFORM 段落A THRU 段落B」。一見、複数の段落をまとめて呼び出せて便利ですが、実はこの構文には「意図しない処理の混入」という大きなリスクが潜んでいます。コードの可読性を下げ、デバッグを困難にするこの構文を、いかに安全かつ現代的な設計で扱うべきか、実務の視点で解説します。
2. 基礎知識：PERFORM THRUの仕組み
PERFORM THRUは、指定した「開始段落」から「終了段落」までのすべての処理を順次実行する命令です。プログラムの制御フローを柔軟に動かせる反面、終了段落の後に意図しない処理（フォールスルー）が続いていると、そこまで実行されてしまうというCOBOL特有の「段落連続実行」の仕様に依存しています。これがバグの温床となります。
3. 実装/解決策：保守性を高める「SECTION」単位の実行
実務で推奨されるのは、THRUを使う手法ではなく、処理を「SECTION」で括り、そのSECTIONを呼び出す設計です。これにより、論理的なブロックが明確になり、予期せぬ処理の流入を防ぐことができます。どうしてもTHRUを使う必要がある場合は、終了段落を「EXIT段落」として独立させ、そこに「EXIT」文のみを記述することで、制御を確実に戻すのが鉄則です。
4. サンプルプログラム：安全なEXIT段落の活用例
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE-PERFORM.
PROCEDURE DIVISION.
000-MAIN-LOGIC.
- 100-STARTから100-EXITまでを論理ブロックとして実行する
PERFORM 100-START THRU 100-EXIT.
STOP RUN.
100-START.
- 処理の開始点
DISPLAY “処理を開始します”.
100-PROCESS.
- メインの処理内容
DISPLAY “データを処理中…”.
100-EXIT.
- 終了段落: ここにはEXIT文のみを置き、処理の出口を明確にする
EXIT.
5. 応用・注意点：現場で陥りやすいバグの回避策
現場で最も注意すべきは、「他の処理から同じ段落にジャンプ（GO TO）していないか」という点です。PERFORM THRUで囲った範囲の中にGO TOで飛び込むと、プログラムの追跡が極めて困難になります。
また、最新のコンパイラ環境では、THRUを使用せずとも、可能な限り「PERFORM 節名」を使用することで、構造化プログラミングの原則である「単一入り口・単一出口」を守ることができます。もし既存コードでTHRUが多用されている場合は、リファクタリングの第一歩として、まずはEXIT段落の配置を徹底することから始めてみてください。それが保守コスト削減への最短距離です。
コメント