ILE COBOL 解説書


形式 1

形式 1 は、すべてのデータ部セクションのデータ記述記入項目に使われます。 この形式内のレベル番号は、01 〜 49、ならびに 77 のいずれかです。

データ記述記入項目 - 一般形式 1
 
>>-レベル番号--+-------------+---------------------------------->
               +-データ名-1--+
               |        (1)  |
               '-FILLER------'
 
>--+-----------------------------------+------------------------>
   +-REDEFINES--データ名-2-------------+
   |      (2)                          |
   +-LIKE-------データ名-3--+--------+-+
   |                        '-(整数)-' |
   |                 (2)               |
   '-+----+--TYPEDEF-------------------'
     '-IS-'
 
>--+------------------+--+-----------------------+-------------->
   '-+----+--EXTERNAL-'  '-BLANK--+------+--ZERO-'
     '-IS-'                       '-WHEN-'
 
>--+-----------------+--+----------------+---------------------->
   '-| FORMAT 文節 |-'  '-+----+--GLOBAL-'
                          '-IS-'
 
>--+-------------------------------+---------------------------->
   '-+-JUST------+--+------------+-'
     '-JUSTIFIED-'  |       (3)  |
                    '-RIGHT------'
 
>--+--------------------------+--------------------------------->
   +-| OCCURS 文節 - 形式 1 |-+
   '-| OCCURS 文節 - 形式 2 |-'
 
>--+----------------------------------------------------------------------+-->
   '-+-PICTURE-+--+----+--文字ストリング--+-----------------------------+-'
     '-PIC-----'  '-IS-'                  '-| SIZE 句および LOCALE 句 |-'
 
>--+-------------------------------------------------------------+-->
   '-+--------------+--+-LEADING--+--+-------------------------+-'
     '-SIGN--+----+-'  '-TRAILING-'  '-SEPARATE--+-----------+-'
             '-IS-'                              '-CHARACTER-'
 
>--+-------------------------+---------------------------------->
   '-VALUE--+----+--リテラル-'
            '-IS-'
 
>--+----------------------------------+------------------------->
   '-+-SYNCHRONIZED-+--+------------+-'
     '-SYNC---------'  |      (3)   |
                       +-LEFT-------+
                       |       (3)  |
                       '-RIGHT------'
 
>--+-----------------------+------------------------------------>
   |      (2)              |
   '-TYPE-------タイプ名-1-'
 
>--+-----------------------------------------------+-----------><
   '-+---------------+--+-BINARY-----------------+-'
     '-USAGE--+----+-'  +-COMPUTATIONAL----------+
              '-IS-'    +-COMP-------------------+
                        |                 (2)    |
                        +-COMPUTATIONAL-1--------+
                        |        (2)             |
                        +-COMP-1-----------------+
                        |                 (2)    |
                        +-COMPUTATIONAL-2--------+
                        |        (2)             |
                        +-COMP-2-----------------+
                        |                 (2)    |
                        +-COMPUTATIONAL-3--------+
                        |        (2)             |
                        +-COMP-3-----------------+
                        |                 (2)    |
                        +-COMPUTATIONAL-4--------+
                        |        (2)             |
                        +-COMP-4-----------------+
                        +-DISPLAY----------------+
                        |           (2)          |
                        +-DISPLAY-1--------------+
                        +-INDEX------------------+
                        +-PACKED-DECIMAL---------+
                        |         (2)            |
                        +-POINTER----------------+
                        |                   (2)  |
                        '-PROCEDURE-POINTER------'
 
 

注:

  1. TYPEDEF 文節とともに使用することはできません。

  2. IBM 拡張

  3. 構文検査だけ行われます。

データ記述記入項目 - 一般形式 1 (続き)
 
>>-------------------------------------------------------------><
 
OCCURS 文節 - 形式 1:
 
|--OCCURS--整数-2--+-------+--| KEY - INDEXED-BY 句 |-----------|
                   '-TIMES-'
 
OCCURS 文節 - 形式 2:
 
|--OCCURS--整数-1--TO--整数-2----------------------------------->
 
>--+-------+--DEPENDING--+----+--データ名-1--------------------->
   '-TIMES-'             '-ON-'
 
>--| KEY - INDEXED-BY 句 |--------------------------------------|
 
KEY - INDEXED-BY 句:
 
   .----------------------------------------------------------.
   V                                                          |
|----+------------------------------------------------------+-+-->
     |                                       .------------. |
     |             (1)                       V            | |
     '-+-ASCENDING-------+--+-----+--+----+----データ名-2-+-'
       |            (1)  |  '-KEY-'  '-IS-'
       '-DESCENDING------'
 
>--+-------------------------------+----------------------------|
   |                  .----------. |
   |                  V          | |
   '-INDEXED--+----+----指標名-1-+-'
              '-BY-'
 
SIZE 句および LOCALE 句:
 
        (2)
|--SIZE-------+----+--整数-3--LOCALE--+------------------+------|
              '-IS-'                  '-+----+--簡略名-1-'
                                        '-IS-'
 
FORMAT 文節:
 
          (2)
|--FORMAT-------+----+--+-DATE------+--+----+------------------->
                '-OF-'  +-TIME------+  '-IS-'
                        '-TIMESTAMP-'
 
>--+------------------------------+-----------------------------|
   '-+-リテラル-2--+----------+-+-'
     |             '-| 句 1 |-' |
     '-| 句 2 |-----------------'
 
句 1:
 
|--SIZE--+----+--整数-4--+------------------------------+-------|
         '-IS-'          '-LOCALE--+------------------+-'
                                   '-+----+--簡略名-2-'
                                     '-IS-'
 
句 2:
 
|--SIZE--+----+--整数-5--LOCALE--+------------------+-----------|
         '-IS-'                  '-+----+--簡略名-3-'
                                   '-IS-'
 
 

注:

  1. ブール・データ・タイプとともに使用することはできません。

  2. IBM 拡張

文節は、次の 3 つの例外を除いて任意の順序で書くことができます。

すべての文節が相互に互換性があるというわけではありません。 詳細は、個々の文節の説明を参照してください。

文節は、スペース、分離文字のコンマ、または分離文字のセミコロンで区切らなければなりません。


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