こんにちは！メインフレームの世界へようこそ。
JavaやCOBOLといったモダン、あるいはビジネスで広く使われている言語をご存知の方にとって、IBMメインフレームの「PL/I（ピーエルアイ）」という名前は、少し古めかしく、厳めしい要塞のように感じられるかもしれませんよね。
「なんだか書き方が独特だし、変なルールがいっぱいありそう……」
そんな風に身構えてしまうお気持ち、とてもよく分かります。でも、安心してください。ベースにある考え方は他の言語と変わりませんし、一つひとつの仕様を紐解いていけば、PL/Iほどエレガントで合理的な言語はないと気づくはずです。
さて、今回はそんなPL/Iの基本データ型の中でも、バッチ処理や計算処理で避けて通れない「固定小数点数（FIXED BINARY / FIXED DECIMAL）」の比較演算について、じっくりお話ししていきたいと思います。
異なる精度を持つ数字同士を比べるとき、メインフレームの内部ではいったい何が起きているのでしょうか？ 一緒に覗いてみましょう！
—
1. まずは基本：PL/Iの「固定小数点数」ってなに？
Javaには `int` や `long` があり、COBOLには `PIC S9(9) COMP` や `PIC S9(9) USAGE DISPLAY` がありますよね。PL/Iにも、もちろん数値を扱うための型が用意されています。それが今回主役にする固定小数点数です。
PL/Iでは大きく分けて2つの書き方があります。
- FIXED DECIMAL (パック十進数 / ゾーン十進数)：
主にCOBOLの `COMP-3` や表示用データに相当します。人間がパッと見て理解しやすい10進数ベースの数値です。
- FIXED BINARY (2進固定小数点数)：
Javaの `int` や `short` のような、コンピュータが大好きな2進数ベースの数値です。
奇妙なデータ宣言？カッコの中の数字の正体
PL/Iのコードを見ていると、こんな宣言に出会ってギョッとしたことはありませんか？
DCL A FIXED BIN(15) ; / 精度15の2進固定小数点数 /
DCL B FIXED DEC(5,2); / 精度5、小数点以下2桁の10進固定小数点数 /
このカッコの中の数字（精度や小数点位置）、気になりますよね。
COBOLの `PIC` 句（`PIC 9(5)V99` など）に慣れていると、「なんだこれ？」と思うかもしれません。しかし、これは単に「この変数はこれだけの桁数（あるいはビット数）をメモリ上で背負いますよ」という、コンパイラへの大切な誓約書のようなものです。
怖がらなくて大丈夫です。要するに「器の大きさ」と「小数点の位置」を指定しているだけなんですよ。
—
2. 本題：異なる精度を持つ数値を比較するとき、何が起きるのか？
さて、ここからが本日のメインテーマです。
もし、「器の大きさが違う（＝精度が異なる）固定小数点数同士」を比較したら、コンピュータは一体どうやって勝敗（大小）を決めているのでしょうか？
例えば、こんな状況を想像してください。
- 変数A：`FIXED BIN(15)` の「10」
- 変数B：`FIXED BIN(31)` の「10」
人間から見れば「どちらも同じ 10 だから等しい（`A = B`）」と一瞬で分かります。しかし、CPUのレベルでは、メモリ上のサイズ（幅）が違うデータをそのまま突き合わせることはできません。
ここでPL/Iコンパイラとハードウェアが裏側で行うのが、「正規化（型の拡張とスケーリング）」という魔法です。
比較演算の裏側のステップ
PL/Iが異なる精度の数値を比較する際、内部では次のような手順を踏んでいます。
1. 共通の土俵（一時的な大きな器）を探す
比較する両者のデータ属性をチェックし、どちらのデータもロスなく収容できる「より大きな共通の属性（これをコンテキストに応じた中間型と呼びます）」を自動的に決定します。
2. データを引き伸ばす（正規化）
精度の小さい側の変数を、一時的に大きい方の型に合わせて拡張します。
- 2進数であれば上位ビットにパディング（符号拡張なら符号ビットを埋める）を行います。
- 10進数であれば桁合わせを行います。
3. 比較命令（Compare）の実行
同じ土俵（同じ属性）に立ったピカピカのデータ同士を、メインフレームの強力なハードウェア命令で一気に比較します。
「なるほど、自動でよしなにやってくれるんだな」と思っていただければ大正解です！ 手動で型キャスト（型変換）をゴリゴリ書かなくても、PL/Iのコンパイラが賢く面倒を見てくれるのです。
—
3. 実践！PL/Iコードで挙動を確認してみよう
百聞は一見にしかず。実際に異なる精度を持つ固定小数点数を比較するPL/Iのサンプルコードを見てみましょう。実務のバッチプログラムをイメージして、日本語のコメントを添えておきますね。
COMPARE_SAMPLE: PROC OPTIONS(MAIN);
/ — 変数の宣言 — /
/ 16ビット幅の2進固定小数点数（短い器） /
DCL W_SMALL_BIN FIXED BIN(15) INIT(100);
/ 32ビット幅の2進固定小数点数（大きい器） /
DCL W_LARGE_BIN FIXED BIN(31) INIT(100);
/ 10進固定小数点数（おまけ：異なる型同士の比較用） /
DCL W_DECIMAL FIXED DEC(5,0) INIT(100);
/ — 異なる精度（BIN(15) と BIN(31)）の比較 — /
IF W_SMALL_BIN = W_LARGE_BIN THEN
PUT SKIP EDIT (‘BIN(15)とBIN(31)は等しいです！’) (A);
ELSE
PUT SKIP EDIT (‘値は同じですが、型が違うので……あれ？’) (A);
/ — 異なる型（BIN と DEC）の比較 — /
/ PL/Iは異なる型同士の比較であっても、内部で適切に型を合わせて比較してくれます /
IF W_SMALL_BIN = W_DECIMAL THEN
PUT SKIP EDIT (‘FIXED BIN と FIXED DEC でも値が同じなら等しいと判定されます！’) (A);
/ — 少し踏み込んだ注意点：小数点以下のスケールが違う場合 — /
BEGIN;
DCL X FIXED DEC(5,2) INIT(10.50); / 10.5 /
DCL Y FIXED DEC(5,1) INIT(10.5 ); / 10.5 /
/ 小数点以下の桁数（スケール）が異なっていても、
PL/Iは比較の際に自動的にスケールを合わせて（桁を揃えて）比較します。 /
IF X = Y THEN
PUT SKIP EDIT (‘スケールが違っても、数値として同じなら一致します（10.50 = 10.5）’) (A);
END;
END COMPARE_SAMPLE;
コードのポイント
- 型や精度の違いを気にせず直感的に書ける
`W_SMALL_BIN`（15ビット）と `W_LARGE_BIN`（31ビット）を比較していますが、コンパイラが自動的に大きな方（BIN(31)）へ拡張して比較するため、意図通り「等しい」と判定されます。
- 異なるベース（BINとDEC）でも比較可能
2進数（BIN）と10進数（DEC）という、生い立ちが全く異なる数字同士であっても、PL/Iはちゃんと値を等価として比較してくれます。
- スケール（小数点以下の桁数）の自動調整
`FIXED DEC(5,2)`（10.50）と `FIXED DEC(5,1)`（10.5）のように、小数点の位置が違っていても、コンパイラが裏側で桁を揃えてくれるため、バグの温床になりにくい親切設計になっています。
—
4. スペシャリストからのアドバイス（実務での落とし穴）
ここまで「PL/Iはすごく賢くて親切ですね！」というお話をしましたが、レガシーシステムの現場を渡り歩いてきた私から、一つだけ実務で絶対に気をつけてほしい注意点をお伝えしておきます。
それは、「自動変換に頼りすぎて、意図しないパフォーマンス低下やオーバーフローを招かないこと」です。
- 無駄な型変換のコスト
あまりにも頻繁に異なる型や精度同士で比較演算を行わせると、コンパイラがその都度コードの裏側でデータ拡張の命令（変換コード）を挟み込むため、超高速に走るべきメインフレームのバッチ処理において、わずかですがCPU時間を消費する原因になります。
- 極端な巨大データとの比較
例えば、非常に精度の高い `FIXED BIN(31)` と、極小の `FIXED BIN(15)` を混ぜてループ内で何百万回も比較するような処理を書く場合、できる限りあらかじめ変数の型や精度を揃えておく方が、コードの可読性もパフォーマンスも劇的に向上します。
「基本はPL/Iがよしなにやってくれるけれど、なるべく同じ土俵（同じ精度・同じ型）のデータを戦わせる方が、メインフレームにとっても優しいんだな」と覚えておいてくださいね。
—
おわりに
いかがでしたでしょうか？
PL/Iの固定小数点数、そして異なる精度を持つデータ同士の比較演算の裏側の仕組みについて、少しイメージが湧いてきたのではないでしょうか。
「なんだか難しそう」に見えるレガシー言語の仕様も、紐解いてみればコンピュータが私たちプログラマの負担を減らすために一生懸命考えてくれている結果にすぎません。
恐れることは何もありません。ぜひご自身のプロジェクトや移行調査の際にも、この「裏側で器を合わせてくれているんだな」というイメージを思い出してみてくださいね。あなたのメインフレームライフが、少しでも楽しく快適なものになりますように！
