0.003/13/99 CAROL WILLIS 1.0 PROGRAM NARRATIVE ----------------- THE PURPOSE OF THIS SUBPROGRAM IS TO CALCULATE TERM-ADMISSION, TERM-FIRST-ENROL AND TERM-LAST-ENROL FOR ANY CONTINUING EDUCATION 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. (TERM-ADMISSION) 05 LINK-FIRST PIC XXX. (TERM-FIRST-ENROL) 05 LINK-LAST PIC XXX. (TERM-LAST-ENROL) 05 LINK-PREV PIC XXX. N/A THE CURRENT VALUES OF WHAT THESE FIELDS CONTAIN ARE PASSED TO THE SUBPROGRAM FOR CALCULATION PURPOSES IF NO CSTREGIS SEGMENTS ARE FOUND FOR THE STUDENT. THE YEAR/TERM FOR THE EARLIEST REGISTRATION RECORDS ON THE DATA BASE MUST BE PLACED IN THE PROGRAM-OPTION SEGMENT 'CEU20S' OF THE CONTROL DATA BASE. THIS YEAR/TERM WILL BE USED TO CALCULATE TERM-FIRST-ENROL IF THE STUDENT WAS ENROLLED BEFORE THE DATABASES WERE LOADED. THEREFORE, NO CSTREGIS EXISTS FOR THOSE TERMS. 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 CSTREGIS FILE: 1) TERM-ADMISSION, TERM-FIRST-ENROL, AND TERM-LAST-ENROL ARE ALL SPACES -- THE PROGRAM RETURNS TO THE CALLING PROGRAM. 2) TERM-ADMISSION IS SPACES OR GREATER THAN TERM-FIRST-ENROL AND TERM-FIRST-ENROL IS NOT SPACES -- TERM-FIRST-ENROL IS MOVED TO TERM-ADMISSION. 3) TERM-FIRST-ENROL GREATER THAN TERM-LAST-ENROL. SPACES ARE MOVED TO TERM-FIRST-ENROL TERM-LAST-ENROL. THE PROGRAM RETURNS TO THE CALLING PROGRAM. 4) TERM-LAST-ENROL IS SPACES AND TERM-FIRST-ENROL IS NOT SPACES -- TERM-FIRST-ENROL IS MOVED TO TERM-LAST-ENROL. IF THE STUDENT PASSED TO THE SUBPROGRAM IS FOUND TO HAVE REGISTRATIONS ON THE CSTREGIS SEGMENT, THE PROGRAM CALCULATES TERM-FIRST-ENROL AND TERM-LAST-ENROL BASED ON THE REGISTRATION RECORDS. THE TERM-LAST-ENROL IS THE LATEST YEAR/TERM FOR WHICH THE STUDENT HAS RECORDS ON THE CSTREGIS FILE. THE TERM-FIRST-ENROL IS THE FIRST YEAR/TERM THE STUDENT HAS REGISTRATIONS UNLESS THE STUDENT'S TERM-ADMISSION IS LESS THAN THE YEAR/TERM THE DATA BASE WAS CREATED. IN THIS CASE, THE TERM-ADMISSION IS MOVED TO THE TERM-FIRST-ENROL. THE SUBPROGRAM ALSO CHECKS TO MAKE SURE THE TERM-ADMISSION IS NOT GREATER THAN THE TERM-FIRST-ENROL; IF IT IS, TERM-FIRST-ENROL IS MOVED TO TERM-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/TERM 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: SIS CONTROL DATA BASE 1. CTLPROPT (READ ONLY) CEU STUDENT DATA BASE 1. CSTREGIS (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. CEU020 5.2 SUBPROGRAMS CALLED: UTL060S 5.3 MESSAGE SEGMENT CODES: N/A 6.0 PROGRAM OPTIONS --------------- CEU20S01: YYT - YEAR/TERM OF REGISTRATION RECORDS ON THE DATA BASE 7.0 PROGRAM CHANGE HISTORY: ---------------------- 7.1 VERSION NO: V3.12 CHANGE DATE: PROGRAMMER NAME: GEORGIA THISTLE PROGRAM CHANGE REQUEST NO: STC-CV-042 DESCRIPTION OF CHANGE: NEW RELEASE 7.2 VERSION NO: V4.0S CHANGE DATE: 03/08/89 PROGRAMMER NAME: CAROL WILLIS PROGRAM CHANGE REQUEST NO: STC-CV-069 (00001394) DESCRIPTION OF CHANGE: RECOMPILED WITH NEW SEGMENTS. 7.3 VERSION NO: V4.02 CHANGE DATE: 04/28/89 PROGRAMMER NAME: CAROL WILLIS PROGRAM CHANGE REQUEST NO: 00002743 DESCRIPTION OF CHANGE: RECOMPILED WITH REVISED STUDENT REGISTRATION SEGMENT. 7.4 VERSION NO: V4.05 CHANGE DATE: 08/01/89 PROGRAMMER NAME: CAROL WILLIS PROGRAM CHANGE REQUEST NO: 00003512 DESCRIPTION OF CHANGE: MINOR DOCUMENTATION MODIFICATION. 7.5 VERSION NO: V4.26 CHANGE DATE: 07/09/91 PROGRAMMER NAME: CAROL WILLIS PROGRAM CHANGE REQUEST NO: 00008332 DESCRIPTION OF CHANGE: RECOMPILED WITH REVISED STUDENT REGISTRATION SEGMENT (CSTREGIS). 7.6 VERSION NO: V5.22 02819200 CHANGE DATE: 03/15/95 02819300 PROGRAMMER NAME: CAROLYN SMITH 02819400 PROGRAM CHANGE REQUEST NO: 00012182 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 02820100 7.7 VERSION NO: V7.02 02819200 CHANGE DATE: 03/23/98 02819300 PROGRAMMER NAME: CAROL WILLIS 02819400 PROGRAM CHANGE REQUEST NO: 00018008 02819500 DESCRIPTION OF CHANGE: 02819600 -MODIFIED FOR Y2K. COMPILED IN COBOL/370. 02819700