こんにちは！メインフレームの世界へようこそ。
JavaやCOBOLといったモダン、あるいはちょっとお馴染みな言語をバリバリ書いてきた方にとって、IBMメインフレームの「PL/I（ピーエルワン）」という言語は、最初にそのソースコードを見たとき、ちょっとした衝撃を受けるかもしれません。「なんだこの暗号みたいな宣言は……！」って身構えてしまいますよね。でも、安心してください。一つひとつの仕様を紐解いていけば、PL/Iは非常に合理的で、かつパワフルな言語であることが分かります。
今回は、そんなPL/Iの数あるユニークな機能の中から、「PIC ‘V’ による仮想小数点（スケールファクター）の管理と演算時の挙動」をピックアップして、優しく丁寧に解説していきますね。
他の言語から来た人が思わず「えっ、そこに実体がないの！？」と驚く、この不思議な『V』の正体に迫っていきましょう！
—
1. 他言語からの挑戦者へ：小数点なのに「記憶域を消費しない」ってどういうこと？
Javaの `double` や `BigDecimal`、あるいはCOBOLの `PIC 9(3)V99` などを見慣れている方にとって、「小数点」とはデータの中に何らかの形で存在しているもの、あるいはデータ型の一部として明確に位置が決まっているものだと思います。
しかし、PL/Iのピクチャー句（PIC）で登場する `V` は、「Virtual（仮想的）」 の頭文字。
これが何を意味するかというと、「メモリ（ストレージ）上には、小数点のための領域（バイトやビット）を一切占有しない。ただし、プログラムの頭の中（論理的世界）では、そこに小数点があるものとして扱う」 という、なんとも忍者みたいなやつなんです。
例え話：メジャーの目盛りと実際の長さ
例えば、12345 という数字があったとします。
これを COBOL や PL/I で `PIC 9(3)V92` と定義したとしましょう。「整数部3桁、小数部2桁」という意味ですね。
- メモリ上の実態: `12345` という数字の並びがパツンと入っているだけです。`1`、`2`、`3`、`4`、`5` という文字（あるいはパック十進数ならゾーン/パックデータ）が並んでいるだけで、「.（ドット）」の文字や制御コードは1バイトも存在しません。
- 頭の中のルール: コンパイラやプログラムは、「右から2桁目の手前に、見えない小数点があるんだな」と心の中でだけ記憶しています。つまり、実態は `123` と `45` なのに、プログラムはこれを `123.45` として取り扱うのです。
「実態がないのに、計算するとちゃんと小数点の位置が合う」……これが、PL/Iが誇る仮想小数のカラクリです。
—
2. 算術演算時に何が起きているのか？（内部シフトの仕組み）
では、この仮想小数点 `V` を持つデータ同士で計算をしたり、他の変数に代入したりするとき、メインフレームの内部ではいったい何が行われているのでしょうか？
結論から言うと、コンパイラは「小数の位置（スケール）を合わせるための自動的なシフト演算（桁合わせ）」を裏側でこっそり実行しています。
計算の裏側を覗いてみよう
例えば、以下のような計算を想像してみてください。
- 変数A: `PIC 9(3)V99` （値：`123.45` ⇒ 内部は `12345`）
- 変数B: `PIC 9(4)V9` （値：`10.1` ⇒ 内部は `0101` ※桁数を合わせるイメージ）
この2つを足し算するとします。
人間であれば「123.45 + 10.1 = 133.55」と一瞬で計算できますが、コンピュータのハードウェアは「位（桁）」が揃っていなければ正確に足し算ができません。
ここで PL/I のコンパイラが生成するコード（あるいはランタイムの挙動）は、次のような仕事をします。
1. 小数点（`V`の位置）がどこにあるかを確認する。
- 変数Aは小数点が 右から2桁目
- 変数Bは小数点が 右から1桁目
2. 小数点以下の桁数が多い方に合わせるため、桁数が足りない方のデータを内部的にシフト（10倍する、つまり右に0を補うような処理）して、位をピタリと揃える。
3. 揃った状態で加算命令を実行する。
4. 結果を格納先の変数の `V` の位置に合わせて調整し直す。
この一連の桁合わせを、プログラマが明示的に ` 10` とか `/ 10` と書かなくても、コンパイラがデータ定義（PIC句）を読み取って自動でやってくれるのが、PL/Iの強力かつありがたいところなのです。
—
3. 実践！PL/Iコードで見る `V` の挙動
百聞は一見に如かず。実際に PL/I でどのように記述し、どう動くのか、サンプルコードを見てみましょう。
レガシーシステムのバッチプログラムをイメージした書き方にしています。
V_TEST: PROC OPTIONS(MAIN);
/ ————————————————– /
/ 変数の定義 /
/ ————————————————– /
/ 整数3桁、小数2桁（メモリ上は5桁の数字として保持） /
DCL W_PRICE PIC ‘999V99’ VALUE(‘12345′); / 実質 123.45 /
/ 整数2桁、小数1桁（メモリ上は3桁の数字として保持） /
DCL W_RATE PIC ’99V9’ VALUE(‘125’); / 実質 12.5 /
/ 結果を受け取る変数：余裕を持った定義 /
DCL W_RESULT PIC ‘9(5)V99’ VALUE(0); / 演算結果用 /
/ ————————————————– /
/ 演算処理の実行 /
/ ————————————————– /
/
【注目！】
W_PRICE と W_RATE は「V」の位置（小数の桁数）が違います。
W_PRICE は小数2桁、W_RATE は小数1桁です。
PL/I は代入や演算の際、この V の位置を自動的に検出し、
内部で桁合わせ（スケール調整）を行ってから計算します。
/
W_RESULT = W_PRICE W_RATE;
/ 結果の確認（メインフレームのSYSOUTに出力） /
PUT SKIP EDIT (‘結果（桁合わせ後）:’, W_RESULT)
(A(20), PIC ‘ZZZZ9.99’);
END V_TEST;
このコードのポイント
- `W_PRICE` は `12345`（見えない小数点は `123.45`）です。
- `W_RATE` は `125`（見えない小数点は `12.5`）です。
- この2つを掛け算するとき、PL/Iは自動的に小数点の位置を計算し、結果の `W_RESULT`（小数2桁）の形にぴったり収まるように内部でスケーリングを調整してくれます。
- プログラマは「小数点どこだっけ？」とパニックになる必要はなく、ただ宣言通りに計算式を書くだけで、コンパイラが安全に料理してくれるのです。
—
4. 移行・保守の現場で絶対に知っておきたい「注意点」
さて、ここまで聞くと「PL/Iってなんて親切なんだ！」と思われるかもしれませんが、レガシーシステムのマイグレーションや保守の現場では、この `V` の性質が原因で思わぬ罠にハマることがあります。最後に、現場の知見としていくつか注意点をお伝えしておきますね。
① データの「生コピー（MOVEや構造体の一括転記）」には要注意！
PL/Iには、メモリ領域をそのまま別の変数にコピーするような構文（構造体全体の代入など）が存在します。
このとき、「コピー元の `V` の位置」と「コピー先の `V` の位置」が異なっていても、コンパイラが勝手に桁を合わせてくれない（単なるビット/文字の丸ごとコピーになってしまう）ケースがあります。
もし位置が違う変数同士で中身をそのまま移し替えてしまうと、小数点の位置が変わってしまい、気づけば金額が10倍になったり1/10になったりする「大怪我（データイレギュラー）」に繋がります。
フィールドのレイアウト変更や、外部ファイル（VSAMや平ファイル）との入出力の際は、この `V` の位置が物理レイアウトのどこに該当するのか、細心の注意を払ってマッピングを確認してください。
② 演算結果のオーバーフロー
自動でシフト演算や桁合わせをしてくれる分、思わぬ大きな桁数になってしまい、受け取り側の変数の桁あふれ（Overflow）を起こすことがあります。
「計算したはいいけれど、Vの計算で有効桁数がはみ出て上位桁が切り捨てられた」というトラブルは、レガシー移行時の結合テストでよくある「あるある」です。演算結果を受け取る変数の PIC 句は、常に余裕を持ったサイズで定義する癖をつけましょう。
—
まとめ
いかがでしたでしょうか？
PL/Iの `PIC ‘V’` による仮想小数の管理は、一見すると「実体がないなんて不安だな……」と感じるかもしれません。しかし、その正体は「メモリの無駄を極限まで削ぎ落としつつ、プログラムには小数の概念をスマートに扱わせるための、先人たちの知恵が詰まった優秀な仕組み」です。
- メモリ上には小数点の実体（ドット）はない！
- あるのは「頭の中の仮想的な位置（V）」だけ！
- 計算時はコンパイラが自動で桁合わせ（シフト演算）をしてくれるので怖くない！
この3つさえ押さえておけば、もうPL/Iのピクチャー句で怯える必要はありません。
メインフレームの深い森の中でも、一つひとつルールを紐解いていけば必ず道は見えます。日々の開発や移行作業、ぜひ楽しんで進めていきてくださいね！
