View previous topic :: View next topic
|
Author |
Message |
paulo sampaio viola
New User
Joined: 19 Aug 2009 Posts: 7 Location: lisboa, portugal
|
|
|
|
Hello!
I am receiving a file with the DB2 LOG. One of the fields is the DB2 RBA (Relative Byte Address). I want to convert this data into character
Example : X'1B785DE110B2' into 1B785DE110B2
I am using the instruction
EXEC SQL
SET :FLOGDB2O-RBA = HEX(:FLOGDB2I-RBA)
END-EXEC.
But I wanted to do this WITHOUT acessing DB2, as the input file can have millions of records.
Can anyone help? |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
Quote: |
I want to convert this data into character
Example : X'1B785DE110B2' into 1B785DE110B2
|
?? why don't you just remove the "X'" and the last "'"? |
|
Back to top |
|
|
paulo sampaio viola
New User
Joined: 19 Aug 2009 Posts: 7 Location: lisboa, portugal
|
|
|
|
What do you mean?
The field is X(06)
175E1B
B8D102
is the content |
|
Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2501 Location: Atlanta, Georgia, USA
|
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
Code: |
01 HEX-CHAR-TAB.
FILLER PIC X(32) VALUE '000102030405060708090A0B0C0D0E0F'.
FILLER PIC X(32) VALUE '101112131415161718191A1B1C1D1E1F'.
...
FILLER PIC X(32) VALUE 'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'.
01 CONVERT-TAB
REDEFINES
HEX-CHAR-TAB.
05 CONVERT-ITEM OCCURS 256 TIMES
PIC X(02).
01 WS-WORK-AREA.
05 WS-SUB-1 PIC S9(04) BINARY.
05 FILLER
REDEFINES
WS-SUB-1.
10 FILLER PIC X(01) VALUE LOW-VALUES.
10 PLUG-HEX PIC X(01).
05 WS-RBA-WORK.
10 WS-RBA-1 PIC X(01).
10 WS-RBA-2 PIC X(01).
10 WS-RBA-3 PIC X(01).
10 WS-RBA-4 PIC X(01).
10 WS-RBA-5 PIC X(01).
10 WS-RBA-6 PIC X(01).
05 WS-RBA-CHAR.
10 WS-RBA-CHAR-1 PIC X(01).
10 WS-RBA-CHAR-2 PIC X(01).
10 WS-RBA-CHAR-3 PIC X(01).
10 WS-RBA-CHAR-4 PIC X(01).
10 WS-RBA-CHAR-5 PIC X(01).
10 WS-RBA-CHAR-6 PIC X(01).
MOVE RBA-FROM-INPUT TO WS-RBA-WORK
MOVE WS-RBA-1 TO PLUG-HEX
MOVE CONVERT-ITEM(WS-SUB-1) TO WS-RBA-CHAR-1
MOVE WS-RBA-2 TO PLUG-HEX
MOVE CONVERT-ITEM(WS-SUB-1) TO WS-RBA-CHAR-2
MOVE WS-RBA-3 TO PLUG-HEX
MOVE CONVERT-ITEM(WS-SUB-1) TO WS-RBA-CHAR-3
MOVE WS-RBA-4 TO PLUG-HEX
MOVE CONVERT-ITEM(WS-SUB-1) TO WS-RBA-CHAR-4
MOVE WS-RBA-5 TO PLUG-HEX
MOVE CONVERT-ITEM(WS-SUB-1) TO WS-RBA-CHAR-5
MOVE WS-RBA-6 TO PLUG-HEX
MOVE CONVERT-ITEM(WS-SUB-1) TO WS-RBA-CHAR-6
MOVE WS-RBA-CHAR TO OUTPUT-RBA
|
|
|
Back to top |
|
|
paulo sampaio viola
New User
Joined: 19 Aug 2009 Posts: 7 Location: lisboa, portugal
|
|
|
|
Bill
It really works
Thanks a 1.000.000
|
|
Back to top |
|
|
|