The user-supplied translation table must be assembled and link-edited
into a library in the standard load module search
order. The first byte of the module must be the first byte of the
translation table.
An example of the structure of the module is as follows:
translatable DC CL256 Table
modulename DC Cl8 Module name
fixlevel DC CL8 User data (or PTF level)
builddate DC CL8'&SYSDATC' Assemble date
buildtime DC CL8'&SYSTIME' Assemble time
moddescription DC CL32'Mod' Description
DC A(0) Reserved
fromPage DC X'047C' From code page number
toPage DC X'44B0' To code page number
DC CL60' ' Reserved
A sample translation table to convert a subset of EBCDIC characters
from code page 500 into ASCII characters from code page 367 is shown
in Figure 1. Specify the TRANSLATE(U1)
assembler option to use this translation table. Figure 1. Sample Translation Table
* Translate from EBCDIC Code Page 500 to ASCII Code Page 368.
* Untranslated characters are set to X'00'.
< SETC 'ASMALTU1'
< CSECT
DC 256X'00'
ORG <+64
DC X'20' EBCDIC: X'40' space
ORG <+75
DC X'2E3C282B' EBCDIC: .<(+
ORG <+80
DC X'26' EBCDIC: &
ORG <+90
DC X'21242A293B' EBCDIC: !$*);
ORG <+96
DC X'2D2F' EBCDIC: -/
ORG <+106
DC X'7C2C255F3E3F' EBCDIC: ¦,%_>?
ORG <+121
DC X'603A2340273D' EBCDIC: `:#@'=
ORG <+127
DC X'22' EBCDIC: "
ORG <+129
DC X'616263646566' EBCDIC: abcdef
ORG <+135
DC X'676869' EBCDIC: ghi
ORG <+145
DC X'6A6B6C6D6E6F' EBCDIC: jklmno
ORG <+151
DC X'707172' EBCDIC: pqr
ORG <+159
DC X'A4' EBCDIC: X'A4' euro
ORG <+161
DC X'7E7374757677' EBCDIC: ~stuvw
ORG <+167
DC X'78797A' EBCDIC: xyz
ORG <+186
DC X'5B5D' EBCDIC: []
ORG <+192
DC X'7B41424344' EBCDIC: {ABCD
ORG <+197
DC X'4546474849' EBCDIC: EFGHI
ORG <+208
DC X'7D4A4B4C4D' EBCDIC: }JKLM
ORG <+213
DC X'4E4F505152' EBCDIC: NOPQR
ORG <+224
DC X'5C' EBCDIC: \
ORG <+226
DC X'53545556' EBCDIC: STUV
ORG <+230
DC X'5758595A' EBCDIC: WXYZ
ORG <+240
DC X'3031323334' EBCDIC: 01234
ORG <+245
DC X'3536373839' EBCDIC: 56789
ORG <+256
*
tabName CL8' <' Table name = Module name
fixlevel DC CL8 User data (or PTF level)
builddate DC CL8'&SYSDATC' Assemble date
buildtime DC CL8'&SYSTIME' Assemble time
moddescription DC CL32'Sample translation table'
Description
DC A(0) Reserved
fromPage DC H'500' From code page number 500 X'01F4'
toPage DC H'368' To code page number 368 X'0170'
DC CL60' ' Reserved
END