0.003/13/99 SUE DOTSON 1.0 PROGRAM NARRATIVE ----------------- PER901S IS AN ADJUNCT FACULTY CONTRACT CALCULATION SUBPROGRAM. THE CALLING PROGRAMS SELECT AND SORT THE RECORDS, PASSING THE SUBPROGRAM THE INSTRUCTOR SOCIAL SECURITY AND CLASS ID. THE SUBPROGRAM RETURNS THE WORKLOAD CREDITS, CONTRACT AMOUNT, ADJUNCT RATE OR FLAT CONTRACT AMOUNT. THE PROGRAM MAY BE UTILIZED TO CALCULATE FROM THE CLASS, IN- TRUCTOR AND PERSONNEL DATA THE AMOUNT AN INSTRUCTOR SHOULD RECEIVE FOR TEACHING A GIVEN CLASS OR PORTION OF A CLASS. IN ADDITION, THE SUB- PROGRAM MAY RETURN TO THE CALLING PROGRAM A PREDETERMINED 'FLAT CON- TRACT' AMOUNT (INPUT VIA PER112) OR A PREVIOUSLY CALCULATED AND STORED CONTRACT AMOUNT FROM THE PERSONNEL CONTRACT (PERCONT) SEGMENT CREATED BY PER160 ONLINE, AND PER360 IN BATCH TO MAINTAIN A RECORD OF THE VALUE OF EACH ADJUNCT CONTRACT. WHEN PER160 OR PER360 ARE USED, THE RATE AND CREDIT VALUES FROM THE CALCULATION AS WELL AS THE DATE OF THE CONTRACT, MULTI-MEET PAYMENT, PRORATION AND CONTRACT AMOUNT ARE STORED IN THE CONTRACT SEGMENT AND RETURNED TO THE CALLING PROGRAM. THE CONTRACT AMOUNT WILL BE GIVEN REGARDLESS OF THE METHOD OF CALCULATION. THE SUBPROGRAM ALSO RETURNS FLAGS TO INDICATE WHETHER THE CONTRACT WAS CALCULATED INCLUDING MULTI-MEET BONUS, WAS PRO-RATED OR A DEFAULT RATE USED. THE SUBPROGRAM RETURNS PREVIOUSLY CALCULATED DATA: 1. WHEN A PERSONNEL CONTRACT RECORD (PERCONT) IS FOUND FOR A GIVEN INSTRUCTOR AND CLASS, THE PROGRAM DETERMINES IF IT IS A 'FLAT RATE CONTRACT' OR A PREVIOUSLY CALCULATED AND STORED CONTRACT. A FLAT CONTRACT WILL HAVE ZEROS ENTERED IN THE PART-TIME-RATE, AND PAYMENT CREDITS. THEY WILL BE PROCESSED AS DESCRIBED IN THE NEXT SECTION. A PREVIOUSLY STORED CONTRACT RECORD WILL RETURN TO THE CALLING PROGRAM THE DATA FROM THE SEGMENT WITHOUT MAKING ANY CALCULATIONS. THE SUBPROGRAM CALCULATES THE CONTRACT USING THE FOLLOWING SEQUENCE: 1. READS THE PROGRAM OPTION 'PERS02 01' TO OBTAIN THE SESSION CODES FOR WHICH MULTI-MEET BONUS CAN BE PAID, AND THE MINIMUM CLASS-CREDITS VALUE FOR WHICH THE MULTI-MEET BONUS CAN BE PAID. (IF PROGRAM OPTION 'PERS02 01' IS MISSING OR THE MINIMUM CLASS-CREDITS VALUE IS NON-NUMERIC, THE VALUE DEFAULTS TO 99.99.) READS THE NEW PROGRAM OPTION SEGMENT 'PER901 01' TO FIND THE COURSE IDS FOR WHICH THE MULTI-MEET BONUS WILL NOT BE PAID. WHEN AN INSTRUCTOR DOES NOT HAVE A PERSONLM SEGMENT OR THE RATE IS ZERO, THE DEFAULT ADJUNCT RATE FROM THE 'PERS02 01' RECORD IS USED WHEN CALCULATING THE CONTRACT AMOUNT. 2. READS THE COURSE DEPARTMENT AND NUMBER SEGMENTS, CLASS MASTER AND ALL DETAILS FOR THE CLASS. ALTHOUGH MUCH OF THIS DATA IS READ IN THE CALLING PROGRAMS, IT WILL ENSURE THE DATA FOR THE CALCU- LATIONS IS GATHERED CONSISTANTLY. SHOULD THE METHOD OF CALCULATING ADJUNCT CONTRACTS BE CHANGED, THE SUBPROGRAM CAN BE MODIFIED AND THE CALLING PROGRAMS REMAIN THE SAME. 3. CALCULATES THE BASIC WORKLOAD CREDITS FOR THE CLASS. A. NON-VARIABLE CREDIT CLASSES - THE LEC-HOURS AND HALF OF THE LAB-HOURS WILL BE ADDED TOGETHER TO CALCULATE THE BASIC WORKLOAD CREDITS. B. VARIABLE CREDIT CLASSES - WHEN THE VALUES IN LEC-HOURS AND LAB-HOURS ARE 99.99, THE CREDITS FROM THE CLASS-CREDITS WILL BE USED AS THE BASIC WORKLOAD CREDITS. C. CLASSES MARKED WITH A SPECIAL LOAD HANDLING OF 'H' WILL HAVE THE WORKLOAD CREDITS ADJUSTED TO ZEROS, A SIMILAR EFFECT AS IR-WEEKS OF '0'. 4. APPLY .5 CREDIT FOR LAB CLASSES WHEN APPROPRIATE. A. WHEN THE LEC-LAB OF THE CLASS-ID IS EQUAL TO 'L' AND THE LAB-HOURS ARE GREATER THAN ZERO, THE LAB-HOURS ARE MULTI- PLIED BY .5. VARIABLE CREDIT LAB CLASSES USE LAB-CREDITS FOR THE CALCULATION INSTEAD. 5. ADJUST THE CREDITS FOR NON-BLANK INSTRUCT-WEEKS ON THE CLASS DETAIL. A. WHEN IR-WEEKS IS A VALUE OTHER THAN '0', THE WORKLOAD-HOURS WILL BE MULTIPLIED BY THE RESULT OF THE IR-WEEKS DIVIDED BY 15. WHEN AN ALPHABETIC CODE IS USED FOR IR-WEEKS THEY WILL BE CONVERTED AS FOLLOWS: A = 10 (WEEKS) B = 11 (WEEKS) C = 12 (WEEKS) D = 13 (WEEKS) E = 14 (WEEKS) F = 15 (WEEKS) THESE ALPHABETIC VALUES WILL BE CONVERTED TO A PERCENTAGE AND MULTIPLIED BY THE WORKLOAD CREDITS. R = .17 S = .25 U = .50 W = .22 6. PROCESS PRO-RATE OPTIONS. A. WHEN THE PRO-RATE OPTION IS '3' THE CONTRACT WILL NOT BE PRO-RATED AND THE PRORATION PROCESSING BYPASSED. B. WHEN THE PRO-RATE OPTION IS '1' DETERMINES WHETHER THE SECTION IS IDENTIFIED WITH AN 'X', OR A SPECIAL LOAD HANDLING CODE OF 'X' IS SPECIFIED ON THE CLASS MASTER RECORD. C. WHEN THE PRO-RATE OPTION IS '2' DETERMINES IF THE COURSE NUMBER IS ' 90', ' 97', ' 98' OR ' 99', OR IF THE SECTION IS IDENTIFIED WITH AN 'X', OR A SPECIAL LOAD HANDLING CODE OF 'X' IS SPECIFIED ON THE CLASS MASTER RECORD. D. CLASSES THAT MEET THE CRITERIA IN B OR C HAVE THEIR WORKLOAD HOURS PRO-RATED: PRO-RATED WORKLOAD-HOURS = (WORKLOAD-HOURS * CLASS-ENROLLMENT) / DEPARTMENT-FUND-RATIO. WHEN THE DEPARTMENT-FUND-RATIO IS NOT AVAILABLE, ZEROS WILL BE USED. DEVELOPMENTAL CLASSES (COURSE NUMBER LESS THAN 10) ARE CALCULATED WITH A DEPARTMENT-FUND-RATIO OF 15. 7. PROCESS MULTI-MEET OPTIONS. A. READS THE PERCONT SEGMENT FOR THE CLASS ID FOR THE INSTRUCTOR. THE PRESENCE OF A FLAT CONTRACT RECORD MEANS THE CONTRACT AMOUNT IS USED REGARDLESS OF THE MULTI-MEET RUN OPTION. THE REMAINING PROCESSING CAN BE BYPASSED AND CONTROL RETURNED TO THE CALLING PROGRAM AFTER MOVING THE FLAT-CONTRACT-AMT TO THE COPY MEMBER IN FLAT-CONTRACT-AMT AND CONTRACT-AMOUNT. ALSO MOVES WORKLOAD-HOURS AS CALCULATED. B. CHECKS THE IR-WEEKS. IF THE VALUE IS '0' AND THERE IS NOT A A FLAT-CONTRACT-AMT FOR THE CLASS, THE CONTRACT-AMOUNT IS ZERO AND CONTROL CAN BE RETURNED TO THE CALLING PROGRAM. C. DETERMINE THE VALUE OF THE MULTI-MEET-INCLUSION ON THE PERCONT SEGMENT FOR THE CLASS, IF ONE EXISTS. A VALUE OF 'Y' WILL ADD .5 TO THE WORKLOAD HOURS REGARDLESS OF THE MULTI-MEET OPTION. A VALUE OF 'N' WILL EXCLUDE THE CLASS FROM HAVING THE BONUS CALCULATED EVEN IF THE CLASS MEETS THE MULTI-MEET CRITERIA AND THE OPTION IS SET TO CALCULATE ONE. D. CHECK THE NEW PROGRAM OPTION RECORDS TO DETERMINE IF THE CLASS ID MATCHES ONE OF THE COURSE ID'S FOR WHICH A MULTI-MEET IS NOT TO BE PAID. WHEN A MATCH IS FOUND, THE CONTRACT WILL NOT INCLUDE A MULTI-MEET BONUS REGARDLESS OF THE OPTION. E. CLASSES THAT DO NOT MEET ANY OF THE CRITERIA IN A, AND C AND ARE NOT ONE OF THE EXCLUDED COURSES ON THE OPTION RECORD, ARE NOW PROCESSED ACCORDING TO MULTI-MEET RUN OPTION, SESSION CODE, AND THE CLASS' CREDITS. 1. CHECKS WHETHER SESSION OF THE CLASS IS ONE FOR WHICH A MULTI-MEET BONUS CAN BE PAID. PROGRAM OPTION 'PERS02 01' CONTAINS THE VALID SESSION CODES. IF THE SESSION IS NOT A VALID ONE, THERE IS NO NEED TO CHECK FURTHER FOR MULTI- MEET. 2. CHECKS WHETHER THE CLASS' CREDITS VALUE IS SUCH THAT A MULTI-MEET BONUS CAN BE PAID. PROGRAM OPTION 'PERS02 01' CONTAINS THE MINIMUM CLASS-CREDITS VALUE FOR THIS PURPOSE. THE CLASS' CREDITS FOR THIS PURPOSE IS THE SUM OF THE CREDITS FIELD OF THE CLSMASTR SEGMENT(S) RETRIEVED FOR THE CLASS. IF THE CLSS' CREDITS IS LESS THAN THE MINIMUM CLASS-CREDITS VALUE, THERE IS NO NEED TO CHECK FURTHER FOR MULTI-MEET. 3. MULI-MEET OPTION OF '2' DOES NOT PAY BONUS AND THERE IS NO FURTHER PROCESSING FOR MULTI-MEET. 4. A CLASS THAT HAS MORE THAN ONE DAY IN THE DAYS-TAUGHT FIELD OF THE CLASS-DETAIL, OR MORE THAN ONE DETAIL WITH DIFFERENT DAYS SHOULD BE CONSIDERED TO BE A MULTI-MEET CLASS. WHEN THE CLASS IS MULTI-MEET PROCESS THE RUN OPTIONS 1 AND 3 AS FOLLOWS: AN OPTION OF '1' INDICATES THE INSTRUCTOR HAS AN ADDITIONAL .5 CREDIT GIVEN FOR EVERY CLASS THAT MEETS MORE THAN ONCE A WEEK FOR A VALID SESSION AND SATISFIES THE MINIMUM CLASS-CREDITS CRITERIA. AN OPTION OF '3' INDICATES THE INSTRUCTOR HAS AN ADDITIONAL .5 CREDIT GIVEN FOR THE FIRST CLASS THAT MEETS MORE THAN ONCE A WEEK FOR A VALID SESSION AND SATISFIES THE MINIMUM CLASS-CREDITS CRITERIA. WHEN THIS OPTION IS USED, A 'Y' IS MOVED TO MULTI-MEET-PREV-PAID. WHEN THE FIELD ALREADY CONTAINS A 'Y' THE ADDITIONAL .5 CREDIT IS NOT GIVEN. 7. CALCULATE CONTRACT AMOUNT FOR CLASS. THE WORKLOAD-HOURS ARE NOW CALCULATED AND THE CONTRACT-AMOUNT CAN BE COMPUTED. A. USE THE ADJUNCT-RATE FROM THE PERSONLM OR THE DEFAULT VALUE FROM THE THE 'PERS02 01' PROGRAM OPTION SEGMENT. CALCULATE CONTRACT-AMOUNT = ADJUNCT-RATE * WORKLOAD-HOURS. 2.0 SAMPLE JCL N/A ---------- 3.0 JOB SETUP INSTRUCTIONS N/A ---------------------- 4.0 FILES ----- 4.1 DATA BASE SEGMENTS USED: 1. CTLDBD A. CTLPROPT (READ) 2. CRSDBD A. CRSDEPT (READ) B. CRSSEGM (READ) 3. CLSDBD A. CLSMASTR (READ) B. CLSDETAL (READ) 4. PERDBD A. PERSONLM (READ) B. PERCONT (READ) 4.2 ADDITIONAL FILES USED: N/A 4.3 INPUT/OUTPUT RECORD LAYOUT: THE COPY MEMBER CONTDATA IS USED AS LINKAGE BETWEEN THE SUBPROGRAM AND CALLING PROGRAM. 05 SOCIAL-SECURITY PIC X(9). 05 CLASS-ID. 10 QUARTER-ID. 15 QTR-YR PIC X(2). 15 QTR-CODE PIC X(1). 10 CLASS-DATA. 15 CAMPUS PIC X(1). 15 DEPARTMENT PIC X(4). 15 COURSE-NUM PIC X(3). 15 SECTION-NO PIC X(2). 15 LEC-LAB PIC X(1). 05 PRO-RATE-OPTION PIC X(1). 05 MULTI-MEET-OPTION PIC X(1). 05 MULTI-MEET-PREV-PAID PIC X(1). 05 MULTI-MEET-PAID PIC X(1). 05 CONTRACT-PRORATED PIC X(1). 05 ADJUNCT-RATE PIC S9(4)V99. 05 FLAT-CONTRACT-AMT PIC S9(4)V99. 05 CONTRACT-AMOUNT PIC S9(4)V99. 05 WORKLOAD-HOURS PIC S9(3)V99. 05 DEFAULT-RATE-USED PIC X(1). 05 RECALC-FLAG PIC X(1). 05 CONTRACT-ON-FILE PIC X(18). 05 FILLER PIC X(20). 5.0 SPECIAL OUTPUT MESSAGES ----------------------- 6.0 SPECIAL FEATURES ---------------- 6.1 CALLING PROGRAMS: PER160 PER360 PER900 PER910 PER915 PER950 6.2 SUBPROGRAMS CALLED: N/A 6.3 MESSAGE CODES: N/A 7.0 PROGRAM-OPTION SEGMENTS ----------------------- SEGMENT PERS0201 ---------------- FIELD POSITION(S) FIELD CONTENTS ----------- ------------------------------------------------------ 01 - 20 COLLEGE-DEFINED SESSION CODES (UP TO 20) OF CLASSES FOR WHICH INSTRUCTORS MAY BE ELIGIBLE TO RECEIVE A MULTIPLE-MEETING BONUS. 21 - 26 DEFAULT PART-TIME RATE TO BE USED WHEN A RATE IS NOT AVAILABLE ON THE PERSONLM FOR THE ADJUNCT FACULTY MEMBER. 27 - 30 THE MINIMUM CLASS-CREDITS VALUE (IN HUNDREDTHS) OF CLASSES FOR WHICH INSTRUCTORS MAY BE ELIGIBLE TO RECEIVE A MULTIPLE-MEETING BONUS. DEFAULTS TO 99.99 IF OPTION BLANK OR NOT FOUND. 31 - 31 PRORATE OPTION '1' - PRORATE ON 'X' SECTIONS ONLY '2' - PRORATE ON 'X' SECTIONS AND COURSE NUMBERS OF 90, 97, 98, AND 99 '3' - DO NOT PRORATE 32 - 32 MULTI-MEET BONUS OPTION '1' - YES '2' - NO '3' - FIRST MULTI-MEETING CLASS ONLY 33 - 40 DATE GRADES ARE DUE FOR FALL 'MM/DD/YY' 41 - 48 DATE GRADES ARE DUE FOR SPRING 'MM/DD/YY' 49 - 56 DATE GRADES ARE DUE FOR SUMMER 'MM/DD/YY' 57 - 64 DATE CONTRACT IS TO BE RETURNED 'MM/DD/YY' 65 - 90 NOT USED. SEGMENT PER90101 ---------------- FIELD POSITION(S) FIELD CONTENTS ----------- ------------------------------------------------------ 1 - 84 EXCLUDED COURSE - 7 POSITIONS FOR EACH COURSE. UP TO 12 COURSES ALLOWED. 85 - 90 NOT USED. 8.0 PROGRAM CHANGE HISTORY: ---------------------- 8.1 VERSION NO: V4.08S CHANGE DATE: 12/11/89 PROGRAMMER NAME: SUE DOTSON PROGRAM CHANGE REQUEST NO: 00004106 DESCRIPTION OF CHANGE: RELEASE VERSION 8.2 VERSION NO: V4.10 CHANGE DATE: 01/23/90 PROGRAMMER NAME: SUE DOTSON PROGRAM CHANGE REQUEST NO: 00004805 DESCRIPTION OF CHANGE: 1. CORRECTED PROBLEM OF PROGRAM STOPPING WHEN A LAB CLASS DID NOT HAVE A MATCHING LECTURE. 8.3 VERSION NO: V4.13 CHANGE DATE: 04/18/90 PROGRAMMER NAME: BARBARA TRUITT PROGRAM CHANGE REQUEST NO: 00004620 DESCRIPTION OF CHANGE: 1. ADDED PROGRAM OPTION PER90101 TO DOCUMENTATION. 8.4 VERSION NO: V4.24 CHANGE DATE: 06/14/91 PROGRAMMER NAME: EUGENE WALLO PROGRAM CHANGE REQUEST NO: 00007914 DESCRIPTION OF CHANGE: -CHANGED THE SOFTWARE'S MULTIPLE-MEETING BONUS PROCESSING. A CONTRACT MUST NOW SATISFY A MINIMUM CLASS-CREDITS REQUIREMENT, IN ADDITION TO OTHER CRITERIA, TO QUALIFY FOR THE BONUS. (THE MINIMUM CLASS-CREDITS REQUIREMENT DOES NOT APPLY TO A CONTRACT FOR WHICH THERE IS A PERCONT SEGMENT HAVING A MULTI-MEET-INCLUSION VALUE OF 'Y'.) THE MINIMUM CLASS-CREDITS VALUE IS STORED IN POSITIONS 27 THROUGH 30 OF PROGRAM-OPTION SEGMENT # PERS0201. -CORRECTED THE SPECIFICATION OF THE FORMAT OF PROGRAM-OPTION SEGMENT # PER90101, IN SECTION 7.0 OF THE DOCUMENTATION. REMOVED THE FIELDS "VALID SESSION" AND "DEFAULT PAYRATE" FROM THE FORMAT SPECIFICATION. THESE TWO FIELDS WERE NOT IN THE SEGMENT. PROGRAM CHANGE REQUEST NO: NONE DESCRIPTION OF CHANGE: -CHANGED THE SOFTWARE TO ACCOMMODATE THE VS COBOL II MIGRATION. 8.5 VERSION NO: V4.28 CHANGE DATE: 11/16/91 PROGRAMMER NAME: SUE DOTSON, JSRCC PROGRAM CHANGE REQUEST NO: 00008486 DESCRIPTION OF CHANGE: 1. CHANGED PROGRAM TO ACCESS NEW PERCONT FIELDS AND PASS THEM TO THE CALLING PROGRAMS. THIS INVOLVED MODIFICATION OF THE WAY IN WHICH THE PROGRAM IDENTIFIES FLAT CONTRACTS. 2. PROGRAM NOW CHECKS THE VALUE OF THE SPECIAL LOAD HANDLING FIELD WHEN DETERMINING WHEN TO PRO-RATE. 3. CHANGED PROGRAM TO PASS BACK ZERO WORKLOAD CREDITS WHEN THE IR-WEEKS IS ZERO OR THE SPECIAL LOAD HANDLING FIELD IS H, INDICATING A COLLAPSED CLASS. PROGRAM CHANGE REQUEST NO: 00008418 DESCRIPTION OF CHANGE: 1. MODIFIED DOCUMENTATION TO CLARIFY DEFAULT VALUE OF THE PERS0201 PROGRAM OPTION. 8.6 VERSION NO: V4.37 CHANGE DATE: 08/15/92 PROGRAMMER NAME: SUE DOTSON, JSRCC PROGRAM CHANGE REQUEST NO: 00010561 DESCRIPTION OF CHANGE: 1. CORRECTED PROBLEM WITH RECALCULATION OF A "FLAT CONTRACT" WHEN THE USER WANTED TO HAVE THE USUAL CALCULATIONS APPLIED TO AN EXISTING CONTRACT. 8.7 VERSION NO: V5.09 CHANGE DATE: 02/15/94 PROGRAMMER NAME: DIANE LIVELY, JSRCC PROGRAM CHANGE REQUEST NO: 00013610 DESCRIPTION OF CHANGE: RECOMPILED USING THE REVISED COPYLIB MEMBER FOR 'PERSONLM'. 8.8 VERSION NO: V7.02 CHANGE DATE: 12/04/98 PROGRAMMER NAME: SUE TATE PROGRAM CHANGE REQUEST NO: Y2K DESCRIPTION OF CHANGE: RECOMPILED USING THE NEW COMPILER. NO Y2K CHANGES REQUIRED.