INSPECT REPLACING ALL SPACES BY LITERAL

INSPECT REPLACING ALL SPACES BY LITERAL

The following COBOL program depicts the use of

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