こんにちは！メインフレームの世界へようこそ。
JavaやCOBOLといった他のモダンな言語をご経験されている方にとって、IBMメインフレームの「PL/I（ピーエルワン）」という言語は、どこか古めかしく、要塞のように堅牢で近寄りがたい雰囲気に感じられるかもしれませんよね。
「なんだか変数宣言のルールが独特だな…」
「桁数や小数の扱いで、変なエラーが出たらどうしよう…」
そんな不安を抱えていませんか？ 大丈夫です、安心してください。今日はその第一歩として、PL/Iのデータ制御において非常に重要な「SCALE関数によるスケール変更の内部挙動」について、一緒に優しく紐解いていきましょう。
他の言語にはないPL/Iならではの奥深さと、裏側の仕組みが分かれば、レガシーシステムの改修やマイグレーションも怖くなくなりますよ！
—
そもそもPL/Iの「固定小数点数」ってどうなっているの？
Javaの `int` や `long`、COBOLの `PIC 9(5)V99 COMP` などに慣れていると、PL/Iのデータ宣言は少し奇妙に見えるかもしれません。
PL/Iでは、数値を正確に扱うために FIXED（固定小数点数）というデータ型をよく使います。その中でも代表的なのが、以下の2つです。
- FIXED DECIMAL (p, q)：十進数（BCD形式）で数値を管理します。お金の計算など、誤差を出したくない業務系で大活躍します。
- FIXED BINARY (p, q)：二進数（バイナリ）で数値を管理します。メインフレームのCPUが一番得意とする形式です。
ここで登場する (p, q) という見慣れない記号、これが今回の主役を理解するカギになります。
- p（プレシジョン / 精度）：有効数字の全体的な桁数です。
- q（スケール / 小数点位置）：右側から数えて「何桁目が小数点以下か」を表します。
例えば、`DCL WS_MONEY FIXED DEC(7, 2);` と宣言したら、「全体で7桁、そのうち下2桁が小数点以下」という意味になります。つまり `12345.67` のような値がすっぽり入る箱を用意したことになりますね。
—
SCALE関数とは？何をしてくれるもの？
さて、ここからが本題です。
プログラムを書いていると、「あー、この数値、値の大きさそのものは変えずに、小数点コロンの位置（スケール）だけをちょっとずらしたいな」という場面に出くわします。
そんな時に使うのが `SCALE` という組み込み関数です。
イメージとしては、「数字の並びはそのままで、小数点の位置をペタッと貼り直す魔法のテープ」 のようなものです。
他言語（JavaやCOBOL）との感覚の違い
JavaやCOBOLで小数の桁数を合わせようとすると、わざわざ 10 で掛け算したり割り算したり、あるいは画面表示や転記の際に丸め処理を意識したりする必要がありますよね。
しかし、PL/Iの `SCALE` 関数は、数値の持つ「値の大きさ（実体）」は変えずに、属性としてのスケール値だけを変更するという、ちょっとユニークな挙動をします。
—
内部で何が起きているのか？（シフト演算と桁落ちの罠）
では、この `SCALE` 関数、裏側では一体どんな計算や処理を行っているのでしょうか？ メインフレームの内部挙動をのぞいてみましょう。
1. 内部的なシフト演算の正体
PL/Iのコンパイラは、`SCALE(変数, 新しいスケール)` に遭遇すると、元のデータが持つバイナリまたはパック十進数のデータ表現に対して、「小数点の位置を合わせるための位置合わせ（アライメント調整）」を行います。
例えば、スケールを増やす（小数点以下の桁数を増やす）場合、内部的には足りなくなった下位桁に 0 を補うようなシフト演算や乗算が暗黙的に行われます。逆にスケールを減らす場合は、下位の桁が切り捨てられたり、丸められたりする処理が発生します。
2. 一番怖い「精度不足（桁落ち・オーバーフロー）」のリスク
ここで、先輩プログラマたちが口を揃えて「SCALE関数を使う時は気をつけろ！」と言う理由をお話しします。
それは、「値を保持するための入れ物のサイズ（精度 p）が足りなくなるリスク」 です。
頭の中でイメージしてみてください。
ここに `FIXED BINARY(15, 2)` という、ちょっと小さめの箱があります。ここに無理やり `SCALE` 関数を使って、スケールを大きくしようとするとどうなるでしょう？
- 元の数値の「整数部」が収まっていたスペースが、小数点の移動によって侵食されてしまい、上位の重要な数字がポロリとこぼれ落ちてしまう（桁落ち・オーバーフロー）現象が起きます。
Javaのキャストで型の範囲を超えて値がおかしくなる現象に似ていますが、PL/Iの場合は「小数点の移動によって有効桁数がパンクする」という特有の事故が起きやすいのです。
—
実践！PL/Iコードで挙動を確認してみよう
百聞は一見にしかず。実際のPL/Iのコードで、安全な使い方と注意すべきポイントを見てみましょう。
——————————————————————
- SCALE関数の挙動を確認するサンプル・プログラム
——————————————————————
PGM_MAIN: PROC OPTIONS(MAIN);
— 変数の宣言エリア —
DCL W_ORIGINAL FIXED DEC(5, 2) INIT(123.45); 元データ：全体5桁、小数2桁
DCL W_CONVERTED FIXED DEC(7, 4); 変換後：余裕を持った宣言
DCL W_DANGER FIXED DEC(5, 3); 危険な宣言：余裕なし
【例1：安全なスケール変更】
- 値の大きさを変えずに、スケールを 2 から 4 へ変更します。
- 宣言側に全体の桁数（p）の余裕があるため、安全に処理されます。
W_CONVERTED = SCALE(W_ORIGINAL, 4);
PUT SKIP LIST(‘— 例1の結果 —‘);
PUT SKIP LIST(‘変換後（期待値：123.4500付近）:’, W_CONVERTED);
【例2：注意が必要なケース（桁落ちリスク）】
- 元データの精度ギリギリの状態で無理にスケールを変更すると、
- コンパイル時や実行時に予期せぬ切り捨てやSIZE条件（エラー）の
- 原因になります。
- W_DANGER = SCALE(W_ORIGINAL, 3);
END PGM_MAIN;
このように、`SCALE` 関数を使うときは、「移動したあとの結果を受け取る受け皿（変数）の全体精度（p）が、十分に大きく確保されているか」を必ず確認することが鉄則になります。
—
まとめ：レガシーの仕様も、怖がらずに仲良くなろう
いかがでしたでしょうか？
PL/Iの `SCALE` 関数によるスケール変更は、一見すると難しそうに見えますが、要するに「小数点の位置を付け替える操作であり、受け皿のサイズ（桁数）設計を間違えるとデータが溢れる（または削れる）」というシンプルな原則に基づいています。
マイグレーションの現場などで、見慣れないPL/Iのソースコードに直面したとき、「うわ、なんだこれ…」とフリーズしてしまう気持ちはとてもよく分かります。でも、こうして一つひとつのキーワードの裏にある「データの入れ物と動き」を紐解いていけば、怖がる必要は全くありません。
あなたのこれまでのプログラミング経験は、メインフレームの世界でも必ず強力な武器になります。ぜひ、自信を持ってレガシーシステムの扉を開いていってくださいね！
