How to convert HEX to EBCDIC for ICETOOL DISPLAY

[newpotato]

Would someone please share the technique for converting a HEX field to
EBCDIC for DISPLAY?

HEADER('ABND CODE') ON(133,2,HEX) -

This field contains abend code codes stored in hex.

Thank you!

[Bill Lalonde]

That seems to be the correct format for converting a field into a
hexadecimal display format
using the DISPLAY operator of ICETOOL. How are the results different
from what you expect?

Note that you will get more attention and more responses if you post to
the listserv IBM-MAIN:
( For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html)

Bill

Post by newpotato
Would someone please share the technique for converting a HEX field to
EBCDIC for DISPLAY?
HEADER('ABND CODE') ON(133,2,HEX) -
This field contains abend code codes stored in hex.
Thank you!

[Frank Yaeger]

Post by newpotato
Would someone please share the technique for converting a HEX field to
EBCDIC for DISPLAY?
HEADER('ABND CODE') ON(133,2,HEX) -
This field contains abend code codes stored in hex.
Thank you!

It's not clear what you're asking. ON(133,2,HEX) will display the 2-byte
binary field in positions 132-133 as hex characters in EBCDIC. For
example, X'0322' will be displayed as C'0322'. So if you use this
DFSORT/ICETOOL operator:

DISPLAY FROM(IN) LIST(OUT) -
HEADER('ABND CODE') ON(133,2,HEX)

and you have X'0322' in positions 133-134, OUT will have:

ABND CODE
--------------------
0322

If that's not what you want, then please explain more clearly what you do
want.

Frank Yaeger - DFSORT Team (IBM) - ***@us.ibm.com
Specialties: PARSE, JFY, SQZ, ICETOOL, IFTHEN, OVERLAY, Symbols, Migration

=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

[newpotato]

Kudos to Frank for all of his assistance!! This turned into a rather
lengthy exchange as one thing lead to another. Everyone's responses
helped. Here is the final solution to my requests:

//TOOLIN DD *
SORT FROM(SMFIN) TO(SMF150) USING(T150)
DISPLAY FROM(SMF150) LIST(SMF150R) -
TITLE('SUBTYPE 01 RECORDS') -
BREAK(19,4,CH,L'SYSTEM: ') -
HEADER('DATE') ON(11,4,DT1,E'9999-99-99') -
HEADER('TIME') ON(7,4,TM1,E'99:99:99') -
HEADER('CLIENT MACHINE NAME') ON(41,16,CH) -
HEADER('CLIENT USERID') ON(65,8,CH) -
HEADER('IP ADDR') ON(121,15,CH) -
HEADER('CLIENT NET ID') ON(409,20,CH) -
BLANK PAGE
/*
//T150CNTL DD *
RECORD TYPE=V
INCLUDE COND=(23,2,BI,EQ,1,AND,1,2,BI,GE,432)
SORT FIELDS=(19,4,CH,A,11,4,PD,A,7,4,BI,A)
OUTREC OVERLAY=(121:153,1,BI,M11,C'.',154,1,BI,M11,C'.',
155,1,BI,M11,C'.',156,1,BI,M11)
/*

If anyone would like more information on my task at hand, feel free to
email me at ***@dhw.idaho.gov

Regards!

Post by Frank Yaeger

Post by newpotato
Would someone please share the technique for converting a HEX field to
EBCDIC for DISPLAY?
HEADER('ABND CODE') ON(133,2,HEX) -
This field contains abend code codes stored in hex.
Thank you!

It's not clear what you're asking. ON(133,2,HEX) will display the 2-byte
binary field in positions 132-133 as hex characters in EBCDIC. For
example, X'0322' will be displayed as C'0322'. So if you use this
DISPLAY FROM(IN) LIST(OUT) -
HEADER('ABND CODE') ON(133,2,HEX)
ABND CODE
--------------------
0322
If that's not what you want, then please explain more clearly what you do
want.
Specialties: PARSE, JFY, SQZ, ICETOOL, IFTHEN, OVERLAY, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
Search the archives at http://bama.ua.edu/archives/ibm-main.html