The user-supplied translation table must be assembled and link-edited into a library in the standard load module search order. The full name of the translation table load module name must occupy bytes 257 to 264 of the module. The first byte of the module must be the first byte of the translation table.
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 69. Specify the TRANSLATE(U1) assembler option to use this 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
DC CL8'<' Table name = Module name
END[ Top of Page | Previous Page | Next Page | Contents | Index ]