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