1. なぜ「GOBACK」が重要なのか？
COBOLプログラムを書き始めた際、プログラムの終了方法として「EXIT PROGRAM」や「STOP RUN」を学んだ方も多いはずです。しかし、現場で最も推奨されているのは「GOBACK」です。なぜなら、GOBACKは呼び出し元が「OS」であっても「他のCOBOLプログラム」であっても、文脈を意識せずに安全に制御を戻すことができるからです。プログラムの保守性を高め、予期せぬ終了エラーを防ぐために、現代のCOBOL開発では必須の知識となります。
2. 基礎知識：終了コマンドの使い分け
COBOLには終了に関連する命令がいくつか存在します。
STOP RUN：プログラム全体を強制終了します。OSへ制御を戻す際に使いますが、サブプログラム内で使うとシステム全体が停止するリスクがあります。
EXIT PROGRAM：呼び出されたプログラムのみを終了します。しかし、メインプログラムで使うと動作が未定義になるなど、呼び出し元によって使い分けが必要です。
GOBACK：これらの中間的な役割を果たし、呼び出し元が何であれ、常に「呼び出し元へ戻る」という一貫した動きをします。
3. 実装と解決策
GOBACKの使い方は非常にシンプルで、プログラムの論理的な終了地点に記述するだけです。これにより、プログラムの構造が整理され、どこから呼ばれても安全に終了できる「汎用性」を確保できます。
4. サンプルプログラム
以下のコードは、メインプログラムからサブプログラムを呼び出し、GOBACKで戻る基本的な構成です。
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. MAINPROG.
000300 PROCEDURE DIVISION.
000400 サブプログラムを呼び出す
000500 CALL ‘SUBPROG’.
000600 DISPLAY ‘メインプログラムに戻ってきました。’.
000700 GOBACK.
000800
000900 IDENTIFICATION DIVISION.
001000 PROGRAM-ID. SUBPROG.
001100 PROCEDURE DIVISION.
001200 DISPLAY ‘サブプログラムを実行中…’.
001300 GOBACKにより、呼び出し元のMAINPROGへ安全に戻る
001400 GOBACK.
5. 応用・注意点
現場での開発において、最も陥りやすいバグは「戻り値（RETURN-CODE）」の設定漏れです。GOBACKで終了する直前に、RETURN-CODE特殊レジスタに値を設定しておくことで、呼び出し元に処理結果（正常終了なら0、異常終了ならエラーコードなど）を伝えることができます。
例：MOVE 0 TO RETURN-CODE. GOBACK.
このように、GOBACKを単なる「終了」ではなく、戻り値を含めた「制御の受け渡し」として捉えることが、ベテランへの第一歩です。ぜひ、既存のプログラムのEXIT PROGRAMをGOBACKへ置き換えることから始めてみてください。
コメント