精通cobol－－9.4.1 PERFORM VARYING语句的使用方法

     PERFORM VARYING语句的基本格式如下所示。

PERFORM …

VARYING …FROM …BY…

UNTIL  …

其中，“…”部分则是相应的变量，根据具体的不同情况而有所不同。

q      statement变量：指进行处理过程的名称。

q      item-sub变量：通常为表中数据对应的下标。

q      x1变量：通常指从表中的哪一个下标开始处理。

q      x2变量：通常指每次处理后对于下标的增量。

q      x3变量：通常指下标经过増量处理后达到的上限值。

使用PERFORM VARYING语句处理过程所对应的流程图如图所示。

通过此流程图可以看到，PERFORM VARYING语句的处理过程实际上是通过以下步骤完成的。

（1）将表的下标变量item-sub赋值为x1。

（2）判断item-sub的值是否大于x3。若不大于，则顺次执行步骤3，否则跳转到步骤6。

（3）执行statement处理过程。该处理过程通常都会涉及到对含有下标数据类型的操作。

（4）将item-sub的值增加x2，同时保存在item-sub里。

（5）跳转到步骤2继续执行。

（6）结束处理。