Using TROT is a great idea, but why not code the table like so:
HEX2CHAR DC C'000102030405060708090A0B0C0D0E0F'
DC C'101112131415161718191A1B1C1D1E1F'
DC C'202122232425262728292A2B2C2D2E2F'
DC C'303132333435363738393A3B3C3D3E3F'
DC C'404142434445464748494A4B4C4D4E4F'
DC C'505152535455565758595A5B5C5D5E5F'
DC C'606162636465666768696A6B6C6D6E6F'
DC C'707172737475767778797A7B7C7D7E7F'
DC C'808182838485868788898A8B8C8D8E8F'
DC C'909192939495969798999A9B9C9D9E9F'
DC C'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF'
DC C'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'
DC C'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'
DC C'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'
DC C'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'
DC C'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'
sas
On Wed, Aug 8, 2012 at 9:24 AM, Rob Scott <rsc...@rocketsoftware.com> wrote:
>
> I use the "TROT" instruction with the following 512 byte translate table :
>
> DS 0D
> LC_TABLE_HEX2CHAR DS 0XL512
> DC X'F0F0F0F1F0F2F0F3F0F4F0F5F0F6F0F7' 00-07
> DC X'F0F8F0F9F0C1F0C2F0C3F0C4F0C5F0C6' 08-0F
> DC X'F1F0F1F1F1F2F1F3F1F4F1F5F1F6F1F7' 10-17
> DC X'F1F8F1F9F1C1F1C2F1C3F1C4F1C5F1C6' 18-1F
> DC X'F2F0F2F1F2F2F2F3F2F4F2F5F2F6F2F7' 20-27
> DC X'F2F8F2F9F2C1F2C2F2C3F2C4F2C5F2C6' 28-2F
> DC X'F3F0F3F1F3F2F3F3F3F4F3F5F3F6F3F7' 30-37
> DC X'F3F8F3F9F3C1F3C2F3C3F3C4F3C5F3C6' 38-3F
> DC X'F4F0F4F1F4F2F4F3F4F4F4F5F4F6F4F7' 40-47
> DC X'F4F8F4F9F4C1F4C2F4C3F4C4F4C5F4C6' 48-4F
> DC X'F5F0F5F1F5F2F5F3F5F4F5F5F5F6F5F7' 50-57
> DC X'F5F8F5F9F5C1F5C2F5C3F5C4F5C5F5C6' 58-5F
> DC X'F6F0F6F1F6F2F6F3F6F4F6F5F6F6F6F7' 60-67
> DC X'F6F8F6F9F6C1F6C2F6C3F6C4F6C5F6C6' 68-6F
> DC X'F7F0F7F1F7F2F7F3F7F4F7F5F7F6F7F7' 70-77
> DC X'F7F8F7F9F7C1F7C2F7C3F7C4F7C5F7C6' 78-7F
> DC X'F8F0F8F1F8F2F8F3F8F4F8F5F8F6F8F7' 80-87
> DC X'F8F8F8F9F8C1F8C2F8C3F8C4F8C5F8C6' 88-8F
> DC X'F9F0F9F1F9F2F9F3F9F4F9F5F9F6F9F7' 90-97
> DC X'F9F8F9F9F9C1F9C2F9C3F9C4F9C5F9C6' 98-9F
> DC X'C1F0C1F1C1F2C1F3C1F4C1F5C1F6C1F7' A0-A7
> DC X'C1F8C1F9C1C1C1C2C1C3C1C4C1C5C1C6' A8-AF
> DC X'C2F0C2F1C2F2C2F3C2F4C2F5C2F6C2F7' B0-B7
> DC X'C2F8C2F9C2C1C2C2C2C3C2C4C2C5C2C6' B8-BF
> DC X'C3F0C3F1C3F2C3F3C3F4C3F5C3F6C3F7' C0-C7
> DC X'C3F8C3F9C3C1C3C2C3C3C3C4C3C5C3C6' C8-CF
> DC X'C4F0C4F1C4F2C4F3C4F4C4F5C4F6C4F7' D0-D7
> DC X'C4F8C4F9C4C1C4C2C4C3C4C4C4C5C4C6' D8-DF
> DC X'C5F0C5F1C5F2C5F3C5F4C5F5C5F6C5F7' E0-E7
> DC X'C5F8C5F9C5C1C5C2C5C3C5C4C5C5C5C6' E8-EF
> DC X'C6F0C6F1C6F2C6F3C6F4C6F5C6F6C6F7' F0-F7
> DC X'C6F8C6F9C6C1C6C2C6C3C6C4C6C5C6C6' F8-FF
>
> Rob Scott
> Lead Developer
> Rocket Software
> 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA
> Tel: +1.781.684.2305
> Email: rsc...@rs.com
> Web: www.rocketsoftware.com
>
> -----Original Message-----
> From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU]
> On Behalf Of Bauer, Bobby (NIH/CIT) [E]
> Sent: 08 August 2012 14:07
> To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
> Subject: Printing a return code
>
> New to the list but been written assembler off and on for years.
> I'm writing some code using the BCPii API. The return codes from the CALLs
> are placed into storage in (to me) an unusual manner. In a full word that
> looks like:
> 00000301
> or
> 00000F01
>
> How can I make these printable? I'm using a SNAP to debug but getting the RC
> into a WTO would be a LOT easier. Any ideas?
>
> Bobby Bauer
> Center for Information Technology
> National Institutes of Health
> Bethesda, MD 20892-5628
> 301-594-7474
--
sas
