JavaやCOBOLの経験はあるけれど、これからメインフレームの世界へ飛び込む皆さん、こんにちは！
世界最高峰のIBMメインフレームを支えるベテランシステムアーキテクトの私です。
「うわっ、なんだこのレガシーなソースコードは……！」「PL/Iって聞いたことない変数宣言がいっぱいあって怖そう……」
そんな風に身構えていませんか？ 大丈夫です、安心してください。どんなに古く見える構文であっても、そこには長年の歴史の中で洗練された確かな「理由」と「ルール」があります。一つずつフタを開けて中身を覗いていえば、JavaやCOBOLと本質的なところは驚くほど同じなんですよ。
今回は、PL/Iのデータ制御において避けて通れない、「固定小数点数（FIXED）」と、それを自在に操るための「`FIXED`ビルトイン関数」について、実務の現場の泥臭いノウハウも交えながら優しく紐解いていきましょう。
—
1. JavaやCOBOL出身者が驚く、PL/Iの「数値を表す世界観」
私たちが普段使っているJavaやCOBOLでは、数値を扱うときに「整数なのか、小数なのか」「何桁なのか」をそれぞれの言語の作法で宣言しますよね。COBOLなら `PIC 9(5)V99` のようにピクチャ句で書いたり、Javaなら `int` や `BigDecimal` を使ったりします。
PL/Iの世界でも基本は同じですが、最大の違いは「メモリの節約と計算の効率を極限まで追求した、独特のデータ型指定」にあるんです。
PL/Iで数値を扱うとき、大きく分けて以下の2つの軸があります。
1. FIXED（固定小数点数）: 整数や、小数点以下の位置がカチッと決まった数。お金の計算など、誤差が許されない世界で主役になります。
2. FLOAT（浮動小数点数）: 科学技術計算などで使われる、非常に大きな数や小さな数を「指数」で表現する数。
今回はこの中の 「FIXED」 にスポットを当てます。さらに、PL/Iには数値を別の型に無理やり（しかし安全に）変換してくれる魔法の関数、`FIXED`ビルトイン関数 が用意されています。これがマイグレーションやデータ修正の現場でめちゃくちゃ役に立つんです。
—
2. そもそも `FIXED` ビルトイン関数ってなに？
`FIXED` は、変数宣言のキーワードとしても使われますが、ビルトイン関数（他言語でいう組み込み関数）としても存在します。
役割はズバリ、「どんなデータ（文字、浮動小数点数、他の固定小数点数など）であっても、指定した精度の固定小数点数（FIXED）に強制変換すること」です。
書き方の基本形はこうです：
DCL RESULT_VAL FIXED DEC(7,2);
RESULT_VAL = FIXED( 元のデータ, 全体の桁数, 小数点以下の桁数 );
「おや、なんだかCOBOLの編集句やJavaのキャストに似ているぞ」と思いましたか？ その直感は大正解です！
—
3. ここがハマりどころ！浮動小数点数からの変換と「精度の罠」
さて、ここからが本題であり、夜間バッチで先輩たちが冷や汗をかいてきたポイントです。
Javaの `float` や `double`、あるいはPL/Iの `FLOAT` 型のような「浮動小数点数」を、`FIXED`ビルトイン関数を使って「固定小数点数」に変換するとき、内部では何が起きているでしょうか？
ここでイメージしてほしいのは、「砂で作られた繊細な彫刻（浮動小数点数）を、型枠に流し込んで固いコンクリート（固定小数点数）にする作業」です。
浮動小数点数は、2進数特有の誤差を抱えています。例えば、人間が「0.1」と書いたつもりが、内部の2進数世界では「0.10000000000000000555…」のような無限に近い近似値になっていることがあります。
これを安易に `FIXED` 関数でガチッと変換すると、予期せぬ丸め誤差や、桁あふれ（OVERFLOW）を引き起こす原因になるのです。
実際のPL/Iコードで見てみましょう
百聞は一見にしかず。実際のメインフレームのソースコードを模した例を見てみましょう。大文字で書かれた重厚な雰囲気を味わってください。
—————————————————————-
- 浮動小数点数からFIXED固定小数点数への変換サンプルプログラム
—————————————————————-
CONVERSION_SAMPLE: PROC OPTIONS(MAIN);
DCL Wk_Float FLOAT BIN(53); 倍精度浮動小数点数（Javaのdouble相当）
DCL Wk_Fixed FIXED DEC(9,2); 変換先の固定小数点数（整数7桁、小数2桁）
DCL MSG_BUF CHAR(100); ログ出力用メッセージバッファ
- 1. 浮動小数点数に値をセット（微小な誤差を孕んでいる可能性がある）
Wk_Float = 12345.6789D0;
- 2. FIXEDビルトイン関数を使って、精度(9,2)の固定小数点数に変換する
- 第1引数に変換元、第2引数に全体桁数、第3引数に小数部桁数を指定します
Wk_Fixed = FIXED(Wk_Float, 9, 2);
- 3. 結果の確認（実務ではここにDISPLAYやファイル出力が入ります）
PUT SKIP EDIT (‘変換後の値: ‘, Wk_Fixed) (A, F(12,2));
END CONVERSION_SAMPLE;
このコード、一見すると何の問題もなく `12345.68` に丸められて綺麗に動きそうですよね。実際、この規模の数値であれば意図通りに動きます。
しかし！もし `Wk_Float` に格納されていた値が、システム間のインターフェース（例えばJSONやCSV、あるいは他のレガシーシステムからの電文）を経由する過程で計算に計算を重ね、「予期せぬ巨大な数値」や「有効桁数を超えた数値」になっていたらどうなるでしょうか？
`FIXED(Wk_Float, 9, 2)` と指定したとき、もし元の値が `123456789.12` だったとします。
変換先の全体桁数は `9` 桁（`DEC(9, 2)`）なので、整数部が足りなくなりますよね。
PL/Iでは、このような状況でコンパイルエラーにならず、実行時に「CONVERSION（変換エラー）」や「OVERFLOW」のハードシグナル（割り込み）が発生し、アボート（異常終了）することがあります。夜間バッチの王道の恐怖体験です。
—
4. アーキテクトからのアドバイス：安全に使いこなすための知見
他言語から来たばかりの頃は、「とりあえず `FIXED` 関数で型を合わせとけば怒られないだろう」と思いがちですが、レガシーシステムにおいては以下の3点を心に留めておいてください。
1. 変換元の「真の型と桁数」を把握する
移行元の仕様書やデータ定義（COPY句やDCL文）を必ず確認し、浮動小数点数（FLOAT）が混ざっていないかを疑うこと。浮動小数点から固定小数点への変換は「丸め」が発生することを常に意識します。
2. 桁あふれ（OVERFLOW）への備えを忘れない
`ON OVERFLOW` などの条件プレフィックス（例外処理）を適切に配置するか、受け皿となる変数の桁数を十分に大きくとる設計を心がけましょう。
3. 「怖がらずに、まず小さく試す」
PL/Iの仕様書は分厚くて難解ですが、実際にコンパイルして挙動を見るのが一番の近道です。「型が厳格だからこそ、バグが入り込んだときに早期に検知して守ってくれる優秀な相棒」だと思って向き合ってください。
—
いかがでしたでしょうか？
「FIXEDビルトイン関数による汎用変換」と聞くと難しそうですが、要するに「異なる世界のデータ形式を、安全に自社のルール（固定小数点）に合わせるための通訳者」です。
レガシーシステムのモダナイゼーションや保守において、このデータ型の機微を抑えておくことは、障害を防ぐための強力な武器になります。
一つひとつの構文を味方につけて、頼れるメインフレーム・エンジニアを目指して一緒に頑張っていきましょう！ 次回の解説もお楽しみに。
