The Grades Program in Cobol

ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT STUDENT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\SCORES.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT REPORT-CARDS
              ASSIGN TO 'C:\PCOBWIN\ROGERS\REPORT.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.

      DATA DIVISION.
      FILE SECTION.

      FD STUDENT-FILE
         DATA RECORD IS STUDENT-RECORD.

      01 STUDENT-RECORD.
         02 STUDENT-ID             PIC X(5).
         02 STUDENT-NAME           PIC X(25).
         02 STUDENT-TEST-SCORE-1   PIC 9(3).
         02 STUDENT-TEST-SCORE-2   PIC 9(3).
         02 STUDENT-TEST-SCORE-3   PIC 9(3).

      FD REPORT-CARDS
         DATA RECORD IS REPORT-RECORD.

      01 REPORT-RECORD PIC X(80).

      WORKING-STORAGE SECTION.

      01 REPORT-ITEM.
         02 REPORT-ID              PIC X(5).
         02                        PIC X(5)       VALUE SPACES.
         02 REPORT-NAME            PIC X(25).
         02                        PIC X(5)       VALUE SPACES.
         02 REPORT-GRADE           PIC X.

      01 AVERAGE-SCORE             PIC 9(3)V9(2).

      01 EOF-FLAG                  PIC X(3)       VALUE 'NO '.

      PROCEDURE DIVISION.
      MAIN-LINE.
          PERFORM INITIALIZATION-ROUTINE.
          PERFORM THE-LOOP
              UNTIL EOF-FLAG = 'YES'.
          PERFORM CLEANUP-ROUTINE.
          STOP RUN.

      INITIALIZATION-ROUTINE.
          OPEN INPUT STUDENT-FILE.
          OPEN OUTPUT REPORT-CARDS.
          READ STUDENT-FILE
               AT END MOVE 'YES' TO EOF-FLAG.

      THE-LOOP.
          MOVE STUDENT-ID TO REPORT-ID.
          MOVE STUDENT-NAME TO REPORT-NAME.
          COMPUTE AVERAGE-SCORE ROUNDED =
                          ( STUDENT-TEST-SCORE-1 +
                            STUDENT-TEST-SCORE-2 +
                            STUDENT-TEST-SCORE-3 ) / 3.
          IF AVERAGE-SCORE NOT LESS THAN 93
             MOVE 'A' TO REPORT-GRADE
          ELSE IF AVERAGE-SCORE NOT LESS THAN 85
                  MOVE 'B' TO REPORT-GRADE
               ELSE IF AVERAGE-SCORE NOT LESS THAN 76
                       MOVE 'C' TO REPORT-GRADE
                    ELSE IF AVERAGE-SCORE NOT LESS THAN 70
                            MOVE 'D' TO REPORT-GRADE
                         ELSE
                            MOVE 'F' TO REPORT-GRADE
                         END-IF
                    END-IF
               END-IF
          END-IF.
          MOVE REPORT-ITEM TO REPORT-RECORD.
          WRITE REPORT-RECORD.
          READ STUDENT-FILE
               AT END MOVE 'YES' TO EOF-FLAG.

      CLEANUP-ROUTINE.
          CLOSE STUDENT-FILE.
          CLOSE REPORT-CARDS.