Program:
This program involves updating an indexed file. You will start with an indexed file of students and their information, stumasti.datand you will produce a modified Stumasti.dat based on transactions in a file crsereg.dat. This is a "course registration" file that contains grade updates for the students in stumasti.dat.
There is a possibility that some of the student grade updates appearing in crsereg.datdo not correspondent to a student in stumasti.dat. If that is the case, then you will write these transactions into a file errrpt.prn. To help you out with this task, I am providing a file Indexed-to-Sequential-Conversion.cbl that, when properly embedded in a project, will convert an indexed file (which is not readable with a text editor) into a sequential file (that you can read with a text editor. This should be helpful to 1) view the original indexed file as a sequential file and 2) view the modified indexed file as a sequential file.
For each student appearing in crsereg.dat and also in stumasti.dat, you need to do the following update:
If the Grade achieved, CR-SEMESTER-GRADE, is not an F, addCR-COURSE-UNITStoSM-UNITS-COMPLETED, otherwise add nothing.
You will need to convert a grade achieved into its numeric equivalent, A = 4, B = 3, C = 2, D = 1, F = 0.
Then you will (for any grade achieved) computeGRADE-POINTS asNUMERIC-GRADE * CR-COURSE-UNITS
Then you will addGRADE-POINTStoSM-TOTAL-GRADE-POINTS.
The updated record is put into the stumasti.dat file using a REWRITE command.
The error file, errrpt.prn, should look as follows:
STUDENT MASTER UPDATE -- ERROR LOG
ACCT12503INTERMEDIATE ACCOUNT20000836040111323333SHARON CLARK 1BIOLFFFF
BIOL01006LIFE SCIENCE 20000836025111323333SHARON CLARK 1BIOLCCCC
ENG 10104MASTERPIECES IN LIT 20000836001111323333SHARON CLARK 1BIOLBBBB
HIST10101AMERICAN HIST PRECIV20000836005111323333SHARON CLARK 1BIOLBBBB
ACCT11110AUDITING 20000836040444678031JOHN RUTHERFORD 2CS CCCC
BIOL10520HUMAN ECOLOGY 20000836030444678031JOHN RUTHERFORD 2CS BBBB
BIOL18501NATURE-PHOTOGRAPHY 20000836030444678031JOHN RUTHERFORD 2CS AAAA
ENG 10104MASTERPIECES IN LIT 20000836001444678031JOHN RUTHERFORD 2CS BBBB
HIST10103AMERICAN HIST PRECIV20000836005444678031JOHN RUTHERFORD 2CS CCCC
The student master record is:
01 STUDENT-MASTER-RECORD.
05 SM-STUDENT-IDPIC X(09).
05 SM-STUDENT-STATUSPIC X(01).
88 ENROLLEDVALUE"E".
88 INACTIVEVALUE"I".
05 SM-STUDENT-NAME-AND-ADDRESS.
10 SM-STUDENT-NAMEPIC X(25).
10 SM-DATE-OF-BIRTH.
15 SM-DOB-YEAR PIC 9(04).
15 SM-DOB-MONTH PIC 9(02).
15 SM-DOB-DAY PIC 9(02).
10 SM-STUDENT-ADDRESSPIC X(25).
10 SM-STUDENT-CITYPIC X(11).
10 SM-STUDENT-STATEPIC X(02).
10 SM-STUDENT-ZIP-CODEPIC 9(05).
10 SM-STUDENT-ZIP-CODE-EXTPIC 9(04).
05 SM-STUDENT-PROGRESS-SUMMARY.
10 SM-CLASS-STANDINGPIC 9(01).
88 FRESHMANVALUE 1.
88 SOPHOMOREVALUE 2.
88 JUNIORVALUE 3.
88 SENIORVALUE 4.
10 SM-MAJORPIC X(04).
10 SM-UNITS-COMPLETEDPIC 9(03).
10 SM-TOTAL-GRADE-POINTSPIC 9(03).
10 SM-UNITS-IN-PROGRESSPIC 9(03).
The course registration record is:
01 COURSE-REGISTRATION-RECORD.
05 CR-COURSE-KEY.
10 CR-DEPARTMENT-CODEPIC X(04).
10 CR-COURSE-NUMBERPIC 9(03).
10 CR-SECTION-NUMBERPIC 9(02).
05 CR-COURSE-INFORMATION.
10 CR-COURSE-TITLEPIC X(20).
10 CR-COURSE-START-DATE.
15 CR-COURSE-START-YEARPIC 9(04).
15 CR-COURSE-START-MONTHPIC 9(02).
10 CR-COURSE-UNITSPIC 9(01).
10 CR-COURSE-DAYSPIC 9(01).
05 CR-REGISTRATION-INFORMATION.
10 CR-TEACHER-NUMBERPIC 9(03).
10 CR-STUDENT-INFORMATION.
15 CR-STUDENT-IDPIC 9(09).
15 CR-STUDENT-NAMEPIC X(25).
15 CR-CLASS-STANDINGPIC 9(01).
88 FRESHMANVALUE 1.
88 SOPHOMOREVALUE 2.
88 JUNIORVALUE 3.
88 SENIORVALUE 4.
15 CR-MAJORPIC X(04).
05 CR-GRADING-INFORMATION.
10 CR-6-WEEKS-GRADEPIC X(01).
10 CR-12-WEEKS-GRADEPIC X(01).
10 CR-FINAL-EXAM-GRADEPIC X(01).
10 CR-SEMESTER-GRADEPIC X(01).
Pass in your program, Prog05.cbl, and the (modified) stumasti.dat