PL/Iの「DECIMAL変換」で泣かないために：精度(p,q)の鉄則とオーバーフロー対策
メインフレームの現場で、長年稼働しているバッチプログラムの改修を任されたとき、一番頭を悩ませるのは「計算の精度」に関わる不具合ではないだろうか。特に、`FIXED BINARY`（バイナリ整数）から`FIXED DECIMAL`（パック10進数）へ値を移送する際、安易なキャストで痛い目を見た経験があるエンジニアは多いはずだ。
今日は、PL/Iの`DECIMAL`関数を使いこなすための勘所と、実務で絶対に避けるべき「精度落ち」の罠について、ベテランの視点から解説する。
—
なぜ `DECIMAL` 関数が必要なのか？
メインフレームにおける計算の基幹は、やはり`FIXED DECIMAL`だ。VSAMへの書き込みや、外部システムとのインターフェースでパック10進数が必要になる場面は枚挙に暇がない。
ここで、内部計算用の`FIXED BINARY`（レジスタ演算で高速だからな）を、そのまま`FIXED DECIMAL`へ放り込むとどうなるか。コンパイラは気を利かせて変換してくれるが、その「デフォルトの精度」を過信してはいけない。特に`DECIMAL(x, p, q)`を明示的に指定しない場合、想定外の切り捨てが発生し、決算処理で1円のズレを生むことになる。
`DECIMAL(x, p, q)` の正しい作法
まず、基本をおさらいしよう。`DECIMAL(x, p, q)`の引数は以下の通りだ。
- x: 変換元の変数
- p (Precision): 全体の桁数（精度）
- q (Scale): 小数点以下の桁数（位取り）
例えば、`FIXED BINARY(31,0)`の変数を、`FIXED DECIMAL(7,2)`に変換する場合、以下のようなコードになる。
/i
/ — サンプルコード: FIXED BINARYからDECIMALへの変換 — /
DCL BIN_VAL FIXED BIN(31) INIT(12345);
DCL DEC_VAL_A FIXED DEC(7, 2);
/ decimal関数による型変換と精度指定 /
/ 12345 を 12345.00 としてパック10進数に格納 /
DEC_VAL_A = DECIMAL(BIN_VAL, 7, 2);
ここで重要なのは、「pとqの計算」だ。もし`p`を小さく見積もりすぎると、実行時に`CONVERSION`条件（エラー）が発生し、プログラムが異常終了する。
—
実務で遭遇する「オーバーフロー」とONユニット
計算結果が`p`の範囲を超えたとき、PL/Iは黙って黙殺はしない。`FIXEDOVERFLOW`や`CONVERSION`といった条件が発生する。現場のバッチでよくあるのが、ログに何も残さず突然の`U4038`（コンパイラによる異常終了コード）に直面するケースだ。
これを防ぐには、事前に`ON`ユニットでエラーを捕捉し、デバッグ用にダンプを取るのが定石だ。
/i
/ — エラー発生時の安全策 — /
ON CONVERSION BEGIN;
PUT SKIP LIST(‘!!! データ変換エラー発生: 値が指定精度を超えています !!!’);
/ 実際にはここでエラーログを追い、後続処理を適切に中断させる /
STOP;
END;
/ VSAMファイルへの書き込み前などに精度を慎重に管理する /
DCL VSAM_REC_FIELD FIXED DEC(5, 0);
DCL WORK_VAL FIXED BIN(15);
/ WORK_VALが99999を超えるとここでONユニットが発火する /
VSAM_REC_FIELD = DECIMAL(WORK_VAL, 5, 0);
現場で教える「精度設計」のコツ
1. 中間変数の桁数は多めに取れ:
内部計算では`FIXED DEC(15, 5)`のように十分な余裕を持たせ、最終出力の直前で必要な精度に`DECIMAL`関数を使って切り詰めるのが、バグを生まない鉄則だ。
2. `FIXED BIN`からの変換時は、必ず`p`を指定せよ:
デフォルトに頼ると、ターゲット変数の型によってコンパイラの解釈が変わる。「これくらい入るだろう」という思い込みが、3年後のシステム改修時に負債となる。
3. `ROUND`関数との併用:
単なる`DECIMAL`変換は「切り捨て」に近い挙動になることがある。四捨五入が必要な場合は、`DECIMAL(ROUND(x, q), p, q)`のように明示的に丸め処理を挟むことで、計算ロジックの意図が明確になる。
—
最後に
PL/Iは、古い言語だと言われることもある。だが、この「データ型と精度に対する厳格な規律」こそが、数十年もの間、金融や公共の基幹システムを支え続けてきた理由だ。
`DECIMAL`関数一つとっても、ただ変換するだけでなく「この桁数でビジネスロジックは成立するか？」と自問自答することが、真のメインフレームエンジニアへの道である。
もし、貴方のプロジェクトで「なぜか計算が合わない」「突然バッチが落ちる」という事象があれば、まずはこの精度変換を見直してみるといい。たいていの場合、答えはそこに隠れているはずだ。
また何か不明点があればいつでも聞くといい。コードは正直だ。仕様を理解し、正しく対峙すれば、必ず期待通りの結果を返してくれる。
