現場のエンジニアへ：FIXED DECIMAL(p,q)の深淵と「パック10進数」の正しい向き合い方
メインフレームの現場で長く戦っていると、一度は必ずぶつかるのが「なぜか計算結果が合わない」「ダンプリストを見ると意味不明な16進数が並んでいる」というトラブルです。特に金融系や基幹業務のバッチ処理では、`FIXED DECIMAL(p,q)`は空気のような存在ですが、その実態である「パック10進数（COMP-3）」を正しく理解していないと、大規模マイグレーションやデータ移行で致命的な手戻りを食らうことになります。
今日は、PL/Iのコンパイラが裏で何をしているのか、現場の視点で深掘りしていきましょう。
1. パック10進数（COMP-3）の内部構造を解剖する
`FIXED DECIMAL(p,q)`は、1バイトに2桁の数値を詰め込む「パック形式」でメモリ上に保持されます。例えば `FIXED DECIMAL(5,2)` なら、合計5桁＋符号の領域が必要です。
- ニブル配置: 1バイト（8ビット）を上下の4ビット（ニブル）に分け、それぞれに数値を格納します。
- 符号ビットの正体: 最後のバイトの後半ニブルが符号を表します。
- `C` (1100) : 正 (Positive)
- `D` (1101) : 負 (Negative)
- `F` (1111) : 正（符号なしとして扱われることも多いが、演算上は正）
デバッグ時にダンプを見て `01234C` とあれば `+123.4` です。これが `01234D` なら `-123.4` です。この「最後のニブルを見る」という癖をつけておくだけで、VSAMファイルの生データを調査する際のスピードが劇的に変わります。
2. コンパイラによる演算オーバーヘッドの現実
「なぜ`FIXED BINARY`を使わずにわざわざ`FIXED DECIMAL`を使うのか？」という問いに対しては、「10進演算の正確性と、ビジネスロジックの直感性」と答えるのが正解です。
しかし、注意点があります。PL/Iは`FIXED DECIMAL`同士の演算を行う際、コンパイラが内部的に「パック10進数変換（PACK/UNPACK）やアライメント調整」を行っています。これらは`FIXED BINARY`（レジスタ演算）に比べると、CPUサイクルを多く消費します。数百万件のレコードを処理するバッチで、計算式の中に不要な型変換が混じると、目に見えてパフォーマンスが劣化します。
3. 実践コード：堅牢なデータ定義と制御
現場で推奨される、堅牢で可読性の高い記述例を挙げます。`PACKAGE`を使い、外部からの意図しない干渉を防ぐ構造化を意識してください。
1
/ PACKAGEによるスコープ制御（モジュール分割の基本） /
ACCOUNTING_PROC: PACKAGE;
/ 10進数計算の精度を保証するためのグローバル宣言エリア /
DCL TOTAL_AMT FIXED DEC(15, 2) INIT(0);
DCL WORK_AMT FIXED DEC(15, 2);
/ メイン処理 /
PROCESS_DATA: PROC OPTIONS(MAIN);
/ ONユニットでの例外制御 /
ON CONVERSION BEGIN;
PUT SKIP LIST(‘データ変換エラーが発生しました。入力データを確認してください。’);
SIGNAL ERROR;
END;
/ VSAM入力を想定した構造体 /
DCL 1 INPUT_REC,
5 CUST_ID CHAR(8),
5 TRANS_AMT FIXED DEC(9, 2); / COMP-3形式のパック10進数 /
/ 演算のヒント:
BUILTIN関数である ABS を活用し、
符号を考慮した堅牢な計算を行う /
WORK_AMT = ABS(INPUT_REC.TRANS_AMT);
TOTAL_AMT = TOTAL_AMT + WORK_AMT;
PUT SKIP EDIT(‘現在の合計:’, TOTAL_AMT) (A, P’ZZZ,ZZZ,ZZ9.99′);
END PROCESS_DATA;
END ACCOUNTING_PROC;
4. 現場で役立つデバッグのコツ
1. ON CONVERSIONを恐れない:
`FIXED DECIMAL`のフィールドに、空白（X’40’）などの不正なデータが混入すると、即座にS0C7（データ例外）が発生します。これを防ぐために、必ず`ON CONVERSION`ユニットを実装し、エラー発生時にどこでどのデータが不正だったかをログに吐き出す仕組みを作ってください。
2. P（ピクチャー）指定の活用:
出力や編集時には、`P’ZZZ,ZZ9.99’`のようなピクチャー指定を徹底しましょう。内部形式をそのまま文字表示しようとして失敗するミスは、新人からベテランまで繰り返す「あるある」です。
3. VSAMアクセス時の注意:
VSAMのキーフィールドに`FIXED DECIMAL`を使う場合は、必ず`FIXED BINARY`への不用意な型変換を避けてください。インデックスの順序（シーケンス）が内部表現によって予期せぬ挙動を示すことがあります。
最後に：アーキテクトからの助言
メインフレームのコードは「動いて当たり前」ですが、その「当たり前」を支えているのは、こうした地味なデータ形式の理解です。`FIXED DECIMAL`をただの数字として扱うのではなく、「メモリ上でどう配置され、CPUがどう解釈するのか」をイメージできるエンジニアこそが、次世代のシステムを任せられる真のスペシャリストです。
不明点があればいつでも聞いてください。コードの向こう側にある「機械の言葉」を読み解く楽しさを、ぜひ現場で味わってください。
