INSPECT REPLACING: Replaces single/group of characters by using single/group of characters in a particular string.
1) ID DIVISION.
PROGRAM-ID. CHAHAND2.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC X(13) VALUE 'KISHORE KUMAR'.
PROCEDURE DIVISION.
INSPECT A REPLACING ALL 'K' BY 'N'.
DISPLAY A.
STOP RUN.
2)
ID DIVISION.
PROGRAM-ID. CHAHAND1.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC X(10) VALUE 'MALAYALAM'.
PROCEDURE DIVISION.
INSPECT A REPLACING ALL 'A' BY 'O'BEFORE 'L' AFTER 'M'.
DISPLAY A.
STOP RUN.
3)
ID DIVISION.
PROGRAM-ID. CHAHAND1.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC X(10) VALUE 'ANIL KUMAR'.
PROCEDURE DIVISION.
INSPECT A REPLACING LEADING 'ANIL' BY 'RAGU'.
DISPLAY A.
STOP RUN.
4)
ID DIVISION.
PROGRAM-ID. CHAHAND4.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC X(10) VALUE 'ANIL KUMAR'.
PROCEDURE DIVISION.
INSPECT A REPLACING LEADING 'A' BY '@'.
DISPLAY A.
STOP RUN.
INSPECT TALLYING: Used to count the characters of a particular string.
5)
ID DIVISION.
PROGRAM-ID. CHAHAND3.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC X(10) VALUE 'ANIL KUMAR'.
77 B PIC 9(2).
PROCEDURE DIVISION.
INSPECT A TALLYING B FOR ALL 'K'.
DISPLAY A.
DISPLAY B.
STOP RUN.
UNSTRING:
6)
ID DIVISION.
PROGRAM-ID. CHAHAND6.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC X(13) VALUE 'KISHORE KUMAR'.
77 B PIC X(7).
77 C PIC X(5).
PROCEDURE DIVISION.
UNSTRING A DELIMITED BY SPACE INTO B, C.
DISPLAY A.
DISPLAY B.
DISPLAY C.
STOP RUN.
STRING:
7)
ID DIVISION.
PROGRAM-ID. CHAHAND7.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC X(10) VALUE 'KISHORE'.
77 B PIC X(7) VALUE 'KUMAR'.
77 C PIC X(15).
PROCEDURE DIVISION.
STRING A, B DELIMITED BY 'R' INTO C.
DISPLAY A.
DISPLAY B.
DISPLAY C.
STOP RUN.
PROGRAM-ID. CHAHAND2.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC X(13) VALUE 'KISHORE KUMAR'.
PROCEDURE DIVISION.
INSPECT A REPLACING ALL 'K' BY 'N'.
DISPLAY A.
STOP RUN.
2)
ID DIVISION.
PROGRAM-ID. CHAHAND1.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC X(10) VALUE 'MALAYALAM'.
PROCEDURE DIVISION.
INSPECT A REPLACING ALL 'A' BY 'O'BEFORE 'L' AFTER 'M'.
DISPLAY A.
STOP RUN.
3)
ID DIVISION.
PROGRAM-ID. CHAHAND1.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC X(10) VALUE 'ANIL KUMAR'.
PROCEDURE DIVISION.
INSPECT A REPLACING LEADING 'ANIL' BY 'RAGU'.
DISPLAY A.
STOP RUN.
4)
ID DIVISION.
PROGRAM-ID. CHAHAND4.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC X(10) VALUE 'ANIL KUMAR'.
PROCEDURE DIVISION.
INSPECT A REPLACING LEADING 'A' BY '@'.
DISPLAY A.
STOP RUN.
INSPECT TALLYING: Used to count the characters of a particular string.
5)
ID DIVISION.
PROGRAM-ID. CHAHAND3.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC X(10) VALUE 'ANIL KUMAR'.
77 B PIC 9(2).
PROCEDURE DIVISION.
INSPECT A TALLYING B FOR ALL 'K'.
DISPLAY A.
DISPLAY B.
STOP RUN.
UNSTRING:
6)
ID DIVISION.
PROGRAM-ID. CHAHAND6.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC X(13) VALUE 'KISHORE KUMAR'.
77 B PIC X(7).
77 C PIC X(5).
PROCEDURE DIVISION.
UNSTRING A DELIMITED BY SPACE INTO B, C.
DISPLAY A.
DISPLAY B.
DISPLAY C.
STOP RUN.
STRING:
7)
ID DIVISION.
PROGRAM-ID. CHAHAND7.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC X(10) VALUE 'KISHORE'.
77 B PIC X(7) VALUE 'KUMAR'.
77 C PIC X(15).
PROCEDURE DIVISION.
STRING A, B DELIMITED BY 'R' INTO C.
DISPLAY A.
DISPLAY B.
DISPLAY C.
STOP RUN.
No comments:
Post a Comment