PL/Iの「PRECISION関数」で遊ぼう！数値の精度を操る魔法の杖
皆さん、こんにちは！メインフレームの世界へようこそ。
JavaやCOBOLから来た方にとって、PL/I（ピーエル・ワン）は少し「気難しい古強者」に見えるかもしれません。確かに、IBMメインフレームという広大な大地で何十年も生き抜いてきた言語ですから、独特の癖はあります。でも、怖がる必要は全くありません。今日は、PL/Iの数値操作の中でも、特に「データの中身を自在に変える」ためのPRECISION関数について、肩の力を抜いて紐解いていきましょう。
—
1. なぜPL/Iで「精度」を意識するのか？
Javaなどの言語では、`int`や`double`といった型がメモリ上でどう並ぶかは、ある程度言語側が「いい感じ」に隠蔽してくれますよね。しかし、PL/Iは違います。PL/Iは「ハードウェアを直接殴りに行く」ような言語なので、数値の精度（何桁あるか、小数点がどこにあるか）をプログラマが細かく指定できます。
例えば、`DCL A FIXED DEC(5, 2);` と書けば、「全体で5桁、そのうち小数部が2桁」という箱をメモリ上に確保します。この「箱のサイズ」を、プログラム実行中に動的に変えたくなる時がありますよね。そこで登場するのが `PRECISION` ビルトイン関数です。
—
2. PRECISION関数で何が起きているのか？
`PRECISION(X, P, Q)` は、変数 `X` の精度を、新しい精度 `P`（全体桁数）、`Q`（小数部桁数）に変換する関数です。
これを聞くと、「単に表示を変えるだけ？」と思うかもしれませんが、PL/Iの内部では「数値の再構築」という大掛かりな作業が行われています。
内部での変換イメージ
1. 一時的な変換エリアの確保: コンパイラは、結果を格納するための「隠れた一時変数」をメモリ上に確保します。
2. 変換処理: 元の数値を、新しい精度に合わせて「切り捨て（Truncation）」または「ゼロ埋め」します。
3. 戻り値の引き渡し: 変換された新しい数値を、呼び出し元へ渡します。
この「一時変数の生成」と「メモリのコピー」が、実はパフォーマンスに少しだけ影響を与えます。数千回、数万回のループの中で `PRECISION` を呼び出すと、塵も積もれば山となる……というわけです。
—
3. 実践コード：PRECISIONを使ってみよう
実際に、どのようにコードを書くのか見てみましょう。
/i
TEST_PREC: PROC OPTIONS(MAIN);
/ 5桁の整数(小数部なし)を定義 /
DCL VAL_ORIG FIXED DEC(5, 0) INIT(12345);
/ 変換後の結果を格納する変数 /
DCL VAL_NEW FIXED DEC(3, 0);
/ PRECISION関数で精度を3桁に落とす /
/ 12345 を 3桁(123)に変換。注意：上位桁は切り捨てられる！ /
VAL_NEW = PRECISION(VAL_ORIG, 3, 0);
/ 結果を表示（PUT SKIPは改行して出力する命令です） /
PUT SKIP LIST(‘元の値:’, VAL_ORIG);
PUT SKIP LIST(‘変換後の値:’, VAL_NEW);
END TEST_PREC;
ここがポイント！
- 注意点: `PRECISION` で桁を減らすとき、PL/Iは「端数処理（丸め）」ではなく「上位桁の切り捨て」を行います。今回の例だと `12345` が `123` になります。これ、基幹システムでやると「金額が合わない！」という冷や汗もののバグになりやすいので、計算のロジックには十分注意してくださいね。
—
4. パフォーマンスとの付き合い方
「じゃあ、PRECISIONは重いから使っちゃダメなの？」と思われるかもしれません。答えはNOです。
基幹システムにおいて最も重要なのは「保守性」です。コードが読みやすく、意図が明確であれば、多少のCPUサイクルを惜しむ必要はありません。もしパフォーマンスが本当にボトルネックなら、`PRECISION` を使うのではなく、最初から多めの桁数で変数を宣言しておくか、あるいは `FIXED BINARY`（2進数演算）を活用するアプローチを検討しましょう。
PL/Iのコンパイラは非常に賢いです。無駄な変換を最適化しようと頑張ってくれますから、まずは「分かりやすいコード」を書き、どうしても遅いときだけプロファイラ（パフォーマンス測定ツール）で原因を特定する……このスタンスが、長くメインフレームと付き合う秘訣です。
—
最後に：怖がらなくて大丈夫です
PL/Iのデータ宣言は、最初は呪文のように見えるかもしれません。`FIXED`、`DECIMAL`、`BINARY`、`PICTURE`……。でも、一つずつ「これはメモリのこの形を指しているんだな」とイメージできるようになると、これほど頼もしい言語はありません。
皆さんの基幹システム改修が、少しでもスムーズに進むよう応援しています。また、気になることがあればいつでも聞きに来てくださいね！
それでは、良いメインフレームライフを！
