パック10進数の深淵：PL/Iの`FIXED DECIMAL`が隠し持つ「演算の罠」
メインフレームの現場で何十年と生き抜いてきたシステムアーキテクトにとって、`FIXED DECIMAL(p, q)`は空気のような存在だ。しかし、JavaやC#の`BigDecimal`に慣れ親しんだ若手エンジニアが、マイグレーション先でこの「パック10進数」の振る舞いに翻弄され、S0C7アベンドの海に溺れる姿を何度も見てきた。
今日は、PL/Iにおけるパック10進数の内部構造と、それが現代のオープンシステムへの移行時にどのような「地雷」となるのか、その核心に迫ろう。
—
1. パック10進数：内部形式という「素顔」
PL/Iの`FIXED DECIMAL`は、メモリ上で「パック10進数（Packed Decimal）」形式として保持される。これは1バイトにつき2桁の数値を詰め込み、最後の4ビットに符号（C=正、D=負、F=符号なし）を配置する構造だ。
/ 宣言例：15桁、小数点以下2桁のパック10進数 /
DCL AMOUNT FIXED DECIMAL(15, 2);
この定義は、メモリ上では8バイトを占有する。注意すべきは、最後のニブル（4ビット）が符号であるという点だ。もし、外部インターフェースや他言語（COBOLやC等）とのデータ交換において、この構造を無視したバイナリ書き込みが行われると、後続の演算命令がS0C7（データ例外）を吐いて瞬時に停止する。
符号反転の罠
最も恐ろしいのは、EBCDICコード体系における「符号なし（F）」と「負（D）」の混在だ。特にレガシーなデータセットでは、上位システムから流れてきたデータが、計算過程で「符号なし」として扱われ、演算結果が予期せぬ挙動を示すことがある。
/ 符号チェックの重要性：ダンプ解析の第一歩 /
IF AMOUNT < 0 THEN DO;
/ 負の値を検知した際のハンドリング /
/ 内部形式の符号ニブルが正しく'D'であるか確認が必要 /
END;
---
2. 演算精度を維持するための「属性の魔術」
PL/Iのコンパイラは、演算時に「中間結果」を自動的に拡張する。この仕様は強力だが、無頓着に扱うと精度落ち（あるいは桁あふれ）を引き起こす。
特に`FIXED DECIMAL`同士の除算を行う際、`PRECISION`属性を明示しないと、コンパイラはデフォルトのルールに従って中間結果の精度を決定する。これが、長年運用されてきた勘定系バッチが、ある日突然、端数処理で数円の差異を生む原因となる。
推奨される実装指針
計算精度を担保するためには、`DECIMAL`関数を明示的に使用し、演算のステップごとに精度を制御するべきだ。
/ 計算精度を明示的に制御する例 /
/ A=15桁, B=10桁の除算結果を15桁で保持する /
RESULT = DECIMAL(A / B, 15, 5);
—
3. マイグレーションにおけるエッジケース：ポインタとダンプ解析
Javaへの移行時、最も苦労するのが「ポインタ操作」の再現だ。PL/Iでは`BASED`変数と`ADDR`関数を用い、メモリ上の特定のオフセットから値を読み取るような、極めて低レイヤーな操作が日常的に行われている。
DCL PTR POINTER;
DCL BUFFER CHAR(100) BASED(PTR);
/ 構造体へのマッピングによる動的メモリ操作 /
DCL 1 MY_REC BASED(PTR),
2 KEY_ID CHAR(4),
2 VAL FIXED DEC(9,2);
このポインタ操作をJavaでエミュレートする場合、`ByteBuffer`の`get()`や`getInt()`を駆使することになるが、PL/Iのパック10進数に対するアライメントルールまで再現できているか？ ほとんどの場合、ここがボトルネックになる。
ダンプ解析の現場から
アベンドが発生した際、コンパイラの最適化オプション（`OPTIMIZE(3)`など）が有効だと、ダンプ上の変数はレジスタに退避されており、ソースコードの行番号とメモリ上の値が一致しないことが多々ある。
- 対策: 重要なバッチプログラムには`TEST`オプションを付与し、かつ`LIST`、`MAP`オプションを出力させておくこと。コンパイラが生成したコードの「どこで」パック10進数の加算命令（`AP`命令）が実行されているかを、アセンブラレベルで追えるようになるのが、真のアーキテクトだ。
—
4. 最後に：移行設計者に告ぐ
基幹システムの移行において、PL/IのロジックをJavaに書き換えることは、「言語の変換」ではなく「計算モデルの移植」である。
1. パック10進数の符号ビットを軽視するな。
2. 中間結果の精度は、暗黙のルールに頼らず明示的に定義せよ。
3. DB2等の埋め込みSQL使用時、ホスト変数とDBカラムの精度・スケールが一致しているか、カタログ情報を常に監視せよ。
PL/Iは、汎用機という巨大な獣を御するための、緻密に計算された言語だ。その背後にある「1バイトの重み」を理解せずして、移行プロジェクトを成功させることはできない。
もしあなたが、今まさにS0C7のログを読み解いているのなら、まずはその変数の内部表現（Hex Dump）を凝視してみてほしい。そこには必ず、答えが刻まれているはずだ。
