IDENTIFICATION DIVISION. PROGRAM-ID. STUOPE. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT FILE1 ASSIGN TO DISK ORGANIZATION IS RELATIVE ACCESS IS DYNAMIC RELATIVE KEY IS INROLL-NO. DATA DIVISION. FD FILE1 VALUE OF FILE-ID IS \"STUDOP.DAT\". 01 WRFILE. 05 FROLL-NO PIC 9(2). 05 FNAME PIC X(10). 05 FTOT PIC 9(2). WORKING-STORAGE SECTION. 01 INROLL-NO PIC 9(2). 01 WISH PIC X VALUE \"Y\". 01 CONTI PIC 9 VALUE 0. 01 CHA-NAME PIC X VALUE \"N\". 01 CHA-TOT PIC X VALUE \"N\". 01 EOF PIC X VALUE \"N\". 01 SCODE PIC 9. 88 INSRT VALUE 1. 88 UPDT VALUE 2. 88 DELET VALUE 3. 88 PRNREC VALUE 4. PROCEDURE DIVISION. BEGIN. OPEN I-O FILE1. MENU. PERFORM UNTIL WISH=\"N\" OR WISH=\"n\" OR CONTI=1 DISPLAY \"1.INSERT A NEW RECORD\" DISPLAY \"2.UPDATE AN EXISTING RECORD\" DISPLAY \"3.DELETE A RECORD\" DISPLAY \"4.DISPLAY THE SPECIFIED RECORD\" DISPLAY \"ENTER YOUR CHOICE(1,2,3 OR 4)=\"WITH NO ADVANCING ACCEPT SCODE PERFORM SELPARA DISPLAY \"WANT TO CONTINUE?=\"WITH NO ADVANCING ACCEPT WISH END-PERFORM. CLOSE FILE1. STOP RUN. SELPARA. EVALUATE TRUE WHEN INSRT PERFORM INS-PARA WHEN UPDT PERFORM UPD-PARA WHEN DELET PERFORM DEL-PARA WHEN PRNREC PERFORM DISP-PARA WHEN OTHER DISPLAY \"ENTER A VALID CHOICE\" END-EVALUATE. INS-PARA. DISPLAY \"ENTER THE ROLL-NUMBER=\"WITH NO ADVANCING. ACCEPT INROLL-NO. MOVE INROLL-NO TO FROLL-NO. DISPLAY \"ENTER THE NAME=\"WITH NO ADVANCING. ACCEPT FNAME. DISPLAY \"ENTER THE TOTAL MARKS=\"WITH NO ADVANCING. ACCEPT FTOT. WRITE WRFILE INVALID KEY DISPLAY \"ENTER A VALID ROLL NUMBER\" MOVE 1 TO CONTI GO TO MENU END-WRITE. UPD-PARA. DISPLAY \"ENTER THE ROLL NO=\"WITH NO ADVANCING. ACCEPT INROLL-NO. MOVE INROLL-NO TO FROLL-NO. READ FILE1. DISPLAY \"DO YOU WANT TO CHANGE NAME=?\"WITH NO ADVANCING. ACCEPT CHA-NAME. IF CHA-NAME=\"Y\" THEN DISPLAY \"ENTER THE NEW NAME=\"WITH NO ADVANCING ACCEPT FNAME END-IF. DISPLAY \"DO YOU WANT TO CHANGE MARKS?=\"WITH NO ADVANCING. ACCEPT CHA-TOT. IF CHA-TOT=\"Y\" THEN DISPLAY \"ENTER THE TOTAL MARKS=\"WITH NO ADVANCING ACCEPT FTOT END-IF. REWRITE WRFILE INVALID KEY DISPLAY \"THE KEY ALREADY EXISTS\" MOVE 1 TO CONTI GO TO MENU END-REWRITE. DEL-PARA. DISPLAY \"ENTER THE THE ROLL-NO=\"WITH NO ADVANCING. ACCEPT INROLL-NO. MOVE INROLL-NO TO FROLL-NO. DELETE FILE1 INVALID KEY DISPLAY \"THE KEY DOES NOT EXIST\" MOVE 1 TO CONTI GO TO MENU END-DELETE. DISP-PARA. DISPLAY \"ENTER THE ROLL-NO=\"WITH NO ADVANCING. ACCEPT INROLL-NO. MOVE INROLL-NO TO FROLL-NO. READ FILE1 INVALID KEY DISPLAY \"THE KEY DOES NOT EXIST\" MOVE 1 TO CONTI GO TO MENU END-READ. DISPLAY \"ROLL-NO::\"FROLL-NO. DISPLAY \"NAME ::::\"FNAME. DISPLAY \"TOTAL MARKS:::\"FTOT. /********************************************************************************************* OUTPUT **********************************************************************************************/ NOTE:- THE FILE STUDINFO.DAT DOESNOT EXIST.WHEN IT IS RUN FOR THE FIRST TIME THE FIRST OPTION FOR INSERTION IS SELECTED AND RECORDS ARE ENTERED. 1.INSERT A NEW RECORD 2.UPDATE AN EXISTING RECORD 3.DELETE A RECORD 4.DISPLAY THE SPECIFIED RECORD ENTER YOUR CHOICE(1,2,3 OR 4)=1 ENTER THE ROLL-NUMBER=1 ENTER THE NAME=SHAILY ENTER THE TOTAL MARKS=35 WANT TO CONTINUE?=Y 1.INSERT A NEW RECORD 2.UPDATE AN EXISTING RECORD 3.DELETE A RECORD 4.DISPLAY THE SPECIFIED RECORD ENTER YOUR CHOICE(1,2,3 OR 4)=1 ENTER THE ROLL-NUMBER=2 ENTER THE NAME=ASMITA ENTER THE TOTAL MARKS=45 WANT TO CONTINUE?=Y 1.INSERT A NEW RECORD 2.UPDATE AN EXISTING RECORD 3.DELETE A RECORD 4.DISPLAY THE SPECIFIED RECORD ENTER YOUR CHOICE(1,2,3 OR 4)=1 ENTER THE ROLL-NUMBER=2 ENTER THE NAME=ADITI ENTER THE TOTAL MARKS=45 ENTER A VALID ROLL NUMBER NOTE:-RECORDS ARE ENTERED IN THE FILE. 1.INSERT A NEW RECORD 2.UPDATE AN EXISTING RECORD 3.DELETE A RECORD 4.DISPLAY THE SPECIFIED RECORD ENTER YOUR CHOICE(1,2,3 OR 4)=2 ENTER THE ROLL NUMBER=2 DO YOU WANT TO CHANGE NAME?=Y ENTER THE NEW NAME=SAM DO YOU WANT TO CHANGE MARKS?=Y ENTER THE MARKS=60 WANT TO CONTINUE?=N