Custom Search
INSPECT TALLYING FOR ALL IDENTIFIER
INSPECT TALLYING FOR ALL IDENTIFIER
The following COBOL program depicts the use of
INSPECT TALLYING FOR ALL IDENTIFIER
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
Click the +1 button below to share it with your friends and colleagues
Share this if you liked it!
Comments
Post new comment