***********************************************************
* PROGRAM TO PRINT EXAM MARKS AND CLASS GRADES *
* DECEMBER, 1995 EXAM *
* AUTHOR: Martin O'Sullivan
* DATE: DECEMBER, 1995
***********************************************************
H D
F*****************FILE SPEC ********************************
FGRADES IP F 40 DISK
FQSYSPRT O F 132 OF PRINTER
E*****************EXTENSION SPEC ***************************
E MRK 4 3 0
I*****************INPUT RECORD *****************************
I*
IGRADES NS 01
I 1 5 COURSEL1
I 6 25 NAME
I 26 280MRK,1
I 29 310MRK,2
I 32 340MRK,3
I 35 370MRK,4
I 38 400FINAL
C******************* CALCULATIONS **************************
C 01 EXSR AVRG
C 01 EXSR GRADSR
C 01 AVR ADD CLASS CLASS 40
C 01 ADD 1 NUM 20
CL1 CLASS DIV NUM CLAVR 30
CL1 EXCPT
CL1 Z-ADD0 CLASS
CL1 Z-ADD0 NUM
***** SUBROUTINE TO CALCULATE STUDENT'S FINAL MARK *****
CSR AVRG BEGSR
C XFOOTMRK STUD 30
C STUD DIV 4 SAVR 30
C SAVR ADD FINAL STUD2 30
C STUD2 DIV 2 AVR 30
CSR ENDSR
**** SUBROUTINE TO DETERMINE GRADE ****
CSR GRADSR BEGSR
C AVR IFLE 59
C MOVE 'C' GRADE 1
C ELSE
C AVR IFLE 79
C MOVE 'B' GRADE 1
C ELSE
C MOVE 'A' GRADE 1
C ENDIF
C ENDIF
CSR ENDSR
******************OUTPUT RECORD **********************************
OQSYSPRT H 302 1P
O OR OF
O 10 'DATE'
O UDATE Y 20
O 60 'CLASS GRADES'
O 81 'NAME:'
O 101 'XXXXXXXXXXXXXXXXX'
O H 2 OF
O OR 1P
O 21 'COURSE'
O 35 'NAME'
O 51 'EXAM 1'
O 59 'EXAM 2'
O 67 'EXAM 3'
O 75 'EXAM 4'
O 82 'FINAL'
O 91 'AVERAGE'
O 98 'GRADE'
O D 2 01
O L1 COURSE 21
O NAME 43
O MRK,1 J 49
O MRK,2 J 57
O MRK,3 J 65
O MRK,4 J 75
O FINAL J 81
O AVR J 89
O GRADE 97
O E 2
O 44 'AVERAGE MARK FOR COURSE'
O CLAVR JB 48
O T 12 LR
O 70 'END OF REPORT'