Tables: Test Grading Example

       IDENTIFICATION DIVISION.
       PROGRAM-ID.    TEST-GRADE.
       AUTHOR.        BILL ROGERS.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT TEST-CARDS
               ASSIGN TO 'C:\PCOBWIN\ROGERS\TESTCARD.TXT'
               ORGANIZATION IS LINE SEQUENTIAL.
           SELECT GRADE-REPORT
               ASSIGN TO 'C:\PCOBWIN\ROGERS\RESULTS.TXT'
               ORGANIZATION IS LINE SEQUENTIAL.

       DATA DIVISION.
       FILE SECTION.

       FD TEST-CARDS
          DATA RECORD IS CARD-IN.
       01 CARD-IN.
          02 CARD-NAME              PIC X(20).
          02 CARD-ANSWERS.
             03 CARD-ANSWER
                  OCCURS 20 TIMES   PIC X.

       FD GRADE-REPORT
          DATA RECORD IS REPORT-LINE.
       01 REPORT-LINE               PIC X(80).

       WORKING-STORAGE SECTION.

       01 ANSWER-TABLE.
          02 CORRECT-ANSWER
                OCCURS 20 TIMES     PIC X.

       01 ANSWER-SUB                PIC 9(2).

       01 WS-SCORE                  PIC 9(3).

       01 DETAIL-LINE.
          02 DETAIL-NAME            PIC X(20).
          02                        PIC X(5)          VALUE SPACES.
          02 DETAIL-SCORE           PIC ZZ9.
          02                        PIC X             VALUE '%'.
          02                        PIC X(5)          VALUE SPACES.
          02 DETAIL-LETTER          PIC X.

       01 DATA-REMAINS-SWITCH       PIC X             VALUE 'Y'.
          88 NO-MORE-TESTS-TO-GRADE                   VALUE 'N'.

       PROCEDURE DIVISION.
       MAIN-LINE.
           PERFORM LETS-GET-STARTED.
           PERFORM GRADE-THE-TESTS
                   UNTIL NO-MORE-TESTS-TO-GRADE.
           PERFORM CLEAN-UP.
           STOP RUN.

       LETS-GET-STARTED.
           OPEN INPUT TEST-CARDS.
           OPEN OUTPUT GRADE-REPORT.
      *  Read the answer key and save it
           READ TEST-CARDS
                AT END MOVE 'N' TO DATA-REMAINS-SWITCH.
           MOVE CARD-ANSWERS TO ANSWER-TABLE.
      *  Read the first student's answers
           READ TEST-CARDS
                AT END MOVE 'N' TO DATA-REMAINS-SWITCH.

       GRADE-THE-TESTS.
           MOVE ZERO TO WS-SCORE.
           PERFORM GRADE-A-TEST
               VARYING ANSWER-SUB FROM 1 BY 1
                 UNTIL ANSWER-SUB > 20.
           MOVE CARD-NAME TO DETAIL-NAME.
           MOVE WS-SCORE TO DETAIL-SCORE.
           IF WS-SCORE > 92
              MOVE 'A' TO DETAIL-LETTER
           ELSE IF WS-SCORE > 84
                   MOVE 'B' TO DETAIL-LETTER
                ELSE IF WS-SCORE > 75
                        MOVE 'C' TO DETAIL-LETTER
                     ELSE IF WS-SCORE > 69
                             MOVE 'D' TO DETAIL-LETTER
                          ELSE
                             MOVE 'F' TO DETAIL-LETTER
                          END-IF
                     END-IF
                END-IF
           END-IF.
           WRITE REPORT-LINE FROM DETAIL-LINE.
      *  Read the next student's answers
           READ TEST-CARDS
                AT END MOVE 'N' TO DATA-REMAINS-SWITCH.

       GRADE-A-TEST.
      *  20 questions are each worth 5 points
           IF CARD-ANSWER (ANSWER-SUB) = CORRECT-ANSWER (ANSWER-SUB)
              ADD 5 TO WS-SCORE.

       CLEAN-UP.
           CLOSE TEST-CARDS.
           CLOSE GRADE-REPORT.

Input Data

                    ACBDAABCDDDAABDDAAAB
Jason Dube          ACBDAABBDDDAABDDAAAB
Ashley Flynn        ACBDAABCDDDAABDDAAAB
Adriane Gehl        ACBDAABCDDDAABACAAAB
Rachel Holtz        BCBBAABCDDDAABDDDAAB
Bryan King          ACBCAA CABCAABDDAAAB
Amanda Solpa        ACBDAABCDDAAABDDAAAB
Sean Theis          ACBDAABCADCAACDDAAAC

Output Report

Jason Dube                95%     A
Ashley Flynn             100%     A
Adriane Gehl              90%     B
Rachel Holtz              85%     B
Bryan King                75%     D
Amanda Solpa              95%     A
Sean Theis                80%     C

Cobol Home