COBOL INSPECT TALLYING FOR ALL SPACES
INSPECT TALLYING FOR ALL SPACES
The following COBOL program depicts the use of
INSPECT TALLYING FOR ALL SPACES
IDENTIFICATION DIVISION.
PROGRAM-ID. PGM027.
AUTHOR. MAINFRAMEWIZARD.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TEST-STRING PIC X(40) VALUE SPACES.
01 WS-COUNTER PIC 9(9) VALUE ZEROES.
PROCEDURE DIVISION.
10000-MAIN-PARA.
MOVE ' INSPECT TALLYING DEPICTED BY MAINFRAMEWIZARD.COM'
TO TEST-STRING
INSPECT TEST-STRING TALLYING WS-COUNTER FOR ALL SPACES
DISPLAY 'ALL SPACES COUNT IS = ' WS-COUNTER
STOP RUN.
The output of the program is
ALL SPACES COUNT IS = 000000005