我正在做一个简单的 PERFORM VARYING WS-IND FROM 1 BY 1
下面是我的代码：
PERFORM VARYING WS-INDICE FROM 1 BY 1
UNTIL WS-INDICE > 9
OR TEST-OBJEC(WS-INDICE) = SPACES
MOVE TEST-OBJEC(WS-INDICE) TO WS-VAL-OBJEC(WS-INDICE)
MOVE TEST-DATE(WS-INDICE) TO WS-DAT-OBJEC(WS-INDICE)
END-PERFORM
索引声明如下：
01 WS-INDICE PIC 9(01).
下面是我的数组的声明
10 TEST-GROUP
OCCURS 009.
15 TEST-OBJEC PICTURE X(01).
15 TEST-DATE PICTURE X(8).
10 FILLER PICTURE X(56).
我的问题是 WS-INDICE 直到 9 才到达并从 0 重新启动。