COBOL程序设计—9

第九章 表的建立和查找
软件学院 代飞 2011.秋
9.1 表的概念
COBOL语言的表（TABLE）相当于C语言中的数 组（ARRAY），但有一些区别。
表处理：
表的建立
——定义数组
表元素的处理——数组元素的处理
多个数据项地位和作用是相同的，是否都需要独 立的数据名？
有一个居民记录，内包含几个
表元素可以是初等项，也可以是组合项
01 PRODUCT-RECORD.
03
PRODUCT OCCURS 20 TIMES.
04 QUANTITY-OF-PRODUCTION PIC 9(6). 04 QUANTITY-OF-SALES PIC 9(6).
04 QUANTITY-OF-HAND PIC 9(6).
9.7.2 位标名的指定方法
对于如下的：
A
(3) or A (S)
S可能是下标，也可能是位标
如何区别呢？
01 A.
03 T OCCURS 5 INDEXED BY I PIC X(2).
I为位标，而且是表T的位标 T (I)，系统知道按位标方式处理，即把I的值作为相
对地址来处理。
注意，位标名不需要再专门进行描述，如下面对I再次 声明是错误的： 77 I PIC 99. 不能这么做
下面给出表定义的完整语法图，请大家再次注意
indexed的位置
整数1 T IMES 1 数据名 DEPENDING 层号 OCCURS 整数1 TO 整数2 TIMES FILLER ON 数据名2 ASCENDING 数据名3...... IS KEY DESCENDING INDEXED BY 位标名 ......其他数据描述项子句 1
5.
表元素可以为组合项。在建立一个多维表的同时， 也建立了一维或二维等表。
6.
有的COBOL标准只允许建立三维表。而IBM主机 COBOL无此限制。
7.
只有当OCCURS所说明的数据是初等项，才能在
该数据项的描述中使用PIC子句
8.
不能用VALUE子句对表赋初值
9.
多维表的元素在内存中是以行排列。
三个初等项都是“数量”（生产数量、销售数量、库
存数量）。数据描述都是9（6），它们的地位和描述
又都相同，因此，可以进一步简化：
01 PRODUCT-RECORD.
03
PRODUCT是一维表 QUANTITY是二维表
PRODUCT OCCURS 20 TIMES.
04 QUANTITY OCCURS 3 PIC 9(6).
9.3 可变长表
思考：学生选课，每个学生在每学期选课数量可 能不同。但是有每学期最高选课数限制。如何处 理？ C语言：
根据最高选课数建立数组
COBOL
可变长表
我们希望是这样的：
ห้องสมุดไป่ตู้
01 STUDENT-SCORE-RECORD.
03 NAME PIC X(10). 03 QTY-OF-COURSE PIC 9(2). 03 SCORE OCCURS 1 TO 15 DEPENDING ON QTY-OF-COURSE PIC 9(3)
注意：
1.
如果想使用位标，必须在表建立的同时使用 INDEXED BY 短语来指出位标。否则当做一般的 下标。 位标是特殊数据项，不能参与计算；不能用输入 语句（READ）改变其值；也不能将它的值直接打 印或者显示；也不是记录的一部分，不能在文件 节定义，也不必在工作单元节中定义。
多维表的每一维均可以指定位标，按维定义，按 维使用
04
QUANTITY OCCURS 3 TIMES PIC 9(6).
引用：QUANTITY (3,8,2)
示例：有如下程序 01 TABLE.
02
A1 OCCURS 5 TIMES.
03 B1 PIC X(3). 03 B2 OCCURS 10 TIMES PIC 9(4). 03 B3 OCCURS 8 TIMES.
01 UNIT-PRICE-TABLE-R REDEFINES
UNIT-PRICE-TABLE. 02 TABLE-R OCCURS 5. 03 PROD-CODE PIC 9(4). 03 PROD-PRICE PIC 9(6).
9.6 举例
IDENTIFICATION DIVISION. PROGRAM-ID. EXAM2A4. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. DATA DIVISION. WORKING-STORAGE SECTION. 01 UNIT-PRICE-TABLE. 02 FILLER PIC X(10) VALUE '0010000200'. 02 FILLER PIC X(10) VALUE '0020000500'. 02 FILLER PIC X(10) VALUE '0030000300'. 02 FILLER PIC X(10) VALUE '0040000250'. 02 FILLER PIC X(10) VALUE '0050005000'. 01 UNIT-PRICE-TABLE-R REDEFINES UNIT-PRICE-TABLE. 02 TABLE-R OCCURS 5. 03 PROD-CODE PIC 9(4). 03 PROD-PRICE PIC 9(6). 77 I PIC 9. 77 CODE-E PIC ZZZZ. 77 PRICE-E PIC $$$$$$. PROCEDURE DIVISION. S. PERFORM VARYING I FROM 1 BY 1 UNTIL I > 5 MOVE PROD-CODE (I) TO CODE-E MOVE PROD-PRICE (I) TO PRICE-E DISPLAY I DISPLAY 'CODE:', CODE-E, ' IS ', PRICE-E END-PERFORM STOP RUN.
一般格式：
OCCURS 整数1 TO 整数2 TIMES
DEPENDING ON 数据名1
数据名1可以在表所在的记录中描述，也可以不在本
记录中描述，也就是说可以在工作单元节其他部分
描述。但不能是“表”的一部分！
9.4 表元素的引用
表必须在数据部先定义，才能在过程部引用。 使用表名和序号来引用。例如SCORE (2)
OCCURS子句的最简单格式
•
• 1. 2. 3. 4.
OCCURS
说明：
整数 TIMES
OCCURS后面只能是正整数；
不能出现在77层（66，88层也不行）； 不能用于01层； 如果OCCURS描述一个初等项，则“重复出现” 的是初等项。如果用OCCURS描述一个组合项， 则“重复出现”的是组合项。
居民的号码、性别、午龄、地
址等数据。需要为每一居民单 独起一名字，并分别描述。见 右图
如果有100个人呢，如果人更
多呢？
01 PRODUCT-RECORD.
02
PRODUCT-1
QUANTITY-OF-PRODUCTION PIC 9(6) 生产数 QUANTITY-OF-SALES PIC 9(6) 销售数
2.
3.
4.
思考，如何将位标值转储到其他数据项？
二维表需要两个下标。例如QUANTITY (3, 2)
例如，有下列示例：
01 TABLE.
02 B OCCURS 8.
03 C1 PIC X(8). 03 C2 PIC X(2). （1）不能直接引用 表名而不加下标
如
MOVE B TO A.
错误
(2)如果表元素是组合项，则引用其下属项也必须使 用下标
只要确定表名和序号（出现号，occurs number）， 就可唯一地确定一个表元素。
下标：元素的位置序号 位标：元素的相对地址位置
9.2表的建立
如果一个数据名是表，则必须指出这个“表”包含 多少个元素
01 STUDENT-RECORD
02 02
NAME PIC X(20). COURSE OCCURS 5 TIMES PIC 9(3).
再看个例子
01 T VALUE ‘ABCDEFGHIJ’. 02 Q OCCURS 3 PIC X(3).
T Q(1) A B C D Q(2) E F G Q(3) H I
第二种办法，联合使用OCCURS和REDIFINES子句 来给各个表元素赋初值。 例如：
产品号 0010 0020 单价 000200 000500
初值即可。
第二种方法：联合使用OCCURS子句和REDEFINES子
句来给各个表元素赋初值！
第一种方法：对包括所有表元素的整个表赋给 个初值。这时可以对表的描述体上面一层的数据 项赋一个初值即可。
例加，有个表A：
01 TABLE.
01 TABLE VALUE IS ZERO.
02 A OCCURS 20 PIC 9(3).
9.7 用位标法引用表元素
9.7.1 位标的概念
下标——元素在表中的序号 位标——元素在表中的相对位置
编译系统根据下标号计算出需引用表元素的地址。 每次使用都要进行一次地址的计算。
C语言的类比 int x[10];
for(int i=0;i<10;i++)
{ x[i]=0; … *(x+i)=0; }
A
(B (2) )
（6）带下标的数据名又称为下标数据名
9.5 给表元素赋初值
不能在表的定义中同时用OCCURS子句和VLAUE 子句给表元素赋初值。 运行中，用循环语句，通过MOVE等语句赋值