1. 導入：なぜこの設定が重要なのか
メインフレーム開発において、プログラムの実行速度は非常に重要です。しかし、速度を追求するあまり、本来検出すべき計算結果の「桁溢れ」を無視する設定が行われているケースがあります。それが「NOFIXEDOVERFLOW」です。この設定は、計算結果が変数の保持できる範囲を超えてもエラーを出さずに処理を継続してしまいます。本記事では、この「サイレント・コラプション（静かなるデータの破壊）」がなぜ危険なのか、そしてどう対処すべきかを解説します。
2. 基礎知識：FIXEDOVERFLOWとは？
PL/Iなどの言語において、FIXEDOVERFLOWとは「固定小数点数の演算結果が、変数の桁数を超えたときに発生する例外」を指します。
通常、この条件がENABLED（有効）であれば、桁溢れが発生した瞬間にシステムが検知し、制御を例外処理（ON-UNIT）へ飛ばすことができます。しかし、パフォーマンス向上のためにNOFIXEDOVERFLOWが設定されていると、システムはこの溢れを「無視」します。結果として、上位桁が切り捨てられた「正しくない数値」がそのままメモリに書き込まれ、後続の業務ロジックが誤った数値に基づいて処理を続行してしまうのです。
3. 実装/解決策：例外処理（ON-UNIT）による防衛
最も安全なアプローチは、プログラム全体でFIXEDOVERFLOWを明示的に有効化し、万が一の際にはON-UNITで安全に停止させることです。これにより、「誤った数値」がデータベースや後続処理に伝播する前に、異常を確実に検知できます。
4. サンプルプログラム
以下は、桁溢れを検知し、安全に異常終了させるための実装例です。
/ プログラム全体でFIXEDOVERFLOWを有効にする /
(FIXEDOVERFLOW): PROCEDURE OPTIONS(MAIN);
/ 桁溢れが発生した際の例外処理(ON-UNIT)を定義 /
ON FIXEDOVERFLOW BEGIN;
PUT SKIP LIST(‘警告: 計算結果で桁溢れが発生しました。処理を停止します。’);
/ ここでログ出力やダンプ取得を行う /
STOP;
END;
DCL A FIXED DEC(5,0);
DCL B FIXED DEC(3,0) INIT(999);
DCL C FIXED DEC(3,0) INIT(999);
/ 999 999 = 998001 となり、5桁の変数Aには収まらないため例外が発生 /
A = B C;
PUT SKIP LIST(‘計算結果: ‘ || A);
END;
5. 応用・注意点：移行時の罠
特に注意が必要なのは、レガシーシステムからJava等の厳格な型システムへ移行する場合です。メインフレーム側で「NOFIXEDOVERFLOW」に依存して動いていたプログラムは、Java側では計算結果が一致せず、予期せぬ例外でシステムが停止する原因となります。
・現場でのチェックリスト
1. コンパイラオプションにNOFIXEDOVERFLOWが含まれていないか確認する。
2. ソースコード内に(NOFIXEDOVERFLOW)のプレフィックスが付与されていないか検索する。
3. 移行対象の全プログラムにおいて、演算結果が変数の桁数に対して十分な余裕を持っているか再計算する。
「動いているから大丈夫」という考え方は、メインフレームにおけるサイレント・コラプションの温床です。例外処理を適切に実装し、異常を「正しく検知する」環境を作ることが、システム全体の信頼性を守る鍵となります。
コメント