using overlay option in COBOL

malathy_tv · New User Joined: 29 May 2007 Posts: 34 Location: chennai

hi,

i need to do an computaion, adding two decimal values and storing it in a variable
ex:
declaration are like
A PIC +99999999999.99.
B PIC S9(11)V9(2).
C PIC S9(11)V9(2).

COMPUTE A = B + C

B = 1000.5 and C= 2000.2
the value for A comes as A= 1000.5+2000.2 = +00000003000.70

but i need the vale of A to be A = +00000003000.07

instead of '70' in the decimal part

how can this be done.

enrico-sorichetti

expat · Posted: Sat Oct 11, 2008 6:43 pm Post subject:

Why would you want to change the actual result to some ficticious one ?

dick scherrer · Posted: Sat Oct 11, 2008 7:38 pm Post subject:

Hello,

On you indows pc, there is a calculator.

Please add your numbers with the decimals as you've shown and notice the calculator arrives at the same answer (the one you want to change).

bala_velan27 · New User Joined: 09 Oct 2007 Posts: 1 Location: chennai

Hi Malathy,

Here is the solution for your question.

Declare the following codes in working storage section

dick scherrer · Posted: Mon Oct 13, 2008 2:30 pm Post subject:

Hello,

There must be something i am missing

Why all the effort to create an incorrect result?

It is easy to force the answer, but why is an invalid result wanted? In what situation does this become a valid result?

enrico-sorichetti

One thing I have noticed in many ( too many ) posts is that people
just fall in love with the technical, or better.... bit mangling side
losing the proper perspective as far as organizational, business requirement and ... basic arithmetics issues

mshemanthkumar · Posted: Mon Oct 13, 2008 3:18 pm Post subject:

hello,

The given Question is wrong with the arithmetic operation using standard COBOL format. But,she might need for some other purpose to need the result.The above code works fine for the question.

with regards,
Hemanth

dick scherrer · Posted: Mon Oct 13, 2008 11:41 pm Post subject:

Hello Hemanth,

Keep in mind that just because somthing can be done does not mean that it should be done. When requirements posted differ from standard business practice it is best to understand the requirement before throwing code at it.

Nearly anything can be made to happen with code.