INSPECT TALLYING FOR ALL IDENTIFIER

INSPECT TALLYING FOR ALL IDENTIFIER

The following COBOL program depicts the use of

IDENTIFICATION DIVISION.

PROGRAM-ID. PGM029.

AUTHOR. MAINFRAMEWIZARD.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 TEST-STRING PIC X(40) VALUE SPACES.

01 WS-COUNTER PIC 9(9) VALUE ZEROES.

01 SEARCH-STRING PIC X(2) VALUE SPACES.

PROCEDURE DIVISION.

10000-MAIN-PARA.

MOVE 'USE OF INSPECT DEPICTED BY MAINFRAMEWIZARD.COM'

TO TEST-STRING

MOVE 'CT'

TO SEARCH-STRING

INSPECT TEST-STRING TALLYING WS-COUNTER FOR ALL

SEARCH-STRING

DISPLAY 'COUNT OF ALL SEARCH-STRING IN STRING IS = '

WS-COUNTER

STOP RUN.

The output of the program is

COUNT OF ALL SEARCH-STRING IN STRING IS = 000000002