導入
メインフレーム開発において、システムは常に予期せぬ事象と隣り合わせです。ハードウェアの不具合やデータ定義外の数値入力など、従来の逐次処理だけでは防ぎきれない「不確定性」に対し、PL/Iが提供する「ON-Unit」は、プログラムの制御フローを柔軟に切り替える強力な武器となります。本稿では、エラーを単に発生させるのではなく、発生後にいかにしてデータの整合性を保ち、正常な状態へ復帰させるかという「レジリエンス（回復力）」の技術を解説します。
基礎知識
PL/Iにおける「ON-Unit」とは、特定の条件（Condition）が発生した際に実行されるコードブロックを指します。他の言語のtry-catch句と異なり、ON-Unitはプログラムの宣言部で定義でき、特定のスコープ内でその条件が発生した瞬間に、現在実行中の文を中断して指定された処理へ「ジャンプ」します。この仕組みにより、エラー処理ロジックをメインのビジネスロジックから分離し、可読性と保守性を高めることが可能です。
実装/解決策
ON-Unitを実装する際は、エラー発生後の「復旧（Revert）」を意識することが重要です。単にエラーメッセージを出して終了するのではなく、トランザクションのロールバックや、計算のスキップ、あるいはデフォルト値の適用を行い、後続の処理に影響を与えないように設計します。
サンプルプログラム
以下は、ゼロ除算が発生した際に、プログラムを異常終了させるのではなく、ログを出力してデフォルト値（0）で計算を継続するサンプルコードです。
/ ゼロ除算を捕捉するON-Unitの例 /
EXAMPLE_PROC: PROC OPTIONS(MAIN);
/ ZERODIVIDE条件が発生した際の挙動を定義 /
ON ZERODIVIDE
BEGIN;
PUT SKIP LIST('警告: ゼロ除算が発生しました。結果を0として処理を続行します。');
/ 処理を戻すための制御、または後続処理へのジャンプを記述 /
GO TO CALC_CONTINUE;
END;
DCL (VAL_A, VAL_B, RESULT) FIXED DEC(10,2);
VAL_A = 100;
VAL_B = 0;
/ ゼロ除算が発生する可能性のある計算 /
RESULT = VAL_A / VAL_B;
CALC_CONTINUE:
PUT SKIP LIST('計算処理終了。RESULTの値は: ', RESULT);
END EXAMPLE_PROC;
応用・注意点
ON-Unitを使用する際、最も注意すべきは「無限ループ」の危険性です。ON-Unitの中でさらに同じエラーが発生すると、制御が再帰的に呼び出され、スタックオーバーフローを引き起こす可能性があります。また、現代言語への移行（レガシーマイグレーション）を検討している場合、単純にtry-catchへ置き換えるのではなく、元のプログラムがエラー発生時に「どのような状態を正としていたか」というビジネス上の回復ロジックを正確に抽出することが不可欠です。システムを止めないための「回復の設計」こそが、メインフレーム技術者が継承すべき重要な知恵といえるでしょう。
コメント