Perform Thru Perform Until Perform Times Perform VaryingPerform ThruPerform Thru 用于通过给出序列中第一个和最后一个段落名称来执行一系列段落。 执行完最后一段后,控制权返回。在线执行将执行 PERFORM 内的语句,直到到达 END-PERFORM。语法以下是内联执行的语法 −...
Perform Thru 用于通过给出序列中的第一个和最后一个段落名称来执行一系列段落。执行完最后一段后,控制权返回。 在线执行 PERFORM 中的语句将一直执行,直到到达 END-PERFORM。 句法 以下是内联执行的语法 - PERFORM DISPLAY 'HELLO WORLD' END-PERFORM. 复制 脱机演示 在这里,一个语句在一个段落中执行,然后...
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语句是COBOL中循环语句的主要构成部分。它类似于其他编程语言中的while或for循环,执行一个代码块一定的次数或者一定的条件下。PERFORM语句的语法如下: PERFORM{label1}VARYINGvariable1FROM[value1]BY[value2]UNTILcondition {statements}END-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....
PERFORM命令将控制显式地传输到一个或多个语句,并在执行指定的语句完成后隐式地将控制返回到下一个可执行语句。 关键字不能缩写。 简单: PERFORM命令END-PERFORM; 命令 有效的z/OS® Debugger命令。 重复: PERFORMWITHTESTBEFOREAFTERVARYING参考FROM参考BY参考UNTILcondition命令END-PERFORM; ...
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 ...
END-PERFORM; 当z/OS Debugger最初显示程序时,请输入以下命令: USE USERID.DT.COMMANDS(COBCALC2) 执行USE 文件后,可以运行COBCALC,并在 "日志" 窗口中显示以下跟踪 (或类似): 42 ACCEPT-INPUT. 59 CALCULATE-LOAN. 42 ACCEPT-INPUT. 66 CALCULATE-VALUE. ...
PERFORM语句允许您重复执行一组语句。循环可以通过以下几种方式控制: 通过计数器:使用PERFORM n TIMES来指定循环次数,n是一个数字,表示要执行循环的次数。例如: PERFORM 10 TIMES DISPLAY 'Hello World' END-PERFORM 通过条件语句:使用PERFORM UNTIL或PERFORM WHILE来指定循环条件。例如: ...
Inline PERFORM: Example: PERFORM COMPUTE TOT = MARK1+MARK2 DISPLAY 'TOTAL MARKS' TOT ... END-PERFORM Simple PERFORM: Example: MAIN-PARA. PERFORM PARA-1 ... STOP-RUN. PARA-1. ... EXIT. PERFORM TIMES: Syntax: PERFORM A-PARA 5 TIMES...