データ記述項の骨組み

構文規則

1. 書き方 1 では、レベル番号は 01 から 49 までのいずれか、または 77 とする。
2. 原則として、各句をどんな順序で書いてもよい。ただし、例外が 3 つある。data-name-1 または FILLER (無名項目) 句が

    指定されていれば、

   それらをレベル番号の直後に書く。REDEFINES (再定義) 句を指定するときは、data-name-1 または FILLER 句 が指定してあれば直後に書く。

    指定がなければ、レベル番号の直後に書く。 拡張値テーブル構文を指定する場合は、OCCURS 句の後に書くか、上位レベルで指定された OCCURS 句に従属するものとする。

3. RENAMES 句の左辺または以下の用途の項目に対して PICTURE (形式) 句を指定してはならない。
   • INDEX、
   •  OBJECT-REFERENCE、
   • PROCEDURE-POINTER、
   •  PROGRAM-POINTER、
   • POINTER、
   •  COMPUTATIONAL-1、COMPUTATIONAL-2、
   •  BINARY-CHAR、BINARY-SHORT、BINARY-LONG、BINARY-DOUBLE、
   •  FLOAT-SHORT、FLOAT-LONG、
   •  EVENT-POINTER、MONITOR-POINTER、MUTEX-POINTER、SEMAPHORE-POINTER、または THREAD-POINTER。

   基本項目を記述する他のどの記述項に対しても、PICTURE 句を指定しなければならない。ただし、次の規則 (構文規則 4) に該当する場合を除く。

4. 書き方 1 の VALUE 句で英数字定数または各国文字定数が指定されている場合は、基本項目に対して PICTURE 句を省略してもよい。以下の場合は、PICTURE 句が暗黙的に指定される。
   1. リテラルが英数字の 'PICTURE X(長さ)' である
   2. リテラルが各国語型の 'PICTURE N(長さ))' である

   ここで、「長さ」とは、「COBOL 言語の概念」の章の「リテラル」節で指定された、リテラルの長さである。

5. THRU と THROUGH は同等である。
6.  CONSTANT 句は、作業場所節または連絡節の 01 レベルでのみ指定できる。
7.  EXTERNAL 句を指定できるのは、作業場所節内の 01 レベルのデータ記述項の中だけである。
8.  EXTERNAL 句と REDEFINES 句は、同じデータ記述項の中には指定できない。
9.  EXTERNAL 句と THREAD-LOCAL 句は、同じデータ記述項の中には指定できない。
10.  GLOBAL (大域) 句は、01 レベルのデータ記述項の中でだけ指定できる。
11.  GLOBAL 句または EXTERNAL 句を含む記述項、または GLOBAL 句または EXTERNAL 句を含むファイル記述項に関連するレコード記述に対しては、data-name-1 を指定する。
12.  TYPEDEF 句は、レベル番号 01 のデータ記述項にだけ記述できる。
13.  TYPEDEF 句は、data-name-1 が記述されている時にだけ使用できる。つまり、明示的または暗黙的な FILLER 句と同じデータ記述項の中では使用できない。

    TYPEDEF 句を集団項目に対して指定した場合、従属するデータ記述は明示的または暗黙的な FILLER 句で定義できるので注意が必要である。

14. SYNCHRONIZED、PICTURE、JUSTIFIED、BLANK WHEN ZERO の各句は、基本データ項目以外には指定できない。

     SYNCHRONIZED 句は、集団項目に指定できる。

15.  literal-6 は、浮動小数点値あるいは負数の値であってはならず、18 桁を超えてはならない。
16. literal-6 が式の一部として使用されている場合、整数でなければならない。
17.  data-name-2 および data-name-3 は、暗黙的に修飾できる。
18.  VALUE 句は、字類が指標、オブジェクト、ポインターのデータ項目には指定できない。
19.  ANY LENGTH 句を指定した場合は、レベル番号、エントリ名、PICTURE、および USAGE 以外の句は指定できない。