1. 導入：なぜINTEGER-PART関数が重要なのか
COBOLの数値計算において、端数処理はバグの温床になりやすい箇所です。特に負の数を扱う際、プログラマが意図した「切り捨て」と、プログラムが実行する「切り捨て」が一致しないと、致命的な集計ミスに繋がります。今回紹介する「INTEGER-PART関数」は、負の数を含めて「常にゼロ方向へ向かって端数を落とす」という、極めて素直で標準的な挙動を保証してくれる関数です。この特性を理解することで、複雑な条件分岐を書かずに安全な数値変換が可能になります。
2. 基礎知識：INTEGER-PARTと整数変換の仕組み
COBOLには数値を整数に変換する関数がいくつか存在しますが、混同しやすいのが「INTEGER関数」と「INTEGER-PART関数」です。
INTEGER関数は「マイナス無限大方向」に丸めます（例：-2.1は -3 になる）。これに対し、INTEGER-PART関数は「ゼロ方向」に丸めます（例：-2.1は -2 になる）。
多くのC言語系言語のキャスト変換や、商を求める際の挙動と一致するのはINTEGER-PARTの方です。業務ロジックで「小数点以下を無視して整数部だけ抽出する」という要件がある場合、迷わずこちらを選択すべきです。
3. 実装と解決策
使い方は非常にシンプルで、COMPUTE文の中でFUNCTIONキーワードと共に呼び出すだけです。引数には数値項目や計算式を指定可能です。
注意点として、この関数は「値を切り捨てて整数にする」ものであり、「四捨五入（ROUNDED）」とは別物であるという点を明確に区別しておく必要があります。
4. サンプルプログラム
以下のコードをコピー＆ペーストして、コンパイル・実行してみてください。正の数と負の数での挙動の違いが明確に分かります。
IDENTIFICATION DIVISION.
PROGRAM-ID. INT-PART-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-VAL-POS PIC S9(3)V99 VALUE 2.9.
01 WS-VAL-NEG PIC S9(3)V99 VALUE -2.9.
01 WS-RESULT-POS PIC S9(3).
01 WS-RESULT-NEG PIC S9(3).
PROCEDURE DIVISION.
> 正の数の計算：2.9 -> 2
COMPUTE WS-RESULT-POS = FUNCTION INTEGER-PART(WS-VAL-POS)
DISPLAY “正の数 2.9 の整数部: ” WS-RESULT-POS
> 負の数の計算：-2.9 -> -2（ゼロ方向へ丸められる）
COMPUTE WS-RESULT-NEG = FUNCTION INTEGER-PART(WS-VAL-NEG)
DISPLAY “負の数 -2.9 の整数部: ” WS-RESULT-NEG
STOP RUN.
5. 応用・注意点：現場での活用と落とし穴
現場で最も注意すべきは、「表示項目（PIC Xなど）から数値項目への強制変換」と「関数による変換」の混同です。
また、INTEGER-PART関数はあくまで数値計算上の切り捨てを行うものであり、固定小数点数（PIC S9(n)V9(m)）の定義自体を変更するものではありません。もし計算結果が非常に大きな値になる場合は、受け皿となる項目の桁数オーバー（サイズエラー）が発生しないよう、PIC句の桁数設計には十分に注意してください。
「なんとなく切り捨てられるだろう」という推測ではなく、INTEGER-PART関数を使うことで、仕様の意図を明確にコードへ落とし込むことができます。保守性の高いコードを書くための第一歩として、ぜひ活用してください。
コメント