精通cobol－－9.2.3 下标的格式要求

    关于下标的格式要求，主要有以下几点注意的地方。

（1）下标必须为整型数据。

（2）下标既可为具体数字，也可为在数据部定义的一个变量。

通过具体数字定义的下标包含在以下示例语句中。

MOVE  DEPOSITS （10） TO  PL-DEPOSIT.

通过变量定义的下标包含在以下示例语句中。

SUBTRACT  TAX-RATE  FROM  DEPOSITS （DEPOSITS-SUB）.

（3）下标可通过输入数据得到。但在实际开发中，通常仍然需要在数据部的工作存储节WORKING-STORAGE中定义。

（4）在定义下标时，最好还应在后面加上USAGE IS COMP代码。USAGE IS COMP代码并非必须要求添加，只是加上后可以提高该数据访问的效率。定义方式如下。

  05  DEPOSITS-SUB    PIC 99     USAGE IS COMP.

     此处也可将其简写为“COMP”，方式如下。

05  DEPOSITS-SUB    PIC 99    COMP.

（5）每个后面跟有OCCURS语句的数据条目都应有相应的下标。如此，定义的一组数据方能通过下标访问到。

（6）在定义拥有下标结构的数据时，括号和前面的数据条目名称之间至少应有一个空格。否则，系统会将其认为是一个含有括号的非法数据。该注意事项如下所示。

DEPOSITS   （DEPOSITS-SUB）

          ↑

          此处至少应有一个以上的空格（含一个）

最后，关于第(4)点和第(6)点需要再次强调一下，这两点内容是十分重要的。同时，在初学COBOL进行开发时，也是最容易被忽视的。下面特将此二点要求提取出来，列举如下。

q      在定义下标时，提倡在后面加上USAGE IS COMP代码。该代码不添加亦不会报错，但添加后可以提高该数据访问的效率。

q      在定义拥有下标结构的数据时，括号和前面的数据条目名称之间至少应有一个空格。