メインフレームの「心臓部」を操る：PL/Iのデータ型変換とDECIMAL関数との付き合い方
こんにちは。メインフレームの世界へようこそ。
JavaやCOBOLのコードを見慣れたあなたにとって、PL/Iのコードは一見すると「古めかしい記号の羅列」に見えるかもしれません。でも安心してください。PL/Iは、その名の通り「Programming Language One（全てを一つに）」の名の通り、非常に柔軟で、かつ一度コツを掴めばこれほど頼もしい言語はありません。
今回は、基幹システムのバッチ処理で避けては通れない「数値の変換」と「精度管理」の沼にハマらないための、PL/I流の作法についてお話しします。
—
1. プログラムの骨格：PACKAGEとPROCEDURE
PL/Iのプログラムは、大抵 `PACKAGE` や `PROCEDURE` で始まります。Javaでいうクラスやメソッドのようなものですが、一番大事なのは `OPTIONS(MAIN)` です。
/i
MY_PROGRAM: PACKAGE;
/ メイン処理の入り口 /
MAIN_PROC: PROCEDURE OPTIONS(MAIN);
/ ここにロジックを書いていきます /
END MAIN_PROC;
END MY_PROGRAM;
`OPTIONS(MAIN)` が付いた場所が、OS（z/OS等）から最初に呼び出されるエントリーポイントになります。「ここから物語が始まるんだな」という目印ですね。
—
2. 数値の「器」を決める：FIXED DECIMALと精度(p, q)
Javaの `int` や `double` に慣れていると、PL/Iの宣言は少し奇妙に見えるはずです。特に、基幹システムで必須となる `FIXED DECIMAL`（10進数）は、精度と位取りを細かく指定します。
/i
/ p(精度)は全桁数、q(位取り)は小数部の桁数です /
DCL MY_VALUE FIXED DEC(7, 2);
この `(7, 2)` はどういう意味でしょうか？
- 7 (p)：全部で7桁入りますよ。
- 2 (q)：そのうち2桁は小数ですよ。
- 結果：整数部は5桁（7 – 2 = 5）、小数部は2桁。つまり `99999.99` まで扱える「器」を用意した、ということになります。
この「器」を意識することが、PL/Iでバグを出さないための第一歩です。
—
3. DECIMALビルトイン関数による「型変換」の魔法
計算の途中で型が混ざると、コンパイラは気を利かせて暗黙の型変換を行います。しかし、この「親切心」が時にオーバーフローを招きます。そこで、明示的に `DECIMAL` 関数を使って制御しましょう。
実用例：型変換と精度調整
/i
DCL BIN_VAL FIXED BIN(31) INIT(12345); / 2進数の数値 /
DCL DEC_VAL FIXED DEC(7, 2); / 10進数の器 /
/ BINからDECへ変換し、小数点以下2桁の形式に整える /
DEC_VAL = DECIMAL(BIN_VAL, 7, 2);
/ 出力例：12345.00 となります /
`DECIMAL(式, p, q)` を使うと、どんな型からも「このサイズに収めてね」と命令できます。もし、変換後の値が用意した器に入りきらないほど大きかったらどうなるでしょうか？
—
4. 恐怖のオーバーフロー：どう防ぐか？
PL/Iにおいて「精度落ち」や「オーバーフロー」は、システムダウンの引き金になりかねない重大事です。
- オーバーフロー発生条件：
例えば `FIXED DEC(3, 0)`（最大999）という器に `1000` を入れようとすると、上位桁が溢れます。PL/Iではデフォルトで `FIXEDOVERFLOW` という条件が監視されており、発生するとプログラムが異常終了（ABEND）します。
- 対策のヒント：
1. 器を大きく取る: 演算結果が入りそうな最大値を事前に見積もります。
2. ビルトイン関数で丸める: 精度が足りない場合は、計算前に `DECIMAL` でキャストし、必要に応じて `ROUND` 関数を併用します。
/i
/ 変換時にオーバーフローを防ぐための丁寧な書き方 /
DCL RESULT FIXED DEC(10, 2);
/ 複雑な計算をするときは、一度大きなDECIMALに受けてから調整する /
RESULT = DECIMAL( (BIN_VAL 1.05), 10, 2);
—
最後に：怖がらなくて大丈夫です
PL/Iのデータ宣言は、最初は窮屈に感じるかもしれません。「なんでこんなに厳密に桁数を決めなきゃいけないの？」と。
でも、基幹システムという場所は「1円の誤差も許されない」世界です。この厳密さこそが、Javaの浮動小数点演算で稀に発生する「0.1 + 0.2 が 0.300000000004 になる」といった問題を未然に防ぐ、メインフレームの美学なのです。
一つずつ、変数の「器」のサイズを確認する癖をつければ、あなたはもうメインフレームの立派なアーキテクトの一歩を踏み出しています。何かわからないことがあれば、またいつでも聞いてくださいね。一緒に紐解いていきましょう！
