cobol中PERFORM知识点

执行语句（PERFORM）

一。执行语句的作用：在一个COBOL程序中，过程部中往往有一部分语句需要执行多次。为了让重复的部分在程序中只出现一次，可以把重复的部分单独写成一段或一节（有一个段名或节名），每次执行这部分语句时转去该段，执行完转回来。这时候就需要用到执行语句（PERFORM ）。

二。执行语句的一般形式： 
            PERFORM           过程名1        或       PERFORM           过程名1           THRU             过程名2

以上形式可简写成如下形式，功能意义是以下的：

PERFORM          过程名1           [THROUGH/THRU           过程名2]

下同上。

意义：执行过程名1中的语句或执行过程名1到过程名2之间的语句。

三。使用PERFORM语句实现循环： 
1.PERFORM          过程名1           [THROUGH/THRU           过程名2]      整数1/标识符          TIMES 
                                                                                                                                        
意义：执行过程1或过程1到2中的语句整数1/标识符遍

说明：

1.1.标识符应为整数数据项

1.2.如果此标识符的值在执行语句序列中有变化，不会影响执行次数。即以它开始时候的值来决定执行的次数。比如整数1开始的值为3，即使在执行过程中整数1的值变为了5，那么上述语句也只会执行3遍而不是5遍。

 2. PERFORM           过程名1        [{THRU}                过程名2   ]        UNTIL     条件

意义：执行过程1或过程1到2中的语句若干遍直到满足UNTIL后面的条件，即反复执行指定的语句序列，直到给定的条件满足为止。

 3.PERFORM           过程名1        [{THRU}                过程名2   ]        
  VARYING    标识符1        FROM   常数1/标识符2        BY       常数2/标识符3             UNTIL   条件
意义：反复执行相应的语句序列，直到标识符1每次执行一次加上步长后满足给定的条件为止。

说明：

标识符1 为变量

常数1/标识符2为初值，为整数或整数数据项。

常熟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 ] 

意义：执行指定语句序列若干遍相当于如下代码：

for(int 参数1 =  初值1  ;  条件1为否;   步长1 ) {
	for(参数2=初值2 ；  条件2为否 ;	步长2 ){
		for(参数3=初值3 ; 条件3为否 ; 步长3 ) {
			指定语句系列；
		}
	}
}

说明：

4.1.最后面的循环体先执行。

4.2.原式中的条件为满足条件时退出，而类比代码中的条件为否时继续循环，为真时退出。