MVSFORUMS.com

[shekar123]

My requirement in my program is to convert numeric edited to edited.I am having declaration in my Program like this :

05 A-EDITED PIC 9(7).99.
05 B-EDITED PIC 9(7).99.
05 C-EDITED PIC 9(9).99.


I want to move these numeric edited to numeric so i have made declarations like below and my corresonding moves are :

05 A PIC 9(7)V99.
05 B PIC 9(7)V99.
05 C PIC 9(9)V99.

05 D S9(07)V9(02) COMP-3.

Procedure division.


MOVE A-EDITED TO A.
MOVE B-EDITED TO B.
MOVE C-EDITED TO C.

1.QUESTION

COMPUTE D ROUNDED = A / 2.
Can i perform this operation ?

or should i have the statement
COMPUTE D ROUNDED = A-EDITED / 2.


2.QUESTION


MOVE A TO D.
Can i perform this operation ?

or should i have the statement
MOVE A-EDITED TO D.

Can anyone clarify me the corresponding statements what might happen at compilation / execution time ?

[Phantom]

Shekar123,

The code below will definitely work. Numeric Edited fields can only be used for display/reporting purposes. They cannot take part in Arithmetic computations. Since 'A' is just a normal numeric variable, the code below will work.