IDENTIFICATION DIVISION.
       PROGRAM-ID. Lab1.
       AUTHOR. DYLAN

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.

         SELECT PRINT-FILE ASSIGN TO 'LAB1.OUTPUT'
           ORGANIZATION IS LINE SEQUENTIAL.

         SELECT STUDENT-FILE ASSIGN TO 'lab1.dat'
           ORGANIZATION IS LINE SEQUENTIAL.


       DATA DIVISION.
       FILE SECTION.

       FD STUDENT-FILE
          RECORD CONTAINS 80 CHARACTERS
          RECORDING MODE IS F
          DATA RECORD IS STUDENT-REC.

       01 STUDENT-REC.
          05 STUDENT-NUMBER         PIC X(9).
          05 STUDENT-NAME           PIC X(20).
          05 STUDENT-ENROLL-YEAR    PIC 9(4).

       FD PRINT-FILE
          RECORD CONTAINS 132 CHARACTERS
          RECORDING MODE IS F
          DATA RECORD IS PRINT-LINE.

       01 PRINT-LINE.
          05 FILLER                 PIC X(10).
          05 PRINT-NAME             PIC X(20).
          05 FILLER                 PIC X(10).
          05 PRINT-NUMBER           PIC X(9).
          05 FILLER                 PIC X(10).
          05 PRINT-ENROLL-YEAR      PIC X(4).
          05 FILLER                 PIC X(10).
          05 PRINT-YEARS-ENROLLED   PIC Z9.

       WORKING-STORAGE SECTION.

       01 END-SWITCH           PIC XXX VALUE 'NO'.

       01 HEADING1.
          05 FILLER            PIC X(36) VALUE SPACES.
          05 FILLER            PIC X(11) VALUE
                               'DYLAN FLINT'.
       PROCEDURE DIVISION.

        OPEN INPUT  STUDENT-FILE.
        OPEN OUTPUT PRINT-FILE.

        READ STUDENT-FILE AT END MOVE 'YES' TO END-SWITCH.

        WRITE PRINT-LINE FROM HEADING1 AFTER ADVANCING 2 LINES.

        PERFORM MAIN-LOOP UNTIL END-SWITCH = 'YES'.

        CLOSE PRINT-FILE.
        CLOSE STUDENT-FILE.

        STOP RUN.

       MAIN-LOOP.
             MOVE SPACES TO PRINT-LINE.

             MOVE STUDENT-NUMBER TO PRINT-NUMBER.
             MOVE STUDENT-NAME TO PRINT-NAME.
             MOVE STUDENT-ENROLL-YEAR TO PRINT-ENROLL-YEAR.

             SUBTRACT STUDENT-ENROLL-YEAR FROM 2011
                      GIVING PRINT-YEARS-ENROLLED.

             WRITE PRINT-LINE AFTER ADVANCING 2 LINES.

             READ STUDENT-FILE AT END MOVE 'YES' TO END-SWITCH.