COBOL2002 ユーザーズガイド
CBLNCNVサービスルーチンは,英字項目・英数字項目・英数字編集項目・数字編集項目を日本語項目・日本語編集項目に変換するものです。
CALL 'CBLNCNV' USING 引数1 引数2 引数3
表32-5 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) USAGE COMP. |
送り出し側作用対象の項目のけた数を指定する。 |
02 データ名7 PIC 9(8) USAGE COMP. |
受け取り側作用対象の項目のけた数を指定する。 |
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 ''. 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. :
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.