IDENTIFICATION DIVISION.
        PROGRAM-ID. PROG1.

       ENVIRONMENT DIVISION.
        INPUT-OUTPUT SECTION.
         FILE-CONTROL.
          SELECT INP ASSIGN TO DISK
          ORGANIZATION IS RELATIVE
          ACCESS MODE IS  SEQUENTIAL.
          

          SELECT INP1 ASSIGN TO DISK
          ORGANIZATION IS RELATIVE
          ACCESS MODE IS  RANDOM
          RELATIVE KEY IS R-NO.


       DATA DIVISION.
        FILE SECTION.
         FD INP
         LABEL RECORDS ARE STANDARD
         VALUE OF FILE-ID "INPUT1".
          01 REC1.
            02 ROLLNO1    PIC 99.
            02 NAME1      PIC X(20).
            02 ADDRESS1   PIC X(20).
         FD INP1
         LABEL RECORDS ARE STANDARD
         VALUE OF FILE-ID "INPUT1".
          01 REC2.
            02 ROLLNO2    PIC 99.
            02 NAME2      PIC X(20).
            02 ADDRESS2   PIC X(20).


       WORKING-STORAGE SECTION.
        01 EOF      PIC X VALUE "Y".
        01 CHOICE   PIC X.
        01 ANS      PIC X VALUE "Y".
        01 R-NO     PIC 99.

       PROCEDURE DIVISION.
        START1.
      *   OPEN I-O INP.

         PERFORM UNTIL ANS="N"

         DISPLAY " ENTER YOUR CHOICE "
         DISPLAY "1) ENTER NEW STUDENT RECORD"
         DISPLAY "2) SHOW ALL STUDENT RECORDS"
         DISPLAY "3) UPDATE STUDENT RECORD"
         DISPLAY "4) DELETE STUDENT RECORD"
         ACCEPT CHOICE 
               EVALUATE CHOICE 
                    WHEN 1 PERFORM INSERTION
                    WHEN 2 PERFORM READ-PARA
                    WHEN 3 PERFORM UPDATE-PARA
                    WHEN 4 PERFORM DELETE-PARA
               END-EVALUATE
               DISPLAY "DO YOU WANT TO CONTINUE (Y/N):"
               ACCEPT  ANS
         END-PERFORM.
         CLOSE INP.
         STOP RUN.

         INSERTION.
           OPEN OUTPUT INP .
           MOVE "Y" TO EOF.
           PERFORM UNTIL EOF="N"
            DISPLAY "ENTER ROLL NO :" WITH NO ADVANCING
            ACCEPT ROLLNO1
            DISPLAY "ENTER NAME :" WITH NO ADVANCING
            ACCEPT NAME1
            DISPLAY "ENTER ADDRESS :" WITH NO ADVANCING
            ACCEPT ADDRESS1
            WRITE REC1
            DISPLAY "ENTER MORE RECORD (Y/N):" WITH NO ADVANCING
            ACCEPT EOF
            
           END-PERFORM.
           CLOSE INP.

         READ-PARA.
           OPEN INPUT INP.
           MOVE "Y" TO EOF.
           PERFORM UNTIL EOF="N"
            READ REC1
               AT END MOVE "Y" TO EOF
               NOT AT AND PERFORM READ-PARA1
            END-READ
           END-PERFORM.
           CLOSE INP.
         READ-PARA1.  

          DISPLAY "ROLL NO IS :"ROLLNO1.
          DISPLAY "NAME IS :"NAME1.
          DISPLAY "ADDRESS IS :"ADDRESS1.
         

         UPDATE-PARA.
          OPEN I-O INP1.
          DISPLAY "ENTER THE ROLL-NO : " WITH NO ADVANCING
          ACCEPT R-NO.

         READ INP
           INVALID KEY 
               DISPLAY "INVALID KEY !"
           NOT INVALID KEY PERFORM UPDATE-PARA1
         END-READ.
         CLOSE INP1.
        
           UPDATE-PARA1.
           DISPLAY "NAME : " WITH NO ADVANCING
           ACCEPT NAME2
           DISPLAY "ADDRESS : " WITH NO ADVANCING
           ACCEPT ADDRESS2.
           REWRITE REC2.

        DELETE-PARA.
          OPEN INPUT INP1.
          DISPLAY "ENTER ROLL-NO U WANT TO DELETE : " WITH NO ADVANCING
          ACCEPT R-NO.
          READ INP
           INVALID KEY 
               DISPLAY "INVALID KEY !"
           NOT INVALID KEY 
           DELETE INP REC2
           END-READ.
           CLOSE INP1.

INPUT FILE :-
***********************
121234567890123456789012345678901234567890

11SHASHANK DESAI      NARANPURA AHMEDABAD
17HARSHAD GEDIYA      NIRNAYNAGAR CHAND.
29RAJIV MODH          NARNPURA AHMEDABAD
55HEMAL SHETH         ANKUR AHMEDABAD

OUTPUT
*************************

1 ENTER NEW STUDENT RECORD
2 SHOW ALL STUDENT RECORDS
3 UPDATE STUDENT RECORD
4 DELETE STUDENT RECORD

ENTER YOUR CHOICE
1
ENTER ROLL NO : 18
ENTER NAME:HARSHAD
ENTER ADDRESS : AHMEDABAD
ENTER MORE RECORDS (Y/N) : N

1 ENTER NEW STUDENT RECORD
2 SHOW ALL STUDENT RECORDS
3 UPDATE STUDENT RECORD
4 DELETE STUDENT RECORD

ENTER YOUR CHOICE : 2

 17 HARSHAD  CHANDLODIYA
 55 HEMAL    NARNPURA
 29 RAJIV    NAVRANGPURA
 11 SHASHANK ANKUR
 18 HARASHAD GEDIYA AHMEDABAD