opensource COBOL Programmer’s Guide

図6-49-DIVIDE BY GIVING構文

alt text

指定された値(一意名-1/定数-1)を別の値(一意名-2/定数-2)で除算し、一つ以上の受け取りデータ項目(一意名-3 ･･･)の内容を除算結果に置き換える。除算の余りは破棄される。

一意名-1および一意名-2は、編集不可の数値データ項目でなければならない。
一意名-3は数値データ項目でなければならないが、編集可能な場合もある。
定数-1と定数-2は数字定数でなければならない。
ON SIZE ERROR、NOT ON SIZE ERROR、およびROUNDED句はコード化されており、ADD文で使われている同名義の句と同様に動作する(6.5を参照)。
一意名-1/定数-1の値がゼロの時、SIZE ERROR条件が発生する。除算の結果、小数点の左側に、受け取り項目での使用可能な数を超える桁数が必要な場合も同様である。