PL/Iの「魔術」と現実：固定小数点数とパック十進数の深淵を覗く
現場で長年メインフレームを触っていると、「なぜこの計算でアベンドするのか？」という問いに直面することがあります。特に、金融系や公共系の基幹システムで避けて通れないのが、`FIXED DECIMAL`型、いわゆる「パック十進数（Packed Decimal）」の挙動です。
今回は、PL/Iの「予約語が存在しない」という一風変わった設計思想が、このデータ型とどう絡み合い、コンパイラが裏でどのような命令を吐いているのかを深掘りします。
—
1. 予約語なき世界：自由と背中合わせのリスク
PL/Iの特異な点は、`IF`や`THEN`、`DECLARE`といったキーワードが「予約語」ではなく「文脈依存の識別子」であることです。これは言語仕様としては美しいですが、保守の現場では悪夢を招くことがあります。
/ 警告：こんなコードは書いてはいけない /
DECLARE IF FIXED DECIMAL(5,0); / 変数名にIFを使ってしまう /
IF = 10;
IF IF = 10 THEN … / コンパイラは理解するが、人間は発狂する /
新人時代、「なぜこんな変数名なんだ？」と悩んだコードの背景には、PL/Iのこの「自由すぎる仕様」があります。しかし、実務では可読性を最優先し、標準的な命名規則を逸脱しないことが、バグを未然に防ぐ唯一の防御壁です。
—
2. FIXED DECIMALの正体：パック十進数の内部表現
PL/Iで`DECLARE AMT FIXED DECIMAL(7, 2);`と定義したとき、メモリ上では何が起きているのか。
これは、1バイトに2つの数値を詰め込む「パック形式」で格納されます。`7, 2`であれば、合計5桁（整数部5＋小数部2）を表現するために4バイトを消費します。最後尾のハーフバイトには符号（C=正, D=負, F=符号なし）が配置される。この構造を理解していないと、VSAMファイルやDB2のダンプを読み解く際に致命的なミスを犯します。
コンパイラ生成コードの裏側
演算を行う際、PL/Iコンパイラは`AP` (Add Packed) や `SP` (Subtract Packed) といった、System z特有の10進演算命令を生成します。
- 注意点： 演算結果が宣言した精度（桁数）を超えると、オーバーフローが発生します。特に`DIVIDE`や`MULTIPLY`を多用する計算式では、中間結果がどこで切り捨てられるか、あるいはどこで拡張されるかを`ON SIZEFILE`などで制御する必要があります。
—
3. 実践コード：VSAM入出力とパック十進数の整合性
以下は、実務でよくある「マスタ更新バッチ」の一部を模したコードです。`PIC`属性を使い、データ表現を明示的に制御する重要性を意識してください。
/ —————————————————————— /
/ データ定義：パック十進数の精度管理 /
/ —————————————————————— /
DCL 1 MST_REC,
5 KEY_ID CHAR(8),
5 BALANCE FIXED DEC(9, 2), / 9桁、小数2桁。内部は5バイト /
5 UPD_DATE CHAR(8);
DCL VSAM_FILE FILE RECORD SEQUENTIAL INPUT;
/ —————————————————————— /
/ メイン処理：ONユニットによる例外制御 /
/ —————————————————————— /
ON SIZEFILE BEGIN;
PUT SKIP LIST(‘オーバーフロー発生：計算精度を確認してください’);
SIGNAL ERROR;
END;
READ FILE(VSAM_FILE) INTO(MST_REC);
/ 計算処理例：BUILTIN関数を活用し、確実にパック形式で演算 /
IF BALANCE > 0 THEN DO;
/ 内部的にAP命令が生成され、効率的に処理される /
BALANCE = BALANCE + 500.00;
END;
現場のデバッグTips
1. ダンプの確認: `DISPLAY`文で変数の値を出力しても、内部表現は分かりません。`HEX`関数やダンプリストを用いて、最後尾の符号ビット（C/D）を必ず確認してください。
2. 型変換の罠: `FIXED BIN`（2進数）と`FIXED DEC`（10進数）の混在計算は、コンパイラが裏で膨大な変換ルーチンを挿入します。バッチのパフォーマンスが悪い場合、この「暗黙の型変換」が原因であることが多いです。基本は`FIXED DEC`で統一しましょう。
—
最後に：レガシーは「知っている」を武器にする場所
PL/Iは古い言語だと言われますが、この「バイト単位でハードウェアの機能を直に叩く」感覚は、現代の抽象化された言語ではなかなか味わえません。
パック十進数の精度を正しく制御し、コンパイラがどのマシン命令を生成しているかを想像できるようになれば、あなたはもう一人前のメインフレームアーキテクトです。不明な点があれば、またいつでもこの現場に戻ってきてください。コードの向こう側にある「真実」を一緒に解き明かしましょう。
