* ==== TYPE: ST-PERF-UNTIL ====
      * FEATURE: PERFORM with UNTIL condition
      * STATEMENT: PERFORM UNTIL
      * BRANCHES: 2, DECISIONS: 1
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PERFUN.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-COUNT  PIC 9(3) VALUE 0.
       01 WS-TOTAL  PIC 9(5) VALUE 0.
       PROCEDURE DIVISION.
       MAIN.
           PERFORM UNTIL WS-COUNT >= 5
               ADD 10 TO WS-TOTAL
               ADD 1 TO WS-COUNT
           END-PERFORM.
           IF WS-TOTAL = 50
               DISPLAY 'OK: UNTIL LOOP'
           ELSE
               DISPLAY 'ERROR: UNTIL'.
           STOP RUN.