導入：なぜSTOP RUNを正しく理解すべきなのか
COBOL開発において、プログラムの終了処理は非常に重要です。特に複数のプログラムを呼び出し合うシステムでは、単に「処理が終わったから閉じる」だけでは不十分なケースがあります。STOP RUNは、実行中のプログラムだけでなく、呼び出し元を含むすべてのプログラム（ランユニット）を一括で終了させる強力な命令です。本記事では、この命令の正しい使い方と、現場で陥りやすい罠について解説します。
基礎知識：ランユニットとは何か
COBOLにおける「ランユニット」とは、一つの実行単位（OSから見て一つのプロセス）として動作するプログラムの集まりです。メインプログラム（親）がサブプログラム（子）をCALLすると、それらは同一のランユニット内で動作します。
ここで重要なのは、EXIT PROGRAMとSTOP RUNの違いです。EXIT PROGRAMは「呼び出し元に戻る」だけですが、STOP RUNは「ランユニット全体を終了し、OSへ制御を戻す」という違いがあります。
実装・解決策：STOP RUNの適切な配置
STOP RUNは、プログラムの終了点に記述します。この命令が実行されると、以下の処理が自動的に行われます。
1. 開いているすべてのファイルがクローズされる。
2. 確保されたメモリ領域が解放される。
3. OSに対して終了コード（通常は0）が返される。
そのため、サブプログラムの中で安易に使うと、メインプログラムの処理が強制中断されてしまうため注意が必要です。
サンプルプログラム：STOP RUNの活用例
以下に、メインプログラムからサブプログラムを呼び出し、条件に応じてランユニットを終了させる構成例を示します。
プログラムID: MAINPGM
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. MAINPGM.
000300 PROCEDURE DIVISION.
000400 DISPLAY “メイン処理を開始します。”
000500 サブプログラムを呼び出す
000600 CALL “SUBPGM”.
000700 DISPLAY “この行は実行されません（サブでSTOP RUNされたため）。”
000800 STOP RUN.
プログラムID: SUBPGM
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. SUBPGM.
000300 PROCEDURE DIVISION.
000400 DISPLAY “サブプログラム実行中…”
000500 エラー発生時や、システムを強制終了させる際にSTOP RUNを使用
000600 DISPLAY “致命的なエラーを検知しました。全終了します。”
000700 STOP RUN.
応用・注意点：現場で役立つアドバイス
現場で最も注意すべきは、「意図しないSTOP RUN」です。保守開発中に、サブプログラム内で誤ってSTOP RUNを記述してしまうと、呼び出し元のプログラムが正常終了処理（ログ出力や後処理など）を行う前に強制終了されてしまいます。
以下のポイントを常に意識してください。
- 基本原則として、サブプログラムには EXIT PROGRAM を使用し、メインプログラム（一番外側の呼び出し元）でのみ STOP RUN を使用するのが構造化プログラミングの鉄則です。
- ファイルのクローズ漏れを恐れてSTOP RUNを多用するのは避けましょう。CLOSE文で個別に閉じるのが美しいコードの条件です。
- 強制終了が必要な例外処理以外では、終了箇所を一点に絞ることで、デバッグ効率が飛躍的に向上します。
ベテランの知恵として、プログラムの終了条件は常に「どこでランユニットが終了するか」を意識して設計してください。これが、堅牢なCOBOLシステムを維持する秘訣です。
コメント