IDENTIFICATION DIVISION.
       PROGRAM-ID. ACI.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
            SELECT OUTFILE ASSIGN TO "RECORD.DAT".
       DATA DIVISION.
       FILE SECTION.
       FD OUTFILE DATA RECORD IS REC.
       01 REC PIC X(100).
       WORKING-STORAGE SECTION.
       01 STUD-INFO.
            02 STUD-NUM        PIC X(15)B   VALUE   SPACES.
            02 STUD-NAME       PIC X(30)    VALUE   SPACES.
            02 SUBJ-CODE       PIC X(8)     VALUE   SPACES.
            02 FIRST-GRD       PIC 99V99    VALUE   ZEROES.
            02 SECOND-GRD      PIC 99V99    VALUE   ZEROES.
       01 STUD-YESNO     PIC X VALUE SPACES.
       01 SUBJ-YESNO     PIC X VALUE SPACES.
       SCREEN SECTION.
       01 CLS.
            02 BLANK SCREEN.
       PROCEDURE DIVISION.
       MAIN.
            PERFORM CLEARMEM.
            OPEN OUTPUT OUTFILE.
            DISPLAY CLS.
       PROMPT-INFO.
            PERFORM CLEARMEM.
            MOVE SPACES TO STUD-NUM, STUD-NAME, SUBJ-CODE.
            DISPLAY "STUDENT NUMBER [NNNN-NNNNN-SR-0]: "
                WITH NO ADVANCING.
            ACCEPT STUD-NUM.
            DISPLAY "STUDENT NAME: "
                WITH NO ADVANCING.
            ACCEPT STUD-NAME.
       PROMPT-SUBJECT.
            DISPLAY CLS.
            DISPLAY "STUDENT NUMBER [NNNN-NNNNN-SR-0]: " STUD-NUM.
            DISPLAY "STUDENT NAME: " STUD-NAME.
            DISPLAY "SUBJECT CODE: "
                WITH NO ADVANCING.
            ACCEPT SUBJ-CODE.
            DISPLAY "FIRST GRADING: "
                WITH NO ADVANCING.
            ACCEPT FIRST-GRD.
            DISPLAY "SECOND GRADING: "
                WITH NO ADVANCING.
            ACCEPT SECOND-GRD.
            WRITE REC FROM STUD-INFO.
       ANOTHER-SUBJECT.
            DISPLAY "DO YOU WANT TO ENTER ANOTHER SUBJECT? [Y/N]: "
                WITH NO ADVANCING.
            ACCEPT SUBJ-YESNO.
            IF SUBJ-YESNO = 'Y' OR 'y'
                GO TO PROMPT-SUBJECT
            ELSE IF SUBJ-YESNO = 'N' OR 'n'
                GO TO ANOTHER-RECORD
            ELSE
                DISPLAY "INVALID CHOICE. PLEASE TRY AGAIN."
                GO TO ANOTHER-SUBJECT
            END-IF.
       ANOTHER-RECORD.
            DISPLAY "DO YOU WANT TO ENTER ANOTHER RECORD? [Y/N]: ".
            ACCEPT STUD-YESNO.
            IF STUD-YESNO = 'Y' OR 'y'
                GO TO PROMPT-INFO
            ELSE IF STUD-YESNO = 'N' OR 'n'
                DISPLAY "TYPE 'TYPE RECORD.DAT'"
                STOP RUN
            ELSE
                DISPLAY "INVALID CHOICE. PLEASE TRY AGAIN."
                GO TO ANOTHER-RECORD
            END-IF.
       CLEARMEM.
            MOVE SPACES TO STUD-NUM, STUD-NAME, SUBJ-CODE.
            MOVE ZEROES TO FIRST-GRD, SECOND-GRD.