メインフレームの心臓部を支える「FIXED DECIMAL」の深淵：数値演算の流儀
若手のエンジニアからよく相談されるのが、「なぜPL/Iの計算はこんなにも細かい仕様があるのか」という嘆きだ。特にCOBOLから移行してきたメンバーにとって、`FIXED DECIMAL(p,q)`は単なる「パック10進数」以上の複雑な顔を見せる。
だが、勘違いしないでほしい。この厳格さこそが、金融機関の勘定系や数兆円規模の売上を処理するシステムにおいて、計算誤差を許さない「信頼の基盤」なのだ。今日は、現場で血肉となるPL/Iの数値制御の本質について、少し深掘りしてみよう。
—
1. FIXED DECIMAL(p,q) の正体とメモリ上の「顔」
PL/Iにおける `FIXED DECIMAL(p,q)` は、内部的にはIBMシステムアーキテクチャの標準である「パック10進数（COMP-3形式）」としてメモリ上に展開される。
- p (Precision): 有効桁数（最大15または31。コンパイラオプションによる）。
- q (Scale): 小数点以下の桁数。
メモリ上では、1バイトに2桁の数字を詰め込み、最後のニブル（4ビット）に符号（正なら0xC、負なら0xD等）を格納する。この構造を理解せずにメモリダンプを覗いても、ただのバイナリの羅列にしか見えないはずだ。
なぜこれが重要なのか？
VSAMファイルやフラットファイル（QSAM）とやり取りする際、外部定義データと内部変数の型が一致していないと、算術変換（タイプ変換）が走り、CPUサイクルを無駄に消費する。最悪の場合、計算精度が意図せず切り捨てられ、バッチの突合エラーという悪夢を見ることになる。
—
2. 実践：精度維持と変換コストを考慮したコーディング
次のコードを見てほしい。実務で頻出する、VSAMから読み込んだレコードの集計処理を想定した雛形だ。
1
TEST_PROC: PROCEDURE OPTIONS(MAIN);
/ 精度定義を明確に：計算誤差を避けるための基本中の基本 /
DCL TOTAL_AMT FIXED DEC(15, 2) INIT(0);
DCL INPUT_VAL FIXED DEC(11, 2);
/ VSAM等からの入力を想定 /
DCL 1 REC_BUFFER,
3 KEY_FIELD CHAR(8),
3 AMT_FIELD FIXED DEC(11, 2);
/ ONユニットでデータ例外を捕捉：これがシステムを止めないコツ /
ON CONVERSION BEGIN;
PUT SKIP LIST(‘データ変換エラーが発生しました。数値項目を確認してください。’);
SIGNAL ERROR;
END;
/ メインロジック /
DO WHILE (NOT_EOF);
/ READ文でのデータ取得 /
READ FILE(INPUT_VSAM) INTO(REC_BUFFER);
/
- ここで注意：FIXED DEC同士の演算は精度(p)の最大値が保持される。
- 意図しない精度低下を防ぐため、中間変数の宣言は妥協してはならない。
/
TOTAL_AMT = TOTAL_AMT + REC_BUFFER.AMT_FIELD;
END;
PUT SKIP LIST(‘合計金額: ‘ || CHAR(TOTAL_AMT));
END TEST_PROC;
現場の知恵：なぜ中間変数が必要か？
`TOTAL_AMT = TOTAL_AMT + REC_BUFFER.AMT_FIELD` という単純な一行にも、実はコンパイラは「一時作業域」を作成している。もし `TOTAL_AMT` の精度が足りなければ、オーバーフローが発生し、`FIXEDOVERFLOW` 条件がトリガーされる。
現場の教訓：
- 精度は常に最大に合わせる: 演算結果の精度が中間で切り捨てられないよう、計算の入り口から出口まで、必要な桁数を厳密に定義すること。
- BUILTIN関数の活用: `ADD(A, B, p, q)` や `MULTIPLY(A, B, p, q)` を明示的に使うことで、コンパイラ任せの自動変換による意図しない精度低下（特に乗除算）を確実に防げる。
—
3. トラブルシューティング：ONユニットと「予期せぬ停滞」
バッチ処理中に `S0C7`（データ例外）が出たとき、焦ってソースを眺める前に確認すべきことがある。それは、「演算対象の変数が本当にパック10進数として正当か」だ。
特にレガシーなデータ移行では、空白（X’40’）が混入したフィールドを数値演算しようとして落ちるケースが多い。
- 対策: 演算前に `DATATYPE` ビルトイン関数や、`VERIFY` 関数を使って、数値として処理可能かを必ずチェックする癖をつけてほしい。
- ONユニットの活用: `ON CONVERSION` や `ON FIXEDOVERFLOW` を適切に配置し、異常検知時にダンプリストを出力させる仕組みを組み込むこと。これは保守性を高めるための「守り」のコーディングだ。
—
最後に：職人の矜持として
PL/Iは古い言語だと言われることもある。だが、この言語が持つ「厳密な型管理」と「強力なデータ制御能力」は、現代の疎結合なシステム環境においても、基幹データの整合性を守るための最強の武器だ。
数値演算で妥協しないこと。メモリ配置を意識すること。そして、異常系を常に想定すること。この三つを徹底すれば、君の書くコードは、10年後も誰からも文句を言われない「信頼の証」となるはずだ。
次は、VSAMのレコード長と構造体アライメントの闇について話すとしようか。また現場で会おう。
