On Thu, 5 Apr 2018 17:29:26 -0500, Keven wrote: >* Assume that SDWACMPC contains a value of X'ABC000' > >* Value of ZONED/5 after execution > > UNPK ZONED,SDWACMPC(2) X'FAFB0C' > OI ZONED+2,X'F0' X'FAFBFC' > TR ZONED,HEXTBL-X'C0' X'C1C2C3' > >* I guess you're preferring something like: > > UNPK ZONE5,SDWACMPC X'FAFBFCF000' > TR ZONED,HEXTBL-X'C0' XC1C2C3' > >ZONE5 DS 0CL5 >ZONED DS CL3 > DS 2X >HEXTBL DC C'0123456789ABCDEF'
Yes, in the case of the system completion code, you're right. It can be done that way, and the OI is needed. For the general case of converting full bytes to displayable hex, it needs to be done the second way, unpacking one extra byte. And J R is correct, it should be HEXTBL-F'F0' -- Tom Marchant
