*; * Sample program to build a transcoding list for EBCDIC * Code Page 285 (English/UK) to ISO 8859-1 (Latin 1). *; * Make the data set that will be used with the MAKETL macro; data e285lat1; length desc $45 lat1 e285 $2; input desc $char45. @48 lat1 @56 e285; cards; NULL 00 00 START OF HEADING 01 01 START OF TEXT 02 02 END OF TEXT 03 03 END OF TRANSMISSION 04 37 ENQUIRY 05 2D ACKNOWLEDGE 06 2E BELL 07 2F BACKSPACE 08 16 HORIZONTAL TABULATION 09 05 LINE FEED 0A 25 VERTICAL TABULATION 0B 0B FORM FEED 0C 0C CARRIAGE RETURN 0D 0D SHIFT OUT 0E 0E SHIFT IN 0F 0F DATA LINK ESCAPE 10 10 DEVICE CONTROL ONE 11 11 DEVICE CONTROL TWO 12 12 DEVICE CONTROL THREE 13 13 DEVICE CONTROL FOUR 14 3C NEGATIVE ACKNOWLEDGE 15 3D SYNCHRONOUS IDLE 16 32 END OF TRANSMISSION BLOCK 17 26 CANCEL 18 18 END OF MEDIUM 19 19 SUBSTITUTE 1A 3F SUBSTITUTE 1A 3F SUBSTITUTE 1A 3F SUBSTITUTE 1A 3F SUBSTITUTE 1A 3F SUBSTITUTE 1A 3F SUBSTITUTE 1A 3F ESCAPE 1B 27 FILE SEPARATOR 1C 1C GROUP SEPARATOR 1D 1D RECORD SEPARATOR 1E 1E UNIT SEPARATOR 1F 1F SPACE 20 40 EXCLAMATION MARK 21 5A QUOTATION MARK 22 7F NUMBER SIGN 23 7B DOLLAR SIGN 24 4A PERCENT SIGN 25 6C AMPERSAND 26 50 APOSTROPHE 27 7D LEFT PARENTHESIS 28 4D RIGHT PARENTHESIS 29 5D ASTERISK 2A 5C PLUS SIGN 2B 4E COMMA 2C 6B HYPHEN-MINUS 2D 60 FULL STOP 2E 4B SOLIDUS 2F 61 DIGIT ZERO 30 F0 DIGIT ONE 31 F1 DIGIT TWO 32 F2 DIGIT THREE 33 F3 DIGIT FOUR 34 F4 DIGIT FIVE 35 F5 DIGIT SIX 36 F6 DIGIT SEVEN 37 F7 DIGIT EIGHT 38 F8 DIGIT NINE 39 F9 COLON 3A 7A SEMICOLON 3B 5E LESS-THAN SIGN 3C 4C EQUALS SIGN 3D 7E GREATER-THAN SIGN 3E 6E QUESTION MARK 3F 6F COMMERCIAL AT 40 7C LATIN CAPITAL LETTER A 41 C1 LATIN CAPITAL LETTER B 42 C2 LATIN CAPITAL LETTER C 43 C3 LATIN CAPITAL LETTER D 44 C4 LATIN CAPITAL LETTER E 45 C5 LATIN CAPITAL LETTER F 46 C6 LATIN CAPITAL LETTER G 47 C7 LATIN CAPITAL LETTER H 48 C8 LATIN CAPITAL LETTER I 49 C9 LATIN CAPITAL LETTER J 4A D1 LATIN CAPITAL LETTER K 4B D2 LATIN CAPITAL LETTER L 4C D3 LATIN CAPITAL LETTER M 4D D4 LATIN CAPITAL LETTER N 4E D5 LATIN CAPITAL LETTER O 4F D6 LATIN CAPITAL LETTER P 50 D7 LATIN CAPITAL LETTER Q 51 D8 LATIN CAPITAL LETTER R 52 D9 LATIN CAPITAL LETTER S 53 E2 LATIN CAPITAL LETTER T 54 E3 LATIN CAPITAL LETTER U 55 E4 LATIN CAPITAL LETTER V 56 E5 LATIN CAPITAL LETTER W 57 E6 LATIN CAPITAL LETTER X 58 E7 LATIN CAPITAL LETTER Y 59 E8 LATIN CAPITAL LETTER Z 5A E9 LEFT SQUARE BRACKET 5B B1 REVERSE SOLIDUS 5C E0 RIGHT SQUARE BRACKET 5D BB CIRCUMFLEX ACCENT 5E BA LOW LINE 5F 6D GRAVE ACCENT 60 79 LATIN SMALL LETTER A 61 81 LATIN SMALL LETTER B 62 82 LATIN SMALL LETTER C 63 83 LATIN SMALL LETTER D 64 84 LATIN SMALL LETTER E 65 85 LATIN SMALL LETTER F 66 86 LATIN SMALL LETTER G 67 87 LATIN SMALL LETTER H 68 88 LATIN SMALL LETTER I 69 89 LATIN SMALL LETTER J 6A 91 LATIN SMALL LETTER K 6B 92 LATIN SMALL LETTER L 6C 93 LATIN SMALL LETTER M 6D 94 LATIN SMALL LETTER N 6E 95 LATIN SMALL LETTER O 6F 96 LATIN SMALL LETTER P 70 97 LATIN SMALL LETTER Q 71 98 LATIN SMALL LETTER R 72 99 LATIN SMALL LETTER S 73 A2 LATIN SMALL LETTER T 74 A3 LATIN SMALL LETTER U 75 A4 LATIN SMALL LETTER V 76 A5 LATIN SMALL LETTER W 77 A6 LATIN SMALL LETTER X 78 A7 LATIN SMALL LETTER Y 79 A8 LATIN SMALL LETTER Z 7A A9 LEFT CURLY BRACKET 7B C0 VERTICAL LINE 7C 4F RIGHT CURLY BRACKET 7D 47 RIGHT CURLY BRACKET 7D D0 TILDE 7E BC NO-BREAK SPACE A0 41 INVERTED EXCLAMATION MARK A1 AA CENT SIGN A2 B0 POUND SIGN A3 5B POUND SIGN A3 5B CURRENCY SIGN A4 9F YEN SIGN A5 B2 BROKEN BAR A6 6A SECTION SIGN A7 B5 DIAERESIS A8 BD COPYRIGHT SIGN A9 B4 FEMININE ORDINAL INDICATOR AA 9A LEFT-POINTING DOUBLE ANGLE QUOTATION MARK AB 8A NOT SIGN AC 5F SOFT HYPHEN AD CA REGISTERED SIGN AE AF MACRON AF A1 DEGREE SIGN B0 90 PLUS-MINUS SIGN B1 8F SUPERSCRIPT TWO B2 EA SUPERSCRIPT THREE B3 FA ACUTE ACCENT B4 BE MICRO SIGN B5 A0 PILCROW SIGN B6 B6 MIDDLE DOT B7 B3 CEDILLA B8 9D SUPERSCRIPT ONE B9 DA MASCULINE ORDINAL INDICATOR BA 9B RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK BB 8B VULGAR FRACTION ONE QUARTER BC B7 VULGAR FRACTION ONE HALF BD B8 VULGAR FRACTION THREE QUARTERS BE B9 INVERTED QUESTION MARK BF AB LATIN CAPITAL LETTER A WITH GRAVE C0 64 LATIN CAPITAL LETTER A WITH ACUTE C1 65 LATIN CAPITAL LETTER A WITH CIRCUMFLEX C2 62 LATIN CAPITAL LETTER A WITH TILDE C3 66 LATIN CAPITAL LETTER A WITH DIAERESIS C4 63 LATIN CAPITAL LETTER A WITH RING ABOVE C5 67 LATIN CAPITAL LIGATURE AE C6 9E LATIN CAPITAL LETTER C WITH CEDILLA C7 68 LATIN CAPITAL LETTER E WITH GRAVE C8 74 LATIN CAPITAL LETTER E WITH ACUTE C9 71 LATIN CAPITAL LETTER E WITH CIRCUMFLEX CA 72 LATIN CAPITAL LETTER E WITH DIAERESIS CB 73 LATIN CAPITAL LETTER I WITH GRAVE CC 78 LATIN CAPITAL LETTER I WITH ACUTE CD 75 LATIN CAPITAL LETTER I WITH CIRCUMFLEX CE 76 LATIN CAPITAL LETTER I WITH DIAERESIS CF 77 LATIN CAPITAL LETTER ETH D0 AC LATIN CAPITAL LETTER N WITH TILDE D1 69 LATIN CAPITAL LETTER O WITH GRAVE D2 ED LATIN CAPITAL LETTER O WITH ACUTE D3 EE LATIN CAPITAL LETTER O WITH CIRCUMFLEX D4 EB LATIN CAPITAL LETTER O WITH TILDE D5 EF LATIN CAPITAL LETTER O WITH DIAERESIS D6 EC MULTIPLICATION SIGN D7 BF LATIN CAPITAL LETTER O WITH STROKE D8 80 LATIN CAPITAL LETTER U WITH GRAVE D9 FD LATIN CAPITAL LETTER U WITH ACUTE DA FE LATIN CAPITAL LETTER U WITH CIRCUMFLEX DB FB LATIN CAPITAL LETTER U WITH DIAERESIS DC FC LATIN CAPITAL LETTER Y WITH ACUTE DD AD LATIN CAPITAL LETTER THORN DE AE LATIN SMALL LETTER SHARP S DF 59 LATIN SMALL LETTER A WITH GRAVE E0 44 LATIN SMALL LETTER A WITH ACUTE E1 45 LATIN SMALL LETTER A WITH CIRCUMFLEX E2 42 LATIN SMALL LETTER A WITH TILDE E3 46 LATIN SMALL LETTER A WITH DIAERESIS E4 43 LATIN SMALL LIGATURE AE E6 9C LATIN SMALL LETTER C WITH CEDILLA E7 48 LATIN SMALL LETTER E WITH GRAVE E8 54 LATIN SMALL LETTER E WITH ACUTE E9 51 LATIN SMALL LETTER E WITH CIRCUMFLEX EA 52 LATIN SMALL LETTER E WITH DIAERESIS EB 53 LATIN SMALL LETTER I WITH GRAVE EC 58 LATIN SMALL LETTER I WITH ACUTE ED 55 LATIN SMALL LETTER I WITH CIRCUMFLEX EE 56 LATIN SMALL LETTER I WITH DIAERESIS EF 57 LATIN SMALL LETTER ETH F0 8C LATIN SMALL LETTER N WITH TILDE F1 49 LATIN SMALL LETTER O WITH GRAVE F2 CD LATIN SMALL LETTER O WITH ACUTE F3 CE LATIN SMALL LETTER O WITH CIRCUMFLEX F4 CB LATIN SMALL LETTER O WITH TILDE F5 CF LATIN SMALL LETTER O WITH DIAERESIS F6 CC DIVISION SIGN F7 E1 LATIN SMALL LETTER O WITH STROKE F8 70 LATIN SMALL LETTER U WITH GRAVE F9 DD LATIN SMALL LETTER U WITH ACUTE FA DE LATIN SMALL LETTER U WITH CIRCUMFLEX FB DB LATIN SMALL LETTER U WITH DIAERESIS FC DC LATIN SMALL LETTER Y WITH ACUTE FD 8D LATIN SMALL LETTER THORN FE 8E LATIN SMALL LETTER Y WITH DIAERESIS FF DF ; run;