IDENTIFICATION DIVISION.
        PROGRAM-ID.search1.

       ENVIRONMENT DIVISION.
        INPUT-OUTPUT SECTION.
         FILE-CONTROL.
          SELECT infile1 ASSIGN TO DISK
          ORGANIZATION IS LINE SEQUENTIAL.

       DATA DIVISION.
        FILE SECTION.
         FD infile1
           VALUE OF FILE-ID IS "search.txt".
          01 in-rec.
            05 ino PIC 99.
            05 iname PIC X(10).

        WORKING-STORAGE SECTION.
          01 tbl.
           05 stu-tbl OCCURS 10 TIMES INDEXED BY idx1.
            10 no1 PIC 99.
            10 name1 PIC X(10).
          01 i PIC 99.
          01 eof PIC X VALUE 'N'.
          01 SNAME PIC X(10).

       PROCEDURE DIVISION.
        PARA1.
            OPEN INPUT infile1.
             READ infile1
              AT END MOVE 'Y' TO eof.
             PERFORM VARYING i FROM 1 BY 1 UNTIL eof='Y'
                MOVE ino TO no1(i)
                MOVE iname TO name1(i)
                READ infile1
                 AT END MOVE 'Y' TO eof
                END-READ
             END-PERFORM.
            CLOSE INFILE1.

            DISPLAY "ENTER THE NAME YOU WANT TO SEARCH".
            ACCEPT SNAME.

            SET idx1 TO 1.
            SEARCH stu-tbl
             AT END DISPLAY "STUDENT NAME NOT FOUND"
             WHEN NAME1(IDX1)=SNAME
               DISPLAY "THE ROLL NO IS " no1(IDX1) " OF " SNAME
            END-SEARCH.
            STOP RUN.


*********************INPUT FILE*****************************
******SEARCH.TXT
******01JOLLY
******02HIMANI
******03ISHA
******04MANALI
******05JANKI
******06HITISHA
******07SARITA
******08KINJAL
******09KHUSHBU
******10JOLLY

*********************OUTPUT*********************************
******ENTER THE NAME YOU WANT TO SEARCH
******JOLLY
******THE ROLL NO IS 01 OF JOLLY

******ENTER THE NAME YOU WANT TO SEARCH
******HITU
******STUDENT NAME NOT FOUND