199. API: QDCXLATE コード変換
EBCDIC/ASCII コードの変換に最も利用されるのが API : QDCXLATE である。
既に使った経験のある人も少なくはないだろう。
ここでは QDCXLATE の使用方法と一般には知られていない変換テーブルについても紹介しよう。
データの変換 (QDCXLATE) API
必須パラメータ：
| 1. | 変換前のデータの長さ | 入力 | Packed(5,0) |
| 2. | 変換前のデータ | 入出力 | Char(*) |
| 3. | SBCS 変換テーブル名 | 入力 | Char(10) |
任意選択パラメータ：
| 4. | SBCS 変換テーブル・ライブラリー名 | 入力 | Char(10) |
| 5. | 変換されたデータ | 出力 | Char(*) |
| 6. | 変換データの長さ | 入力 | Packed(5,0) |
| 7. | 変換されたデータの長さ | 出力 | Packed(5,0) |
| 8. | DBCS 言語 | 入力 | Char(10) |
| 9. | シフトアウトおよびシフトイン文字 | 入力 | Char(10) |
| 10. | 変換のタイプ | 入力 | Char(10) |
1. 変換するデータの長さ
変換データが定義されている長さを宣言します。
2. 変換後のデータ
変換後のデータは、この変数に戻されます。
3. SBCS 変換テーブル名
変換のために使用するテーブルを指定します。
通常は
EBCDIC --> ASCII への変換テーブル: QSYS/QASCII
ASCII --> EBCDIC への変換テーブル: QSYS/QEBCDIC
を指定しますが TCP/IP 通信では
を使用します。
EBCDIC --> ASCII への変換テーブル: QUSRSYS/QTCPASC
ASCII --> EBCDIC への変換テーブル: QUSRSYS/QTCPEBC
4. SBCS 変換テーブル・ライブラリー名
SBCS 変換テーブルのあるライブラリー名前を指定します。
5. 変換されたデータ
変換後のデータが入る変数を指定します。
6. 変換データの長さ
上記の｢変換されたデータ｣の変数が定義されている長さを宣言します。
7. 変換されたデータの長さ
実際に変換された後の長さがここに戻されます。
8. DBCS 言語
言語の種類を指定します。次のいずれかの値を指定してください。
*JPN | ・・・・・・ | 日本語 |
*KOR | ・・・・・・ | 韓国語 |
*CHS | ・・・・・・ | 中国語(簡体字) |
*CHT | ・・・・・・ | 中国語(繁体字) |
*BG5 | ・・・・・・ | 台湾 |
*KSC | ・・・・・・ | 韓国業界標準 |
*SCGS | ・・・・・・ | 中華人民共和国業界標準 |
*J9OX5035 | ・・・・・・ | CCSID : 1399 の変換を指定 |
9. シフトアウトおよびシフトイン文字
変換後の文字列にシフト文字を漢字の文字列の両端に挿入するかどうかを指定します。
Y | ・・・・・・ | シフト文字を挿入する。 |
N | ・・・・・・ | シフト文字を挿入しない。 |
10. 変換のタイプ
変換の向きを指定します。
*AE | ・・・・・・ | ASCII --> EBCDIC に変換します。 |
*EA | ・・・・・・ | EBCDIC --> ASCII に変換します。 |
【例 サンプル・サース : TESTDCX】
0001.00 H DATEDIT(*YMD/)
0002.00 F********** QDCXLATE のテスト *****************************************
0003.00 F* CRTBNDRPG MYLIB/TESTDCX SRCFILE(MYSRCLIB/QRPGLESRC)
0004.00 F* AUT(*ALL)
0005.00 F**********************************************************************
0006.00 D QDCXLATE C CONST('QSYS/QDCXLATE')
0007.00 D EBCBUF S 5000A
0008.00 D EBCLEN S 5P 0 INZ(5000)
0009.00 D ASCBUF S 5000A
0010.00 D ASCLEN S 5P 0 INZ(5000)
0011.00 D MAXOTL S 5P 0 INZ(5000)
0012.00
0013.00 C EVAL EBCBUF = 'ABC123'
0014.00 C*----------------------------------------------------+
0015.00 C CALL QDCXLATE
0016.00 C PARM EBCLEN
0017.00 C PARM EBCBUF
0018.00 C PARM 'QASCII ' TBL 10
0019.00 C PARM 'QSYS ' TBLLIB 10
0020.00 C PARM ASCBUF
0021.00 C PARM MAXOTL
0022.00 C PARM ASCLEN
0023.00 C PARM '*JPN ' DBCS 5
0024.00 C PARM 'N' SISO 1
0025.00 C PARM '*EA ' TRNSLT 10
0026.00 C*----------------------------------------------------+
0027.00 C SETON LR
0028.00 C RETURN
【解説】
0014.00 C*----------------------------------------------------+ 0015.00 C CALL QDCXLATE 0016.00 C PARM EBCLEN 0017.00 C PARM EBCBUF 0018.00 C PARM 'QASCII ' TBL 10 0019.00 C PARM 'QSYS ' TBLLIB 10 0020.00 C PARM ASCBUF 0021.00 C PARM MAXOTL 0022.00 C PARM ASCLEN 0023.00 C PARM '*JPN ' DBCS 5 0024.00 C PARM 'N' SISO 1 0025.00 C PARM '*EA ' TRNSLT 10 0026.00 C*----------------------------------------------------+
は 変数 EBCBUF を *EA のように EBCDIC-->ASCII へ変換して結果を ASCBUF に戻します。
ASCBUF に戻された長さは ASCLEN である。
【QDCXLATE の使用上の注意】
QDCXLATE は EBCDIC/ASCII の変換においてよく利用されているが
次の問題点があることを承知しておく必要がある。
実行速度が遅い
-
QDCXLATEは実行速度が遅い。
大量の変換を繰り返し行ない、パフォーマンスーが要求される適用業務には向いていない。
Webアプリケーションのようなパフォーマンスが重要となる業務には向いていない。
独自の変換API を作成すべきである。 バグがある
-
テーブルの問題のせいか、すべての文字が正しく変換されるわけではない。
半角カナや特殊記号、漢字等の変換に問題がある場合がある。
実行結果をそのまま信頼することはできない。
適用業務に組み込むのであれば十分なテストが必要である。
