IDENTIFICATION DIVISION.
       PROGRAM-ID. PROGFF.

       ENVIRONMENT DIVISION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.

       77 NAM PIC A(50).
       77 C1 PIC A(50).
       77 C2 PIC A(50).
       77 C3 PIC A(50).
       77 DEL1 PIC A(10).
       77 DEL2 PIC A(10).

       PROCEDURE DIVISION.
       MAIN-PARA.

            ACCEPT NAM.
            UNSTRING NAM DELIMITED BY "*" OR "#" OR "$" OR "/" OR "^"
                INTO C1 DELIMITER IN DEL1,
                     C2 DELIMITER IN DEL2,
                     C3.
                IF DEL1 EQUAL "*"
                        DISPLAY " MISS " C1 C3
                ELSE IF DEL1 EQUAL "#"
                        DISPLAY " MRS " C1 C3
                ELSE IF DEL1 EQUAL "$"
                        DISPLAY " MR " C1 C3
                ELSE
                        DISPLAY " INVALID INPUT ".
                IF DEL2 EQUAL "/"
                        DISPLAY " FATHER'S NAME : " C2 C3
                ELSE IF DEL2 EQUAL "^"
                        DISPLAY " HUSBAND'S NAME : " C2 C3
                ELSE
                        DISPLAY " INVALID INPUT ".
                STOP RUN.