Hitachi

OpenTP1 Version 7 分散トランザクション処理機能 OpenTP1 クライアント使用の手引 TP1/Client/W,TP1/Client/P編


6.9.3 CBLDCUTL('CNVEXEC ') − 文字コード変換の実行

〈この項の構成〉

(1) 形式

(a) PROCEDURE DIVISIONの指定

CALL 'CBLDCUTL' USING 一意名1 一意名2 一意名3

(b) DATA DIVISIONの指定

TP1/Client/Pの場合

01 一意名1.
   02 データ名A  PIC X(8)  VALUE 'CNVEXEC '.
   02 データ名B  PIC X(5).
   02 FILLER    PIC X(3).
   02 データ名C  PIC S9(9) COMP VALUE ZERO.
   02 データ名D  PIC S9(9) COMP.
   02 データ名E  PIC 9(9)  COMP.
 
01 一意名2.
   02 データ名F  PIC S9(9) COMP.
   02 データ名G  PIC X(n).
 
01 一意名3.
   02 データ名H  PIC S9(9) COMP.
   02 データ名I  PIC X(n).

TP1/Client/P(64)の場合

01 一意名1.
   02 データ名A  PIC X(8)  VALUE 'CNVEXEC '.
   02 データ名B  PIC X(5).
   02 FILLER    PIC X(3).
   02 データ名C  PIC S9(9) COMP VALUE ZERO.
   02 データ名D  PIC S9(9) COMP.
   02 データ名E  PIC 9(18) COMP.
 
01 一意名2.
   02 データ名F  PIC S9(9) COMP.
   02 データ名G  PIC X(n).
 
01 一意名3.
   02 データ名H  PIC S9(9) COMP.
   02 データ名I  PIC X(n).

(2) 機能

次に示す文字コード変換を実行します。

JISコード,またはシフトJISコードで構成される文字列を,EBCDICコード,EBCDIKコード,またはKEISコードで構成される文字列に変換します。

または,EBCDICコード,EBCDIKコード,またはKEISコードで構成される文字列を,JISコード,またはシフトJISコードで構成される文字列に変換します。

(3) UAPで値を設定するデータ領域

(4) 値が返されるデータ領域

(5) ステータスコード

ステータスコード

意味

00000

正常に終了しました。

02501

データ名に指定した値が誤っています。要求コード(データ名A) が間違っている場合も含みます。

02504

メモリ不足が発生しました。

このコードは,制御テーブルのハンドルの値が不正である場合,および変換する文字列に全角文字(2バイト)が含まれているのに,全角文字の1バイト目までの文字列長が指定されている場合にも返されます。

02550

文字列中に無効コードがあります。

02551

変換後の文字列の長さがCUPで用意した領域を超えています。

(6) 注意事項