CALL 'CBLDCUTL' USING 一意名1 一意名2 一意名3
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).
次に示す文字コード変換を実行します。
JISコード,またはシフトJISコードで構成される文字列を,EBCDICコード,EBCDIKコード,またはKEISコードで構成される文字列に変換します。
または,EBCDICコード,EBCDIKコード,またはKEISコードで構成される文字列を,JISコード,またはシフトJISコードで構成される文字列に変換します。
ステータスコード | 意味 |
---|---|
00000 | 正常に終了しました。 |
02501 | データ名に指定した値が誤っています。要求コード(データ名A) が間違っている場合も含みます。 |
02504 | メモリ不足が発生しました。 このコードは,制御テーブルのハンドルの値が不正である場合,および変換する文字列に全角文字(2バイト)が含まれているのに,全角文字の1バイト目までの文字列長が指定されている場合にも返されます。 |
02550 | 文字列中に無効コードがあります。 |
02551 | 変換後の文字列の長さがCUPで用意した領域を超えています。 |