* ==== TYPE: ST-PERF-TIMES ====
      * FEATURE: PERFORM ... TIMES
      * STATEMENT: PERFORM TIMES
      * BRANCHES: 2, DECISIONS: 1
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PERFTM.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-COUNT  PIC 9(3) VALUE 0.
       PROCEDURE DIVISION.
       MAIN.
           PERFORM 3 TIMES
               ADD 1 TO WS-COUNT
           END-PERFORM.
           IF WS-COUNT = 3
               DISPLAY 'OK: TIMES'
           ELSE
               DISPLAY 'ERROR: TIMES'.
           STOP RUN.