IDENTIFICATION DIVISION.
       PROGRAM-ID. BUI.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
            SELECT INFILE ASSIGN TO "RECORD.DAT".
            SELECT OUTFILE ASSIGN TO "RECORD2.DAT".
       DATA DIVISION.
       FILE SECTION.
       FD INFILE DATA RECORD IS INPUTFILE.
       01 INPUTFILE.
            02 STUD-NUM        PIC X(15)B.
            02 STUD-NAME       PIC X(30).
            02 SUBJ-CODE       PIC X(8).
            02 FIRST-GRD       PIC 99V99.
            02 SECOND-GRD      PIC 99V99.
       FD OUTFILE DATA RECORD IS OUTPUTFILE.
       01 OUTPUTFILE PIC X(100).
       WORKING-STORAGE SECTION.
       01 INFORMATION.
            02 SNUM            PIC X(15)B   VALUE   SPACES.
            02 SNAME           PIC X(30)B    VALUE   SPACES.
            02 SCODE           PIC X(8)B     VALUE   SPACES.
            02 FGRD            PIC ZZ.ZZB    VALUE   ZEROES.
            02 SGRD            PIC ZZ.ZZB    VALUE   ZEROES.
            02 AVE             PIC ZZ.ZZB   VALUE   ZEROES.
       SCREEN SECTION.
       01 CLS.
            02 BLANK SCREEN.
       PROCEDURE DIVISION.
       MAIN.
            DISPLAY CLS.
            OPEN OUTPUT OUTFILE, INPUT INFILE.
       PROCESS-INFO.
            MOVE SPACES TO STUD-NUM, STUD-NAME, SUBJ-CODE.
            MOVE ZEROES TO FIRST-GRD, SECOND-GRD.
            READ INFILE AT END PERFORM END-PROCESS.
            MOVE STUD-NUM TO SNUM.
            MOVE STUD-NAME TO SNAME.
            MOVE SUBJ-CODE TO SCODE.
            MOVE FIRST-GRD TO FGRD.
            MOVE SECOND-GRD TO SGRD.
            COMPUTE AVE = (FIRST-GRD + SECOND-GRD) / 2.
            WRITE OUTPUTFILE FROM INFORMATION.
            PERFORM PROCESS-INFO.
       END-PROCESS.
            DISPLAY "TYPE 'TYPE RECORD2.DAT'"
            STOP RUN.