0.003/13/99 TROY ADKINS 1.0 PROGRAM NARRATIVE ----------------- THE PURPOSE OF THIS PROGRAM IS TO PRODUCE A PART-TIME FACULTY CONTRACT AMOUNT REPORT FOR A SPECIFIC TERM IN THE ACADEMIC SEMESTER SYSTEM. THIS PROGRAM CANNOT BE USED FOR QUARTER-SYSTEM TERMS. THIS REPORT IS USED TO GIVE DIVISION CHAIRPERSONS AND PROVOSTS COST INFORMATION ON ADJUNCT FACULTY COSTS. FIELDS PRINTED ON THE REPORT INCLUDE CAMPUS, DIVISION, DIVI- SION CHAIRMAN, INSTRUCTOR NAME, SOCIAL SECURITY, RATE, COURSE TITLE AND ID, SESSION, LECTURE AND LAB CONTACT HOURS, MULTIPLE MEETINGS, IR WEEKS (INSTRUCT-WEEKS), CLASS CREDITS, CONTRACT AMOUNT PER CLASS, MULTI-MEET DESIGNATION, AND LAB DESIGNATION. THE PROGRAM WILL PRINT TOTAL WORKLOAD CREDIT HOURSE AND TOTAL CONTRACT AMOUNT AT THE INSTRUCTOR, DIVISION, AND SCHOOL LEVEL. THE TOTALS ARE ALSO PRINTED AT THE DEPARTMENT AND CAMPUS LEVEL, IF SORT OPTION 1 IS BEING USED. AN OPTION IS AVAILABLE TO PRINT THE PAYMENT CREDITS INSTEAD OF CLASS CREDITS, PRINT RATE AND PAYMENT CREDITS FOR EACH CLASS, FLAG THE RATES WHICH DIFFER FROM THE RATE ON THE MASTER RECORD AND INDICATE THE CONTRACTS WHICH HAVE BEEN CALCULATED AS OPPOSED TO PREVIOUSLY GENERATED AND STORED ON THE DATA BASE. A SUMMARY BY DIVISON MAY OPTIONALLY BE PRINTED TO GIVE TOTALS OF THE NUMBER OF ADJUNCT FACULTY TEACHING IN THE DIVISION, THE TOTAL PAYMENT CREDITS, AND THE TOTAL DOLLAR AMOUNT OF THE CONTRACTS. CAMPUS AND OVERALL COLLEGE TOTALS ARE PROVIDED AS WELL. THE PROGRAM CALLS PER901S TO CALCULATE THE WORKLOAD HOURS AND CONTRACT AMOUNT. PLEASE SEE THE DOCUMENTATION FOR PER901S FOR INFORMATION ON HOW THESE ARE CALCULATED AND FOR A MORE DETAILED EXPLANATION OF THE PRO-RATE AND MULTI-MEET OPTIONS. THE MESSAGE, "MULTI-MEETING PREVIOUSLY PAID ON XXX-XXX-XX-XX" X" (CLASS PREVIOUSLY PAID-- EX: DAP-198-01-A1), IS USED ON MULTIPLE MEETING CODE 3, WHEN INSTRUCTOR'S HAVE MORE THAN ONE MULTIPLE MEET- ING CLASS. CLASSES FOR WHICH THE MULTI-MEETING WAS GIVEN THAT ARE STORED ON THE DATA BASE WILL NOT SHOW THE DIVISION CODE SINCE IT IS NOT AVAILABLE ON THE CONTRACT SEGMENT. A CLASS FOR WHICH THE CREDITS HAVE BEEN PRO-RATED WILL BE DENOTED WITH AN '*', A FLAT- RATE CONTRACT WITH THE MESSAGE '**FLAT CT**', A CALCULATED CON- TRACT OPTIONALLY WITH A '(C)', A RATE DIFFERENCE FROM THE PERSON- NEL MASTER WITH '**' AND ALL OTHERS WITHOUT DESIGNATION. 2.0 SAMPLE JCL ---------- 2.1 RUN JCL ------- //CCPER900 JOB (XXXX,YYYY,9,29),PER900,CLASS=F, // MSGCLASS=A,MSGLEVEL=(0,0),PRTY=3,REGION=2400K /*ROUTE PRINT ZZZZZZ //PER900 EXEC PER900,AGENCY=AAA,COLLEGE=CC,MSGLEVEL=(1,1), // MSGCLASS=A,CLASS=O //PARMCARD DD * --INPUT PARAMETER -- /* // SYMBOLIC DESCRIPTION ******************** REQUIRED - AGENCY COLLEGE AGENCY CODE NUMBER (DEFAULT = NONE) (E.G. AGENCY=283) COLLEGE TWO CHARACTER COLLEGE NAME ABBREVIATION (DEFAULT = NONE) (E.G. COLLEGE=SR) OPTIONAL - FORM THE FORM NUMBER THAT THE OUTPUT IS TO BE PRINTED ON DEFAULT: A000 (E.G. FORM=0001) QUEUE QUEUE CLASS THE OUTPUT IS TO BE SPOOLED UNDER DEFAULT: * (E.G. QUEUE='A') FORM2 THE FORM NUMBER THAT THE OUTPUT IS TO BE PRINTED ON (SUMMARY BY DIVISION) DEFAULT: A000 (E.G. FORM=0001) QUEUE2 QUEUE CLASS THE OUTPUT IS TO BE SPOOLED UNDER (SUMMARY BY DIVISION) DEFAULT: * (E.G. QUEUE='A') 2.2 INPUT PARAMETERS ---------------- POS CONTENTS --- -------- 1 - 6 TERM (E.G. SUMMER ) 7 - 8 YEAR (E.G. 89 ) 9 - 13 FILLER 14 MULTI MEETING CODE (CODED 1, 2, OR 3 ) 1 - YES, PROCESS MULTI MEETING CLASSES 2 - NO, DO NOT PROCESS MULTI MEETING CLASSES 3 - PROCESS FIRST MULTI MEETING CLASS ONLY 15 PRO-RATE (CODED 1, 2, 3 ) 1 - PRO-RATE ON 'X' SECTIONS ONLY 2 - PRO-RATE ON 'X' SECTIONS AND 90, 97, 98, AND 99 COURSES 3 - DO NOT PRO-RATE 16 SORT OPTION ( 1 OR 2) 1 - SORT BY NAME WITHIN DEPARTMENT WITHIN DIVISION WITHIN CAMPUS 2 - SORT BY NAME WITHIN DIVISION 17 PRINT ENROLLMENT OPTION Y - PRINT ENROLLMENT AND ONLY FIRST LETTER OF THE FIRST NAME N - PRINT FULL FIRST NAME AND NO ENROLLMENT 18 TOTAL-LINE FORMAT OPTION 1 (OR BLANK) - FORMAT THE TOTAL LINES TO USE COL- UMNS 1 THROUGH 129. 2 - FORMAT THE TOTAL LINES TO USE COLUMNS 11 THROUGH 132. 19 PRINT ADDITIONAL DATA OPTION Y - PRINT THE PAYMENT CREDITS AND RATE ON EACH CLASS, CHANGE 'WORKLOAD' TO 'PAYMENT' WHEN REFERENCED. N - PRINT THE RATE ONCE AND THE CLASS CREDITS WHEN APPROPRIATE. 20 PRINT SUMMARY BY DIVISION OPTION Y - PRINT THE DIVISION SUMMARY N - DO NOT PRINT THE DIVISION SUMMARY. 21 PRINT CLASS ENROLLMENT INSTEAD OF LAB ENROLLMENTS Y - PRINTS CLASS ENROLLMENTS N - PRINTS LAB ENROLLMENTS (AS BEFORE CHANGE) ' ' - PRINTS LAB ENROLLMENTS " " 2.3 SORT PARAMETERS --------------- NO SORT PARAMETERS ARE USED. 3.0 JOB SETUP INSTRUCTIONS ---------------------- SPECIAL FORMS QUEUE: A000 - 11 X 14 ONE PART STANDARD PAPER FORMS BUFFER: ALIGNMENT INSTRUCTIONS: A000 - STANDARD LINE UP PRINTED OUTPUT: PART-TIME FACULTY CONTRACT AMOUNT REPORT FORMS TYPE: SPECIAL INSTRUCTIONS: AN INPUT RECORD MUST BE PREPARED BEFORE RUNNING THE PROGRAM. 4.0 FILES ----- 4.1 DATA BASE SEGMENTS USED: 1. CTLDBD A. CTLCAMPM (READ) B. CTLQUART (READ) C. CTLDIVM (READ) D. CTLPROPT (READ) 2. CRSDBD A. CRSDEPT (READ) B. CRSSEGM (READ) 3. INSDBD A. INSTRUCR (READ) 4. CLSDBD (2 PCBS ARE USED) A. CLSMASTR (READ) B. CLSDETAL (READ) C. CLSSECST (READ) 5. PERDBD A. PERSONLM (READ) B. PERCONT (READ) 4.2 ADDITIONAL FILES USED: N/A 4.3 INPUT/OUTPUT RECORD LAYOUT: N/A 5.0 SPECIAL OUTPUT MESSAGES ----------------------- ERRORS IN THE HEADER CARD WILL BE DETECTED BY THE PROGRAM; AN APPROPRIATE MESSAGE WILL BE PRINTED; AND THE JOB WILL BE TERMI- NATED. THE OPERATOR SHOULD CORRECT THE HEADER CARD AND RERUN THE JOB. ERRORS RESULTING FROM DL/I CALLS WILL ALSO CAUSE THE PROGRAM TO TERMINATE. THESE CONDITIONS SHOULD BE BROUGHT TO THE ATTENTION OF THE REGIONAL COORDINATOR. 6.0 SPECIAL FEATURES ---------------- 6.1 CALLING PROGRAMS: N/A 6.2 SUBPROGRAMS CALLED: UTL550S, PER901S 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 PAY RATE (EX. 031300 = $313.00) 27 - 30 THE MINIMUM CLASS-CREDITS VALUE (IN HUNDREDTHS) OF CLASSES FOR WHICH INSTRUCTORS MAY BE ELIGIBLE TO RECEIVE A MULTIPLE-MEETING BONUS. THE PROGRAM USES A DEFAULT VALUE OF 99.99 WHEN THE RECORD IS NOT FOUND OR BLANK. 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. 8.0 PROGRAM CHANGE HISTORY: ---------------------- 8.1 VERSION NO: V3.6S CHANGE DATE: 11/19/87 PROGRAMMER NAME: TROY ADKINS PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: RELEASE VERSION 8.2 VERSION NO: V4.1 CHANGE DATE: 3/23/89 PROGRAMMER NAME: WENDY MORRISON PROGRAM CHANGE REQUEST NO: I 1788 DESCRIPTION OF CHANGE: ADDED 2 PARM OPTIONS 1) SORT OPTION - SORT BY NAME WITHIN DIVISION 2) PRINT ENROLL OPTION - PRINT ONLY FIRST LETTER OF FIRST NAME TO ENABLE PRINTING OF NUMBER ENROLLED MODIFIED TO ZERO SUPPRESS CREDITS AND PRINT FRACTIONS. 8.3 VERSION NO: V4.1 CHANGE DATE: 04/12/89 PROGRAMMER NAME EUGENE WALLO PROGRAM CHANGE REQUEST NO: 2595 DESCRIPTION OF CHANGE: -CHANGED THE INSTRUCT-WEEKS LOGIC TO BE CORRECT FOR THE PROCESSING OF TERMS IN THE ACADEMIC SEMESTER SYSTEM, AS FOLLOWS: 1) WHEN INSTRUCT-WEEKS IS A NUMERIC VALUE IN THE RANGE OF 1 THROUGH 9: DIVIDE BY 15, THEN MULTIPLY BY THE CREDITS. 2) WHEN INSTRUCT-WEEKS IS AN ALPHABETIC VALUE OF "A", "B", "C", "D", "E", OR "F": ASSIGN A CORRESPONDING NUMERIC VALUE OF 10, 11, 12, 13, 14, OR 15, RE- SPECTIVELY, DIVIDE BY 15, THEN MULTIPLY BY THE CREDITS. 3) WHEN INSTRUCT-WEEKS IS AN ALPHABETIC VALUE OF "R", "S", "U", OR "W": MULTIPLY THE CREDITS BY .17, .25, .50, OR .22, RESPECTIVELY. -CHANGED THE PROGRAM TO DISALLOW THE PROCESSING OF TERMS IN THE ACADEMIC QUARTER SYSTEM. THE PROGRAM CANNOT BE USED FOR QUARTER-SYSTEM TERMS BECAUSE OF THE INSTRUCT- WEEKS LOGIC, AND BECAUSE OF THE PART-TIME-RATE FIELD OF THE PERSONLM SEGMENT CURRENTLY BEING USED FOR SEMESTER- CREDIT PAY RATES. 8.4 VERSION NO: V4.04 CHANGE DATE: 07/18/89 PROGRAMMER NAME JEAN MAYS PROGRAM CHANGE REQUEST NO: 2820, 3176 DESCRIPTION OF CHANGE: -ADDED CAPABILITY TO RETRIEVE FLAT CONTRACT AMOUNTS FROM NEW SEGMENT 'PERCONT'. -ADDED PROGRAM OPTION TO CHECK FOR VALID SESSIONS TO RECEIVE MULTI-MEETING BONUS (PREVIOUSLY CHECKED ONLY 'A' SESSIONS). 8.5 VERSION NO: 4.06 CHANGE DATE: 09/19/89 PROGRAMMER NAME EUGENE WALLO PROGRAM CHANGE REQUEST NO: 3421 DESCRIPTION OF CHANGE: -CHANGED THE PROGRAM TO IMPROVE THE GROUP-INDICATION OF THE SOCIAL-SECURITY NUMBER, NAME, AND RATE FIELDS. DUP- LICATE OCCURRANCES OF THESE FIELDS WERE BEING SUPPRESSED IN MOST CASES, BUT NOT WHEN THE PREVIOUS DETAIL LINE HAD A CONTRACT AMOUNT OF ZERO. PROGRAM CHANGE REQUEST NO: 3456 DESCRIPTION OF CHANGE: -ADDED THE CAPABILITY OF OPTIONALLY FORMATTING THE REPORT TOTAL LINES TO USE COLUMNS 11 THROUGH 132, INSTEAD OF COLUMNS 1 THROUGH 129. -CHANGED THE DOCUMENTATION TO INDICATE THE LEVELS AT WHICH REPORT TOTALS ARE PRINTED FOR EACH OF THE TWO SORT OPTIONS. PROGRAM CHANGE REQUEST NO: 3579 DESCRIPTION OF CHANGE: -CHANGED THE PROGRAM TO GET THE INSTRUCTOR'S NAME FROM THE INSTRUCR SEGMENT, INSTEAD OF FROM THE PERSONLM SEG- MENT. THE INSTRUCTOR'S LAST NAME AND FIRST NAME WERE BEING TRUNCATED, BUT THERE WAS INSUFFICIENT SPACE AVAIL- ABLE IN THE DETAIL LINE TO INCREASE THESE FIELDS. THE DETAIL LINE NOW INCLUDES THE NAME-SUFFIX FIELD OF THE INSTRUCR SEGMENT. -MINOR CHANGES WERE MADE TO THE FORMAT OF THE COLUMN HEADINGS, THE DETAIL LINE, AND THE TOTAL LINES, TO AC- COMMODATE THE PRINTING OF THE SUFFIX AND TO IMPROVE THE APPEARANCE OF THE REPORT. PROGRAM CHANGE REQUEST NO: 3616 DESCRIPTION OF CHANGE: -CHANGED THE PROGRAM TO USE CTLPROPT SEGMENT 'PERS0201', INSTEAD OF SEGMENT 'PER90001', TO OBTAIN THE COLLEGE-DE- FINED LIST OF SESSION CODES. PROGRAM CHANGE REQUEST NO: 3643 DESCRIPTION OF CHANGE: -CHANGED THE PROGRAM AND PSB TO OBTAIN THE COURSE TITLE FROM THE CLSSECST (CLASS SECTION SUB-TITLE) SEGMENT WHEN ONE EXISTS FOR THE CLASS; OTHERWISE THE TITLE IS OBTAIN- ED FROM THE CRSSEGM SEGMENT. PROGRAM CHANGE REQUEST NO: 3865 DESCRIPTION OF CHANGE: -CHANGED THE PROGRAM TO OBTAIN THE LIST OF SESSION CODES FROM THE CORRECT PORTION OF THE CTLPROPT SEGMENT. AS MANY AS 12 OF THE INTENDED SESSION CODES WERE NOT BEING USED, AND 12 BYTES OF INAPPROPRIATE DATA WERE BEING USED AS SESSION CODES. -CHANGED THE PROGRAM TO DISPLAY THE SESSION CODES THAT ARE ELIGIBLE FOR THE MULTIPLE-MEETING BONUS. -INCREASED THE PERDBD KEY FEEDBACK LENGTH IN THE LINKAGE SECTION FROM 9 TO 23 BYTES, TO AGREE WITH THE PSB. -REMOVED THE CTLMESSG AND DBERRMSG WORK AREAS, WHICH ARE NOT REFERENCED. PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: -MODIFIED THE PROGRAM TO COMPILE AND LINK UNDER THE COBOL II STANDARDS. 8.6 VERSION NO: 4.08S CHANGE DATE: 12/05/89 PROGRAMMER NAME DIANE LIVELY PROGRAM CHANGE REQUEST NO: 4108 DESCRIPTION OF CHANGE: CHANGED THE PROGRAM TO CALL THE NEW SUBPROGRAM, PER901S. REMOVED SEVERAL FIELDS FROM THE SORT AND SAVE-RECORD. REMOVED CALLS TO CRSDEPT, PERSONLM, PERCONT. REMOVED LOGIC THAT DETERMINED CONTRACT AMOUNT, WORKLOAD, MULTI- MEET, PRO-RATING, AND ADJUNCT RATE--USES INFO FROM SUB. REMOVED RATE FROM PARMCARD--NOW ON PERS0201 OPTION RECORD. PROGRAM CHANGE REQUEST NO: NONE DESCRIPTION OF CHANGE: CORRECTED TRUNCATION POSSIBILITIES. CHANGED PROGRAM TO AVOID UNNECESSARY CALLS FOR CANCELED CLASSES. 8.7 VERSION NO: 4.15 CHANGE DATE: 08/03/90 PROGRAMMER NAME DIANE LIVELY PROGRAM CHANGE REQUEST NO: 5661 DESCRIPTION OF CHANGE: ADDED SESSION TO THE REPORT. HAD TO REMOVE NAME SUFFIX TO MAKE ROOM. 8.8 VERSION NO: V4.20 CHANGE DATE: 02/04/91 PROGRAMMER NAME: RH.CLARK PROGRAM CHANGE REQUEST NO: 00006701 DESCRIPTION OF CHANGE: - MODIFICATIONS WERE MADE TO THE CALLS TO ALL DATA BASES TO BRING THESE CALLS UP TO THE STANDARD USE OF AN IOAREA. SEE PAGE 29 OF THE 02/90 PROGRAMMING STANDARD, PROCEDURES AND GUIDELINES MANUAL. - MODIFICATIONS WERE MADE TO COMPILE AND LINK UNDER THE NEW COBOL II STANDARDS. 8.9 VERSION NO: V4.24 CHANGE DATE: 06/14/91 PROGRAMMER NAME EUGENE WALLO PROGRAM CHANGE REQUEST NO: 00007915 DESCRIPTION OF CHANGE: -CHANGED THE SOFTWARE TO ACCOMMODATE THE REVISED FORMAT OF PROGRAM-OPTION SEGMENT # PERS0201. (THE SEGMENT'S FORMAT WAS REVISED VIA REQUEST # 00007914 FOR PER901S.) POSITIONS 27 THROUGH 30 OF THE SEGMENT ARE NOW USED, IN ADDITION TO POSITIONS 1 THROUGH 26. PROGRAM CHANGE REQUEST NO: NONE DESCRIPTION OF CHANGE: -ADDITIONAL COBOL II MIGRATION CHANGES WERE MADE. 8.10 VERSION NO: V4.28 CHANGE DATE: 11/16/91 PROGRAMMER NAME SUE DOTSON PROGRAM CHANGE REQUEST NO: 00008484 DESCRIPTION OF CHANGE: - MODIFIED PROGRAM TO ADD OPTION FOR PRINTING ADDITIONAL DATA FROM PERCONT SEGMENT. - ADDED OPTION FOR A CONTRACT SUMMARY BY DIVISION REPORT. PROGRAM CHANGE REQUEST NO: 00008417 DESCRIPTION OF CHANGE: - MODIFIED DOCUMENTATION TO CLARIFY MINIMUM CREDIT OPTION ON THE 'PERS02 01' OPTION. 8.11 VERSION NO: V4.33 CHANGE DATE: 04/15/92 PROGRAMMER NAME SUE DOTSON PROGRAM CHANGE REQUEST NO: 00009347 DESCRIPTION OF CHANGE: - MODIFIED PROGRAM TO CORRECT PRINTING OF MULTI-MEET WHEN PERCONT FOUND FOR A CLASS NO LONGER BEING TAUGHT BY THE INSTRUCTOR. 8.12 VERSION NO: V5.09 CHANGE DATE: 02/15/94 PROGRAMMER NAME DIANE LIVELY PROGRAM CHANGE REQUEST NO: 00013609 DESCRIPTION OF CHANGE: - RECOMPILED PROGRAM USING THE REVISED COPYLIB FOR 'PERSONLM'. 8.13 VERSION NO: V5.22 CHANGE DATE: 03/15/95 PROGRAMMER NAME PEGGY EMMERICH PROGRAM CHANGE REQUEST NO: 00015235 DESCRIPTION OF CHANGE: - ADDED A PARMCARD OPTION TO PRINT CLASS ENROLLMENTS INSTEAD OF LAB ENROLLMENTS WHEN APPLICABLE. 8.14 VERSION NO: V7.00 CHANGE DATE: 12/15/97 PROGRAMMER NAME DIANE LIVELY PROGRAM CHANGE REQUEST NO: 00017853 DESCRIPTION OF CHANGE: - CORRECTED TRUNCATION PROBLEM WITH CONTRACT AMOUNT. 8.15 VERSION NO: V7.02 CHANGE DATE: 12/03/98 PROGRAMMER NAME SUE TATE PROGRAM CHANGE REQUEST NO: Y2K DESCRIPTION OF CHANGE: - RECOMPILED WITH NEW COMPILER.