EBCDIC (expression)
EBCDIC 関数を使用すると、expression の各文字を ASCII 表記値から EBCDIC 表記値へ変換できます。EBCDIC 関数と ASCII 関数は補数演算を行います。ASCII コードで表現されないデータの結果は不定です。
expression が NULL 値として評価されると、EBCDIC 関数は正しく実行されずプログラムはランタイム・エラー・メッセージを出力して終了します。
X = 'ABC 123'
Y = EBCDIC(X)
PRINT "ASCII", "EBCDIC", " X "
PRINT "------", "-----", "---"
FOR I = 1 TO LEN (X)
PRINT SEQ(X[I,1]) , SEQ(Y[I,1]),X[I,1]
NEXT I
次のプログラム出力が得られます。
ASCII EBCDIC X
------ ----- ---
65 193 A
66 194 B
67 195 C
32 64
49 241 1
50 242 2
51 243 3
以下の表には、EBCDIC BASIC 関数で使用される変換情報をリストしてあります。
ASCII | EBCDIC | ASCII | EBCDIC | ASCII | EBCDIC | ASCII | EBCDIC |
---|---|---|---|---|---|---|---|
00 | 00 | 40 | 7C | 80 | 04 | C0 | 75 |
01 | 01 | 41 | C1 | 81 | 06 | C1 | 76 |
02 | 02 | 42 | C2 | 82 | 08 | C2 | 77 |
03 | 03 | 43 | C3 | 83 | 09 | C3 | 78 |
04 | 37 | 44 | C4 | 84 | 0A | C4 | 8A |
05 | 2D | 45 | C5 | 85 | 13 | C5 | 8B |
06 | 2E | 46 | C6 | 86 | 14 | C6 | 8C |
07 | 2F | 47 | C7 | 87 | 15 | C7 | 8D |
08 | 16 | 48 | C8 | 88 | 17 | C8 | 8E |
09 | 05 | 49 | C9 | 89 | 1A | C9 | 8F |
0A | 25 | 4A | D1 | 8A | 1B | CA | 9A |
0B | 0B | 4B | D2 | 8B | 20 | CB | 9B |
0C | 0C | 4C | D3 | 8C | 21 | CC | 9C |
0D | 0D | 4D | D4 | 8D | 22 | CD | 9D |
0E | 0E | 4E | D5 | 8E | 23 | CE | 9E |
0F | 0F | 4F | D6 | 8F | 24 | CF | 9F |
10 | 10 | 50 | D7 | 90 | 28 | D0 | A0 |
11 | 11 | 51 | D8 | 91 | 29 | D1 | AA |
12 | 12 | 52 | D9 | 92 | 2A | D2 | AB |
13 | 3A | 53 | E2 | 93 | 2B | D3 | AC |
14 | 3C | 54 | E3 | 94 | 2C | D4 | AD |
15 | 3D | 55 | E4 | 95 | 30 | D5 | AE |
16 | 32 | 56 | E5 | 96 | 31 | D6 | AF |
17 | 26 | 57 | E6 | 97 | 33 | D7 | B0 |
18 | 18 | 58 | E7 | 98 | 34 | D8 | B1 |
19 | 19 | 59 | E8 | 99 | 35 | D9 | B2 |
1A | 3F | 5A | E9 | 9A | 36 | DA | B3 |
1B | 27 | 5B | 80 | 9B | 38 | DB | B4 |
1C | 1C | 5C | E0 | 9C | 39 | DC | B5 |
1D | 1D | 5D | 90 | 9D | 3B | DD | B6 |
1E | 1E | 5E | 5F | 9E | 3E | DE | B7 |
1F | 1F | 5F | 6D | 9F | 41 | DF | B8 |
20 | 40 | 60 | 79 | A0 | 42 | E0 | B9 |
21 | 5A | 61 | 81 | A1 | 43 | E1 | BA |
22 | 7F | 62 | 82 | A2 | 44 | E2 | BB |
23 | 7B | 63 | 83 | A3 | 45 | E3 | BC |
24 | 5B | 64 | 84 | A4 | 46 | E4 | BD |
25 | 6C | 65 | 85 | A5 | 47 | E5 | BE |
26 | 50 | 66 | 86 | A6 | 48 | E6 | BF |
27 | 7D | 67 | 87 | A7 | 49 | E7 | CA |
28 | 4D | 68 | 88 | A8 | 4A | E8 | CB |
29 | 5D | 69 | 89 | A9 | 4F | E9 | CC |
2A | 5C | 6A | 91 | AA | 51 | EA | CD |
2B | 4E | 6B | 92 | AB | 52 | EB | CE |
2C | 6B | 6C | 93 | AC | 53 | EC | CF |
2D | 60 | 6D | 94 | AD | 54 | ED | DA |
2E | 4B | 6E | 95 | AE | 55 | EE | DB |
2F | 61 | 6F | 96 | AF | 56 | EF | DC |
30 | F0 | 70 | 97 | B0 | 57 | F0 | DD |
31 | F1 | 71 | 98 | B1 | 58 | F1 | DE |
32 | F2 | 72 | 99 | B2 | 59 | F2 | DF |
33 | F3 | 73 | A2 | B3 | 62 | F3 | E1 |
34 | F4 | 74 | A3 | B4 | 63 | F4 | EA |
35 | F5 | 75 | A4 | B5 | 64 | F5 | EB |
36 | F6 | 76 | A5 | B6 | 65 | F6 | EC |
37 | F7 | 77 | A6 | B7 | 66 | F7 | ED |
38 | F8 | 78 | A7 | B8 | 67 | F8 | EE |
39 | F9 | 79 | A8 | B9 | 68 | F9 | EF |
3A | 7A | 7A | A9 | BA | 69 | FA | FA |
3B | 5E | 7B | C0 | BB | 70 | FB | FB |
3C | 4C | 7C | 6A | BC | 71 | FC | FC |
3D | 7E | 7D | D0 | BD | 72 | FD | FD |
3E | 6E | 7E | A1 | BE | 73 | FE | FE |
3F | 6F | 7F | 07 | BF | 74 | FF | FF |