0.003/13/99 ELVIN FAWLEY 1.0 PROGRAM NARRATIVE ----------------- THIS SUB-PROGRAM WILL COMPUTE TERM GPA TOTALS FOR STUDENTS AND STORE THE RESULTS IN A TABLE FOR USE BY THE CALLING PROGRAM. THIS SUB-PROGRAM ACCESSES BOTH THE ACTIVE AND HISTORY STUDENT DATABASES. THE INFORMATION PASSED FROM THE CALLING MODULE TO THE SUB- PROGRAM CONSISTS OF THE FOLLOWING DATA ELEMENTS: 01 (01 LEVEL DATA NAME) * SKIP3 05 GRP327S-RETURN-CODE PIC S9999V. 88 GRP327S-SUCCESSFUL VALUE +0000. 88 GRP327S-STU-IDNM-NOT-FOUND VALUE +1001. 88 GRP327S-TERM-TBL-OVFL VALUE +1002. 88 GRP327S-DLI-CALL-ERROR-STU VALUE +1003. 88 GRP327S-DLI-CALL-ERROR-HSTU VALUE +1004. SKIP3 05 STUDENT-ID-NMBR PIC X(9). 05 LAST-TERM-GPA-COMPUTED PIC X(3). 05 FIRST-SEMESTER-TERM PIC X(3). 05 FIRST-P-GRADE-TERM PIC X(3). 05 TERM-SEG-CT-MAX PIC S9999V COMP SYNC VALUE +0060. 05 TERM-SEG-CT PIC S9999V COMP SYNC. SKIP3 05 QUARTER-SEGMENT OCCURS 1 TO 60 TIMES DEPENDING ON TERM-SEG-CT ASCENDING KEY IS TERM-ID INDEXED BY TERM-SEG-IX1 TERM-SEG-IX2. 10 TERM-ID. 15 TERM-YR PIC X(2). 15 TERM-CODE PIC X(1). 10 CURR-LEVEL PIC X(1). 10 CURRICULUM PIC X(3). 10 STATUS-ACADEMIC PIC X(1). 10 QTR-GPA-QTR-SEG. 15 HOURS-ATT-QTR PIC S999V99 COMP-3. 15 HOURS-COMP-QTR PIC S999V99 COMP-3. 15 GRADE-POINT-QTR PIC S999V99 COMP-3. 15 GRADE-AVG-QTR PIC S9V9(3) COMP-3. THE CALLING PROGRAM SHOULD CHECK THE RETURN CODE FOR THE FOLLOWING CONDITIONS: +0000 - THE PROGRAM CALCULATED TERM GPA TOTALS WITH NO ERRORS. +1001 - NO STUDENT FOUND ON DATABASES USING ID NUMBER GIVEN. +1002 - THE TERM GPA TABLE HAS OVERFLOWED. +1003 - DLI CALL ERROR ON ACTIVE STUDENT DATABASE. +1004 - DLI CALL ERROR ON HISTORY STUDENT DATABASE. THE FOLLOWING CALL STATEMENT IS USED TO INVOLKE SUB-PROGRAM GRP327S: CALL 'GRP327S' USING (ACTIVE STUDENT PCB MASK ADDRESS) (HISTORY STUDENT PCB MASK ADDRESS) (01 LEVEL DATA NAME) 2.0 SAMPLE JCL: N/A ---------- 3.0 JOB SETUP INSTRUCTIONS: N/A ---------------------- 4.0 FILES: N/A ----- 4.1 DATABASE SEGMENTS USED: ACTIVE STUDENT DATABASE 1. STUDENTM (READ ONLY) 2. STUREGIS (READ ONLY) 3. STUQUART (READ ONLY) HISTORY STUDENT DATABASE 1. STUHIDNM (READ ONLY) 2. STUHREGI (READ ONLY) 3. STUHQUAR (READ ONLY) 5.0 SPECIAL FEATURES ---------------- 5.1 CALLING PROGRAMS: 1. GRP320S 2. REG887 5.2 SUBPROGRAMS CALLED: GRP060S 5.3 MESSAGE SEGMENT CODES: N/A 5.4 SPECIAL OUTPUT MESSAGES: N/A 6.0 PROGRAM OPTIONS: N/A ---------------- 7.0 PROGRAM CHANGE HISTORY: ----------------------- 7.1 VERSION NO: V4.40 CHANGE DATE: 11/16/92 PROGRAMMER NAME: ELVIN FAWLEY PROGRAM CHANGE REQUEST NO: 00010578,DCC DESCRIPTION OF CHANGE: INITIAL RELEASE 00010000 7.2 VERSION NO: V5.0 00020000 CHANGE DATE: 05/15/93 00030000 PROGRAMMER NAME: CATHY SLUDER 00040000 PROGRAM CHANGE REQUEST NO: 00012080 00050000 DESCRIPTION OF CHANGE: 00060000 - THE PROGRAM HAS BEEN RECOMPILED AS A PART OF THE 00070000 VERSION 5.O DATA BASE CHANGES. 00080000 00090000 7.3 VERSION NO: V5.16 00020000 CHANGE DATE: 09/15/94 00030000 PROGRAMMER NAME: CATHY SLUDER 00040000 PROGRAM CHANGE REQUEST NO: 00013301 00050000 DESCRIPTION OF CHANGE: 00060000 - ADDED REG887 TO THE LIST OF CALLING PROGRAMS. 00070000 7.4 VERSION NO: V6.05 00020000 CHANGE DATE: 06/15/96 00030000 PROGRAMMER NAME: KATHY HARCUM 00040000 PROGRAM CHANGE REQUEST NO: 00016709 00050001 DESCRIPTION OF CHANGE: 00060000 -MODIFIED TO ACCOUNT FOR REGISTRATIONS TAGGED AS 'REPEATS' WHEN ACCUMULATING GPA. 7.5 VERSION NO: V7.02 CHANGE DATE: 12/98 PROGRAMMER NAME: KATHY HARCUM PROGRAM CHANGE REQUEST NO: 00018008 DESCRIPTION OF CHANGE: -MODIFIED TO ENSURE COMPLIANCE WITH YEAR 2000 PROCESSING AND NEW COBOL COMPILER. -ADDED CALL TO UTL060S FOR CENTURY PROCESSING.