Rational Developer for System z
COBOL for Windows バージョン 7.5 プログラミング・ガイド


ヌル終了ストリングの取り扱い

ストリング処理動詞を、ヌル終了リテラルおよび 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.

関連タスク
ヌル終了ストリングの取り扱い

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


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

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