> -----Original Message----- > From: IBM Mainframe Discussion List On Behalf Of Art Celestini > > Thanks John! > > I'm assuming the translate table generated by the compiler > leaves X'F0'-X'F9' unchanged. (I don't know if the compiler > prints the whole table.) If so, it looks like it should work > just fine.
Looks like it gens the whole table, starting at offset 20 (x'14'): (LIT+0) FFFFFFFC 00001000 00000001 C4D4E8C3 D6C2D6D3 00010203 04050607 08090A0B |............DMYCOBOL............| (LIT+32) 0C0D0E0F 10111213 14151617 18191A1B 1C1D1E1F 20212223 24252627 28292A2B |................................| (LIT+64) 2C2D2E2F 30313233 34353637 38393A3B 3C3D3E3F 40414243 44454647 48494A4B |.................... .........¢.| (LIT+96) 4C4D4E4F 50515253 54555657 58595A5B 5C5D5E5F 60616263 64656667 68696A6B |<(+|&.........!$*).¬-/.........,| (LIT+128) 6C6D6E6F 70717273 74757677 78797A7B 7C7D7E7F 80818283 84858687 88898A8B |%_>?..........:#@'=".abcdefghi..| (LIT+160) 8C8D8E8F 90919293 94959697 98999A9B 9C9D9E9F A0A1A2A3 A4A5A6A7 A8A9AAAB |.....jklmnopqr........stuvwxyz..| (LIT+192) ACADAEAF B0B1B2B3 B4B5B6B7 B8B9BABB BCBDBEBF C0C1C2C3 C4C5C6C7 C8C9CACB |.....................ABCDEFGHI..| (LIT+224) CCCDCECF D0D1D2D3 D4D5D6D7 D8D9DADB DCDDDEDF E0E1E2E3 E4E5E6E7 E8E9EAEB |.....JKLMNOPQR........STUVWXYZ..| (LIT+256) ECEDEEEF F0F1F2F3 F4F5F6F7 F8F9C1C2 C4C3C5C6 00000000 0000012C 00000001 |....0123456789ABDCEF............| -jc- [ snip ] > >000019 INSPECT > > > > 000396 DC07 2005 A018 TR 5(8,2),24(10) WS-HEX-OUTPUT PGMLIT AT +20 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html