ILE COBOL 解説書


UNSTRING ステートメント

UNSTRING ステートメントは、送り出しフィールド中の連続したデータを分離し、複数の受け入れフィールドへ入れます。

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

UNSTRING ステートメント - 形式
 
>>-UNSTRING--ID-1----------------------------------------------->
 
>--+-------------------------------------------------------+---->
   '-DELIMITED--+----+--+-----+--+-ID-2-------+--| OR 句 |-'
                '-BY-'  '-ALL-'  '-リテラル-1-'
 
         .--------------------------------------.
         V                                      |
>--INTO----ID-4--| DELIMITER 句 |--| COUNT 句 |-+--------------->
 
>--+-------------------------+--+------------------------+------>
   '-+------+--POINTER--ID-7-'  '-TALLYING--+----+--ID-8-'
     '-WITH-'                               '-IN-'
 
>--+----------------------------------------+------------------->
   '-+----+--OVERFLOW--命令ステートメント-1-'
     '-ON-'
 
>--+---------------------------------------------+-------------->
   '-NOT--+----+--OVERFLOW--命令ステートメント-2-'
          '-ON-'
 
>--+--------------+--------------------------------------------><
   '-END-UNSTRING-'
 
OR 句:
 
|--+---------------------------------+--------------------------|
   | .-----------------------------. |
   | V                             | |
   '---OR--+-----+--+-ID-3-------+-+-'
           '-ALL-'  '-リテラル-2-'
 
DELIMITER 句:
 
|--+-------------------------+----------------------------------|
   '-DELIMITER--+----+--ID-5-'
                '-IN-'
 
COUNT 句:
 
|--+---------------------+--------------------------------------|
   '-COUNT--+----+--ID-6-'
            '-IN-'
 
 

関連情報

ID-1
送り出しフィールドを表します。

これは、英数字データ項目でなければならず、参照変更することはできません。 データはこのフィールドから受け入れフィールドへ転送されます。

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

ID-1 は DBCS データ項目にすることができます。

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


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