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