INSPECT TALLYING FOR LEADING ZEROES

INSPECT TALLYING FOR LEADING ZEROES The following COBOL program depicts the use of  INSPECT TALLYING FOR LEADING ZEROES        01 TEST-STRING   PIC X(40) VALUE SPACES.        01 WS-COUNTER    PIC 9(9)  VALUE ZEROES.        01 SEARCH-STRING PIC X(2)  VALUE SPACES.              MOVE ‘0000 THIS IS TEST STRING TO TEST LEADING ZEROES’              INSPECT TEST-STRING TALLYING WS-COUNTER FOR              DISPLAY ‘COUNT OF LEADING ZEROES IS = ‘ The output of the program is  COUNT OF LEADING ZEROES IS = 000000004