Schleifen und Iterationen

Schleifen und iterative Konstrukte in COBOL werden nicht durch Schlüsselwörter wie for oder while definiert, sondern verwenden syntaktische Variationen derselben Anweisung PERFORM.

Feste numerische Schleifen (PERFORM TIMES)

Wenn wir die Ausführung eines Absatzes eine feste Anzahl von Malen wiederholen müssen, können wir der Anweisung PERFORM den Modifikator TIMES hinzufügen.

PERFORM ELABORA-RIGA 10 TIMES.

In diesem Fall führt der Compiler den Absatz ELABORA-RIGA genau 10 Mal aus und setzt dann die lineare Ausführung des Codes fort.

Bedingte Schleifen (PERFORM UNTIL)

Um zu iterieren, bis eine bestimmte Bedingung wahr wird (entspricht einer umgekehrten while-Schleife), verwenden wir die Anweisung PERFORM ... UNTIL.

PERFORM INCR-CONTATORE UNTIL WS-COUNTER > 5.

PROCEDURE DIVISION.
MAIN-PROCEDURE.
    PERFORM PROCESS-ITEM UNTIL WS-COUNTER > 3.
    STOP RUN.

PROCESS-ITEM.
    DISPLAY "Counter: " WS-COUNTER.
    ADD 1 TO WS-COUNTER.

Probier es selbst aus