Cobol for Z900 语言程序设计：第6章 表的建立及查找.pdf

《Cobol for Z900 语言程序设计：第6章 表的建立及查找》 在COBOL编程语言中，表是一种重要的数据结构，它与许多其他高级语言中的数组概念相似。表允许程序员处理具有重复模式的数据，提高了代码的效率和可读性。在本章中，我们将深入探讨如何在COBOL for Z900环境下建立和查找表。 表的基本概念是通过一个统一的名称来表示一组具有相同性质和功能的数据项。例如，假设我们需要存储学生的数学和英语成绩，可以创建一个名为"Student-record"的表，其中每个条目包含一个数学成绩（math pic 9(4)）和一个英语成绩（eng pic 9(4)）。如果要管理大量学生，比如100个，表的使用就显得尤为重要，因为它减少了代码的冗余。 表的结构可以通过`OCCURS`子句来定义。例如，`OCCURS 100 TIMES`表示表中有100个元素。在表中，每个元素的位置可以通过下标（index）或位标（byte offset）来标识，它们合称为“出现号”。在上述例子中，"Student(1)"到"Student(100)"表示了表中的100个元素。 在COBOL中，可以通过嵌套`OCCURS`子句来创建多维表。例如，如果一个学生有多门课程的成绩，可以将`COURSE`定义为一个表，`OCCURS 2 TIMES`，这样就形成了一个二维表，需要两个下标来唯一标识每个元素，如`COURSE (3, 2)`表示第三个学生第二门课程的成绩。 在表的引用中，需要注意以下几点： 1. 数据部中定义的表才能在过程部中引用，例如`MOVE B(1) TO A.`是正确的，而`MOVE B TO A.`是错误的，因为未指定下标。 2. `OCCURS`子句不能在77层（表示独立数据项的层）使用，也不能直接在01层（表示数据项组合的层）上应用。 3. 只有当`OCCURS`说明的数据是初等项时，才能使用`PIC`子句描述其格式。 4. 不能同时使用`OCCURS`子句和`VALUE`子句来初始化同一个数据项，且不能直接用`VALUE`子句为表赋初值。 5. 多维表在内存中按行顺序存储。例如，一个二维表，每一维有两个元素，内存中的顺序是`A(1,1)`、`A(1,2)`、`A(2,1)`、`A(2,2)`。 表的引用和操作是COBOL编程中不可或缺的部分，尤其是在处理大量结构化数据时。理解并熟练运用`OCCURS`子句以及下标和位标的概念，能够帮助我们更有效地构建和管理数据结构，从而提高程序的效率和功能。