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,,,,,,,