精通cobol－－9.4.3 PERFORM VARYING语句的一些灵活应用

    在实际应用中，PERFORM VARYING语句不仅仅用于计算表中所有数据的总和。下面，仍然结合工资管理系统的模型，通过几个例子讲解PERFORM VARYING语句的灵活应用。

（1）计算单号月份的工资总和。这里实际上是要计算1、3、5、7、9、11这6个月的工资总和。可以看出，相邻两个月之间都相隔1个月，是有规律的。实际上，具体到代码实现，也就是表中的下标每次增量要求为2。代码如下。

PERFORM   200-ADD-TO-TOTAL

             VARYING  SALARY-SUB    FROM 1 BY 2

             UNTIL     SALARY-SUB > 11

（2）计算第四季度的工资总和。这里是要计算10月份，11月份，12月份这3个月的工资总和。因此，就不能再从1月份开始计算起了。代码如下。

PERFORM   200-ADD-TO-TOTAL

             VARYING  SALARY-SUB    FROM 10 BY 1

             UNTIL     SALARY-SUB > 12

（3）计算前半年的工资总和。这里是要计算1月份～6月份的工资总和。因此，最后就不能以12月份作为结束了。实际上，例1中最后也是以11月份作为结束的。本例实现代码如下。

PERFORM   200-ADD-TO-TOTAL

             VARYING  SALARY-SUB    FROM 1 BY 1

             UNTIL     SALARY-SUB > 6