第六章 COBOL中的表.pptVIP

第六章 COBOL中的表 6.1 表的概念 6.2 表的声明 6.3 表的赋值与引用 6.4 表的应用 6.1 表的概念 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). 表中，序号(即指出表中第几个元素）称为下标，相对地址（相对于表中第一个元素的字节地址）称为位标，下标和位标统称为“出现号”。 6.2 表的声明（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 EXAMPLE-TABLE-ONE. /*表的名称*/ 05 TABLE-COL OCCURS 5 TIMES. /*表的一列，共重复5列*/ 10 TABLE-ITEM-1 PIC X(1). /*表的第一个条目*/ …… /*省略表的其他条目*/ 10 TABLE-ITEM-N PIC X(3). /*表的最后一个条目*/ 当表中仅有一个条目时，则不需要定义表的列，而直接由条目 取代。 在该情况下表的定义如下。 01 EXAMPLE-TABLE-TWO. /*表的名称*/ 05 TABLE-ITEM PIC X(5) /*表的条目*/ OCCURES 3 TIMES. /*该条目重复3次*/ 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不是“表名”，而是普通的初等数据项。 01 TaxRec. 02 PAYENum PIC 9(8) 02 CountyCode PIC 99. 02 TaxPaid PIC 9(7)V99.