ストリング処理動詞を、ヌル終了リテラルおよび 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 言語解説書」)