0.003/13/99 KEN BALLARD 1.0 PROGRAM NARRATIVE ----------------- THE PURPOSE OF THIS SUBPROGRAM IS TO CALCULATE QTR-ADMISSION, QTR-FIRST-ENROL, QTR-LAST-ENROL, QTR-PREV-ENROL FOR ANY STUDENT PASSED FROM A CALLING MODULE. THE INFORMATION THAT IS PASSED FROM THE CALLING MODULE TO THE SUBPROGRAM IS THE STU-PCB (WITH KEY FEEDBACK LENGTH OF 23) AND THE CTL-PCB (WITH KEY FEEDBACK LENGTH OF 10) AND THE LINK-INFO BELOW. 01 LINK-INFO. 05 LINK-STATUS PIC XX. (STATUS CODE) 05 LINK-SSNO PIC 9(9). 05 LINK-ADM PIC XXX. (QTR-ADMISSION) 05 LINK-FIRST PIC XXX. (QTR-FIRST-ENROL) 05 LINK-LAST PIC XXX. (QTR-LAST-ENROL) 05 LINK-PREV PIC XXX. (QTR-PREV-ENROL) THE CURRENT VALUES OF WHAT THESE FIELDS CONTAIN ARE PASSED TO THE SUBPROGRAM FOR CALCULATION PURPOSES IF NO STUREGIS OR STUHREGI SEGMENTS ARE FOUND FOR THE STUDENT. THE YEAR/QUARTER FOR THE EARLIEST REGISTRATION RECORDS ON THE DATA BASE MUST BE PLACED IN THE PROGRAM-OPTION SEGMENT 'REG927' OF THE CONTROL DATA BASE. THIS YEAR/QUARTER WILL BE USED TO CALCULATE QTR-FIRST-ENROL IF THE STUDENT WAS ENROLLED BEFORE THE DATABASES WERE LOADED. THEREFORE, NO STUREGIS OR STUHREGIS EXISTS FOR THOSE QUARTERS. IF THE STUDENT HAS NO REGISTRATION RECORD, THE PROGRAM ATTEMPTS TO CALCULATE THE ENROLLMENT FIELDS AND THE TYPE BASED ON THE INFORMATION PASSED. THE FOLLOWING POSSIBLITIES ARE DEALT WITH WHEN A STUDENT IS NOT FOUND ON THE STUREGIS FILE: 1) QTR-ADMISSION, QTR-FIRST-ENROL, AND QTR-LAST-ENROL AND QTR-PREV-ENROL ARE ALL SPACES -- THE PROGRAM RETURNS TO THE CALLING PROGRAM. 2) QTR-ADMISSION IS SPACES OR GREATER THAN QTR-FIRST-ENROL AND QTR-FIRST-ENROL IS NOT SPACES -- QTR-FIRST-ENROL IS MOVED TO QTR-ADMISSION. 3) QTR-FIRST-ENROL GREATER THAN QTR-LAST-ENROL OR QTR-PREV- ENROL GREATER THAN QTR-LAST-ENROL OR QTR-FIRST-ENROL IS GREATER THAN QTR-PREV-ENROL AND IS NOT SPACES -- SPACES ARE MOVED TO QTR-FIRST-ENROL QTR-LAST-ENROL AND QTR-PREV-ENROL, THE PROGRAM RETURNS TO THE CALLING PROGRAM. 4) QTR-LAST-ENROL IS SPACES AND QTR-FIRST-ENROL IS NOT SPACES -- QTR-FIRST-ENROL IS MOVED TO QTR-LAST-ENROL. 5) QTR-FIRST-ENROL EQUALS QTR-LAST-ENROL -- SPACES ARE MOVED TO QTR-PREV-ENROL. 6) QTR-PREV-ENROL IS SPACES AND QTR-FIRST-ENROL IS LESS THAN QTR-LAST-ENROL -- QTR-FIRST-ENROL IS MOVED TO QTR-PREV- ENROL. IF THE STUDENT PASSED TO THE SUBPROGRAM IS FOUND TO HAVE REGISTRATIONS EITHER IN THE STUREGIS OR STUHREGI SEGMENTS, THE PROGRAM CALCULATES QTR-FIRST-ENROL, QTR-LAST-ENROL, AND QTR-PREV-ENROL BASED ON THE REGISTRATION RECORDS. THE QTR-LAST- ENROL IS THE LATEST YEAR/QUARTER FOR WHICH THE STUDENT HAS RECORDS ON THE STUREGIS FILE. THE QTR-PREV-ENROL IS THE NEXT LATEST YEAR/ QUARTER FOR WHICH THE STUDENT HAS RECORDS UNLESS THE QTR-LAST-ENROL AND THE QTR-FIRST-ENROL ARE EQUAL; IN WHICH CASE THE QTR-PREV-ENROL IS SPACES. THE QTR-FIRST-ENROL IS THE FIRST YEAR/QUARTER THE STUDENT HAS REGISTRATIONS UNLESS THE STUDENT'S QTR-ADMISSION IS LESS THAN THE YEAR/QUARTER THE DATA BASE WAS CREATED. IN THIS CASE, THE QTR-ADMISSION IS MOVED TO THE QTR-FIRST-ENROL AND ALSO TO THE QTR-PREV-ENROL IF THE QTR-PREV-ENROL IS SPACES. THE SUBPROGRAM ALSO CHECKS TO MAKE SURE THE QTR-ADMISSION IS NOT GREATER THAN THE QTR-FIRST-ENROL; IF IT IS, QTR-FIRST-ENROL IS MOVED TO QTR-ADMISSION. ALL OF THESE FIELDS ARE THEN PASSED BACK TO THE CALLING MODULE WITH A LINK-STATUS OF BLANK. IF ANY PROBLEMS WERE ENCOUNTERED IN THE SUBPROGRAM, THE STATUS CODE IS PASSED BACK TO THE CALLING MODULE. IF THE YEAR/QUARTER THE DATA BASE WAS CREATED IS NOT ON THE SYSTEM 'ZZ' IS PASSED TO THE CALLING MODULE IN THE PASS-STATUS. 2.0 USER OPERATING INSTRUCTIONS: N/A -------------------------- 3.0 SCREEN LAYOUT: N/A ------------- 4.0 FILES ----- 4.1 DATA BASE SEGMENTS USED: CONTROL DATA BASE 1. CTLPROPT (READ ONLY) STUDENT DATA BASE 1. STUREGIS (READ ONLY) STUDENT HISTORY DATA BASE 1. STUHREGI (READ ONLY) 4.2 ADDITIONAL FILES USED: N/A 4.3 INPUT/OUTPUT RECORD LAYOUTS: N/A 5.0 SPECIAL FEATURES ---------------- 5.1 CALLING PROGRAMS 1. REC310 2. REG310 3. REG400 4. REG480 5. REG020 6. REG025 7. GRP050 5.2 SUBPROGRAMS CALLED: N/A 5.3 MESSAGE SEGMENT CODES: N/A 6.0 PROGRAM OPTIONS --------------- 1. YYQ - YEAR/QUARTER OF REGISTRATION RECORDS ON THE DATA BASE 7.0 PROGRAM CHANGE HISTORY: N/A ---------------------- 7.1 VERSION NO: V1.0 CHANGE DATE: 09/23/83 PROGRAMMER NAME: KEN BALLARD PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: N/A 7.2 VERSION NO: V1.6 CHANGE DATE: 04/26/84 PROGRAMMER NAME: KEN BALLARD PROGRAM CHANGE REQUEST NO: TN-015, SR-007 DESCRIPTION OF CHANGE: CHANGE PROGRAM TO NOT CALCULATE ANY STUDENT TYPES. ALSO CHANGED TO NOT CALCULATE NEW QUARTERS IF LINK-INFO HAS VALUE THAT IS LESS THAN PROGRAM OPTION QUARTER. 7.3 VERSION NO: V1.7 CHANGE DATE: 06/26/84 PROGRAMMER NAME: KEN BALLARD PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: CHANGE PROGRAM TO BLANK OUT QTR- FIRST-ENROL, QTR-LAST-ENROL AND QTR-PREV-ENROL WHEN QTR-ADMISSION IS GREATER THAN THE YEAR/QTR THE DATA BASE WAS BUILT AND THERE ARE NO REGISTRATION RECORDS. 7.4 VERSION NO: V1.11 CHANGE DATE: 10/11/84 PROGRAMMER NAME: KEN BALLARD PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: CHANGED PROGRAM TO MOVE QTR-FIRST- ENROL TO QTR-PREV-ENROL ONLY WHEN QTR-FIRST- ENROL IS LESS THAN YEAR/QTR CREATED AND NOT = SPACES AND CALCULATED QTR-PREV-ENROL IS SPACES. 7.5 VERSION NO: V2.6 CHANGE DATE: 11/26/85 PROGRAMMER NAME: ELVIN FAWLEY PROGRAM CHANGE REQUEST NO: STC-BR-035 DESCRIPTION OF CHANGE: CHANGED PROGRAM TO ACCESS STUHREGI SEGMENTS IN STUDENT HISTORY DATABASE WHEN COMPUTING QUARTERS OF ENROLLMENT. ALSO CHANGED DLI SEGMENT SEARCH ARGUMENTS TO RETURN ONLY ONE REGISTRATION SEGMENT FOR EACH QUARTER AS OPPOSED TO ALL REGISTRATIONS. 7.6 VERSION NO: V4.20 CHANGE DATE: 02/15/91 PROGRAMMER NAME: LAYNE WARREN PROGRAM CHANGE REQUEST NO: NA DESCRIPTION OF CHANGE: ADDED REG025 TO CALLING PROGRAMS 7.7 VERSION NO: V4.25 CHANGE DATE: 06/13/91 PROGRAMMER NAME: BETH DUFF PROGRAM CHANGE REQUEST NO: 00007829 DESCRIPTION OF CHANGE: MODIFY THIS PROGRAM TO CHANGE THE QTR-PREV-ENROL WHEN THERE IS A NEW REGISTRATION REGARDLESS OF THE DB-CREATION DATE FOUND IN THE OPTION RECORD. PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: MODIFIED PROGRAM TO COMPILE AND LINK UNDER THE COBOL II STANDARDS. 7.8 VERSION NO: V4.35 CHANGE DATE: 06/15/92 PROGRAMMER NAME: BETH DUFF PROGRAM CHANGE REQUEST NO: 00009309 DESCRIPTION OF CHANGE: CORRECT PROBLEM WITH THE CALCULATION OF THE QTR-PREV-ENROL FIELD. IT IS CORRECTLY BEING UPDATED, BUT ON THE NEXT RUN IT GETS CHANGED BACK TO SPACES. ADD LOGIC TO CHECK THE LINK-PREV DATE AS WELL AS THE LINK-LAST DATE BEFORE UPDATING. 7.9 VERSION NO: V5.22 02819200 CHANGE DATE: 03/15/95 02819300 PROGRAMMER NAME: CAROLYN SMITH 02819400 PROGRAM CHANGE REQUEST NO: 00012000 02819500 DESCRIPTION OF CHANGE: 02819600 -MODIFICATIONS WERE MADE TO THE CALLS TO ALL DATA BASES 02819700 TO BRING THESE CALLS UP TO THE STANDARD USE OF AN 02819800 IOAREA. SEE PAGE 9 OF THE 08/92 PROGRAMMING 02819900 STANDARD, PROCEDURES AND GUIDELINES MANUAL. 02820000 7.10 VERSION NO: V7.02S 02819200 CHANGE DATE: 03/10/99 02819300 PROGRAMMER NAME: RICHARD GILLETTE 02819400 PROGRAM CHANGE REQUEST NO: 00018008 02819500 DESCRIPTION OF CHANGE: 02819600 -MODIFICATIONS WERE MADE FOR THE Y2K INITIATIVE 02819700 02820100