COBOLの計算方法

COBOLの計算方法について解らない事があり、
質問させて頂きます。

例えば、
111.112÷3＝37.03733・・・
の計算で小数点第4位の切捨てまたは、切上をしたい場合、
どのようなコーディングをすればよろしいでしょうか？

No.1 ベストアンサー 回答者： judas-rising 回答日時： 2005/07/01 17:13

01 WORK-AREA.

03 WK-ANS PIC S9(09)V9(04).
03 WK-WK PIC S9(09)V9(04).
03 WK-SUTE PIC S9(09)V9(03).
********************
PROSEDURE DIVISION.
********************
* 切り上げ
COMPUTE WK-WK = 111.112 / 3.
ADD 0.0009 TO WK-WK.
MOVE WK-WK TO WK-ANS. *> 切り上げ
* 四捨五入
COMPUTE WK-ANS ROUNDED = 111.112 / 3.
* 切捨て
COMPUTE WK-SUTE = 111.112 / 3.

何も意識しなければ切捨てになります。
四捨五入はROUNDEDか、0.0005を足してもＯＫ。
切り上げは0.0009する。

こんな感じで如何ですか！

No.3 回答者： noname#12261 回答日時： 2005/07/02 15:27

02 COM-W PIC 9(6)V999.

切り捨て
COMPUTE COM-W = 111.112 / 3.0000
切り上げ
COMPUTE COM-W = 111.112 / 3.0000 + 0.0009

No.2 回答者： judas-rising 回答日時： 2005/07/01 17:16

No.１です。

03 WK-ANS PIC S9(09)V9(03).

小数点以下３桁の間違いでした。