ADJUST
ADJUSTは、アプリケーションでデータの変換処理、およびデータ・アクセスを行うために使用する機能です。データを変換する場合に使用するコードページや動作によって呼び出すAPIが異なります。本付録では、各APIの機能と使用方法について説明します。
1. JCVEBCC(JCVJEBC)
JCVEBCCは、SJISコードをベースに半角データを全角データに変換します。JCVJEBCも同じ機能を持ちます。
以下は、JCVEBCCを呼び出す例です。
WORKING-STORAGE SECTION. 01 P1 PIC S9(9) COMP. 01 P2 PIC S9(4) COMP. 01 P3 PIC X(10). 01 P4 PIC S9(4) COMP. 01 P5 PIC X(20). 01 P6 PIC S9(4) COMP. ... PROCEDURE DIVISION. CALL 'JCVJEBC' USING P1, P2, P3, P4, P5, P6.
-
パラメータ
以下は、JCVEBCCのパラメータの説明です。
パラメータ 説明 P1
JCVEBCCの実行結果を返します。
P2
変換処理するデータの長さを入力します。
P3
変換処理するデータを入力します。
P4
変換処理後に返されるデータの長さを入力します。
P5
変換処理されたデータを返します。
P6
変換処理されたデータの長さを返します。変換に失敗した場合は0を返します。
-
戻り値
JCVEBCCの戻り値の説明です。
P1 説明 0
JCVEBCCが正常に実行された場合に返されます。
4
変換処理されたデータの長さが返されるデータの長さより長い場合に返されます。
8
変換処理するデータ内に濁点または半濁点と一緒に使用できない文字が入力された場合に返されます。
12
変換処理するデータが誤って入力された場合に返されます。
16
渡した変数に問題がある場合に返されます。
20
CPMファイル（コードページ・マッピング・ファイル）を開くのに失敗した場合に返されます。
2. JCVKISC
JCVKISCは、KISコードページのデータをSJISコードページのデータに変換します。
以下は、JCVKISCを呼び出す例です。
WORKING-STORAGE SECTION. 01 P1 PIC S9(9) COMP. 01 P2 PIC S9(4) COMP. 01 P3 PIC X(10). 01 P4 PIC S9(4) COMP. 01 P5 PIC X(10). 01 P6 PIC S9(4) COMP. ... PROCEDURE DIVISION. CALL 'JCVKISC' USING P1, P2, P3, P4, P5, P6.
-
パラメータ
以下は、JCVKISCのパラメータの説明です。
パラメータ 説明 P1
JCVKISCの実行結果を返します。
P2
変換処理するデータの長さを入力します。
P3
変換処理するデータを入力します。
P4
変換処理後に返されるデータの長さを入力します。
P5
変換処理されたデータを返します。
P6
変換処理されたデータの長さを返します。変換に失敗した場合は0を返します。
-
戻り値
JCVKISCの戻り値の説明です。
P1 説明 0
JCVKISCが正常に実行された場合に返されます。
4
変換処理されたデータの長さが返されるデータの長さより長い場合に返されます。
12
変換処理するデータが誤って入力された場合に返されます。
16
渡した変数に問題がある場合に返されます。
20
CPMファイル（コードページ・マッピング・ファイル）を開くのに失敗した場合に返されます。
3. JCVKNAC
JCVKNACは、カタカナをひらがなに変換します。
以下は、JCVKNACを呼び出す例です。
WORKING-STORAGE SECTION. 01 P1 PIC S9(9) COMP. 01 P2 PIC S9(4) COMP. 01 P3 PIC X(10). 01 P4 PIC S9(4) COMP. 01 P5 PIC X(10). 01 P6 PIC S9(4) COMP. ... PROCEDURE DIVISION. CALL 'JCVKNAC' USING P1, P2, P3, P4, P5, P6.
-
パラメータ
以下は、JCVKNACのパラメータの説明です。
パラメータ 説明 P1
JCVKNACの実行結果を返します。
P2
変換処理するデータの長さを入力します。
P3
変換処理するデータを入力します。
P4
変換処理後に返されるデータの長さを入力します。
P5
変換処理されたデータを返します。
P6
変換処理されたデータの長さを返します。変換に失敗した場合は0を返します。
-
戻り値
JCVKNACの戻り値の説明です。
P1 説明 0
JCVKNACが正常に実行された場合に返されます。
4
変換処理されたデータの長さが返されるデータの長さより長い場合に返されます。
12
変換処理するデータが誤って入力された場合に返されます。
16
渡した変数に問題がある場合に返されます。
20
CPMファイル（コードページ・マッピング・ファイル）を開くのに失敗した場合に返されます。
4. JRDJAFC
JRDJAFCは、日本語ファイルのフィールドまたはレコードを読み込みます。
以下は、JRDJAFCを呼び出す例です。
WORKING-STORAGE SECTION. 01 P1 02 P1-1 PIC S9(9) COMP. 02 P1-2 PIC X(8). 01 P2 PIC S9(4) COMP. 01 P3 PIC X(200). 01 P4 PIC S9(4) COMP. 01 P5 PIC X(5). 01 P6 PIC S9(4) COMP. 01 P7 02 P7-1 PIC S9(4) COMP. 02 P7-2 PIC S9(4) COMP. ... PROCEDURE DIVISION. CALL 'JRDJAFC' USING P1, P2, P3, P4, P5, P6, P7.
-
パラメータ
以下は、JRDJAFCのパラメータの説明です。
パラメータ 説明 P1-1
JRDJAFCの実行結果を返します。
P1-2
アクセスする日本語ファイルの識別コードを入力します。
P2
読み込むデータの長さを入力します。
P3
読み込んだデータを返します。
P4
レコードを読み込む場合にレコード・キーの長さを入力します。
P5
レコードを読み込む場合にレコード・キーを入力します。
P6
レコード内の特定のフィールドを読み込む場合にフィールド位置を入力します。
P7-1
読み込んだデータの長さを返します。
P7-2
JRDJFCの実行情報を返します。（OpenFrameでは特に意味がないので対応していません。）
-
戻り値
JRDJAFCの戻り値の説明です。
P1-1 説明 0
JRDJAFCが正常に実行された場合に返されます。
8
指定したレコード・キーまたはフィールド位置に読み込むデータがない場合に返されます。
16
読み込むデータのサイズが格納するスペースより大きい場合に返されます。
20
ファイルから読み込んだデータを保存するメモリの割り当てに失敗した場合に返されます。
24
日本語ファイルを開くのに失敗した場合に返されます。
36
ファイルへのアクセスに失敗した場合に返されます。
5. SJIS2JIS(JIS2SJIS)
SJIS2JISは、SJISコードページのデータをJISコードページのデータに変換します。JIS2SJISは、逆にJISコードページのデータをSJISコードページのデータに変換し、使用方法はSJIS2JISと同じです。
以下は、SJIS2JISを呼び出す例です。
WORKING-STORAGE SECTION. 01 P1 PIC S9(9) COMP. 01 P2 PIC S9(4) COMP. 01 P3 PIC X(10). 01 P4 PIC S9(4) COMP. 01 P5 PIC X(20). 01 P6 PIC S9(4) COMP. ... PROCEDURE DIVISION. CALL 'SJIS2JIS' USING P1, P2, P3, P4, P5, P6.
-
パラメータ
以下は、SJIS2JISのパラメータの説明です。
パラメータ 説明 P1
SJIS2JISの実行結果を返します。
P2
変換処理するデータの長さを入力します。
P3
変換処理するデータを入力します。
P4
変換処理後に返されるデータの長さを入力します。
P5
変換処理されたデータを返します。
P6
変換処理されたデータの長さを返します。変換に失敗した場合は0を返します。
-
戻り値
SJIS2JISの戻り値の説明です。
P1 説明 0
SJIS2JISが正常に実行された場合に返されます。
4
変換処理されたデータの長さが返されるデータの長さより長い場合に返されます。
8
変換処理するデータ内に濁点または半濁点と一緒に使用できない文字が入力された場合に返されます。
12
変換処理するデータが誤って入力された場合に返されます。
16
渡した変数に問題がある場合に返されます。
20
CPMファイル（コードページ・マッピング・ファイル）を開くのに失敗した場合に返されます。