INSPECT REPLACING CHARACTERS BY LITERAL BEFORE INITIAL LITERAL
INSPECT REPLACING CHARACTERS BY LITERAL BEFORE
INITIAL LITERAL
The following COBOL program depicts the use of
INSPECT REPLACING CHARACTERS BY LITERAL BEFORE
INITIAL LITERAL
IDENTIFICATION DIVISION.
PROGRAM-ID. PGM037.
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 CHARACTERS BY '-'
BEFORE INITIAL 'REPLACE'
DISPLAY 'TEST-STRING AFTER REPLACE = '
TEST-STRING
STOP RUN.
The output of the program is
TEST-STRING AFTER REPLACE = ----------REPLACE DEPICTED BY MAINFRAMEWIZARD