STRING ステートメント
STRING ステートメント・ストリングは、複数のデータ項目またはリテラルの一部 または全部の内容を連結して、単一のデータ項目にします。
一連の MOVE ステートメントの代わりに、1 つの STRING ステートメントを書くことができます。
STRING ステートメント - 形式 .-------------------------------------------------------. | .----------------. | V V | | >>-STRING------+-ID-1-------+-+--DELIMITED--+----+--+-ID-2-------+-+-----> '-リテラル-1-' '-BY-' +-リテラル-2-+ '-SIZE---' >--INTO--ID-3--+-------------------------+-------------------------------> '-+------+--POINTER--ID-4-' '-WITH-' >--+----------------------------------------+----------------------------> '-+----+--OVERFLOW--命令ステートメント-1-' '-ON-' >--+---------------------------------------------+--+------------+------>< '-NOT--+----+--OVERFLOW--命令ステートメント-2-' '-END-STRING-' '-ON-'
注: ID-4 (POINTER 項目) 以外のすべての ID は、明示的または暗黙に USAGE DISPLAY を持っていなければなりません。
- ID-1
- 1 つまたは複数の送り出しフィールドを表します。 送り出しフィールドまたは分離文字が基本数字項目である場合には、それは整数として記述されていなければなりません。 さらに、その PICTURE 文字ストリングに記号 P が含まれていてはなりません。
- リテラル-1
- 1 つまたは複数の送り出しフィールドを表します。 すべてのリテラルは非数字リテラルでなければなりません。 それぞれは、ALL リテラルをもたない表意定数にすることができます。 表意定数を指定すると、それは 1 文字の非数字リテラルと見なされます。
IBM Extension
IBM Extension
- ID-1 から ID-3 まで
- 外部浮動小数点項目にすることはできません。
End of IBM Extension
IBM Extension
IBM Extension
ID-1、ID-2、または ID-3 のいずれかが DBCS データ項目である場合は、 それらの ID はすべて DBCS データ項目なければならず、リテラルはすべて DBCS リテラルでなければなりません。
ID-1、ID-2、または ID-3 のいずれかが国別データ項目である場合は、それらのすべてが国別データ項目でなければなりません。
リテラル-1 または リテラル-2 のいずれかが DBCS リテラルである場合は、両方とも DBCS リテラルでなければならず、 リテラル-1 からリテラル-3 は DBCS データ項目でなければなりません。
SPACE は、DBCS 項目に使用できる唯一の表意定数です。
End of IBM Extension End of IBM Extension
関連情報
