Output error when using COMP

vrakeshmbt · New User Joined: 17 Aug 2005 Posts: 30

WORKING-STORAGE SECTION.

01 A PIC 9(4)V9(4).
01 B PIC 9(4)V9(4) COMP.
01 C PIC 9(3)V9(3) COMP.
01 D PIC 9(1)V999 COMP.
01 E PIC 9(3)V99 COMP.

PROCEDURE DIVISION.

MOVE 1234.5678 TO A,B,C,D,E
DISPLAY 'A= ',A.
DISPLAY 'B= ',B.
DISPLAY 'C= ',C.
DISPLAY 'D= ',D.
DISPLAY 'E= ',E.
STOP RUN.

Above shown is the program i have coded, but the value for D is showing wrong in the output.

The output is as follows

A= 12345678
B= 12345678
C= 234567
D= 4919
E= 23456

What would be the reason for this?
Can anyone please explain me.....?

sbalajibe · New User Joined: 15 Aug 2005 Posts: 62

Initialze all the variables and check it again
it should not happen

thanks
balaji

vrakeshmbt · New User Joined: 17 Aug 2005 Posts: 30

I have tried using the INITIALIZE variable also again i got the same.
I have tried using some other combinations on D as shown below...

4919 9V9(3) COMP.
919 V9(3) COMP.
7920 99V99 COMP.
4910 V9(4) COMP.
20 V99 COMP.
920 9V99 COMP.

The left side value shows the output for the corresponding right side declaration.

Any way thanks a lot balaji for ur reply