MVSFORUMS.com

vijay · Beginner Joined: 09 May 2003 Posts: 131 Topics: 64

Hi ,
I've a field defined as x(2) and hex value is 1234 in the file.I want to convert to numeric 1234 in working storage.How can I do that?

Here is the hex dump (first 2 bytes)
..
134444444
240000000

Thanks,
Vijay

Bithead · Posted: Thu Jul 15, 2004 2:05 pm Post subject:

To dump a file in hex, use the following JCL:

//DEFINE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//FILE1 DD DSN=MY.FILE,DISP=SHR
//SYSIN DD *
PRINT INFILE(FILE1) HEX
/*

If it must be in COBOL, try this:

slade · Posted: Fri Jul 16, 2004 12:11 pm Post subject:

You can also try something like this. You may want to change the field lengths to fit your reqs.

Regards, Jack
[code:1:f8e1fe8c2f]
05 WS-WORK-PACKED PIC 9(009) COMP-3.
05 REDEFINES WS-WORK-PACKED.
10 WS-WORK-X5.
20 WS-WORK-X1 PIC X(002).
20 WS-WORK-X2 PIC X(002).
05 REDEFINES WS-WORK-PACKED.
10 WS-WORK-BIN4 PIC 9(009) COMP.

05 WS-WORK-UNPACKED PIC 9(009).
05 REDEFINES WS-WORK-UNPACKED.
10 WS-WORK-UNPACKED-8 PIC 9(008).

05 WS-YOUR-2-BYTE-DISPLAY PIC X(004).

MOVE ZEROS TO WS-WORK-PACKED
MOVE YOUR-2-BYTES TO WS-WORK-X2
PERFORM 100-CONVERT-HEX-DATA
MOVE WS-WORK-UNPACKED-8(5:4) TO WS-YOUR-2-BYTE-DISPLAY
DISPLAY

vijay · Beginner Joined: 09 May 2003 Posts: 131 Topics: 64

Thanks Slade.Actually It works fine.

VIjay

Meg · Beginner Joined: 08 Jul 2003 Posts: 44 Topics: 16

Hi Slade,
We have also used your code in our program and it is working perfectly fine. But I am not sure what the following line in the code means. Your reply would be greatly appreciated:

vivek · Posted: Wed Jul 28, 2004 9:32 am Post subject:

Meg · Beginner Joined: 08 Jul 2003 Posts: 44 Topics: 16

Hi VIjay,

vivek · Posted: Wed Jul 28, 2004 6:01 pm Post subject:

Meg, you are right. it will look for entire string and replace it. not corresponding . You got me ?
_________________
Vivek,NJ

Db2,IDMS

slade · Posted: Fri Jul 30, 2004 11:17 am Post subject:

Hi Meg,

Sorry for the delay in responding. Haven't been paying attention. Smile

When you move a comp-3 field to a display field, it is unpacked. That is, each 4 bits in the field (nibble) is expanded to Fn, where n is the value of the 4 bits.

This works well for bit values 0-9. They yield F0 - F9. Bit values A - F, unfortunately yield FA - FF. How to convert them to C1 (A) - C7(F)?

The INSPECT does this: it replaces FA - FF (X"FAFBFCFDFEFF") with
C1 - C7 (ABCDEF).

Regards, Jack.

slade · Posted: Mon Aug 02, 2004 1:36 pm Post subject:

Hi Meg,

Please replace "The INSPECT does this: it replaces FA - FF (X"FAFBFCFDFEFF") with
C1 - C7 (ABCDEF). " with the following:

The INSPECT does this: it replaces any byte in the range FA - FF (X"FAFBFCFDFEFF") with its corresponding byte in the range C1 - C7 (ABCDEF).

Thanx, Jack.