Cobol Home
In this program you will generate academic transcripts for several students.
Input record:
01 TRANSCRIPT-IN.
02 SOCIAL-SECURITY-NUMBER PIC X(9).
02 STUDENT-NAME PIC X(25).
02 SEMESTER-CODE PIC X(3).
02 COURSES-TAKEN.
03 COURSE-TAKEN OCCURS 10 TIMES.
04 COURSE-ID.
05 COURSE-DEPT PIC X(2).
05 COURSE-NUM PIC X(3).
04 COURSE-CREDITS PIC 9.
04 FINAL-GRADE PIC X.
The Student name will be in "Lastname, Firstname Middle" format; extra credit for flipping it to "Firstname Middle Lastname" format and converting to mixed case. The semester code is comprised of a two-digit year followed by "F" for Fall, "W" for Winter, or "S" for Summer. When printing the transcript you must expand this code to more recognizable text. For example, if the semester code is "W99" you must print "Winter 1999" on the transcript; if the code is "F00" you must print "Fall 2000" on the transcript.
The Course ID number is five digits, such as 70101. The first two digits are a department code. For example, 70 is Computer Science. You will need to load a table of department codes in working storage so that you can do a lookup on the department code. When printing the transcript you must print "Computer Science 101" rather than just the "70101" you find on the input record.
Use the following table of department codes:
| 01 ART | 14 MUSIC | 33 HOME ECONOMICS |
| 02 BIOLOGY | 15 PHILOSOPHY | 34 ANTHROPOLOGY |
| 03 CHEMISTRY | 16 PHYSICAL EDUCATION | 37 GEOLOGY |
| 05 EDUCATION | 17 PHYSICS | 47 ASTRONOMY |
| 06 ENGLISH | 18 POLITICAL SCIENCE | 61 BUSINESS |
| 07 FRENCH | 20 SOCIOLOGY | 70 COMPUTER SCIENCE |
| 08 GERMAN | 21 SPANISH | 72 JAPANESE |
| 09 HISTORY | 22 SPEECH | 73 ITALIAN |
| 10 JOURNALISM | 23 GERONTOLOGY | 75 PHYSICAL SCIENCE |
| 11 LATIN | 26 PSYCHOLOGY | 83 CRIMINAL JUSTICE |
| 12 GREEK | 31 NURSING | |
| 13 MATHEMATICS | 32 EDUCATION |
Notice that the input record allows for up to 10 courses per semester. Most students will have less than 10. There are likely to be multiple records for a single student since most students will have attended for more than one semester. Do a separate transcript for each student. That is, there should be a page break between each student. Each transcript should be dated in MM/DD/YY format. For each student show a total of their credit hours, but any failed course (Grade = F) earns zero credits.
Compute GPA using the Quality Point method. Compute quality points for each course by multiplying number of credit hours times the numeric value of the grade (A=4, B=3, C=2, D=1, F=0). (e.g., a grade of A in a 3 credit-hour course is 12 quality points; a grade of B in a 3 credit-hour course is 9 quality points.) GPA is computed by dividing total quality points by total credit hours.
Sample output:
GOVERNORS STATE UNIVERSITY
ACADEMIC TRANSCRIPT
Donald T. Duck 10/26/00
Semester Course Credits Final Grade
Fall 1999 Computer Science 101 3.00 A
English 101 3.00 A
Math 101 3.00 A
Biology 101 2.00 A
Biology Lab 101 1.00 A
Winter 2000 Computer Science 102 3.00 A
English 102 3.00 A
Literature 200 3.00 A
Chemistry 101 3.00 A
Total Credits 24.00 G.P.A. 4.00