* ==== TYPE: ST-INSP-CONVERT ====
      * FEATURE: INSPECT CONVERTING + TALLYING
      * STATEMENT: INSPECT
      * BRANCHES: 2, DECISIONS: 1
       IDENTIFICATION DIVISION.
       PROGRAM-ID. INSCNV.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-TEXT    PIC X(15) VALUE 'abc-123-def-456'.
       01 WS-CNT     PIC 9(3) VALUE 0.
       01 WS-TALLY   PIC 9(3) VALUE 0.
       PROCEDURE DIVISION.
       MAIN.
           INSPECT WS-TEXT CONVERTING 'abcdef' TO 'ABCDEF'.
           INSPECT WS-TEXT TALLYING WS-TALLY FOR ALL '-'.
           IF WS-TALLY = 3
               DISPLAY 'OK: INSPECT'
           ELSE
               DISPLAY 'ERROR: INSPECT'.
           STOP RUN.