CBLNCNVサービスルーチンは,英字項目・英数字項目・英数字編集項目・数字編集項目を日本語項目・日本語編集項目に変換するものです。
CALL 'CBLNCNV' USING 引数1 引数2 引数3
表28-3 CBLNCNVサービスルーチンのインタフェース領域
記述形式 | 内容 |
---|---|
01 データ名1. | CALL文のUSINGで指定するインタフェース領域の名前を指定する。 |
02 データ名2. | 転記インジケータの名前を指定する。 |
03 データ名3 PIC X(01). | ALL指定※の有無を指定する。 0:ALL指定なし。 1:ALL指定あり。 |
03 データ名4 PIC X(01). | 送り出し側作用対象のデータ属性を指定する。 0:英字,英数字,英数字編集,数字編集項目 1:数字項目 |
03 データ名5 PIC X(01). | 受け取り側作用対象のデータ属性を指定する。 0:日本語項目 1:日本語編集項目 |
03 FILLER PIC X(01). | 予備。値は0でなければならない。このシステムではこの領域は使用しない。 |
02 データ名6 PIC 9(8) | 送り出し側作用対象の項目のけた数を指定する。 |
02 データ名7 PIC 9(8) | 受け取り側作用対象の項目のけた数を指定する。 |
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE1.
:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 EISUU PIC X(4) VALUE 'AAAA'.
01 NIHON PIC N(4).
01 CHECK-PARM.
02 CHECK-IND.
03 CHECK-ALL PIC X(01).
03 CHECK-TYP PIC X(01).
03 CHECK-UKE PIC X(01).
03 FILLER PIC X(01) VALUE '0'.
02 CHECK-LNG1 PIC 9(08) USAGE COMP.
02 CHECK-LNG2 PIC 9(08) USAGE COMP.
:
PROCEDURE DIVISION.
:
MOVE '0' TO CHECK-ALL CHECK-TYP CHECK-UKE.
MOVE 4 TO CHECK-LNG1.
MOVE 4 TO CHECK-LNG2.
CALL 'CBLNCNV' USING CHECK-PARM EISUU NIHON.
IF RETURN-CODE NOT = 0 THEN
CBLNCNVエラー処理
END-IF.
:
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE1.
:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 EISUU PIC X(8) VALUE 'AAAA'.
01 NIHON PIC N(4).
01 CHECK-PARM.
02 CHECK-IND.
03 CHECK-ALL PIC X(01).
03 CHECK-TYP PIC X(01).
03 CHECK-UKE PIC X(01).
03 FILLER PIC X(01) VALUE '0'.
02 CHECK-LNG1 PIC 9(08) USAGE COMP.
02 CHECK-LNG2 PIC 9(08) USAGE COMP.
:
PROCEDURE DIVISION.
:
MOVE '0' TO CHECK-ALL CHECK-TYP CHECK-UKE.
MOVE 8 TO CHECK-LNG1.
MOVE 4 TO CHECK-LNG2.
CALL 'CBLNCNV' USING CHECK-PARM EISUU NIHON.
IF RETURN-CODE NOT = 0 THEN
CBLNCNVエラー処理
END-IF.
:
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE1.
:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 EISUU PIC X(8) VALUE ''.
01 NIHON PIC N(4).
01 CHECK-PARM.
02 CHECK-IND.
03 CHECK-ALL PIC X(01).
03 CHECK-TYP PIC X(01).
03 CHECK-UKE PIC X(01).
03 FILLER PIC X(01) VALUE '0'.
02 CHECK-LNG1 PIC 9(8) USAGE COMP.
02 CHECK-LNG2 PIC 9(8) USAGE COMP.
:
PROCEDURE DIVISION.
:
MOVE '0' TO CHECK-ALL CHECK-TYP CHECK-UKE.
MOVE 8 TO CHECK-LNG1.
MOVE 4 TO CHECK-LNG2.
CALL 'CBLNCNV' USING CHECK-PARM EISUU NIHON.
IF RETURN-CODE NOT = 0 THEN
*> CBLNCNVエラー処理
END-IF.
: