1. 導入：なぜERROR条件が重要なのか
メインフレームのPL/I開発において、予期せぬ異常終了（アベンド）は避けるべき最優先事項です。個別のファイルエラーや算術エラーを細かく制御していても、想定外の事象が発生することはあります。そこで「ERROR条件」を適切に設定することで、システムが即座に強制終了するのを防ぎ、ログ出力やクリーンアップ処理を挟んだ「安全な終了」を実現できます。これは、システムの可用性を高めるための「最後の砦」として極めて重要な役割を果たします。
2. 基礎知識：ON-UnitとERROR条件の仕組み
PL/Iの例外処理は「ON-Unit」というブロックで定義されます。ERROR条件は、他の特定の条件（ENDFILEやCONVERSIONなど）で捕捉されなかった、あらゆる重大なエラーをキャッチする汎用的な例外です。
デフォルトの挙動は「メッセージを出力して即座にプログラムを停止させる」ことですが、これを独自にオーバーライドすることで、ユーザー定義のリカバリ処理を実行可能です。Javaで例えるなら、全ての例外を包括する `catch (Throwable t)` に相当します。
3. 実装と解決策
実務では、単にエラーを無視するのではなく、発生したエラーの内容（ONCODE）を特定してログに記録することが求められます。ONCODEはエラーの種類を特定する重要なキーであり、これを元に後続のリカバリ処理を分岐させます。
4. サンプルプログラム
以下は、プログラムの初期段階でERROR条件を定義し、異常発生時にログを記録して終了する汎用的な実装例です。
/ ERROR条件の定義（プログラム初期に配置） /
ON ERROR BEGIN;
/ エラーコードを取得 /
DCL ERR_CODE FIXED BIN(31);
ERR_CODE = ONCODE();
/ ログ出力用プロシージャの呼び出し /
CALL LOG_ERROR_DETAIL(ERR_CODE);
/ 異常終了を回避し、正常にプログラムを閉じる（戻り値の設定など） /
PUT SKIP LIST('システムエラーが発生しました。ログを確認してください。');
STOP;
END;
/ ログ出力プロシージャ /
LOG_ERROR_DETAIL: PROC(CODE);
DCL CODE FIXED BIN(31);
/ ここで数千種類あるONCODEを判定し、外部ログへ書き出す /
PUT SKIP LIST('発生したエラーコード: ' || CODE);
END LOG_ERROR_DETAIL;
5. 応用・注意点：現場での運用Tips
実務でERROR条件を実装する際、最も注意すべきは「無限ループ」です。ON-Unitブロック内でさらにエラーが発生すると、再びERROR条件がトリガーされ、スタックオーバーフローや無限ループに陥る危険があります。
また、Javaなどのオープン系言語と連携するシステムでは、ONCODEを元にした「例外変換表」を作成し、メインフレーム側のエラーをJava側の例外クラスへマッピングする設計が一般的です。この際、エラーコードの網羅性を高めるため、マニュアル記載のONCODE一覧を定数定義ファイルとして共有しておくことを強く推奨します。安易なリカバリはかえってデバッグを困難にするため、基本は「ログ出力＋安全な終了」に留めるのが運用上のベストプラクティスです。
コメント