CHAPTER 6 过程部之三——执行语句(PERFORM)
一。执行语句的作用:在一个COBOL程序中,过程部中往往有一部分语句需要执行多次。为了让重复的部分在程序中只出现一次,可以把重复的部分单独写成一段或一节(有一个段名或节名),每次执行这部分语句时转去该段,执行完转回来。这时候就需要用到执行语句(PERFORM )。
二。执行语句的一般形式:
PERFORM 过程名1 [THRU] 过程名2
三。使用PERFORM语句实现循环:
1。 PERFORM 过程名1 [{THRU} 过程名2 ] 整数 TIMES
标识符
2。 PERFORM 过程名1 [{THRU} 过程名2 ] UNTIL 条件
3。 PERFORM 过程名1 [{THRU} 过程名2 ]
VARYING 标识符1 FROM 常数1 BY 常数2 UNTIL 条件
标识符2 标识符3
四。执行语句的多重循环形式:COBOL 允许三重循环,其一般格式可写为:
PERFORM 过程名1 [{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 ]
五。出口语句(EXIT):EXIT语句提供了一组过程的公共出口,即指出了被调用过程的逻辑终点。