RMCOBOL round up 1

[SiouxCityElvis]

How do I round a PIC 9(8)V9(02)?

Say, I have something that is a value of 10.01 and I need it rounded to 11.00

Thanks.
-David

 

[fredericofonseca]

Maybe ..

x2 pic 9(8)V9(02)

add .99 to x2
divide x2 by 100
multiply x2 by 100

There are other ways...



Regards

Frederico Fonseca
SysSoft Integrated Ltd

http://www.syssoft-int.com

 

[k5tm]

David,

This is not standard COBOL rounding.

01  a-num  pic 9(8)v99.
01  redefines a-num.
    03 a-integer    pic 9(8).
    03 a-fraction   pic 99.
...
if a-fraction not = zero
    add 1 to a-integer
    move 0 to a-fraction
end-if.

Tom Morrison

http://www.liant.com

 

[3gm]

Why not define the result as a whole number and compute it using the rounding option?

01  WS-ROUNDED-RESULT    PIC S9(9).
...
COMPUTE WS-ROUNDED-RESULT ROUNDED = ...

Regards.

Glenn

 

[3gm]

Oops. Disregard. I was asleep at the wheel!

Glenn

 

[webrabbit]

Glen, as Tom Morrison said, what David wants is not standard COBOL rounding.

 

[COBOLKenny]

Why not combine Glenn's and Frederico's ideas?

03 AMOUNT PIC 9(08)V99.
03 RESULT PIC 9(09).

COMPUTE RESULT = AMOUNT + .99

 

[SiouxCityElvis]

Thanks.
Tom's solution will work. They just want it rounded up if the decimal digits are not equal 0.