こんにちは！メインフレームの世界へようこそ。
JavaやCOBOLといった他のモダンな言語や、業務系でよく使われる言語をバリバリ書いてきた方にとって、IBMメインフレームの「PL/I（ピーエルアイ）」という名前を聞くだけで、なんだか古めかしい難解な要塞の前に立たされたような、そんなドキドキ感がありますよね。
「なんだか変数名のルールも独特だし、データ定義の書き方も見慣れない……」
そんな風に身構えてしまうお気持ち、とてもよく分かります。でも、大丈夫です。一つひとつの仕様を紐解いていけば、PL/Iは実は非常に合理的で、プログラマの意図をしっかりと汲み取ってくれる頼もしい言語なんです。
今回は、そんなPL/Iの数ある特徴の中でも、初学者が思わず「おっ？」と躓きやすい『PIC ‘V’による仮想小数点位置の管理と演算時の桁合わせ』について、優しく、そして深く掘り下げてお話ししていきましょう。
—
1. 他言語からの挑戦者たちが戸惑う「仮想小数点 V」ってなに？
Javaなら `BigDecimal` や `double`、COBOLなら `PIC 9(5)V99` などでお馴染みの小数の扱いですが、PL/Iにももちろん小数点を表現する仕組みがあります。
ここで最初に知っておいてほしい、PL/Iの大きな特徴があります。それは、「データの中に、わざわざ『`.』（ドット）」という実体を保存しないまま、小数点があるかのように振る舞わせる魔法」があるということです。
それが、ピクチャ属性（PIC）の中で使われる `V` です。
想像してみてください：レシートのないお小遣い帳
例えば、お財布の中にある「100円50銭」を管理したいとします。
物理的に「100.50」と文字通りのドットをメモリ上に書き込んでしまうと、余計な1バイト（ドットの文字分）を消費してしまいますよね。
メインフレームの世界では、限られた資源（メモリやストレージ）を1バイトたりとも無駄にしたくないという執念があります。そこで、
「メモリ上には数字だけ（例: `10050`）をみっちり詰めておくけれど、『左から3桁目と4桁目の間に、見えない小数点がある』というルール（仮想の壁）をコンパイラと私たち共有しよう！」
という仕組みを作りました。これが `V` の正体です。
- 物理的なメモリ: `10050` （数字のデータのみ）
- 論理的な解釈: `100.50` （Vの位置で小数点を勝手に脳内補正する）
怖くないですよね？ `V` は単なる「目印の杭」だと思えばいいんです。
—
2. 実際のコードで見てみましょう：PL/Iのデータ宣言
百聞は一見に如かず。実際にPL/Iで仮想小数点を持つ変数を宣言してみましょう。
/ ————————————————– /
/ 仮想小数点Vを使ったデータ宣言のサンプル /
/ ————————————————– /
DCL W_KINGAKO PIC ‘9(5)V99’ VALUE ‘1234567’; / 12345.67 を表す /
DCL W_ZEIRITSU PIC ‘V99′ VALUE ’08’; / 0.08（8%）を表す /
DCL W_ZEIGAKU PIC ‘9(5)V99’ STATIC; / 計算結果格納用 /
ここで注目してほしいのは、`VALUE ‘1234567’` と指定している部分です。
文字リテラルの中にはドット（`.`）が含まれていませんよね。`9(5)V99` というのは、全体で7桁の数字を受け入れますが、「後ろから2桁分のところに `V`（仮想小数点）があるよ」という宣言になります。
したがって、コンパイラはこの値を次のように解釈します。
- `12345`（整数部） + `67`（小数部） = 12345.67
—
3. コンパイラが裏でやってくれる「自動桁合わせ」のドラマ
さて、ここからが本番です。
「仮想小数点があるのは分かったけれど、じゃあこの変数同士を掛け算したり足したりするとき、小数点以下の桁数がズレたらどうなっちゃうの？」と心配になりますよね。
ご安心ください。ここがPL/Iの真骨頂であり、最も優れているところです。
Javaなどで小数を扱う際、桁あふれや丸め誤差を気にして自分で桁数をシフティングするコードを書いた経験はありませんか？
PL/Iでは、コンパイラが演算時に自動的に内部で「桁合わせ（Align）」を行ってくれるのです。
算術演算のシミュレーション
先ほどの金額（`W_KINGAKO`）に消費税率（`W_ZEIRITSU`）を掛ける計算をしてみましょう。
/ 金額に税率を掛けて税額を求める /
W_ZEIGAKU = W_KINGAKO W_ZEIRITSU;
人間が筆算するときを想像してください。
1. 小数点なんていったん忘れて、整数同士として掛け算する： `1234567` × `08` = `9876536`
2. 小数点以下の桁数を足し合わせる：金額側が2桁（`.67`）、税率側が2桁（`.08`）なので、合計 2 + 2 = 4桁 小数点があるはずだと判定する。
3. 結果の数字の右から4桁目に仮想小数点 `V` を置く： `987.6536`
PL/Iのコンパイラは、まさにこの手順を機械語レベルの最適化されたコードとして自動的に裏で組み立ててくれます。
プログラマが「あ、桁を100倍しなきゃ」などと意識してコードを書く必要は基本的にありません。コンパイラがすべてお膳立てしてくれるのです。
—
4. 実務で役立つ！完全なサンプルプログラムと注意点
では、実際に動かせる（イメージしやすい）PL/Iのメインプログラムの形を見てみましょう。実務のバッチ処理などでよく見かける構造です。
/ /
/ プログラム名: CALC01 /
/ 概要: 仮想小数点Vを用いた金額・税金計算のサンプル /
/ /
CALC01: PROC OPTIONS(MAIN);
/ — データ宣言 — /
DCL W_KINGAKO PIC ‘9(5)V99’ VALUE ‘1234567’; / 12345.67 円 /
DCL W_ZEIRITSU PIC ‘V99′ VALUE ’10’; / 0.10 (10%) /
DCL W_ZEIGAKU PIC ‘9(7)V99’ / 結果受取用 /
INIT(0);
/ — 演算処理 — /
/ Vの位置が自動的に考慮され、正しく桁合わせされて代入されます /
W_ZEIGAKU = W_KINGAKO W_ZEIRITSU;
/ — 結果の出力（DISPLAY文） — /
PUT SKIP EDIT (‘計算前の金額 :’, W_KINGAKO) (A, X(1), PIC ‘ZZ,ZZ9.99’);
PUT SKIP EDIT (‘消費税額 :’, W_ZEIGAKU)(A, X(1), PIC ‘ZZ,ZZ9.99’);
END CALC01;
💡 実務家からのアドバイス（ちょっとした注意点）
コンパイラが自動で桁合わせをしてくれるとはいえ、一つだけ絶対に気をつけてほしい罠があります。
それは、「受け取る側の変数（左辺）の桁数が足りなくなったとき」です。
もし掛け算や割り算の結果、整数部や小数部の桁数が左辺の `PIC` 宣言の枠に入り切らない場合、PL/Iではコンパイルエラーになるか、実行時に最高にエキサイティングな「CONVERSION（変換）エラー」（データ例外）を引き起こして異常終了します。
- 「Vの右側の桁数（小数部）が足りないときは、自動的に丸め（四捨五入や切り捨て）が行われるのか？」
- 「それとも単に切り捨てられるのか？」
これは代入先の属性や演算のコンテキストによって挙動が変わるため、マイグレーションや仕様変更の際は、「代入先（左辺）のPIC句のサイズが、演算結果の最大値を十分に許容できるか」を必ず電卓（または設計書）を叩いて確認するようにしてくださいね。
—
さいごに
いかがでしたでしょうか？
「PIC ‘V’」という見慣れない文字も、要するに「メモリの無駄を省くための、賢い小数の目印」であり、演算時の桁合わせも「コンパイラがしっかりお仕事をしてくれる親切設計」なのだと分かれば、もう怖くありませんよね。
レガシーなメインフレームの世界は、一見すると独特な方言の塊のように見えますが、その背景には「ハードウェア資源を極限まで効率よく使い、かつ正確に計算する」というエンジニアたちのロマンと知恵が詰まっています。
もし現場でPL/Iのコードに直面したら、「あ、この `V` はあの時の目印だな」と、そっと心の中で微笑んでみてください。
あなたのメインフレームライフが、少しでも楽しく、そして心強いものになりますように。それではまた！
