メインフレームの心臓部、「FIXED DECIMAL」と仲良くなるためのガイドブック
こんにちは！レガシーシステムの世界へようこそ。
JavaやCOBOLでバリバリ開発してきたエンジニアの方にとって、PL/I（ピーエル・アイ）という言語は、まるで「時代劇のセット」のように見えているかもしれませんね。
でも安心してください。PL/Iは、その名の通り「Programming Language One」として、科学計算から事務処理まで何でもこなせる懐の深い言語です。今日は、メインフレームにおける「お金の計算」の要、`FIXED DECIMAL`について、その本質を紐解いていきましょう。
—
1. FIXED DECIMAL(p,q) って何者？
他の言語に慣れていると、数値型といえば「整数(int)」か「浮動小数点(float/double)」の二択になりがちです。しかし、基幹システムの世界では「1円の誤差も許されない」という鉄の掟があります。
`FIXED DECIMAL(p, q)` は、まさにそのために存在するデータ型です。
- p (Precision/精度): 全体の桁数
- q (Scale/位取り): 小数点以下の桁数
例えば `FIXED DECIMAL(5, 2)` なら、合計5桁で、そのうち2桁が小数。つまり `123.45` までを正確に保持できます。
なぜこれが「パック10進数」なの？
メモリ上では、この数値は「パック10進数（COMP-3形式）」という特殊な形で保存されます。
これは、1バイトの中に数値を2つ詰め込み、最後の4ビットに「符号（プラスかマイナスか）」を置くという、極めて効率的かつ職人芸的なストレージ形式です。
イメージしてみてください：
2進数で複雑な変換を行うよりも、「0から9までの数字」をそのままビットに詰め込んだ方が、人間にとってデバッグしやすく、計算機にとっても「10進数のままで計算できる」というメリットがあるんです。
—
2. 実践！PL/Iでの宣言と演算
では、実際のプログラム例を見てみましょう。PL/Iは `PACKAGE` から始まり、`PROCEDURE` で処理を記述します。
1
/ ———————————————————–
FIXED DECIMALのサンプルプログラム
———————————————————– /
TEST_CALC: PACKAGE;
CALC_PROC: PROCEDURE OPTIONS(MAIN);
/ 5桁の合計、うち2桁が小数という定義 /
DCL PRICE FIXED DECIMAL(5, 2) INIT(123.45);
DCL TAX FIXED DECIMAL(3, 2) INIT(0.08);
DCL TOTAL FIXED DECIMAL(7, 2);
/ 乗算：PL/Iは自動的に精度を考慮して計算してくれます /
TOTAL = PRICE (1 + TAX);
/ 結果の表示（PUT SKIPで改行） /
PUT SKIP LIST(‘計算結果:’, TOTAL);
END CALC_PROC;
END TEST_CALC;
ここがポイント！
- 精度維持のルール: PL/Iは優秀です。`PRICE TAX` のような演算を行う際、コンパイラが「結果が収まるように」内部的に一時的な精度を拡張して計算してくれます。これを「中間精度」と呼びます。
- 変換コスト: ただし、注意点があります。もし異なる型の変数（例えば浮動小数点の `FLOAT` 型）と `FIXED DECIMAL` を混ぜて計算すると、コンパイラは型変換のために内部ルーチンを呼び出します。これが「変換コスト」となり、数百万件のレコードを処理するバッチでは無視できないパフォーマンスの低下を招くことがあります。
—
3. なぜ「パック10進数」は愛されるのか
現代のエンジニアから見ると、「わざわざ桁数を指定するなんて面倒くさい！」と思うかもしれません。しかし、これには明確な理由があります。
1. 計算の決定論的な正確さ: 浮動小数点数（`FLOAT`）のように、計算のたびに「0.1 + 0.2 が 0.30000000000000004 になる」といった誤差が一切発生しません。お金の計算には必須の性質です。
2. デバッグのしやすさ: メインフレームのメモリダンプを覗いたとき、パック10進数は人間が読み解けます。障害調査の際、生のメモリを見て「あ、この値は12345だな」と直感的に判別できるのは、現場のエンジニアにとって大きな救いです。
—
最後に：怖がらなくて大丈夫です
PL/Iのコードを初めて見たとき、その独特の記法や `DCL` (Declare) の嵐に圧倒されるかもしれません。でも、一つひとつを「データ型という名の箱」だと思ってください。
`FIXED DECIMAL` は、その箱のサイズを厳密に決めて、中身をきれいに整理整頓しておくためのツールです。少し手間はかかりますが、一度その仕組みを理解してしまえば、これほど堅牢で信頼性の高い武器はありません。
もし、レガシー移行のプロジェクトで「このコード、何してるの？」と迷ったら、いつでもまた聞きに来てください。システムアーキテクトとして、その奥深さを一緒に紐解いていきましょう！
それでは、良いメインフレームライフを！
