ILE COBOL 解説書


STRING ステートメント

STRING ステートメント・ストリングは、複数のデータ項目またはリテラルの一部 または全部の内容を連結して、単一のデータ項目にします。

一連の MOVE ステートメントの代わりに、1 つの STRING ステートメントを書くことができます。

STRING ステートメント - 形式
 
>>-STRING------------------------------------------------------->
 
   .-------------------------------------------------------.
   | .----------------.                                    |
   V V                |                                    |
>------+-ID-1-------+-+--DELIMITED--+----+--+-ID-2-------+-+---->
       '-リテラル-1-'               '-BY-'  +-リテラル-2-+
                                            '-SIZE-------'
 
>--INTO--ID-3--+-------------------------+---------------------->
               '-+------+--POINTER--ID-4-'
                 '-WITH-'
 
>--+----------------------------------------+------------------->
   '-+----+--OVERFLOW--命令ステートメント-1-'
     '-ON-'
 
>--+---------------------------------------------+-------------->
   '-NOT--+----+--OVERFLOW--命令ステートメント-2-'
          '-ON-'
 
>--+------------+----------------------------------------------><
   '-END-STRING-'
 
 
注:
ID-4 (POINTER 項目) 以外のすべての ID は、明示的または暗黙に USAGE DISPLAY を持っていなければなりません。
ID-1
1 つまたは複数の送り出しフィールドを表します。 送り出しフィールドまたは分離文字が基本数字項目である場合には、それは整数として記述されていなければなりません。 さらに、その PICTURE 文字ストリングに記号 P が含まれていてはなりません。

リテラル-1
1 つまたは複数の送り出しフィールドを表します。 すべてのリテラルは非数字リテラルでなければなりません。 それぞれは、ALL リテラルをもたない表意定数にすることができます。 表意定数を指定すると、それは 1 文字の非数字リテラルと見なされます。

+----------------------------------IBM 拡張----------------------------------+

ID-1 から ID-3 まで
外部浮動小数点項目にすることはできません。

+------------------------------End of IBM 拡張-------------------------------+

+----------------------------------IBM 拡張----------------------------------+

ID-1ID-2、または ID-3 のいずれかが DBCS データ項目である場合は、 それらの ID はすべて DBCS データ項目なければならず、リテラルはすべて DBCS リテラルでなければなりません。

リテラル-1 または リテラル-2 のいずれかが DBCS リテラルである場合は、両方とも DBCS リテラルでなければならず、 リテラル-1 からリテラル-3 は DBCS データ項目でなければなりません。

SPACE は、DBCS 項目に使用できる唯一の表意定数です。

+------------------------------End of IBM 拡張-------------------------------+

関連情報


[ ページのトップ | 前ページ | 次ページ | 目次 | 索引 ]