導入
メインフレームのシステム開発において、計算処理は不可欠です。しかし、プログラム実行中に遭遇する最も基本的かつ致命的なエラーの一つが「ゼロ除算（ZERODIVIDE）」です。計算結果が予測不能になるだけでなく、プログラム自体が異常終了（ABEND）してしまうリスクがあります。本稿では、PL/Iを例に、この例外を制御し、堅牢なシステムを構築するための基礎知識を解説します。
基礎知識
ゼロ除算とは、算術演算において除数（分母）がゼロになった際に発生するハードウェア割り込みです。現代のPC環境の言語（JavaやC#など）では、浮動小数点演算で「Infinity（無限大）」を返して処理を継続するケースもありますが、メインフレームのPL/I等の環境では、固定小数点・浮動小数点に関わらず、即座に例外として扱われ、プログラムが終了するのがデフォルトの挙動です。これは、事務計算において正確性を最優先とするメインフレームの設計思想に基づいています。
実装/解決策
ゼロ除算を安全に処理するには、二つのアプローチがあります。一つは事前に除数がゼロでないかチェックする「事前の防御」、もう一つは例外が発生した際にプログラムをクラッシュさせずにハンドリングする「例外トラップ（ONユニット）」です。本番環境では、計算前チェックを基本とし、万が一のケースに備えてONユニットを併用するのがベストプラクティスです。
サンプルプログラム
以下は、PL/Iでゼロ除算をトラップし、異常終了を回避してエラーログを出力するコード例です。
/ ゼロ除算をトラップするONユニットの定義 /
ON ZERODIVIDE BEGIN;
PUT SKIP LIST(‘警告: ゼロ除算が発生しました。計算をスキップします。’);
/ ここで必要に応じてエラー処理やフラグ設定を行う /
GOTO CALC_END;
END;
/ 計算処理本体 /
DCL DIVIDEND FIXED DEC(10,2) INIT(100);
DCL DIVISOR FIXED DEC(10,2) INIT(0); / ここが0の場合にゼロ除算が発生 /
DCL RESULT FIXED DEC(10,2);
IF DIVISOR ^= 0 THEN DO;
RESULT = DIVIDEND / DIVISOR;
PUT SKIP LIST(‘計算結果:’, RESULT);
END;
ELSE DO;
PUT SKIP LIST(‘エラー: 除数が0のため計算を中止します。’);
END;
CALC_END:
PUT SKIP LIST(‘処理を継続します。’);
応用・注意点
現場で最も注意すべき点は、「浮動小数点演算における挙動の差異」です。外部システムとの連携や、レガシーな科学計算ロジックを移行する際、IEEE標準に慣れた開発者が「浮動小数点ならゼロ除算でもエラーにならない」と誤解することがあります。しかし、メインフレーム環境では常に厳格なチェックが必要です。また、ONユニットを多用しすぎると、プログラムの論理フローが追いにくくなるため、可能な限り「IF文による事前の判定」を優先し、ONユニットはあくまで「予期せぬ事態への最後の砦」として活用してください。
コメント