COBOL课件第6章表的处理幻灯片.pptVIP

§6.7.4 用位标引用表元素 例： IDENTIFICATION DIVISION. PROGRAM-ID. LAB15. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT PRINT-FILE ASSIGN TO SYSPRINT. DATA DIVISION. FILE SECTION. FD PRINT-FILE LABEL RECORD IS STANDARD. 01 T. 02 TAB-X OCCURS 5 INDEXED BY TX PIC X. 02 RES PIC X(75). PROCEDURE DIVISION. S. OPEN OUTPUT PRINT-FILE. MOVE 12345 TO T. PERFORM VARYING TX FROM 1 BY 1 UNTIL TX 5 DISPLAY TAB-X (TX) END-PERFORM WRITE T. CLOSE PRINT-FILE. STOP RUN. §6.8 检索表 通过元素名和下标或位标直接找到所需元素的方法称为直接法 对于只知道元素某些特点，而不知道其下标的，可以使用SEARCH语句进行检索，SEARCH语句必须使用位标！ 顺序检索法：被检索表元素的排列没有规律，SEARCH按给定的条件逐个检查表元素，直到找到为止 格式：SEARCH 表名[VARYING 位标名1/标识符2][AT END 强制语句1] WHEN 条件1 强制语句2/NEXT SENTENCE [WHEN 条件2 强制语句3/NEXT SENTENCE]…… SEARCH语句是这样执行的：从指定的表元素开始，检查是否满足WHEN后面指定的条件。如不满足，就使N(位标）增值，自动执行一个SET N UP BY 1。使N指向下一个元素的地址，如果查到某一个元素满足指定的条件时，查表工作立即停止，执行WHEN字句中条件后面的语句。 VARYING可选项有以下几种情况： 1）如果不选此可选项，则表示检索语句是按定义这个表时所用的 “INDEXED BY 位标1，位标2……”中的位标1来查表的。 2）如果用VARYING项，譬如VARYING 位标2，则按位标2来查 表。在执行SEARCH语句时，每次自动使位标2增值，而位标1 的值不变。 3）如果VARYING项后是另外一个表的位标名，如VARYING K （K是另一个表的位标），则仍用被查表所指定的第一个位标1 来查表，但被查表的位标1增值的同时，K也增值，指向它相关 的那个表的下一表元素。 4） VARYING项后跟的不是位标名，而是普通数据项，如 VARYING D（D是普通数据项），则仍用被查表所指定的第一 个位标1来查表，但被查表的位标1增值的同时，D也增值。它 的作用是把位标1所指向的元素的序号保存下来。 如： 01 STU-GRADE. 02 STU-REC OCCURS 20 TIMES INDEXED BY N. 03 STNO PIC 9(9). 03 GRADE PIC 9(3). SET N TO 1. //位标赋初值 SEARCH STU-REC //表名 AT END DISPLAY ‘NOT FOUND’ WHEN STNO (N) = ‘200396163’ //查询条件 DISPLAY STNO, GRADE. §6.8 检索表 折半检索法：被检索表元素根据其中某一(几)个数据项的值递增(减)排列，SEARCH采用“二分法”进行检索。 建立表的时候要用 ASCENDING KEY 或 DESCENDING KEY 说明以何种方式排序 如： 01 STU-GRADE. 02 STU-REC OCCURS 20 TIMES ASCENDING KEY IS STNO DECENDING KEY IS GRADE INDEXED BY N. 03 S