メインフレームの心臓部、「FIXED DECIMAL」とパック10進数の不思議な世界へようこそ
こんにちは。長年メインフレームの現場で、古き良き（そして時に手強い）コードたちと向き合ってきたシステムアーキテクトです。
JavaやC#の経験がある方にとって、PL/Iのデータ宣言を見ると「なんだこれは？」と戸惑うことがよくありますよね。特に、基幹システムのバッチ処理で頻出する `FIXED DECIMAL`。一見するとただの数値型ですが、その裏側には「パック10進数」という、メインフレームならではの超効率的なデータ表現が隠されています。
今日は、この「パック10進数（COMP-3）」の正体を、プロの視点から紐解いていきましょう。怖がる必要は全くありません。仕組みさえ分かれば、これほど頼もしい武器はありませんから。
—
1. なぜ「パック10進数」が必要なのか？
Javaの `BigDecimal` は非常に強力で便利ですが、メインフレームの世界では「いかにCPUとメモリを節約しつつ、1円の狂いも許さない計算をするか」が至上命題です。
パック10進数は、「1バイトに2桁の数字を詰め込む」という非常に欲張りなデータ形式です。通常、コンピュータは1バイト（8ビット）で256通りを表現しますが、パック10進数はそのメモリをフル活用して「0から9」までの数字をギュッと押し込みます。
イメージしてみましょう
例えば「123」という数字を表現する場合：
- 通常の整数: 2進数に変換して保存します（計算は速いが、桁が大きくなると溢れるリスクがある）。
- パック10進数: 「12」「3F」のように、1バイトに2つの数字を入れ、最後の4ビットに符号（正か負か）を置きます。
こうすることで、どんなに大きな金額であっても「桁落ち」を一切起こさず、人間が見たままの10進数として正確に扱えるのです。
—
2. PL/Iでの宣言と構造
PL/Iでは、これを `FIXED DECIMAL(p, q)` と宣言します。
- p (Precision): 全体の桁数
- q (Scale): 小数点以下の桁数
1
/ 変数宣言の例 /
DCL TOTAL_AMOUNT FIXED DECIMAL(15, 2);
/ 全体15桁、うち小数点以下2桁。合計13桁の整数を扱える巨大な型です /
この宣言を見たとき、COBOLの `PIC S9(13)V99 COMP-3` を連想した方は鋭いです。まさにそれと同じものです。PL/Iはこれに加えて、計算時の精度保持ルールが非常に厳格に設計されています。
—
3. 実践：計算時の精度保持ルール
PL/Iの面白いところは、計算式の中で「次に何桁必要か」をコンパイラが自動計算してくれる点です。例えば、2つの `FIXED DECIMAL` を足し合わせると、結果の桁数は自動的に最大桁数に合わせて調整されます。
以下のコードを見てください。
1
/ プログラムの基本構造 /
MY_CALC: PROC OPTIONS(MAIN);
DCL A FIXED DECIMAL(5, 2) INIT(123.45);
DCL B FIXED DECIMAL(5, 2) INIT(67.89);
DCL RESULT FIXED DECIMAL(6, 2); / 加算結果を見越して桁を1つ増やしている /
/ 演算：内部的に精度が保持される /
RESULT = A + B;
/
ポイント：
もしRESULTの宣言が(5,2)だと、足し算で桁溢れ(OVERFLOW)が起きた場合に
PL/Iは容赦なくエラーを投げます。
これがメインフレームの信頼性の源泉です。
/
PUT SKIP LIST(‘計算結果は:’, RESULT);
END MY_CALC;
なぜこれが重要なのか？
他の言語のように「とりあえず浮動小数点に入れておこう」とすると、0.1 + 0.2 が 0.300000000004 になるといった「誤差」が生まれます。金融取引でこの誤差は致命的ですよね。
`FIXED DECIMAL` は、「宣言した桁数までは絶対に誤差を出さない」というメインフレームの誓いそのものなのです。
—
4. 初学者が陥りやすい「罠」
最後に、一つだけアドバイスを。
PL/Iで `FIXED DECIMAL` を扱う際、最も注意すべきは「データ型の混在」です。
もし `FIXED DECIMAL`（パック10進数）と `FLOAT BINARY`（浮動小数点）を同じ式で混ぜてしまうと、コンパイラは値を一度浮動小数点に変換して計算しようとします。その瞬間、せっかくの「正確な10進数」というメリットが消え去り、誤差が混入する隙が生まれます。
「基幹システムの数値は、最後までパック10進数のままで通す」
これが、現場で生き残るための鉄則です。
—
最後に：怖がらなくて大丈夫です
PL/Iの仕様は一見古臭く感じるかもしれません。しかし、数十年前に設計されたこの仕組みが、現在でも銀行や保険会社の屋台骨を支え続けているのには、相応の理由があります。
「桁を指定する」という行為は、データの重さを理解すること。
「パックする」という行為は、リソースを慈しむこと。
そう考えると、PL/Iも少し愛おしく見えてきませんか？もしコードを読んでいて「なぜこの宣言なんだ？」と悩んだら、それはそのプログラムが「最も正確であること」を選んだ証拠です。
また分からないことがあれば、いつでも聞きに来てくださいね。あなたのメインフレーム・ライフを心から応援しています！
