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


例: IGZCA2D

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

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

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

alpha-item = AB<D1D2D3>CD
dbcs-item  = D4D5D6D7D8D9D0
LENGTH OF alpha-item = 12
LENGTH OF dbcs-item  = 14

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

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

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

関連参照
DBCS 表記


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

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