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
 
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PGM035.
       AUTHOR. MAINFRAMEWIZARD.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 TEST-STRING   PIC X(50) VALUE SPACES.
       01 WS-COUNTER    PIC 9(9)  VALUE ZEROES.
       01 SEARCH-STRING PIC X(2)  VALUE SPACES.
       PROCEDURE DIVISION.
       10000-MAIN-PARA.
             MOVE 'INSPECT REPLACE DEPICTED BY MAINFRAMEWIZARD'
              TO  TEST-STRING
             INSPECT TEST-STRING REPLACING ALL SPACES BY ','
             DISPLAY 'TEST-STRING AFTER REPLACE = '
               TEST-STRING
             STOP RUN.
 
 
 
 
The output of the program is 
 
TEST-STRING AFTER REPLACE = INSPECT,REPLACE,DEPICTED,BY,MAINFRAMEWIZARD,,,,,,,