在COBOL中,PERFORM语句用于重复执行一段代码块,类似于其他编程语言中的循环结构。PERFORM语句有以下几种形式: 1. 简单的PERFORM语句: PERFORM 100-PROCESS. 这种形式的PERFORM语句会重复执行标签为100-PROCESS的代码块,直到满足某个条件才停止。 2. PERFORM UNTIL语句: PERFORM 200-PROCESS UNTIL SALES-TOTAL > 100000...
Perform Thru Perform Until Perform Times Perform Varying Perform Thru Perform Thru 用于通过给出序列中的第一个和最后一个段落名称来执行一系列段落。执行完最后一段后,控制权返回。 在线执行 PERFORM 中的语句将一直执行,直到到达 END-PERFORM。 句法 以下是内联执行的语法 - PERFORM DISPLAY 'HELLO WORLD'...
Perform Thru Perform Until Perform Times Perform VaryingPerform ThruPerform Thru 用于通过给出序列中第一个和最后一个段落名称来执行一系列段落。 执行完最后一段后,控制权返回。在线执行将执行 PERFORM 内的语句,直到到达 END-PERFORM。语法以下是内联执行的语法 −...
PERFORM UNTIL EOF-SWITCH = 'Y' READ INPUT-FILE INTO INPUT-RECORD AT END MOVE 'Y' TO EOF-SWITCH NOT AT END DISPLAY "Read record: " INPUT-FIELD END-PERFORM CLOSE INPUT-FILE STOP RUN.```在上面的代码中,首先定义了一个文件描述符FD和一个输入记录INPUT-RECORD。然后在工作存储部分定义了一个名...
在Cobol中,程序的控制流是通过使用PERFORM语句来实现的。PERFORM语句用于执行一个被称为“段”或“段落”的代码块。每个段落都有一个唯一的名称,并且可以通过使用PERFORM语句来调用。 ...
PERFORM语句允许您重复执行一组语句。循环可以通过以下几种方式控制: 通过计数器:使用PERFORM n TIMES来指定循环次数,n是一个数字,表示要执行循环的次数。例如: PERFORM 10 TIMES DISPLAY 'Hello World' END-PERFORM 通过条件语句:使用PERFORM UNTIL或PERFORM WHILE来指定循环条件。例如: ...
01 WS-EOF PIC A(1). PROCEDURE DIVISION. OPEN INPUT STUDENT. PERFORM UNTIL WS-EOF='Y' READ STUDENT INTO WS-STUDENT AT END MOVE 'Y' TO WS-EOF NOT AT END DISPLAY WS-STUDENT END-READ END-PERFORM. CLOSE STUDENT. STOP RUN. 假设input.txt文件中可用的输入文件数据包含以下内容 −20003...
您还可以使用 PERFORM UNTIL 循环将 PERFORM 动词设置为执行代码块,直到满足特定条件为止。 最后,PERFORM VARYING 循环会工作一定次数,并取决于我们使用的 FROM BY 值。 让我们从简单的 PERFORM 语句的语法开始。 简单的 PERFORM 语句: 如前所述,PERFORM 语句将以最简单的形式只执行一次代码块。对于此示例,我们使用...
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....
1cobol循环问题?PERFORM 1-SECTION UNTIL I > 50 OR FLG-ERR = CNS-ONPERFORM VARYING J FROM 1 BY 1 UNTIL J >50 OR FLG-ERR = CNS-ON.END-PERFORM这2个循环有什么不同, 2 cobol循环问题? PERFORM 1-SECTION UNTIL I > 50 OR FLG-ERR = CNS-ON PERFORM VARYING J FROM 1 BY 1 UNTIL J ...