Estou fazendo um PERFORM simples VARIANDO WS-IND DE 1 POR 1
Abaixo está meu código:
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
O índice foi declarado assim:
01 WS-INDICE PIC 9(01).
Abaixo da declaração do meu array
10 TEST-GROUP
OCCURS 009.
15 TEST-OBJEC PICTURE X(01).
15 TEST-DATE PICTURE X(8).
10 FILLER PICTURE X(56).
Meu problema é que o WS-INDICE chega até as 9 e reinicia do 0.