Packed Hexadecimal addition

himanshupant · New User Joined: 21 Mar 2007 Posts: 46 Location: India

Hi

I have a VSAM KSDS file with a packed hexadecimal three digit number as a part of its key like

012
01B

I wish to carry out basic addition on this so that I can get the value like

012
01C

012
01D

and so on and so forth..

Any idea how this can be done in COBOL ??

Douglas Wilder · Posted: Mon Apr 06, 2009 11:28 pm

Packed number are defined as comp-3.
For Example:

himanshupant · New User Joined: 21 Mar 2007 Posts: 46 Location: India

Its not a packed COMP number .. Its a hexadecimal number like say

x'00112A'

and when I repeatedly add x'000001' to it

I want

x'00112B'

x'00112C'

.
.
.
.
x'00112F'
x'001130'

etc

CICS Guy · Posted: Mon Apr 06, 2009 11:44 pm

dick scherrer · Posted: Mon Apr 06, 2009 11:48 pm

Hello,

himanshupant · New User Joined: 21 Mar 2007 Posts: 46 Location: India

sorry about the inadvertent confusion..

the three byte field`s PIC clause is XXX.

So if I add a simple 1 to the XXX will I get the desired result ??

dick scherrer · Posted: Mon Apr 06, 2009 11:55 pm

Hello,

No.

You should do as suggested and define an s9(8) comp field and redefine it. As your data of interest is 3 bytes, make the first byte of the redefinition a filler and bytes 2-4 your 3-byte value. Add to the comp field to increment the xxx value.

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

If you're confined to a 3 byte field because the file is already in use with that configuration, you can move the 3 bytes to a four byte COMP field (redefine the COMP field to PIC X(4), VALUE the COMP field to zeros and use ref/mod to move the 3 byte VSAM key field to it [e.g. move 3-BYTES to PIC-X-4-BYTES(2:3) ].

After the math, ref/mod move the the PIC4 field back to the VSAM key field.

himanshupant · New User Joined: 21 Mar 2007 Posts: 46 Location: India

I am using something like the below

03 WS-HEX-NUMBER-NUM PIC S9(8) COMP VALUE X'00110A'.
03 WS-HEX-NUMBER REDEFINES WS-HEX-NUMBER-NUM.
05 FILLER PIC X.
05 WS-HEX-CHAR PIC XXX.
.
.
.
.
.
PROCEDURE DIVISON
.
.
.
.
.
ADD 1 TO WS-HEX-NUMBER-NUM
DISPLAY ' HEX 2 = ' WS-HEX-CHAR

I am getting a compilation error as below

IGYGR1080-S A "VALUE" clause literal was not compatible with the data category of subject data item. The "VALUE" clause was discarded.

CICS Guy · Posted: Tue Apr 07, 2009 11:08 am

himanshupant · New User Joined: 21 Mar 2007 Posts: 46 Location: India

thanks... seems to work..

One more question , any way I can see the number in SYSOUT of the job

for example if I add 1 to 00110A and I get 0011OB , can I see this value in SYSOUT ?

I am not able to see it if I am doing a display like

DISPLAY WS-HEX-CHAR

CICS Guy · Posted: Tue Apr 07, 2009 11:39 am

Since a binary X'00110A' is a decimal '4362', which are you trying to 'see'?
If WS-HEX-CHAR is comp, COBOL will display the latter, if WS-HEX-CHAR is character, COBOL will display the three bytes but you will need HEX ON to see it.
There have been several good snipits of COBOL code given to display hex character strings as display, ie., X'00110A' displayed as X'F0F0F1F1F0C1'.

himanshupant · New User Joined: 21 Mar 2007 Posts: 46 Location: India

I am trying to see X'00110A ' as character 00110A

WS-HEX-CHAR is comp but what I am seeing on adding 1 to it in hex format is x'110A41' ... this is pretty strange ..

could it be that the string has encountered some conversion like into 2s complement form or something like that ??

CICS Guy · Posted: Tue Apr 07, 2009 12:05 pm

As far as the x'110A41' goes, I'd guess that you used the second example and did not correct my error:
03 WS-HEX-CHARACTER PIC X(4) VALUE X'00110A'.
should be:
03 WS-HEX-CHARACTER PIC X(4) VALUE X'0000110A'.

And again I repeat:

Robert Sample · Posted: Tue Apr 07, 2009 4:44 pm