COBOL--INSPECT

       IDENTIFICATION DIVISION.
       PROGRAM-ID. INSP.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77   WS-USER      PIC  X(10).
       77   WS-COUNT   PIC  9(02).
       PROCEDURE DIVISION.
        ACCEPT  WS-USER.
        INSPECT WS-USER TALLYING WS-COUNT  FOR ALL CHARACETRS.
        DISPLAY  'NUMBER OF CHARACTERS IN USER NAME= ', WS-COUNT.
        INSPECT WS-USER  TALLYING WS-COUNT  FOR ALL 'A'.
        DISPLAY 'NUMBER OF TIMES CHARACTER A IS FOUND= ',WS-COUNT.
        INSPECT WS-USER REPLACING  ALL 'C'  BY  'G'.
        DISPLAY 'USER NAME AFTER REPLACING C BY G = ', WS-USER.
        STOP RUN.