1. 導入：なぜ除算で突然プログラムが止まるのか？
メインフレームのPL/I開発現場で、最も頭を悩ませるエラーの一つが「FIXEDOVERFLOW（固定小数点オーバーフロー）」です。特に、計算途中の除算で突然異常終了してしまう経験はありませんか？実はこれ、PL/Iが「計算結果の精度を最大限に保とうとする」という親切心からくる仕様が原因です。本記事では、この挙動の仕組みと、安全なプログラムを書くためのTipsを解説します。
2. 基礎知識：PL/Iの除算と「精度」の仕組み
PL/Iでは、変数を定義する際に「DECLARE X FIXED DECIMAL(15, 2)」のように、全体の桁数（15）と小数点以下の桁数（2）を指定します。
重要なのは、除算（A / B）を行う際、コンパイラが「結果の精度をどうするか」を自動的に決定することです。PL/Iは計算結果の精度を落とさないよう、内部的に最大桁数（31桁など）を使い切るようにスケーリングを行います。その結果、本来必要な整数部の桁数が確保できず、計算結果が収まりきらなくなってオーバーフローが発生するのです。
3. 実装/解決策：計算をコントロールする
この問題を回避する最も確実な方法は、「中間結果を明示的に変換（キャスト）する」ことです。コンパイラの自動計算に任せるのではなく、計算式の中で精度を調整することで、オーバーフローを防ぐことができます。
4. サンプルプログラム：安全な除算の実装例
以下のコードは、除算の際にオーバーフローを防ぐためのテクニックを示しています。
/ サンプルプログラム：安全な除算の実行 /
DCL X FIXED DEC(15, 2) INIT(1000.00); / 被除数 /
DCL Y FIXED DEC(5, 2) INIT(2.00); / 除数 /
DCL RESULT FIXED DEC(15, 2); / 結果格納用 /
/
通常計算：これだと内部精度が最大まで引き上げられ、
整数部あふれが発生する可能性がある
/
/ RESULT = X / Y; /
/
解決策：FIXED関数を使用して、計算途中の精度を明示的に固定する
これにより、コンパイラの自動スケーリングを回避する
/
RESULT = FIXED(X / Y, 15, 2);
PUT SKIP LIST(‘計算結果:’, RESULT);
5. 応用・注意点：現場でのチェックポイント
現場で除算ロジックを修正・移行する際は、以下の点に注意してください。
・除数の値を確認する： 除数が「0」に近い値になる場合、桁あふれが起きやすくなります。ロジックの前後で値の範囲をチェックするガード条件を追加しましょう。
・FIXED関数の活用： 複雑な四則演算が混ざる場合は、中間結果を一度ワーク変数に退避させるか、今回紹介したFIXED関数で精度を丸めてから代入するのが鉄則です。
・システムデフォルト設定： コンパイルオプションでオーバーフロー時の動作を制御することも可能ですが、バグを隠蔽する恐れがあるため、基本はコード側での制御を推奨します。
PL/Iの除算は「高精度を維持しようとする」という特性を理解さえすれば、恐れることはありません。まずは既存のコードで「どの除算が危険か」を精査することから始めてみてください。
コメント