Rounding Logic.

divate.dilip · New User Joined: 11 May 2009 Posts: 15 Location: Mumbai

My input field is having value 120.
Now I am doing the calulation using the input value.

120/7.8=15.384615, but now when I multiply the 15.38 by 7.8 then 15.38*7.8=119.964 I am not getting the same value 120.

Is there any way of rounding, from which i can get the same value as 120 instead of 119.96

Robert Sample · Posted: Mon Aug 03, 2009 4:52 pm

There is a link to the manuals at the top of the page. Find the COBOL Language Reference manual and look up the ROUNDED option.

Marso · Posted: Mon Aug 03, 2009 6:04 pm

If you would do 15.3846*7.8 then you would get 120 (rounded).
You need to increase the precision of your intermediary result, that's all.
(and use ROUNDED too).

Terry Heinze · Posted: Mon Aug 03, 2009 11:52 pm

The way COBOL handles intermediate results is not what most people expect. Read carefully about them in that section of the Language Reference Manual.

Marso · Posted: Tue Aug 04, 2009 7:23 pm

So, how do you do this anyway?

Do you use one or more COMPUTE statement(s) or DIVIDE and MULTIPLY?

Terry Heinze · Posted: Tue Aug 04, 2009 7:47 pm

I don't have access to a mainframe at present, but if I remember correctly, the following should work: