Sequential file creation

       IDENTIFICATION DIVISION.
       PROGRAM-ID.  seq.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT STUDENT ASSIGN TO  DISK
           ORGANIZATION IS LINE SEQUENTIAL.
       DATA DIVISION.
       FILE SECTION.
       FD STUDENT
         LABEL RECORDS ARE STANDARD VALUE OF FILE-ID "STD.DAT".
       01 STD-REC.
          02 REG-NO PIC 9(5).
          02 STD-NAME PIC X(20).
       WORKING-STORAGE SECTION.
       77 OPTION PIC X VALUE "Y".
       77 ANS PIC X VALUE SPACES.
       PROCEDURE DIVISION.
       MAIN-PARA.
           OPEN OUTPUT STUDENT.
           PERFORM ACC-PARA UNTIL OPTION = "n" OR "N".
           CLOSE STUDENT.
           STOP RUN.
       ACC-PARA.
           DISPLAY (1 1) ERASE.
           DISPLAY (6 10) "Enter registration Number: ".
           ACCEPT (6 35) REG-NO.
           DISPLAY (8 10) "Enter student name :".
           ACCEPT (8 35) STD-NAME.
           DISPLAY (10 10) "Is this data OK? :".
           ACCEPT (10 35) ANS.
           IF ANS = "Y" OR "y" WRITE STD-REC.
           DISPLAY (12 10) "Do you want to continue? :".
           ACCEPT (12 35) OPTION.