I think using OI is valid for implementing a robust solution for completing
the task at hand.
* 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'
-----Original Message-----
From: IBM Mainframe Assembler List <[email protected]> On Behalf
Of Tom Marchant
Sent: Thursday, April 5, 2018 9:52 AM
To: [email protected]
Subject: Re: SDWA - SDWACMPC conversion
On Thu, 5 Apr 2018 14:45:15 +0000, Keven wrote:
>After UNPK you may need an OI to fix the sign nibble of the resultant
>zoned decimal valuE (i.e., ensure that all the zoned digits are 0xf0 to
>0xff) if you want to use a 16-byte translation table.
No. You need to unpack one more byte on the right.
--
Tom Marchant
