* ==== TYPE: ST-INSP-BEFORE ====
      * FEATURE: INSPECT with BEFORE / AFTER INITIAL
      * STATEMENT: INSPECT (BEFORE/AFTER)
      * BRANCHES: 2, DECISIONS: 1
       IDENTIFICATION DIVISION.
       PROGRAM-ID. INSBEF.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-TEXT    PIC X(30) VALUE 'AAAAABBBBBCCCCCDDDDD'.
       01 WS-COUNT   PIC 9(3) VALUE 0.
       PROCEDURE DIVISION.
       MAIN.
           INSPECT WS-TEXT TALLYING WS-COUNT FOR LEADING 'A'.
           IF WS-COUNT = 5
               DISPLAY 'OK: BEFORE COUNT'
           ELSE
               DISPLAY 'ERROR: BEFORE'.
           STOP RUN.