At 08:21 -0500 on 08/08/2012, Dave Day wrote about Re: Printing a return code:
Probably a gazillion different ways to do this, but I use an unpack
followed by a translate.
UNPK 0(9,RX),WORD(5)
L R15,=a(HXCNVTBL)
TR 0(8,RX),0(R15)
MVI 8(RX),C' '
HXCNVTBL is a 256 byte table with the correct values set for the
translate.
No need for HEXCNVTBL to be 256 bytes - it only needs to be 16 bytes. Just make the literal be A(HXCNVTBL-240). HXCNVTBL DC C'0123456789ABCDEF'
