Rational Developer for System z
Enterprise COBOL for z/OS バージョン 4.1 プログラミング・ガイド


例: IGZCD2A

この CALL ステートメント例は、dbcs-item 内の DBCS データを 2 バイト文字を含む英数字データに変換します。変換の結果は alpha-item に入れられます。

CALL "IGZCD2A" USING BY REFERENCE dbcs-item alpha-item
    BY CONTENT LENGTH OF dbcs-item LENGTH OF alpha-item

変換前の dbcs-item および alpha-item の内容と長さが次のものであるとします。

dbcs-item  = .A.BD1D2D3.C.D
alpha-item = ssssssssssss
LENGTH OF dbcs-item  = 14
LENGTH OF alpha-item = 12

変換後、dbcs-item および alpha-item には次のものが入ります。

dbcs-item  = .A.BD1D2D3.C.D
alpha-item = AB<D1D2D3>CD

RETURN-CODE レジスターの内容は 0 です。

関連参照
DBCS 表記


ご利用条件 | フィードバック

このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)