２．３．１　添字

添字付けでは、表要素を参照するために、その要素が表の中で何番目のものなのかを添字によって指定します。添字はデータ名の後にカッコで囲み、整数または整数値を内容とするデータ名で指定します。

データ名で指定された場合には、その内容が出現番号とみなされます。

たとえば、１次元の表の定義例で特定の要素を参照したい場合には、次のように記述します。

DOG(3)………………………	表中の“ｄ3”を示します。
TABLE-ELEMENTS(16) …	表中の“ｔ16”を示します。
TABLE-ELEMENTS(N) …	Ｎの内容が１６のとき上の例と同じ要素を示します。

・このカッコで囲まれた整数やデータ名を添字といいます。

●添字は、１次元の表では１個指定します。そして、２次元の表では２個、３次元の表では３個の添字をコンマで区切って指定します。

２次元の表の定義例では、

EASY(2,1) ………………	表中の“ｅ2、1”を示します。
DOG(20,2) ………………	表中の“ｄ20、2”を示します。

３次元の表の定義例では、

EASY(1,2,2) ……………	表中の“ｅ1、2、2”を示します。
FOX(2,2,2) ………………	表中の“ｆ2、2、2”を示します。

このように、添字は外側の大きな表から内側の表（大、中、小）の順番で、記述していきます。

なお、添字の書き方には、次のような記述方法もあります。

EASY(X,Y,Z) ……………	“Ｘ、Ｙ、Ｚ”はデータ名です。
EASY(X,1,Z) ……………	データ名と整数を混在させて指定することもできます。
EASY(1,2,Z)

●１次元の表の定義例

このプログラムでは、１次元の表を定義しています。

１次元の表の定義例

1. TABLE1.
   2. TABLE-ELEMENTS OCCURS 20 TIMES.
      3. DOG PIC X(2).

      03 FOX PIC 9.

これによって、次のような表が作成されます。

１次元の表

図中で“ＴＡＢＬＥ−ＥＬＥＭＥＮＴＳ”を意味している“ｔ”が２０回反復されています。何番目の“ｔ”かを示すには、添字を用います。

●２次元の表の定義例

ＯＣＣＵＲＳ句に従属する項目に、さらにＯＣＣＵＲＳ句を指定すると、２次元の表を定義することができます。このプログラムでは、２次元の表を定義しています。

２次元の表の定義例

1. TABLE1.
   2. TABLE-ELEMENTS OCCURS 20 TIMES.
      3. DOG OCCURS 2 TIMES.
         4. EASY PIC X(2).

         04 FOX PIC 9(2).

これによって、次のような表が作成されます。

２次元の表

１つ目の添字は“ｔ”の何番目かを示し、２つ目の添字は“ｄ”、“ｅ”および“ｆ”の何番目かを示します。

●３次元の定義例

このプログラムでは、３次元の表を定義しています。本ＣＯＢＯＬでは、このように７次元の表まで簡単に指定できます。

３次元の表の定義例

1. TAB.
   2. TABLE1 OCCURS 2 TIMES.
      3. TABLE-ELEMENTS OCCURS 3 TIMES.
         4. DOG OCCURS 2 TIMES.
            5. EASY PIC X(2).

            05 FOX PIC 9.

これによって、次のような表が作成されます。

３次元の表

●可変繰り返し項目の定義例

このプログラムのように、ＤＥＰＥＮＤＩＮＧ　ＯＮ句をもつＯＣＣＵＲＳ句を記述すると、表内の項目やレコードの大きさを実行時に決めることができます。

表可変繰り返し項目定義例

1. TAB-SIZE PIC 9(2).

1. TAB.
   2. TABLE-ELEMENTS OCCURS 2 TO 10 TIMES DEPENDING ON TAB-SIZE.
      3. DOG PIC X(2).

      03 EASY PIC 9(2).

これによって、次のような表が定義され、すべて大きさが可変となります。

ＴＡＢ−ＳＩＺＥの値が３のとき

可変繰り返し項目の表

ＴＡＢ−ＳＩＺＥの値は、２以上１０以下の範囲内で自由に変えることができます。