COBOL中关于数组的操作
一．表的概念
COBOL语言中的表（TABLE）类似于其他高级语言中的数组（ARRAY）。
表中，序号称为下标，相对地址称为位标，下标和位标称为“出现号”。
二．表的建立（OCCURS子句）
格式：OCCURS 整数 TIMES
举例：01 PRODUCT-RECORD.
03 RODUCT OCCURS 20 TIMES.
04 QUANTITY-OF-PRODUCTION PIC 9(6).
04 QANTITY-OF-SALES PIC 9(6).
04 QANTITY-OF-HAND PIC 9(6).
说明：1。OCCURS子句不能出现在77层，因为77层是独立的数据项。
2．OCCURS子句不能用于01层。
3．只有当OCCURS所说明的数据是初等项时，才能在该数据项的描述中使用PIC子句。
4．不能用VALUE子句对表赋初值，不能同时用OCCURS子句和VALUE子句来描述同一数据项。
三．可变长表
格式：OCCURS 整数1 TO 整数2 TIMES DEPENDING ON 数据名1
说明：根据数据名1的值来确定数据项重复的次数。
四．表元素的引用
格式：表名（下标）
说明：1。如果B是一个表，不直接引用表名B而不加下标。
2．如果表元素是组合项，则引用它下属的项（可以是初等项或组合项），也必须用下标指明它是属于哪一个表元素的。
3．如果表元素是组合项，可以用它对下属的数据项进行限定。
4．下标只能是整常数或具有整型值的数据名。
5．下标不能是带下标的数据名，即不能是表元素。
五．给表元素赋初值
1．对包括所有表元素的整个表赋给一个初值，这时可以对表的描述体上面一层的数据项赋一个初值即可。
例1：01 TABLE VALUE IS ZERO.
03 OCCURS 20 PIC 9(3).
例2：01 T VALUE’ABCDEFHIJ’.
02 Q OCCURS 3 PIC X(3).
这样，Q（1），Q（2），Q（3）的内容分别是ABC，DEF，HIJ。
2．联合使用OCCURS子句和REDEFINES子句来给各个表元素赋值。
步骤：（1）先在工作单元节中定义一个组合项，它占的内存的大小和需赋值的表一样，在该组合项中定义若干个数据项，数据项的描述和表的元素相同。
（2）然后对这些数据项分别用VALUE子句赋以初值，由于在这些数据项的描述中没有出现OCCURS子句，因此用VALUE赋初值是合法的（VALUE子句和OCCURS子句不能同时用来描述一个数据项）。这些值就是要赋给表元素的初值。
（3）把这个组合项重定义为一个表。
六．用位标法引用表元素
1．位标的概念：位标的值表示表元素在该表中的相对位置（以字节数表示）。
2．位标名的指定方法：在数据部中定义一个表时所用的OCCURS子句中要加上“INDEXED BY 位标名”短语来指定。
说明：（1）由于位标是专门用于引用表元素的特殊数据项，它不能用来进行算术运算。
（2）一维表或多维表的每一维按需要可以指定若干个位标名，引用时这些位标名只能在该维内使用。
（3）有时需要把位标的值转存到另一个数据项中，但由于位标是特殊类型的数据项，因此，需要另外定义一种特殊的数据项叫位标数据项，用来专门存储位标的值。位标数据项在数据部中定义。描述位标数据项用USAGE子句。例如：77 K USAGE IS INDEX.
七．SET（设置）语句
1．作用：将一表元素的相对地址放到指定的位标去。
如： SET I TO 10.
表示将位标I置位到第10个元素的第一个字节的相对地址上去。
2．格式一
SET 标识符1[，标识符2]…… TO 标识符3/位标3/整数
位标1[，位标2]……
规则列表（设SET A TO B）
| 横-发送项B 竖-接收项A |
整数 |
数值初等项 |
位标名 |
位标数据项 |
| 数值初等项 |
不合法 |
不合法 |
将位标代表的序号传送 |
不合法 |
| 位标名 |
将整数（序号）化成相对地址传送 |
同左 |
（1）如果两个位标名指向同一个表，则转换成另一表的相对地址再传送，即将发送项代表的表元素顺序号减1，乘以接收项相关表元素的长度，再传送 |
简单传送 |
| 位标数据项 |
不合法 |
不合法 |
简单传送 |
简单传送 |
3． 格式二
SET 位标1 [，位标2]…… UP/DOWN BY 标识符/整数
作用：给位标增减一个量。
八．表的检索
1．用于顺序检索的SEARCH语句
格式：SEARCH 表名[VARYING 位标名1/标识符2][AT END 强制语句1]
WHEN 条件1 强制语句2/NEXT SENTENCE
[WHEN 条件2 强制语句3/NEXT SENTENCE]……
举例：SET N TO 1.
SEARCH WORKER-TABLE
AT END DISPLAY‘CANNOT FIND NAME’
WHEN NAME（N）=‘ZHANG SHENG’
DISPLAY NAME（N），PAY（N）.
……
SEARCH语句是这样执行的：从指定的表元素开始，检查是否满足WHEN后面指定的条件。如不满足，就使N增值，自动执行一个SET N UP BY 1。使N指向下一个元素的地址，如果查到某一个元素满足指定的条件时，查表工作立即停止，执行WHEN字句中条件后面的语句。
2．用于有序表的SEARCH语句（折半法检索）
（1）说明升（降）序的一般格式为：
ASCENDING/DESCENDING KEY IS 数据名1[，数据名2]……
ASCENDING/DESCENDING KEY IS 数据名3[，数据名4……]……
举例：02 BOOK-TABLE OCCURS 100
ASCENDING KEY IS NAME
DESCENDING KEY IS COD
INDEX BY N.
（2）SEARCH语句的一般格式（之二）
SEARCH ALL 表名[；AT END 强制语句1]
WHEN 条件 强制语句2/NEXT SENTENCE
举例：SEARCH ALL BOOK-TABLE
AT END DISPLAY’CANNOT FIND NAME’
WHEN NAME(N) = ‘COMPUTER DESIGN’
DISPLAY NAME (N),NUM (N).
九．用PERFORM语句对表进行检索
最多可以处理三重循环
格式：
PERFORM 过程名1[THRU 过程名2]
VARYING 位标名1/下标名1 FROM 位标名2/常量1/标识符1 BY 常量2/标识符2 UNTIL 条件1
AFTER 位标名3/下标名2 FROM 位标名4/常量3/标识符3 BY 常量4/标识符4 UNTIL 条件2
AFTER 位标名5/下标名4 FROM 位标名6/常量5/标识符5 BY 常量6/标识符6 UNTIL 条件3