IDENTIFICATION DIVISION.
       PROGRAM-ID. CREATING-STUDENT-SEQ-FILE.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.
       OBJECT-COMPUTER.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT STU-FILE ASSIGN TO DISK
           ORGANIZATION IS LINE SEQUENTIAL.
       DATA DIVISION.
       FILE SECTION.
       FD  STU-FILE
           LABEL RECORDS ARE STANDARD
           VALUE OF FILE-ID IS "STU.DAT"
           DATA RECORD IS STU-REC.
       01  STU-REC.
           02 REGNO     PIC 9(3).
           02 NAME      PIC X(30).
           02 SEX       PIC X.
           02 DOB       PIC X(10).
           02 PLACE     PIC X(30).
       WORKING-STORAGE SECTION.
       01  E-STU-REC.
           02 FILLER    PIC X(2).
           02 E-REGNO   PIC Z(3).
           02 FILLER    PIC X(3).
           02 E-NAME    PIC X(30).
           02 FILLER    PIC X(2).
           02 E-SEX     PIC X.
           02 FILLER    PIC X(2).
           02 E-PLACE   PIC X(30).
       01  OPTION       PIC X VALUE IS "Y".
       PROCEDURE DIVISION.
       MAIN-PARA.
           PERFORM OPEN-PARA.
           PERFORM WRITE-PARA UNTIL OPTION NOT = "Y".
           PERFORM SECOND-OPEN-PARA.
           PERFORM READ-PARA.
           STOP RUN.
       OPEN-PARA.
           OPEN OUTPUT STU-FILE.
       WRITE-PARA.
           DISPLAY (01 01) ERASE.
           DISPLAY (02 10) "Enter the following details of a Student".
           DISPLAY (03 10) "----------------------------------------".
           DISPLAY (04 10) "    Register No.: ".
           ACCEPT (04 28) REGNO.
           DISPLAY (05 10) "Name of Student : ".
           ACCEPT (05 28) NAME.
           DISPLAY (06 10) "      Sex-(M/F) : ".
           ACCEPT (06 28) SEX.
           DISPLAY (07 10) "          Place : ".
           ACCEPT (07 28) PLACE.
           WRITE STU-REC.
           DISPLAY (10 10) "Press Y/y to add more Students : ".
           ACCEPT (10 43) OPTION.
           IF OPTION = "y"
              MOVE "Y" TO OPTION.
       SECOND-OPEN-PARA.
           CLOSE STU-FILE.
           OPEN INPUT STU-FILE.
           DISPLAY (01 01) ERASE.
           DISPLAY "----------------------------------------------------
      -    "-----------".
           DISPLAY "Reg.No. Name of Student                Sex Place".
           DISPLAY "----------------------------------------------------
      -    "-----------".
       READ-PARA.
           READ STU-FILE RECORD AT END GO TO CLOSE-PARA.
           MOVE REGNO TO E-REGNO.
           MOVE NAME TO E-NAME.
           MOVE SEX TO E-SEX.
           MOVE PLACE TO E-PLACE.
           DISPLAY E-STU-REC.
           GO TO READ-PARA.
       CLOSE-PARA.
           DISPLAY "====================================================
      -    "===========".
           CLOSE STU-FILE.