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


ヌル終了ストリングの処理

ヌル終了リテラルおよび 16 進リテラル X'00' と合わせてストリング処理動詞を使用する場合、COBOL はヌル終了ストリングをサポートします。

ヌル終了ストリング (例えば、C プログラムから渡された) は、次のコードのようなストリング処理メカニズムを使用して処理することができます。

01 L        pic X(20) value z'ab'.
01 M        pic X(20) value z'cd'.
01 N        pic X(20).
01 N-Length pic 99    value zero.
01 Y        pic X(13) value 'Hello, World!'.

ヌル終了ストリングの長さを決定して、そのストリングの値および長さを表示するには、次のようにコーディングします。

Inspect N tallying N-length for characters before initial X'00'
Display 'N: ' N(1:N-length) ' Length: ' N-length

ヌル終了ストリングを英数字ストリングに移動するが、ヌルを削除するには、次のようにコーディングします。

Unstring N  delimited by X'00' into X

ヌル終了ストリングを作成するには、次のようにコーディングします。

String Y      delimited by size
       X'00'  delimited by size
       into N.

2 つのヌル終了ストリングを連結するには、次のようにコーディングします。

String L      delimited by x'00'
       M      delimited by x'00'
       X'00'  delimited by size
       into N.

関連参照
ヌル終了英数字リテラル (Enterprise COBOL 言語解説書)


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

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