This is the module for CCSID 00037 (ISPSTC1). The existing tables
can be modified, or more pairs of direct translation tables can be
added. To add direct translation tables, add a new ISPCCSID macro
call for the new direct translation tables, and add the new tables.
The assembler program should be renamed to ISPTTC
nn,
where
nn is the last 1-digit or 2-digit
number of the ISPSTC
nn name. For example,
ISPSTC1 should be renamed ISPTTC1, and ISPSTC14 renamed ISPTTC14.
* THESE MACROS WILL GENERATE THE CCSID 00037 MODULE.
*
*
ISPCCSID CCSID=00037,TO=TTC1T5H,FROM=TTC1F5H
ISPCCSID CCSID=08229,TO=TTC1TB1,FROM=TTC1FB2
ISPCCSID CCSID=04371,TO=TTC1TB2,FROM=TTC1FB2
*
* TTC1T5H - CCSID 00037 TO CCSID 00500 Table
*
TTC1T5H DS 0XL191
DC X'4041424344454647' (X'40' TO X'47')
DC X'4849B04B4C4D4EBB' (X'48' TO X'4F')
DC X'5051525354555657' (X'50' TO X'57')
DC X'58594F5B5C5D5EBA' (X'58' TO X'5F')
DC X'6061626364656667' (X'60' TO X'67')
DC X'68696A6B6C6D6E6F' (X'68' TO X'6F')
DC X'7071727374757677' (X'70' TO X'77')
DC X'78797A7B7C7D7E7F' (X'78' TO X'7F')
DC X'8081828384858687' (X'80' TO X'87')
DC X'88898A8B8C8D8E8F' (X'88' TO X'8F')
DC X'9091929394959697' (X'90' TO X'97')
DC X'98999A9B9C9D9E9F' (X'98' TO X'9F')
DC X'A0A1A2A3A4A5A6A7' (X'A0' TO X'A7')
DC X'A8A9AAABACADAEAF' (X'A8' TO X'AF')
DC X'5FB1B2B3B4B5B6B7' (X'B0' TO X'B7')
DC X'B8B94A5ABCBDBEBF' (X'B8' TO X'BF')
DC X'C0C1C2C3C4C5C6C7' (X'C0' TO X'C7')
DC X'C8C9CACBCCCDCECF' (X'C8' TO X'CF')
DC X'D0D1D2D3D4D5D6D7' (X'D0' TO X'D7')
DC X'D8D9DADBDCDDDEDF' (X'D8' TO X'DF')
DC X'E0E1E2E3E4E5E6E7' (X'E0' TO X'E7')
DC X'E8E9EAEBECEDEEEF' (X'E8' TO X'EF')
DC X'F0F1F2F3F4F5F6F7' (X'F0' TO X'F7')
DC X'F8F9FAFBFCFDFE' (X'F8' TO X'FE')
*
* TTC1F5H - CCSID 00037 FROM CCSID 00500 Table
*
TTC1F5H DS 0XL191
DC X'4041424344454647' (X'40' TO X'47')
DC X'4849BA4B4C4D4E5A' (X'48' TO X'4F')
DC X'5051525354555657' (X'50' TO X'57')
DC X'5859BB5B5C5D5EB0' (X'58' TO X'5F')
DC X'6061626364656667' (X'60' TO X'67')
DC X'68696A6B6C6D6E6F' (X'68' TO X'6F')
DC X'7071727374757677' (X'70' TO X'77')
DC X'78797A7B7C7D7E7F' (X'78' TO X'7F')
DC X'8081828384858687' (X'80' TO X'87')
DC X'88898A8B8C8D8E8F' (X'88' TO X'8F')
DC X'9091929394959697' (X'90' TO X'97')
DC X'98999A9B9C9D9E9F' (X'98' TO X'9F')
DC X'A0A1A2A3A4A5A6A7' (X'A0' TO X'A7')
DC X'A8A9AAABACADAEAF' (X'A8' TO X'AF')
DC X'4AB1B2B3B4B5B6B7' (X'B0' TO X'B7')
DC X'B8B95F4FBCBDBEBF' (X'B8' TO X'BF')
DC X'C0C1C2C3C4C5C6C7' (X'C0' TO X'C7')
DC X'C8C9CACBCCCDCECF' (X'C8' TO X'CF')
DC X'D0D1D2D3D4D5D6D7' (X'D0' TO X'D7')
DC X'D8D9DADBDCDDDEDF' (X'D8' TO X'DF')
DC X'E0E1E2E3E4E5E6E7' (X'E0' TO X'E7')
DC X'E8E9EAEBECEDEEEF' (X'E8' TO X'EF')
DC X'F0F1F2F3F4F5F6F7' (X'F0' TO X'F7')
DC X'F8F9FAFBFCFDFE' (X'F8' TO X'FE')
*
* TTC1TB1 - CCSID 00037 TO CCSID 08229 Table
*
TTC1TB1 DS 0XL191
DC X'404B4B4B4B4B4B4B' (X'40' TO X'47')
DC X'4B4B4A4B4C4D4E4F' (X'48' TO X'4F')
DC X'504B4B4B4B4B4B4B' (X'50' TO X'57')
DC X'4B4B5A5B5C5D5E5F' (X'58' TO X'5F')
DC X'60614B4B4B4B4B4B' (X'60' TO X'67')
DC X'4B4B6A6B6C6D6E6F' (X'68' TO X'6F')
DC X'4B4B4B4B4B4B4B4B' (X'70' TO X'77')
DC X'4B797A7B7C7D7E7F' (X'78' TO X'7F')
DC X'4B81828384858687' (X'80' TO X'87')
DC X'88894B4B4B4B4B4B' (X'88' TO X'8F')
DC X'4B91929394959697' (X'90' TO X'97')
DC X'98994B4B4B4B4B4B' (X'98' TO X'9F')
DC X'4BA1A2A3A4A5A6A7' (X'A0' TO X'A7')
DC X'A8A94B4B4B4B4B4B' (X'A8' TO X'AF')
DC X'4B4B4B4B4B4B4B4B' (X'B0' TO X'B7')
DC X'4B4B4B4B4B4B4B4B' (X'B8' TO X'BF')
DC X'C0C1C2C3C4C5C6C7' (X'C0' TO X'C7')
DC X'C8C94B4B4B4B4B4B' (X'C8' TO X'CF')
DC X'D0D1D2D3D4D5D6D7' (X'D0' TO X'D7')
DC X'D8D94B4B4B4B4B4B' (X'D8' TO X'DF')
DC X'E04BE2E3E4E5E6E7' (X'E0' TO X'E7')
DC X'E8E94B4B4B4B4B4B' (X'E8' TO X'EF')
DC X'F0F1F2F3F4F5F6F7' (X'F0' TO X'F7')
DC X'F8F94B4B4B4B4B' (X'F8' TO X'FE')
*
* TTC1FB1 - CCSID 00037 FROM CCSID 08229 Table
*
TTC1FB1 DS 0XL191
DC X'4041424344454647' (X'40' TO X'47')
DC X'48494A4B4C4D4E4F' (X'48' TO X'4F')
DC X'5051525354555657' (X'50' TO X'57')
DC X'58595A5B5C5D5E5F' (X'58' TO X'5F')
DC X'6061626364656667' (X'60' TO X'67')
DC X'68696A6B6C6D6E6F' (X'68' TO X'6F')
DC X'7071727374757677' (X'70' TO X'77')
DC X'78797A7B7C7D7E7F' (X'78' TO X'7F')
DC X'8081828384858687' (X'80' TO X'87')
DC X'88898A8B8C8D8E8F' (X'88' TO X'8F')
DC X'9091929394959697' (X'90' TO X'97')
DC X'98999A9B9C9D9E9F' (X'98' TO X'9F')
DC X'A0A1A2A3A4A5A6A7' (X'A0' TO X'A7')
DC X'A8A9AAABACADAEAF' (X'A8' TO X'AF')
DC X'B0B1B2B3B4B5B6B7' (X'B0' TO X'B7')
DC X'B8B9BABBBCBDBEBF' (X'B8' TO X'BF')
DC X'C0C1C2C3C4C5C6C7' (X'C0' TO X'C7')
DC X'C8C9CACBCCCDCECF' (X'C8' TO X'CF')
DC X'D0D1D2D3D4D5D6D7' (X'D0' TO X'D7')
DC X'D8D9DADBDCDDDEDF' (X'D8' TO X'DF')
DC X'E0E1E2E3E4E5E6E7' (X'E0' TO X'E7')
DC X'E8E9EAEBECEDEEEF' (X'E8' TO X'EF')
DC X'F0F1F2F3F4F5F6F7' (X'F0' TO X'F7')
DC X'F8F9FAFBFCFDFE' (X'F8' TO X'FE')
*
* TTC1TB2 - CCSID 00037 TO CCSID 04371 Table
*
TTC1TB2 DS 0XL191
DC X'404B4B4B4B4B794B' (X'40' TO X'47')
DC X'4B4B4B4B4C4D4E4B' (X'48' TO X'4F')
DC X'50D04B4B4B4B4B4B' (X'50' TO X'57')
DC X'4B4B4F5A5C5D5E4B' (X'58' TO X'5F')
DC X'60614B4B4B4B7C4B' (X'60' TO X'67')
DC X'5B4B4B6B6C6D6E6F' (X'68' TO X'6F')
DC X'4B4A4B4B4B4B4B4B' (X'70' TO X'77')
DC X'4B4B7A4B4B7D7E7F' (X'78' TO X'7F')
DC X'4B81828384858687' (X'80' TO X'87')
DC X'88894B4B4B4B4B4B' (X'88' TO X'8F')
DC X'4B91929394959697' (X'90' TO X'97')
DC X'98994B4B4B4B4B4B' (X'98' TO X'9F')
DC X'4BA1A2A3A4A5A6A7' (X'A0' TO X'A7')
DC X'A8A94B4B4B4B4B4B' (X'A8' TO X'AF')
DC X'5F44B4BB4B4B4B4B' (X'B0' TO X'B7')
DC X'4B4B4B4B4B4B4B4B' (X'B8' TO X'BF')
DC X'4BC1C2C3C4C5C6C7' (X'C0' TO X'C7')
DC X'C8C94B4B4B4B4BC0' (X'C8' TO X'CF')
DC X'4BD1D2D3D4D5D6D7' (X'D0' TO X'D7')
DC X'D8D94B4B4B4B4B4B' (X'D8' TO X'DF')
DC X'E04BE2E3E4E5E6E7' (X'E0' TO X'E7')
DC X'E8E94B4B4B4B4B7B' (X'E8' TO X'EF')
DC X'F0F1F2F3F4F5F6F7' (X'F0' TO X'F7')
DC X'F8F94B4B4B4B4B' (X'F8' TO X'FE')
*
* TTC1FB2 - CCSID 00037 FROM CCSID 04371 Table
*
TTC1FB2 DS 0XL191
DC X'4041424344454647' (X'40' TO X'47')
DC X'4849714B4C4D4E5A' (X'48' TO X'4F')
DC X'5051525354555657' (X'50' TO X'57')
DC X'58595B685C5D5EB0' (X'58' TO X'5F')
DC X'6061626364656667' (X'60' TO X'67')
DC X'6869486B6C6D6E6F' (X'68' TO X'6F')
DC X'7071727374757677' (X'70' TO X'77')
DC X'78467AEF667D7E7F' (X'78' TO X'7F')
DC X'8081828384858687' (X'80' TO X'87')
DC X'88898A8B8C8D8E8F' (X'88' TO X'8F')
DC X'9091929394959697' (X'90' TO X'97')
DC X'98999A9B9C9D9E9F' (X'98' TO X'9F')
DC X'A0A1A2A3A4A5A6A7' (X'A0' TO X'A7')
DC X'A8A9AAABACADAEAF' (X'A8' TO X'AF')
DC X'B0B1B2B3B4B5B6B7' (X'B0' TO X'B7')
DC X'B8B9BABBBCBDBEBF' (X'B8' TO X'BF')
DC X'CFC1C2C3C4C5C6C7' (X'C0' TO X'C7')
DC X'C8C9CACBCCCDCECF' (X'C8' TO X'CF')
DC X'51D1D2D3D4D5D6D7' (X'D0' TO X'D7')
DC X'D8D9DADBDCDDDEDF' (X'D8' TO X'DF')
DC X'E0E1E2E3E4E5E6E7' (X'E0' TO X'E7')
DC X'E8E9EAEBECEDEEEF' (X'E8' TO X'EF')
DC X'F0F1F2F3F4F5F6F7' (X'F0' TO X'F7')
DC X'F8F9FAFBFCFDFE' (X'F8' TO X'FE')
END