PERFORM 过程名1 [THROUGH/THRU] 过程名2 [VARYING 参数1 FROM 初值1 BY 步长1 UNTIL 条件1][AFTER 参数2 FROM 初值2 BY 步长2 UNTIL 条件2][AFTER 参数3 FROM 初值3 BY 步长3 UNTIL 条件3]END-PERFORM.还有一个 IF ~ELSE ~END-IF.PERFORM UNT...
COBOL - PERFORM PERFORM 就是调用程序中的函数,也就是执行,每个执行有且只有一个名字 000200 PERFORM INIT-SYORI. 000210* 000220 PERFORM MAIN-SYORI UNTIL WK-END-FLG = "ON " OR WK-ERR-FLG = "ON ". 000230* 000240 PERFORM END-SYORI.
将执行 PERFORM 内的语句,直到到达 END-PERFORM。语法以下是内联执行的语法 −PERFORM DISPLAY 'HELLO WORLD' END-PERFORM. 越线执行这里,在一个段落中执行一条语句,然后将控制权转移到其他段落或部分。语法以下是越线执行执行的语法 −PERFORM PARAGRAPH1 THRU PARAGRAPH2 ...
PERFORM 中的语句将一直执行,直到到达 END-PERFORM。 句法 以下是内联执行的语法 - PERFORM DISPLAY 'HELLO WORLD' END-PERFORM. 复制 脱机演示 在这里,一个语句在一个段落中执行,然后控制转移到其他段落或部分。 句法 以下是 Out-of-line perform 的语法 - PERFORM PARAGRAPH1 THRU PARAGRAPH2 复制 例...
WORKING-STORAGE SECTION. 01 WS-CNT PIC 9(1) VALUE 0. PROCEDURE DIVISION. A-PARA. PERFORM B-PARA WITH TEST AFTER UNTIL WS-CNT>3. STOP RUN. B-PARA. DISPLAY 'WS-CNT : 'WS-CNT. ADD 1 TO WS-CNT. END-PERFORM.Output: WS-CNT : 0 WS-CNT : 1 WS-CNT : 2 WS-CNT : 3 PERFORM ...
END-PERFORM. Close-File. CLOSE InputFile. STOP RUN. 上述代码通过READ语句逐行读取文件中的数据,并将其存储在工作存储区(WORKING-STORAGE SECTION)中进行处理。 数据过滤与汇总 在商业数据处理中,常常需要对数据进行过滤和汇总。以下示例展示了如何使用COBOL对数据进行简单的筛选和统计: ...
过程也可以直接写入PERFORM中。但是THROUGH就不好用了。语法如下 : PERFORM 过程语句 END-PERFORM. PERFORM N TIMES 过程语句 END-PERFORM. PERFORM [WITH TEST BEFORE/AFTER] UNTIL CONDITION 过程语句 END-PERFORM. PERFORM [WITH TEST BEFORE/AFTER] VARYING A FROM B BY C UNTIL CONDITION1 过程语句 END-PERFO...
END-PERFORM. 关键字KEY 关键字有ASCENDING(升序,由低到高)和DESCENDING(降序,由高到低)。 03 TEXT PIC XXX OCCURS 7 TIMES ASCENDING KEY IS A,B. 05 A PIC XXX. 05 B PIC XXX. TEXT中的元素按A升序排序,A相同的元素按B升序排序。 关键字的作用是定义SEARCH语句带ALL短语时表格的排序。
5. PERFORM THRU 6. PERFORM TIMES Inline Perform: It performs a set of Cobol statements between Perform & END-Perform. Basically this is to keep a particular logic in a boundary and execute it in a loop or number of times or execute depending upon a condition. This is useful if that set...
* COMMANDS IN A COBOL USE FILE MUST BE CODED IN COLUMNS 8-72. * IF NECESSARY, COMMANDS CAN BE CONTINUED BY CODING A '-' IN * COLUMN 7 OF THE CONTINUATION LINE. AT GLOBAL LABEL PERFORM; LIST LINES %LINE; GO; END-PERFORM; 当z/OS Debugger 最初显示程序时,请输入以下命令: USE USERID...