INSPECT TALLYING FOR CHARACTER AFTER INITIAL SPACES
INSPECT TALLYING FOR CHARACTER AFTER INITIAL SPACES
The following COBOL program depicts the use of
INSPECT TALLYING FOR CHARACTER BEFORE INITIAL SPACES
IDENTIFICATION DIVISION.
PROGRAM-ID. PGM034.
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 'THIS IS TEST STRING TO TEST LEADING SPACES'
TO TEST-STRING
INSPECT TEST-STRING TALLYING WS-COUNTER FOR
CHARACTERS AFTER INITIAL SPACES
DISPLAY 'CHARACTERS AFTER INITIAL SPACES = '
WS-COUNTER
STOP RUN.
The output of the program is
CHARACTERS AFTER INITIAL SPACES = 000000035