IDENTIFICATION DIVISION.
        PROGRAM-ID. STUDENT.

       ENVIRONMENT DIVISION.
        INPUT-OUTPUT SECTION.
        FILE-CONTROL.
         SELECT STU-FILE ASSIGN TO DISK
         ORGANIZATION IS INDEXED
         ACCESS MODE IS RANDOM
         RECORD KEY IS SEM-NO
         ALTERNATE RECORD KEY IS STU-NO.

       DATA DIVISION.
        FILE SECTION.
        FD STU-FILE
          LABEL RECORDS ARE STANDARD
          VALUE OF FILE-ID IS "STUDENT.MST".
          01 STU-MST-REC.
           02 SEM-NO     PIC 9.
           02 STU-NO     PIC 99.
           02 STU-NAME   PIC X(20).
           02 GENDER     PIC X.

        WORKING-STORAGE SECTION.
          01 MORE-RECORDS     PIC X VALUE 'Y'.
          01 DASH-LINE   PIC X(80) VALUE ALL "=".
          01 CHOICE1      PIC 9.
          01 EOF PIC X VALUE "Y".
      *    01 CH          PIC 9.
          01 WS-STU-REC.
           02 WS-SEM-NO  PIC 9.
           02 WS-STU-NO  PIC 99.
           02 WS-STU-NAME PIC X(20).
           02 WS-GENDER  PIC X.

       PROCEDURE DIVISION.
        MAIN-PARA.
          OPEN I-O STU-FILE
          PERFORM CHOICE-PARA  UNTIL CHOICE1=4
          CLOSE STU-FILE
          STOP RUN.


        CHOICE-PARA.
          
          DISPLAY DASH-LINE
          DISPLAY "      STUDENT INFORMATION ".
          DISPLAY DASH-LINE.
          DISPLAY "1 ) ADD NEW STUDENT".
          DISPLAY "2 ) VEW STUDENT RECORD ".
          DISPLAY "3 ) DELETE STUDENT RECORD".
          DISPLAY "4 ) VIEW ALL RECORDS ".
          DISPLAY "5 ) EXIT ".
          DISPLAY " ENTER CHOICE " WITH NO ADVANCING.
          ACCEPT CHOICE1.

          EVALUATE CHOICE1
               WHEN 1 PERFORM ADD-PARA
               WHEN 2 PERFORM VEIW-PARA
               WHEN 3 PERFORM DELETE-PARA
               WHEN 4 PERFORM VEIW-ALL
               WHEN 5 STOP RUN
               WHEN OTHER
                DISPLAY " INVALID CHOICE "
          END-EVALUATE.

          ADD-PARA.
             PERFORM UNTIL MORE-RECORDS ='N' OR 'n'
               DISPLAY DASH-LINE
               DISPLAY "ENTER SEMESTER NO:-" WITH NO ADVANCING
               ACCEPT WS-SEM-NO
               DISPLAY "ENTER STUDENT NO :-" WITH NO ADVANCING
               ACCEPT WS-STU-NO
               DISPLAY "ENTER STUDENT NAME:-" WITH NO ADVANCING
               ACCEPT WS-STU-NAME
               DISPLAY "ENTER GENDER (M/F) :-" WITH NO ADVANCING
               ACCEPT WS-GENDER

               WRITE STU-MST-REC FROM WS-STU-REC
          DISPLAY "WANTS TO ENTER RECORDS (Y/N)? :-"WITH NO ADVANCING
               ACCEPT MORE-RECORDS
               END-PERFORM.


         VEIW-PARA.
               DISPLAY " ENTER SEMESTER NO :-"WITH NO ADVANCING.
               ACCEPT WS-SEM-NO.
               DISPLAY "ENTER STUDENT NO :-"WITH NO ADVANCING.
               ACCEPT WS-STU-NO.

               MOVE WS-SEM-NO TO SEM-NO.
               MOVE WS-STU-NO TO STU-NO.
                    READ STU-FILE
                         INVALID KEY
                              DISPLAY "ERROR READING RECORD"
                         NOT INVALID KEY
                              DISPLAY STU-MST-REC
                    END-READ.

         DELETE-PARA.

               DISPLAY " ENTER SEMESTER NO :-" WITH NO ADVANCING.
               ACCEPT SEM-NO.
               DISPLAY " ENTER STUDENT NO  :-" WITH NO ADVANCING.
               ACCEPT STU-NO.
        VEIW-ALL.
                   OPEN INPUT STU-FILE
                   PERFORM UNTIL EOF="N"
                   READ STU-FILE 
                      AT END MOVE "Y" TO EOF
                      NOT AT END PERFORM V1
                   END-READ
                   END-PERFORM.
          V1.
        DISPLAY STU-MST-REC.
               DELETE STU-FILE 
               INVALID KEY DISPLAY "RECORD NOT FOUND !"
               END-DELETE.

INPUT FILE :-
**********************
112123456789012345678901
101AMISH THHCKER       F
102BHAVIKA             F
117HARSHAD GEDIYA      M
111SHASHANK DESAI      M
155HEMAL SHETH         M
129RAJIV MODH          M



OUTPUT :-
*********************
      STUDENT INFORMATION 

1 ) ADD NEW STUDENT
2 ) VEW STUDENT RECORD 
3 ) DELETE STUDENT RECORD
4 ) VEIW ALL RECORDS 
5 ) EXIT 

ENTER CHOICE1 : 1
ENTER SEMISTER NO : 1
ENTER STUDENT NO : 50
ENTER NAME :KHILAN SHAH
ENTER GENDER :M
WNATS TO ENTER RECORDS (Y/N) :N

      STUDENT INFORMATION 

1 ) ADD NEW STUDENT
2 ) VEW STUDENT RECORD 
3 ) DELETE STUDENT RECORD
4 ) VEIW ALL RECORDS 
5 ) EXIT 

ENTER CHOICE1 :2
ENETR SEMISTER NO :1
ENTER STUDENT NO :1
 SEMNO   STU-NO  NAME          GENDER
 1       1      AMISH THHCKER    F

      STUDENT INFORMATION 

1 ) ADD NEW STUDENT
2 ) VEW STUDENT RECORD 
3 ) DELETE STUDENT RECORD
4 ) VEIW ALL RECORDS 
5 ) EXIT 

ENETR CHOICE1:5