IDENTIFICATION DIVISION. PROGRAM-ID. INS. DATA DIVISION. 01 COUNT1 PIC 99. 01 INS-NAME PIC X(20) VALUE \"APURVA\". 01 CHAR1 PIC XXX. 01 NEW-NAME PIC X(34). 01 FULL-NAME. 02 F-NAME PIC X(10) VALUE \"APURVA\". 02 PIC XX. 02 M-NAME PIC X(10) VALUE \"M\". 02 PIC XX. 02 L-NAME PIC X(10) VALUE \"MEHTA\". 01 USTR-NAME PIC X(20) VALUE \"APURVA.M.MEHTA\". 01 CH1 PIC 9. 88 A VALUE 1. 88 B VALUE 2. 88 C VALUE 3. 88 D VALUE 4. PROCEDURE DIVISION. BEGIN. DISPLAY \"1.INSPECT.\". DISPLAY \"2.STRING.\". DISPLAY \"3.UNSTRING.\". DISPLAY \"4.EXIT.\". ACCEPT CH1. IF A INSPECT INS-NAME TALLYING COUNT1 FOR ALL \'A\' DISPLAY \"NO OF A =\" COUNT1 ELSE IF B STRING L-NAME DELIMITED BY SIZE F-NAME DELIMITED BY SIZE M-NAME DELIMITED BY SIZE INTO NEW-NAME DISPLAY NEW-NAME ELSE IF C UNSTRING USTR-NAME DELIMITED BY \'.\' INTO L-NAME F-NAME M-NAME DISPLAY FULL-NAME ELSE STOP RUN. ******************************** OUTPUT ********************************** INSPECT: NO OF A =2 STRING MEHTA APURVA M UNSTRING APURVA M MEHTA