> -----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

Reply via email to