導入
COBOLでの計算処理において、単なる除算（割り算）は一見単純に見えますが、基幹システムの会計計算においては「端数」と「余り」の扱いが極めて重要です。精度の低い計算は、決算処理や在庫管理における致命的な誤差を生みます。今回は、COBOLのDIVIDE文を正しく使いこなし、確実なデータ操作を行うためのポイントを解説します。
基礎知識
COBOLのDIVIDE文は、単に値を割るだけではありません。商（答え）だけでなく、REMAINDER句を使うことで「余り」を別々に取得できる点が特徴です。例えば、10個のリンゴを3人で分けた場合、商は3、余りは1となります。この「余り」を適切に保持することは、バッチ処理におけるレコードの配分計算などで頻繁に利用されます。また、会計系システムでは計算結果の「桁数」や「端数処理（四捨五入など）」の定義が非常に厳密であるため、受け皿となる変数の属性（PICTURE句）を適切に定義することが何よりの基礎となります。
実装/解決策
DIVIDE文を使用する際は、GIVING句とREMAINDER句を組み合わせることで、計算結果を明確に管理できます。また、計算時の端数処理を制御したい場合は、ROUNDED句を併用するのが鉄則です。
文法：DIVIDE 被除数 INTO 除数 GIVING 商項目 REMAINDER 余り項目
この際、除数にゼロを指定するとプログラムが異常終了するため、必ず事前にIF文等で「ゼロ除算」のチェックを入れるのが、現場で生き残るベテランの作法です。
サンプルプログラム
以下のコードは、合計金額を人数で割り、商と余りを求める基本的な実装例です。
000200 PROGRAM-ID. DIVIDE-SAMPLE.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 WS-TOTAL-AMT PIC 9(5) VALUE 1000. > 合計金額
000600 01 WS-PERSONS PIC 9(2) VALUE 3. > 人数
000700 01 WS-QUOTIENT PIC 9(5). > 商（一人当たりの額）
000800 01 WS-REMAINDER PIC 9(2). > 余り
000900 PROCEDURE DIVISION.
001000 MAIN-PROCEDURE.
001100 > ゼロ除算チェック
001200 IF WS-PERSONS = 0
001300 DISPLAY “エラー: 人数が0です”
001400 ELSE
001500 > 1000を3で割り、商をWS-QUOTIENTへ、余りをWS-REMAINDERへ格納
001600 DIVIDE WS-TOTAL-AMT BY WS-PERSONS
001700 GIVING WS-QUOTIENT
001800 REMAINDER WS-REMAINDER
001900 DISPLAY “商(一人分): ” WS-QUOTIENT
002000 DISPLAY “余り: ” WS-REMAINDER
002100 END-IF.
002200 STOP RUN.
応用・注意点
現場で最も注意すべきは「桁あふれ」です。商を格納する変数のPICTURE句が小さすぎると、計算結果が切り捨てられ、数値が破壊されます。必ず被除数よりも大きな桁数を確保してください。また、DIVIDE文はコンパイラやメインフレームの環境によって、REMAINDERの挙動に微妙な差異がある場合があります。特に符号付き数値（S付きPICTURE）を扱う際は、余りの符号がどうなるか、事前にテストコードで確認しておくのが安全です。会計計算で端数処理が必要な場合は、ON SIZE ERROR句を併用して、桁あふれ発生時の制御を必ず記述するようにしましょう。
コメント