how to move comp value to comp-3?

morfius9 · New User Joined: 22 Feb 2006 Posts: 20

Hi,
I am trying to move a numeric value in a comp field to a comp - 3 field. But i end up with spaces in the X(16) redefines for the comp - 3 field. Why is that so?

B1 PIC 9(16) COMP.
B2 PIC 9(15) COMP-3.
b3 redefines b2 pic X(08).

MOVE B1 to B2.
display B3

dick scherrer · Posted: Mon May 12, 2008 12:07 pm Post subject:

Hello,

What you have coded makes no "cobol" sense. A comp-3 field is not displayable as an X field - by design.

If you want to display the B2 comp-3 field, simply display it

morfius9 · New User Joined: 22 Feb 2006 Posts: 20

Hi DS,
I want to display the HEX value in the 9(16) comp-3 field .

e.g. if the number is stored as 6CBF in hex inside the 9(16) comp-3, i want to display 6CBF and not the number on a CICS screen. Is it possible?

Atul Tamboli · Posted: Mon May 12, 2008 6:03 pm Post subject:

If you move the comp-3 field into the numeric field, the actual number can be displayed using numberic field. In your case say you do-

Define ==> B4 PIC 9(15).

MOVE B2 to B4
DISPLAY B4

You should get a readable number in output.

Craq Giegerich · Posted: Mon May 12, 2008 6:22 pm Post subject:

Cobol does not have a way to display data in hex. Converting data to hex display is something you have to do yourself. Check with the more experienced programmers on your project and see if they have a routine for doing that.

CICS Guy

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1506

morfius9,

You can also do the following:

When looking at sysout (I assume you're using SDSF) use SE in the left side cmd line. Locate your comp-3 field then enter HEX in the top cmd line.

This will show you the nibbles of the displayed field.

I usually display fields using DISPLAY ' >' MY-COMP-3 '< '. It let's me know where the displayed data is on the line.