newpotato wrote:
> 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) - [EMAIL PROTECTED]
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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
