INSPECT REPLACING ALL SPACES BY LITERAL

INSPECT REPLACING ALL SPACES BY LITERAL The following COBOL program depicts the use of  INSPECT REPLACING ALL SPACES BY LITERAL        01 TEST-STRING   PIC X(50) VALUE SPACES.        01 WS-COUNTER    PIC 9(9)  VALUE ZEROES.        01 SEARCH-STRING PIC X(2)  VALUE SPACES.              MOVE ‘INSPECT REPLACE DEPICTED BY MAINFRAMEWIZARD’              INSPECT TEST-STRING REPLACING ALL SPACES BY ‘,’              DISPLAY ‘TEST-STRING AFTER REPLACE = ‘ The output of the program is  TEST-STRING AFTER REPLACE = INSPECT,REPLACE,DEPICTED,BY,MAINFRAMEWIZARD,,,,,,,