1. 導入：なぜジョブの「戻り値」が重要なのか
COBOLのバッチプログラムにおいて、処理の成否を後続のステップやOS（JCL等）に正しく伝えることは、堅牢なシステム運用の要です。単にプログラムが正常終了したかだけでなく、「警告レベルの事象が発生した」「致命的なエラーで即時中断した」といった詳細な状態を呼び出し元に伝えることで、後続処理を制御したり、運用担当者への通知を自動化したりすることが可能になります。本記事では、特殊レジスタ「RETURN-CODE」を活用した終了ステータスの制御方法を解説します。
2. 基礎知識：RETURN-CODEとは何か
COBOLには、プログラムの実行結果をOSなどの呼び出し元へ返却するための「RETURN-CODE」という特殊レジスタが定義されています。
通常、プログラムが正常に終了すると、OSに対して「0」が返されます。しかし、業務要件に応じて特定の数値をセットすることで、JCLのCONDパラメータやIF文で後続ジョブの実行可否を制御できます。
一般的に、0は正常終了、4は警告、8以上はエラーとして扱う慣習が多く、この数値を意図的に制御することで、システム全体の「構造化されたエラーハンドリング」を実現できます。
3. 実装と解決策
実装は非常にシンプルですが、注意すべき点は「どのタイミングで値をセットするか」です。
プログラムの異常検知時、エラーメッセージを出力した直後にRETURN-CODEへ値を格納し、速やかにGOBACK文を実行して制御をOSへ戻します。これにより、予期せぬ後続処理の実行を防ぐことができます。
4. サンプルプログラム
以下のサンプルは、ファイル処理中に発生したエラーを判定し、終了ステータスを切り替える実務的なコード例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE01.
DATA DIVISION.
WORKING-STORAGE SECTION.
- エラーコード定数
01 ERR-LEVEL-WARNING PIC S9(4) BINARY VALUE 4.
01 ERR-LEVEL-FATAL PIC S9(4) BINARY VALUE 8.
PROCEDURE DIVISION.
> — 処理開始 —
PERFORM FILE-PROCESS.
> 正常終了時は特に値をセットしなければ0が返される
MOVE 0 TO RETURN-CODE.
GOBACK.
FILE-PROCESS.
> 本来はここでファイルオープン等の処理を行う
> 例としてエラーが発生したと仮定
IF ERROR-CONDITION THEN
DISPLAY “致命的なエラーが発生しました。”
> 呼び出し元に異常を伝えるため値をセット
MOVE ERR-LEVEL-FATAL TO RETURN-CODE
> 即座にOSへ戻る
GOBACK
END-IF.
5. 応用・注意点：現場で陥りやすい罠
実務でRETURN-CODEを扱う際、以下の点に注意してください。
・値の衝突を避ける
システム全体で「エラーコード表」を定義し、プロジェクト内で戻り値の意味を統一してください。場当たり的に数値を決めると、保守時にどの処理でエラーになったのか判別不能になります。
・メインプログラム以外での使用
サブプログラムでRETURN-CODEを設定しても、それがメインプログラム（呼び出し元）で適切に処理されなければ意味がありません。サブプログラムから戻った後に、メイン側でIF RETURN-CODE NOT = 0 THEN…といったチェックロジックを必ず記述してください。
・STOP RUNとの違い
STOP RUNはプログラム全体の実行を即座に終了させますが、GOBACKは呼び出し元に戻ります。メインプログラムであればどちらも大差ありませんが、サブルーチン化されている場合には、呼び出し元に制御を戻す「GOBACK」の使用を推奨します。
適切にRETURN-CODEを制御することで、運用監視の自動化レベルは格段に向上します。ぜひ、設計段階からこの終了コードの仕様を取り入れてみてください。
コメント