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


英数字から DBCS データへの変換 (IGZCA2D)

言語環境プログラムの IGZCA2D サービス・ルーチンは、2 バイト文字を含んでいる英数字データを純 DBCS データに変換します。

IGZCA2D の構文

IGZCA2D サービス・ルーチンを使用するには、CALL ステートメントを使用して次の 4 つのパラメーターをこのルーチンに渡します。

parameter-1
変換の送信フィールドで、英数字データ項目として処理されます。
parameter-2
変換の受信フィールドで、DBCS データ項目として処理されます。

parameter-2 で参照変更を使用することはできません。

parameter-3
変換される parameter-1 の中のバイトの数。

これは、parameter-1LENGTH OF 特殊レジスターにするか、または変換される parameter-1 のバイト数を含む 4 バイトの USAGE IS BINARY データ項目にすることができます。シフト・コードはそれぞれ 1 バイトとしてカウントされます。

parameter-4
変換されたデータを受け取る parameter-2 の中のバイトの数。

これは、parameter-2LENGTH OF 特殊レジスターにするか、または変換されるデータを受け取る parameter-2 のバイト数を含む 4 バイトの USAGE IS BINARY データ項目にすることができます。

使用上の注意

  • parameter-1parameter-3、および parameter-4 はルーチン BY REFERENCE または BY CONTENT に渡すことができますが、parameter-2BY REFERENCE に渡さなければなりません。
  • コンパイラーは、これらのパラメーターの構文検査を行いません。 パラメーターを正しく設定し、CALL ステートメントを使用して、変換ルーチンに渡すように してください。 そうでない場合、結果は予測できません。
  • parameter-1 から parameter-2 を作成する際、IGZCA2D は以下の変更を行います。
    • DBCS データはそのまま変更しないで、シフト・コードを除去します。
    • 単一バイト (非スペース) EBCDIC 文字 X'nn' を X'42nn' で表す文字に変換します。
    • 単一バイト・スペース (X'40') を、X'4240' ではなく DBCS スペース (X'4040') に変換します。
  • IGZCA2D は、parameter-1parameter-3、または parameter-4 の内容を変更しません。
  • parameter-3 の内容および parameter-4 の内容の有効範囲は、1 から 134,217,727 です。

例: IGZCA2D


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

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