Loop (Perform Until)

  IDENTIFICATION DIVISION.
   PROGRAM-ID. LOOP-DEMO.

   DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 COUNTER    PIC 9(2) VALUE 1.

   PROCEDURE DIVISION.
   PERFORM UNTIL COUNTER > 5
       DISPLAY "COUNTER = " COUNTER
       ADD 1 TO COUNTER
   END-PERFORM.
   STOP RUN.</code></pre>


Explanation:



PERFORM UNTIL → loop continues until condition is met.



COUNTER → starts at 1, increments until 5.



Output:



ini




COUNTER = 1
COUNTER = 2
COUNTER = 3
COUNTER = 4
COUNTER = 5