1. 導入：なぜメインフレームで「四捨五入」が重要なのか
メインフレームでの開発、特に金融系や給与計算などのシステムでは、1円のズレも許されません。実は、PL/Iなどの言語において、数値を計算して別の変数に代入する際、デフォルトの動作は「切り捨て」です。JavaやPythonのように「よしなに」四捨五入してくれることはありません。この仕様を知らずに開発を行うと、精査（レコンシリエーション）で合計値が合わず、手戻りが発生する原因となります。今回は、この課題を確実に解決する「ROUND組み込み関数」の正しい使い方を解説します。
2. 基礎知識：PL/Iの代入と精度
PL/Iでは、計算結果を別の変数に代入する際、受け側の変数の「精度（データ型）」に合わせて値を調整します。しかし、この調整は「切り捨て」によって行われるのが基本です。
例えば、計算結果が「100.59」で、受け側の変数が整数型（100）であれば、小数部分は単純に捨てられます。この「暗黙の切り捨て」を防ぎ、意図した桁数で四捨五入するために、明示的にROUND関数を呼び出す必要があるのです。
3. 実装・解決策：ROUND関数の仕組み
ROUND関数は、第1引数に対象となる数値を、第2引数に「どの桁まで残すか」を指定します。
仕組みとしては、指定した桁位置に0.5（または5）を加算し、後続を切り捨てることで四捨五入を実現しています。
ポイントは、「代入直前に必ずROUNDを通すこと」です。計算式の中で使用するのが最も安全な実装方法です。
4. サンプルプログラム
以下は、税計算を行う際のサンプルコードです。コピー＆ペーストして、桁の動きを確認してみてください。
/
サンプルプログラム: 税込み価格の計算と四捨五入
PRICE: 単価
TAX_RATE: 税率
TOTAL: 合計額（小数点第2位まで保持）
/
DCL PRICE FIXED DEC(7, 0) INIT(1234); / 単価 /
DCL TAX_RATE FIXED DEC(3, 2) INIT(1.10); / 税率10% /
DCL TOTAL FIXED DEC(9, 2); / 合計額（小数点2桁まで） /
/ 【重要】ROUND関数を使用しない場合、計算結果が切り捨てられる可能性がある /
/ ROUND(式, 桁数) を使うことで、小数点第2位までを確実に四捨五入する /
TOTAL = ROUND(PRICE TAX_RATE, 2);
PUT SKIP LIST(‘計算結果は: ‘ || TOTAL);
5. 応用・注意点：現場で陥りやすい罠
最後に、現場でよくある失敗例と注意点を挙げます。
・変数の宣言精度を確認する
ROUND関数で「2」を指定しても、代入先の変数の定義が小数点以下を持たない（例: FIXED DEC(7,0)）場合、結局そこで切り捨てられてしまいます。ROUNDを使う際は、受け側の変数も十分な精度（FIXED DEC(x, y)）を持っているか、必ず確認してください。
・中間計算での利用
複雑な計算式の場合、最後に一度だけROUNDするのではなく、中間計算の段階で誤差が蓄積しないよう、必要に応じてこまめにROUND関数を適用するのが、ベテラン技術者の作法です。
メインフレームの世界では、小さな関数の積み重ねが巨大なシステムの信頼性を支えています。ぜひ、ROUND関数を使いこなして、1円のズレも許さない正確なプログラムを作成してください。
コメント