Student Record Management System

Store and display student details.
File handling, ACCEPT/DISPLAY, structured records.

       IDENTIFICATION DIVISION.
   PROGRAM-ID. STUDENT-RECORD.
   ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
       SELECT STUDENT-FILE ASSIGN TO 'STUDENT.DAT'
       ORGANIZATION IS LINE SEQUENTIAL.
   DATA DIVISION.
   FILE SECTION.
   FD STUDENT-FILE.
   01 STUDENT-REC.
      05 STUDENT-ID    PIC 9(4).
      05 STUDENT-NAME  PIC A(20).
      05 STUDENT-AGE   PIC 9(2).
   WORKING-STORAGE SECTION.
   01 WS-CHOICE       PIC 9 VALUE 0.
   01 WS-EOF          PIC X VALUE 'N'.
   PROCEDURE DIVISION.
   MAIN-PARA.
       DISPLAY "1. ADD STUDENT"
       DISPLAY "2. DISPLAY STUDENTS"
       ACCEPT WS-CHOICE
       IF WS-CHOICE = 1
           OPEN OUTPUT STUDENT-FILE
           DISPLAY "ENTER ID: " ACCEPT STUDENT-ID
           DISPLAY "ENTER NAME: " ACCEPT STUDENT-NAME
           DISPLAY "ENTER AGE: " ACCEPT STUDENT-AGE
           WRITE STUDENT-REC
           CLOSE STUDENT-FILE
       ELSE
           OPEN INPUT STUDENT-FILE
           PERFORM UNTIL WS-EOF = 'Y'
               READ STUDENT-FILE
                   AT END MOVE 'Y' TO WS-EOF
                   NOT AT END DISPLAY STUDENT-REC
               END-READ
           END-PERFORM
           CLOSE STUDENT-FILE
       END-IF.
       STOP RUN.

Explanation:

• STUDENT.DAT stores student records.
• User can add a student or display all students.
• File handling (OPEN, WRITE, READ, CLOSE) is demonstrated.