Sunday, September 8, 2019

CHARACTER HANDLING in COBOL

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.

No comments:

Post a Comment