I know this is a very outdated language, but it's a core requirement and I'm lost. Teacher is of very little help.
The program is suppose to put out a list of scores, with an average at the bottom. The average is all of the scores, minus the lowest score. Then it's suppose to say at the bottom which test number was taken out.
I can't even get the program to compile, and I know there is some missing parts of the code. But I just need some help with setting up the subscripts, searching the table, and outputting the right thing. Below is the code I have so far, any help would be very appreciated!!
CODE
IDENTIFICATION DIVISION.
PROGRAM-ID. SCORES.
AUTHOR. KARA KELSO.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT STUDENT-FILE ASSIGN TO 'C:\SCORES.DAT'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT PRINT-FILE
ASSIGN TO 'C:\SCORES.TXT'.
DATA DIVISION.
FILE SECTION.
FD STUDENT-FILE
RECORD CONTAINS 69 CHARACTERS.
01 STUDENT-RECORD.
05 STUDENT-NUM PIC X(9).
05 TEST-SCORES OCCURS 20 TIMES PIC 9(3).
FD PRINT-FILE
RECORD CONTAINS 132 CHARACTERS.
01 PRINT-LINE PIC X(132).
WORKING-STORAGE SECTION.
01 DATA-REMAINS-SWITCH PIC X(2) VALUE SPACES.
01 SUBSCRIPTS COMP.
05 SCORE-SUB PIC S9(4).
05 SAVE-SUB PIC S9(4).
01 FIRST-HEADER.
05 FILLER PIC X(7) VALUE SPACES.
05 FILLER PIC X(26) VALUE
'PROFESSOR JONES REPORT TO'.
05 FILLER PIC X VALUE SPACE.
05 STUDENT-NUM PIC 999B99B9999.
05 FILLER PIC X(7) VALUE SPACES.
05 FILLER PIC X(4) VALUE 'PAGE'.
05 FILLER PIC X VALUE SPACE.
05 PAGE-NO PIC X(2).
05 FILLER PIC X(73) VALUE SPACES.
01 SECOND-HEADER.
05 FILLER PIC X(19) VALUE SPACES.
05 FILLER PIC X(11) VALUE 'TEST SCORES'.
05 FILLER PIC X(102) VALUE SPACES.
01 DETAIL-LINE.
05 FILLER PIC X(21) VALUE SPACES.
05 TEST-NUM PIC Z9.
05 FILLER PIC XBX VALUE SPACES.
05 TEST-SCORES PIC ZZ9.
05 FILLER PIC X(103) VALUE SPACES.
01 SUBSCRIPTS COMP.
05 SCORE-SUB PIC S9(4).
05 SAVE-SUB PIC S9(4).
01 AVERAGE-LINE.
05 FILLER PIC X(7) VALUE SPACES.
05 FILLER PIC X(18) VALUE 'TEST SCORE AVERAGE'.
05 FILLER PIC X VALUE SPACE.
05 AVERAGE-SCORE PIC ZZ9.9.
01 FOOTER-LINE.
05 FILLER PIC X VALUE SPACE.
05 FILLER PIC X(27)
VALUE '*** NOTE: TEST SCORE NUMBER'.
05 LOWEST-SCORE PIC Z9.
05 FILLER PIC X.
05 FILLER PIC X(23)
VALUE 'NOT INCLUDED IN AVERAGE'.
05 FILLER PIC X(78) VALUE SPACES.
PROCEDURE DIVISION.
100-PROCESS-STUDENT-RECORDS.
OPEN INPUT STUDENT-FILE
OUTPUT PRINT-FILE.
PERFORM UNTIL DATA-REMAINS-SWITCH = 'YES'
READ STUDENT-FILE
AT END
MOVE 'YES' TO DATA-REMAINS-SWITCH
NOT AT END
PERFORM 200-CREATE-REPORT
END-READ
END-PERFORM.
CLOSE STUDENT-FILE
PRINT-FILE.
STOP RUN.
200-CREATE-REPORT.
PERFORM 210-WRITE-HEADINGS.
PERFORM 220-WRITE-SCORES.
PERFORM 230-CALCULATE-AVERAGE.
PERFORM 240-WRITE-FOOTER.
210-WRITE-HEADINGS.
MOVE FIRST-HEADER TO PRINT-LINE.
WRITE PRINT-LINE.
MOVE SECOND-HEADER TO PRINT-LINE.
WRITE PRINT-LINE
AFTER ADVANCING 2 LINES.
220-WRITE-SCORES.
PERFORM 225-INCREMENT-AVERAGE
VARYING SCORE-SUB FROM 1 BY 1
UNTIL SCORE-SUB > 20.
MOVE DETAIL-LINE TO PRINT-LINE.
WRITE PRINT-LINE
AFTER ADVANCING 1 LINE.
225-INCREMENT-AVERAGE.
ADD SCORES (SCORE-SUB) TO SCORES.
MOVE SCORES TO PRINT-LINE.
WRITE PRINT-LINE
AFTER ADVANCING 1 LINE.
230-CALCULATE-AVERAGE.
COMPUTE AVERAGE-SCORE =
ADD SCORES (SCORE-SUB)
AVERAGE-SCORE / 19
END-COMPUTE.
240-WRITE-FOOTER.
MOVE FOOTER-LINE TO PRINT-LINE.
WRITE PRINT-LINE
AFTER ADVANCING 1 LINE.
| 