精通cobol－－9.4.2 如何使用PERFORM VARYING语句处理表中数据

   上面谈到了PERFORM VARYING语句的基本处理流程。那么，如何使用PERFORM VARYING语句处理表中数据呢？下面仍然结合具体实例进行讲解。

以员工工资管理系统为例，首先进行简化模型提取。提取模型只包括一个员工一年12个月的工资，即只含有12个数据项。将这12个数据定义为下标表结构如下。

01  ANNUAL-SALARY-TABLE.

    05   SALARIES           PIC 9(5)

                              OCCURS 12 TIMES.

05   SALARY-SUB        PIC 99    USAGE IS COMP.

这时，若要计算全年总工资，通常的做法只能是将每月工资一条条地相加。代码如下。

COMPUTE  ANNUAL-TOTA