IDENTIFICATION DIVISION.
        PROGRAM-ID.binary-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 ASCENDING no1 INDEXED BY idx1.
            10 no1 PIC 99.
            10 name1 PIC X(10).
          01 i PIC 99.
          01 eof PIC X VALUE 'N'.
          01 sno PIC 99.

       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 ROLL NO YOU WANT TO SEARCH".
            ACCEPT sno.

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


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

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

******ENTER THE ROLL NO YOU WANT TO SEARCH
******11
******STUDENT ROLL NO NOT FOUND