INSPECT samples

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-DATA PIC X(16) VALUE 'PUNIKARUNADUHITA'.
77 WS-IND PIC 9(02) VALUE ZEROS.
PROCEDURE DIVISION.
INITIALIZE WS-IND.
INSPECT WS-DATA TALLYING WS-IND FOR CHARACTERS.
DISPLAY 'WS-IND ' WS-IND.
MOVE ZEROES TO WS-IND.
INSPECT WS-DATA TALLYING WS-IND FOR CHARACTERS AFTER INITIAL 'R'.
DISPLAY 'WS-IND ' WS-IND.
MOVE ZEROES TO WS-IND.
INSPECT WS-DATA TALLYING WS-IND FOR ALL 'A' AFTER INITIAL 'P'.
DISPLAY 'WS-IND ' WS-IND.
MOVE ZEROES TO WS-IND.
INSPECT WS-DATA TALLYING WS-IND FOR LEADING 'P' BEFORE INITIAL 'U'.
DISPLAY 'WS-IND ' WS-IND.
MOVE ZEROES TO WS-IND.
INSPECT WS-DATA TALLYING WS-IND FOR TRAILING 'A' AFTER INITIAL 'T'.
DISPLAY 'WS-IND ' WS-IND.
MOVE ZEROES TO WS-IND.
INSPECT WS-DATA REPLACING CHARACTERS BY SPACES BEFORE INITIAL 'A'.
DISPLAY 'WS-DATA ' WS-DATA.
MOVE 'PUNIKARUNADUHITA' TO WS-DATA.
INSPECT WS-DATA REPLACING ALL 'A' BY 'K' BEFORE INITIAL 'H'.
DISPLAY 'WS-DATA ' WS-DATA.
MOVE 'PUNIKARUNADUHITA' TO WS-DATA.
INSPECT WS-DATA REPLACING LEADING 'P' BY 'S' BEFORE INITIAL 'U'.
DISPLAY 'WS-DATA ' WS-DATA.
MOVE 'PUNIKARUNADUHITA' TO WS-DATA.
INSPECT WS-DATA REPLACING FIRST 'U' BY 'R' BEFORE INITIAL 'D'.
DISPLAY 'WS-DATA ' WS-DATA.
MOVE 'PUNIKAPUNAPUHITA' TO WS-DATA.
INSPECT WS-DATA REPLACING ALL 'PU' BY 'KU' BEFORE INITIAL 'TA'.
DISPLAY 'WS-DATA ' WS-DATA.
MOVE 'PUNIKAPUNAPUHITA' TO WS-DATA.
INSPECT WS-DATA CONVERTING 'PKDA' TO 'SEMB'.
DISPLAY 'WS-DATA ' WS-DATA.
STOP RUN.