こんにちは！メインフレームの世界へようこそ。
JavaやCOBOLといった他のモダンな言語をご経験されてきた方にとって、IBMメインフレームの「PL/I（ピーエルアイ）」という名前を聞くだけで、なんだか分厚いマニュアルと古い呪文のようなコードが頭に浮かんで、身構えてしまうかもしれませんよね。
でも、どうぞ安心してください。どんなに歴史のある言語であっても、背後にある「ルール」を一つずつ紐解いていけば、決して怖いものではありません。
今回は、PL/Iのデータ制御において避けて通れない、「FIXED BINARY（固定小数点二進数）」と「FIXED DECIMAL（固定小数点十進数）」の相互変換ルールについて、実務の現場で即役立つ知見を交えながら、優しく丁寧に解説していきますね。
—
1. まずは基本の「き」：FIXED BINARY と FIXED DECIMAL って何者？
他の言語（例えばJavaの `int` や `long`、COBOLの `COMP` や `DISPLAY` など）を触ってきた方なら、「数値を表すのに、なんで2種類もあるの？」と疑問に思うことでしょう。
PL/Iの世界では、数値を正確に（小数点を切り捨てずに）扱うために、大きく分けてこの2つの固定小数点数が存在します。
- `FIXED DECIMAL (p, q)` （略称: DEC）
- 十進数でデータを保持します。COBOLのパック十進数（COMP-3）と同じ仲間だと思ってください。
- メモリ上では1バイト（8ビット）につき2桁の数字が入り、最後の4ビットに符号（プラス・マイナス）が入る「パッキング形式」で格納されます。
- 人間が目で見て「あ、123.45だな」と直感的に分かりやすいのが特徴です。
- `FIXED BINARY (p)` （略称: BIN）
- 二進数、つまりコンピュータが一番大好きな「0と1の的世界」で数値を保持します。Javaの `int` や `short` に一番近いです。
- メモリ上では純粋な2の補数表現として格納されるため、CPUの算術演算ユニット（ALU）が一番得意とする、秒速の高速処理に向いています。
ちょっとした落とし穴：カッコの中の数字の意味
宣言するときに書く `(5, 2)` や `(15)` といった数字、これに悩まされる初学者は多いです。
- `DECIMAL(5, 2)` なら、「全体で5桁、そのうち小数点以下が2桁」という意味になります。（最大 999.99 まで入ります）
- 一方、`BINARY(15)` の場合の数字は「ビット数（符号を含まない、または含む有効ビット長）」を表します。ここがDECIMALと少し感覚が違うので注意が必要ですね。
—
2. なぜ型変換（キャスト）でハマるのか？
Javaなどであれば、異なる型同士の計算はコンパイラが勝イイ感じに暗黙の型変換（プロモーション）を行ってくれますよね。PL/Iも非常に「おせっかい（親切）」な言語なので、自動的に型変換を行ってくれます。
しかし、ここにレガシーシステム特有の「精度損失（データの切り捨てや丸め誤差）」の罠が潜んでいます。
例えば、高速に処理したいからと `FIXED BINARY` で計算している変数と、データベースからそのまま持ってきた `FIXED DECIMAL` の金額データを足し合わせるとき。コンパイルエラーにはならないのですが、「あれ？1円合わないぞ？」という恐ろしい現象が起きることがあります。
変換の優先順位と内部の動き
PL/Iでは、算術演算を行う際、異なる属性同士が混ざっていると、より表現力の高い方へ自動的に型を合わせようとします。基本的には、演算の精度を落とさないようにコンパイラが頑張ってくれますが、「二進数 ⇄ 十進数」の変換は、10進法と2進法の基数の違い（割り切れない小数など）による致命的なズレを生むことがあります。
特に、金額や数量といった「絶対に1円たりとも狂ってはいけないデータ」を扱うバッチプログラムでは、この暗黙の変換ルールを理解していないと、本番稼働後に痛い目を見ることになります。
—
3. 実践！PL/Iコードで見る変換と注意点
百聞は一見に如かず。実際にPL/Iでどのようにデータが宣言され、どう変換されるのか、典型的なサンプルコードを見てみましょう。
1
——————————————————-
- FIXED BIN / DEC の相互変換サンプルプログラム
——————————————————-
SAMPLE_CONV: PROC OPTIONS(MAIN);
— 1. 変数の宣言 ———————————-;
DCL W_DEC_AMT FIXED DEC(9,2) INIT(12345.67); / 金額用：十進数 /
DCL W_BIN_CNT FIXED BIN(31) INIT(100); / カウンタ：二進数 /
DCL W_RESULT_D FIXED DEC(11,2) INIT(0); / 結果受取用（十進） /
DCL W_RESULT_B FIXED BIN(31) INIT(0); / 結果受取用（二進） /
— 2. 暗黙の型変換を伴う算術演算 ——————;
- 十進数(DEC)と二進数(BIN)を足し算します。
- コンパイラは自動的に型をそろえて計算を実行します。
W_RESULT_D = W_DEC_AMT + W_BIN_CNT;
PUT SKIP EDIT (‘計算結果（DECIMAL）: ‘, W_RESULT_D)
(A, F(12,2));
— 3. 注意すべき境界条件（精度の溢れ） ————;
- 小数点を持つ数値を無理やりBINARYに代入する場合など、
- 桁あふれ（OVERFLOW）や丸めが発生するリスクがあります。
W_RESULT_B = W_DEC_AMT; / DECからBINへの代入 /
PUT SKIP EDIT (‘変換後（BINARY） : ‘, W_RESULT_B)
(A, F(10));
END SAMPLE_CONV;
このコードのポイントは、`W_DEC_AMT + W_BIN_CNT` の部分です。
PL/Iはこの演算を行う際、内部で一時的に両者の型を統一し、計算結果を返します。このとき、もし `FIXED BIN` 側のビット長や精度が不足していると、上位桁が切り捨てられる「SIZE（サイズ）条件エラー」を引き起こす可能性があります。
—
4. 事故を防ぐためのシニア・アーキテクトからのアドバイス
マイグレーションや新規開発の現場で、私たちが後輩のレビューをする際によく言うアドバイスをいくつかシェアしますね。
1. ビジネス計算（特に金額）には `FIXED DECIMAL` を絶対に使うこと！
- 速度を出したいからといって、ループのカウンタ以外で `FIXED BINARY` を金額計算に使うのは厳禁です。十進数を二進数に変換する際の丸め誤差で、小数が微妙にずれる原因になります。
2. 型変換は「お任せ」にせず、明示的に意識する
- どうしても異なる型の間でデータをやり取りする場合は、意図しない切り捨てが起きないよう、宣言時の桁数（精度）を十分に大きくとるか、必要に応じてビルトイン関数（組み込み関数）等で適切に制御しましょう。
3. 溢れチェック（ON SIZE ERROR）を忘れない
- PL/Iには強力な例外処理（ON条件）があります。万が一の桁あふれで不正なデータを下流に流さないために、シグナルをキャッチする仕組みを頭の片隅に入れておくと非常に堅牢なシステムになります。
—
いかがでしたでしょうか？
「FIXED BINARY と FIXED DECIMAL の違い」と、その「お見合い」のルール。最初は少し独特な作りに感じるかもしれませんが、コンピュータの歴史とメモリの構造に思いを馳せると、非常に理にかなった美しい仕組みであることが分かってきます。
レガシーシステムの海原へ漕ぎ出すあなたを、PL/Iはいつでも温かく（そして厳しく正確に）迎え入れてくれますよ。怖がらずに、一つずつマスターしていきましょう！
