On 8/13/12, John Gilmore <[email protected]> wrote:
> For the TROT we need a 512-byte table containing 256 DBCS characters
> for this SBCS==>DBCS operation.
>
> In general for source s and target t TRst:
>
> o TROO uses a 256-byte table of 256 SBCS elements for SBCS==>SBCS
>
> o TROT uses a 512-byte table of 256 DBCS elements for SBCS==>DBCS
>
> o TRTO uses a 64-Kib table of 64-Kib SBCS elements for DBCS==>SBCS
>
> o TRTT uses a 128-Kib table of 64-Kib DBCS elements for DBCS==>DBCS.
>
> The PrOp treats all of this well.
>
> John Gilmore, Ashland, MA 01721 - USA
>
> On 8/13/12, Lennie J Dymoke-Bradshaw <[email protected]> wrote:
>> Keven,
>>
>> That would generate a 256 byte table in Hex.
>> For the TROT translation we need a 512 byte table in char.
>>
>> Lennie Dymoke-Bradshaw MBCS CITP
>> Accredited Senior I/T Specialist, System z, Security and Cryptography,
>> IBM
>> Software Group
>> Mail: Lennie J Dymoke-Bradshaw/UK/IBM@IBMGB or
>> [email protected]
>>
>>
>>
>>
>> From: "Hall, Keven" <[email protected]>
>> To: [email protected]
>> Date: 11/08/2012 00:31
>> Subject: Re: Printing a return code
>> Sent by: IBM Mainframe Assembler List
>> <[email protected]>
>>
>>
>>
>> Or like so:
>>
>> HEX2CHAR DC 256AL1(*-HEX2CHAR)
>>
>> Keven
>>
>> -----Original Message-----
>> From: IBM Mainframe Assembler List
>> [mailto:[email protected]
>> ] On Behalf Of Steve Smith
>> Sent: Thursday, August 09, 2012 11:48 AM
>> To: [email protected]
>> Subject: Re: Printing a return code
>>
>> 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 <[email protected]>
>> 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: [email protected]
>>> Web: www.rocketsoftware.com
>>>
>>> -----Original Message-----
>>> From: IBM Mainframe Assembler List [
>> mailto:[email protected]] On Behalf Of Bauer, Bobby
>> (NIH/CIT) [E]
>>> Sent: 08 August 2012 14:07
>>> To: [email protected]
>>> 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
>>
>>
>>
>> Unless stated otherwise above:
>> IBM United Kingdom Limited - Registered in England and Wales with number
>> 741598.
>> Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6
>> 3AU
>>
>
