PĘTLA-PĘTLA KOŃCA

Struktura LOOP-END LOOP wykonuje powtarzające się transformacje określone przez komendy w pętli aż do osiągnięcia określonego odcięcia. Odcięcie można określić za pomocą klauzuli indeksowej w komendzie LOOP , klauzuli IF komendy END LOOP lub komendzie BREAK w strukturze pętli (patrz BREAK).

LOOP [varname=n TO m [BY {1**}]]  [IF [(]logical expression[)]] 
                         {n  }

transformation commands

END LOOP [IF [(]logical expression[)]]

* * Wartość domyślna, jeśli słowo kluczowe zostanie pominięte.

Ta komenda nie odczytuje aktywnego zbioru danych. Jest on przechowywany, oczekuje na wykonanie za pomocą następnej komendy, która odczytuje zbiór danych. Więcej informacji można znaleźć w temacie Kolejność komend .

Przykłady

SET MXLOOPS=10. /*Maximum number of loops allowed
LOOP. /*Loop with no limit other than MXLOOPS
COMPUTE X=X+1.
END LOOP.


LOOP #I=1 TO 5. /*Loop five times
COMPUTE X=X+1.
END LOOP.