[理学]cobol课件 第六章 表的建立和查找.ppt

第六章 表的建立与查找 一．表的概念 COBOL语言中的表（TABLE）类似于其他高级语言中的数组（ARRAY）。 01 student-record. 02 wang. 03 math pic 9(4). 03 eng pic 9(4). 02 zhang. 03 math pic 9(4). 03 eng pic 9(4). …… 02 zhu. 03 math pic 9(4). 03 eng pic 9(4). 表中，序号(即指出表中第几个元素）称为下标，相对地址（相对于表中第一个元素的字节地址）称为位标，下标和位标统称为“出现号”。 二．表的建立（OCCURS子句） 格式：OCCURS 整数 TIMES (在数据部中说明） 举例：01 STUDENT-RECORD. 02 STUDENT OCCURS 100 TIMES. 03 MATH PIC 9(4). 03 ENG PIC 9(4). 进一步简化： 03 COURSE OCCURS 2 TIMES. 这样又建立了一个表 “COURSE”，它的元素需要两个下标才能确定，因此是一个二维表。如果要找第三个学生的英语成绩，则：COURSE (3, 2) , 第一个下标是指第几个学生，第二个下标指出第几门成绩。 此时STUDENT是一维表还是二维表？ 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. 04 C1 PIC 9(6). 04 C2 OCCURS 20 TIMES PIC 99. 04 C3 PIC 9(4). 03 B4 PIC X(3). 02 A2 PIC X(5). 02 A3 PIC X(10). 1）A1,B1,B4是一维表，引用表元素只需一个出现号。如:A1(3),B1(5),B4(1)等。 2）B2,B3,C1,C3是二维表。引用它们需用两个出现号。如：B2(5,3), B3(4,8), C1(2,7), C3(1,8)等。 3）C2是一个三维表。引用时需用三个出现号。如：C2(4,3,1)。 4）A2, A3不是“表名”，而是普通的初等数据项。 说明： 1.OCCURS子句不能出现在77层，因为77层是独立的数据项。 2．OCCURS子句不能用于01层。 3．只有当OCCURS所说明的数据是初等项时，才能在该数据项的描述中使用PIC子句。 4．不能用VALUE子句对表赋初值，不能同时用OCCURS子句和VALUE子句来描述同一数据项。 5．多维表的元素在内存中是以行排列的。如果A是一个二维表，每一维中包含两个元素，在内存中按以下顺序排列：A(1,1)=A(1,2)=A(2,1)=A(2,2)。 三．可变长表 格式：OCCURS 整数1 TO 整数2 TIMES DEPENDING ON 数据名1 说明：根据数据名1的值来确定数据项重复的次数，即表元素的个数。数据名1可以在表所在的记录中描述，也可以在工作单元节中描述，但不能是表中的一部分。 例： 01 STUDENT-RECORD. 02 STUDENT OCCURS 10 TO 100 TIMES DEPENDING ON STUDENT-NUM . 03 MATH PIC 9(4). 03 ENG PIC 9(4). 02 STUDENT-NUM PIC 9(3). 四．表元素的引用 格式：表名（下标或位标） 说明： 表必须先在数据部定义，才能在过程部引用。 01 TABLE. 02