COBOL variable is not getting rounded off

Bill Woodger · Posted: Tue Aug 02, 2011 6:05 pm

Hi enrico,

I can never find the "enormously heavy irony" smiley(!) when I need it :-)

I thought the OMG and ! would be enough.

I hope I haven't caused international panic. Have to be careful.

:-)

GuyC · Posted: Tue Aug 02, 2011 7:28 pm

It is a very consistent result when you round each intermediate result :

do this :
R1 = (F-A-B-C-D-E) / (F-A)
R2 = R1 * G
R3 = R2 + H
R3'=round(R3,4)
=> this will give you your 'expected-by-you'-result

do this :
S1 = (F-A-B-C-D-E) / (F-A)
S1' = ROUND(S1,4)
s2 = S1' * G
S2' = round(S2,4)
S3 = S2' + H
==> this will give you your COBOL-result

depending on your compiler : sometimes it is round(intermediate,4) sometimes it is truncate(intermediate,4)