0.009/21/98 MYRA MAIORANA 1.0 INTRODUCTION ------------ THE CEN660 PROGRAM IS DESIGNED TO CREATE TWO FILES WHICH CAN BE USED BY INSTITUTIONAL RESEARCH TO OBTAIN VARIOUS INFORMATION FROM HISTORY. THE PROGRAM CAN BE RUN AGAINST THE CENSUS DATA BASE OR AGAINST THE ACTIVE DATA BASE BY SELECTING AN OPTION TYPE FOUND ON THE PARMCARD. THE COURSE FILE, AN 80 CHARACTER FILE IS BUILT FIRST. THE STUDENT FILE, A 475 CHARACTER FILE IS THEN BUILT. THE COURSE FILE IS BUILT BY READING THROUGH THE CLASS DATA BASE AND SELECTING ALL CLASSES FOR THE INPUT TERM SPECIFIED ON THE PARM CARD. WHEN ALL RECORDS HAVE BEEN RETRIEVED FROM THE CLASS DATA BASE, THE CLASS FILE IS SORTED IN CLASS-ID ORDER. THE STUDENT FILE IS BUILT BY SELECTING THOSE STUDENTS WHO ARE ENROLLED FOR THE INPUT TERM. IF THE PROGRAM IS BEING EXECUTED AGAINST THE ACTIVE DATA BASE, EACH STUDENT RECORD IS CHECKED TO SEE IF THEY HAVE REGISTRATION THAT IS EQUAL TO THE INPUT TERM. THOSE STUDENTS WHO DO NOT MEET THIS CRITERIA ARE BYPASSED, WHILE THE SELECTED STUDENTS HAVE ALL THEIR REGISTRATION RECORDS MOVED TO A TABLE AND WRITTEN TO THE STUDENT FILE. A PARMCARD OPTION IS AVAILABLE WHERE THE USER CAN SELECT TO INCLUDE SENIOR CITIZENS, LATE ADDS, AND AUDITS, OR EXCLUDE THEM FROM THE FILE. IF THE SELECTION IS MADE TO EXCLUDE THIS CATEGORY OF STUDENTS, ALL CLASSES TAKEN BY THE STUDENT MUST MEET EITHER ONE OF THE FOLLOWING CONDITIONS: GRADE = 'X' SRCITZ-LATE-ADD NOT = 'N' (A CREDIT STUDENT WHO CHANGES TO AN AUDIT AFTER DROP/ADD PERIOD SRCITZ-LATE-ADD = 'J' (SR.CITZ WHO WITHDRAWS FROM A AUDIT CLASS) SRCITZ-LATE-ADD = 'L' (LATE ADMINISTRATIVE ADD WITH CREDIT) SRCITZ-LATE-ADD = 'M' (LATE ADMINISTRATIVE ADD WITH AUDIT) SRCITZ-LATE-ADD = 'Q' (STUDENT WHO WITHDRAWS FROM AUDIT CLASS) SRCITZ-LATE-ADD = 'T' (LATE ADD CREDIT OR AUDIT WHO WITHDRAWS) SRCITZ-LATE-ADD = 'Y' (SENIOR CITIZEN WITH AUDIT) * 2.0 SAMPLE JCL ---------- PROCEDURE CEN660 EXECUTES CEN660. //CEN660 JOB (XXXX,YYYY,06,10),CEN660,CLASS=F,MSGCLASS=A, // REGION=2048K,NOTIFY=NNNNNN,MSGLEVEL=(1,1),PRTY=3 /*ROUTE PRINT RRRR /*SETUP THIS JOB REQUIRES 1 TAPE DRIVE /*SETUP PLEASE MOUNT ONE TAPE (VVVVVV) WITH RING // EXEC CEN660,COLLEGE=TC,AGENCY=295,CENSUS=CEN,AKTTAPE=VVVVVV, // SEMYR=FA87 INPUT CARD // SYMBOLIC DESCRIPTION ******************** REQUIRED - AGENCY COLLEGE AGENCY CODE NUMBER (E.G. AGENCY=295) COLLEGE TWO CHARACTER COLLEGE NAME ABBREVIATION (E.G. COLLEGE=TC) AKTTAPE SIX CHARACTER IDENTIFIER FOR THE TAPE VOLUME THE COURSE AND STUDENT FILES ARE BEING WRITTEN TO. (E.G. AKTTAPE = 000000) SEMYR FOUR CHARACTER SEMESTER ABBREVIATION AND YEAR FOR FOR STUDENT AND COURSE FILE (E.G. FA88) OPTIONAL - RUNTYPE INDICATES WHETHER OR NOT TO USE TEST OR PRODUCTION FILES DEFAULT: PROD (E.G. RUNTYPE=TEST) CENSUS THREE CHARACTER CENSUS DATA BASE IDENTIFIER DEFAULT: NONE (E.G. CENSUS=CEN) SRTSIZE AMOUNT OF DASD STORAGE IN CYLINDERS ALLOCATED TO EACH SORT WORK FILE DEFAULT: 1 (E.G. SRTSIZE=3) 2.2 INPUT PARAMETERS ---------------- XXXX - ACCOUNT PROGRAM NUMBER YYYY - ACCOUNT ROOM NUMBER NNNNNN - USER TO BE NOTIFIED VVVVVV - TAPE VOLUME TO BE USED RRRR - REMOTE ID 2.3 INPUT CARD: ----------- CC CONTENTS __ ________ 01-06 SELECT TERM NAME (I.E. 'FALL ') 07-08 LAST TWO DIGITS OF SELECTION YEAR (I.E. '87') 09-09 REPORT TYPE (I.E. 'C' FOR CENSUS OPTION 'H' FOR HISTORY OPTION) 10-10 AUDIT-SENIOR CITIZEN SWITCH (I.E. 'Y' - INCLUDE AUDIT AND SENIOR CITIZENS AND LATE ADDS 'N' - DO NOT INCLUDE AUDIT AND SENIOR CITIZENS AND LATE ADDS) * 3.0 JOB SETUP INSTRUCTIONS: ---------------------- SPECIAL FORMS QUEUE: N/A FORMS BUFFER: STANDARD ALIGNMENT INSTRUCTIONS: STANDARD PRINTED OUTPUT: N/A FORMS TYPE: N/A SPECIAL INSTRUCTIONS: PLEASE MOUNT A TAPE WITH THE WRITE RING FOR COURSE FILE AND STUDENT FILE. 4.0 FILES: ----- 4.1 DATA BASES/SEGMENTS USED: ------------------------- CONTROL DATA BASE: CTLQUART (READ ONLY) CTLCAMPM (READ ONLY) CLASS DATA BASE: CLSMASTR (READ ONLY) CLSDETAL (READ ONLY) INSTRUCTOR DATA BASE: INSTRUCR (READ ONLY) STUDENT DATA BASE: STUDENTM (READ ONLY) STUREGIS (READ ONLY) STUUSER1 (READ ONLY) 4.2 ADDITIONAL FILES USED: N/A --------------------- * 4.3 INPUT/OUTPUT RECORD LAYOUTS: --------------------------- A. COURSE FILE (OUTPUT FILE) ---------------------------------------------------- ] POSITION ] ] ] DATA ] ] FROM ] TO ] FIELD NAME ] SIZE ] TYPE ] ]------]-------]------------------]-------]--------] 01 01 CF-DEL 01 AN 02 04 CF-COLL-CODE 03 AN 05 05 CF-CAMP 01 AN 06 09 CF-DEPT 04 AN 10 10 CF-SESSION 01 AN 11 13 CF-COURSE 03 AN 14 15 CF-SECTION 02 AN 16 17 CF-RECNO 02 NUM 18 26 CF-SSNO 09 AN 27 27 CF-FAC-CODE 01 AN 28 33 CF-DAYS 06 AN 34 34 CF-PAS-SESSION 01 AN 35 42 CF-CLASS-TIME 08 AN 43 45 CF-BUILDING-NO 03 AN 46 49 CF-ROOM-NO 04 AN 50 53 CF-ENROLL 04 NUM 54 57 CF-CREDITS 04 NUM 58 58 CF-LAB 01 AN 59 59 CF-INSTRUCT-WEEKS 01 AN 60 60 CF-DIV-CODE 01 AN 61 80 FILLER * B. STUDENT FILE (OUTPUT FILE) ---------------------------------------------------- ] POSITION ] ] ] DATA ] ] FROM ] TO ] FIELD NAME ] SIZE ] TYPE ] ]------]-------]------------------]-------]--------] 01 01 ST-DEL 01 AN 02 04 ST-COLL-CODE 03 AN 05 05 ST-CAMPUS 01 AN 06 09 ST-NAME-KEY 04 AN 10 18 ST-SSNO 09 NUM 19 34 ST-NAME-LAST 16 AN 35 44 ST-NAME-FIRST 10 AN 45 45 ST-NAME-INITIAL 01 AN 46 47 ST-NAME-SUFFIX 02 AN 48 48 ST-SEX 01 AN 49 51 ST-JURISDICTION 03 AN 52 52 ST-CURR-LEVEL 01 AN 53 55 ST-CURR 03 AN 56 56 ST-CITIZENSHIP 01 AN 57 62 ST-HIGH-SCHOOL 06 AN 63 63 ST-DIV-CODE 01 AN 64 65 ST-ADV-CODE 02 AN 66 67 ST-COUNSELOR 02 AN 68 68 ST-RACE 01 AN 69 69 ST-STUDENT-TYPE 01 AN 70 91 ST-STREET-ADRS 22 AN 92 107 ST-CITY 16 AN 108 109 ST-STATE 02 AN 110 118 ST-ZIP-CODE 09 AN 119 121 ST-PHONE-AREA 03 AN 122 124 ST-PHONE-EXCH 03 AN 125 128 ST-PHONE-EXTEN 04 AN 129 129 ST-USER-FIELD-1 01 AN 130 130 ST-USER-FIELD-2 01 AN 131 131 ST-USER-FIELD-3 01 AN 132 132 ST-USER-FIELD-4 01 AN 133 133 ST-USER-FIELD-5 01 AN 134 134 ST-USER-FIELD-6 01 AN 135 135 ST-USER-FIELD-7 01 AN 136 136 ST-USER-FIELD-8 01 AN * STUDENT FILE (CONTD) 137 138 ST-USER-FIELD-9 02 AN 139 140 ST-USER-FIELD-10 02 AN 141 142 ST-USER-FIELD-11 02 AN 143 144 ST-USER-FIELD-12 02 AN 145 146 ST-USER-FIELD-13 02 AN 157 149 ST-USER-FIELD-14 03 AN 150 152 ST-USER-FIELD-15 03 AN 153 155 ST-USER-FIELD-16 03 AN 156 158 ST-USER-FIELD-17 03 AN 159 161 ST-USER-FIELD-18 03 AN 162 166 ST-USER-FIELD-19 05 AN 167 171 ST-USER-FIELD-20 05 AN 172 181 ST-USER-FIELD-21 10 AN 182 183 ST-YY 02 AN 184 185 ST-MM 02 AN 186 187 ST-DD 02 AN 188 188 ST-VETERAN-BENEFIT-STATUS 01 AN 189 190 ST-VETERAN-CERT 02 AN 191 193 ST-VETERAN-CHAPTER-CODE 03 AN 194 195 ST-YEAR 02 AN 196 197 ST-MON 02 AN 198 199 ST-DAY 02 AN 200 200 FILLER 01 AN 201 203 ST-HOURS-ATT-QTR 05 NUM S9(3)V99 COMP-3 204 206 ST-HOURS-COMP-QTR 05 NUM S9(3)V99 COMP-3 207 209 ST-GRADE-POINT-QTR 05 NUM S9(3)V99 COMP-3 210 212 ST-GRADE-AVG-QTR 04 NUM S9(1)V999 COMP-3 213 216 ST-HOURS-ATT-CUMM 06 NUM S9(4)V99 COMP-3 217 220 ST-HOURS-COMP-CUMM 06 NUM S9(4)V99 COMP-3 221 224 ST-GRADE-POINT-CUMM 07 NUM S9(4)V999 COMP-3 225 227 ST-GRADE-AVG-CUMM 04 NUM S9(1)V99 COMP-3 228 228 ST-STATUS-CURR 01 AN 229 229 ST-STATUS-PRIOR 01 AN 230 232 ST-TRANSFER-HOURS 05 NUM S9(3)V999 COMP-3 233 233 ST-DISMISSAL 01 AN 234 236 FILLER 03 AN 237 238 ST-YEAR-H-S-GRAD-GED 02 AN 239 239 FILLER 01 AN 240 243 ST-MILITARY-DISC 04 AN 244 244 ST-FIN-AID-INFO 01 AN 245 260 ST-FORMER-NAME 16 AN 261 270 ST-PHONE-BUSINESS 10 AN 271 276 COLLEGE-LAST 06 AN 277 282 ST-TWO-TWO-CURR 06 AN STUDENT FILE (CONTD) 283 288 FILLER 06 AN 289 1248 ST-CLSDEF. ST-DEPT 03 AN ST-SESS 01 AN ST-CRSE 03 AN ST-SECT 02 AN ST-LAB 01 AN ST-CAMP 01 AN ST-CREDIT 04 NUM ST-GRADE 01 AN OCCURS 60 TIMES 5.0 SPECIAL OUTPUT MESSAGES: ----------------------- 1. ERROR MESSAGE: ** INVALID YEAR ** ** CORRECT YEAR ON HEADER CARD AND RESUBMIT ** ACTION: CORRECT YEAR ON PARM CARD 2. ERROR MESSAGE: SEMESTER SELECTED NOT FOUND ON CONTROL DATA BASE, SEMESTER IS ......... ACTION: CHECK SEMESTER ENTERED ON PARMCARD. IF VALID, CHECK TO SEE WHY SEMESTER IS NOT ON THE CONTROL DATA BASE, USE REF010 TO ADD. 3. ERROR MESSAGE: NO CAMPUS CODE FOUND FOR THIS CAMPUS ON CONTROL DATA BASE, CAMPUS CODE IS ... ACTION: CHECK CAMPUS ENTERED ON PARMCARD. IF VALID, CHECK TO SEE WHY CAMPUS IS NOT IN CONTROL DATA BASE, USE REF005 ONLINE SCREEN TO ADD. 4. ERROR MESSAGE: AUDIT SWITCH OPTION NOT SELECTED, MUST BE SET TO: Y = INCLUDE AUDITS, SEN. CITIZENS & ADMIM. ADDS N = EXCLUDE AUDITS, SEN. CITIZENS & ADMIN. ADDS ACTION: CHECK PARMCARD AND SET THE AUDSEN-SWITCH TO EITHER 'Y' OR 'N'. 5. ERROR MESSAGE: DISPLAY '** CEN660 REPORT TYPE OPTION **' DISPLAY '** MUST BE H OR C ' ACTION: CHECK PARMCARD AND CORRECT THE REPORT TYPE OPTION IF TAPES ARE TO BE CREATED FROM CENSUS DATA BASE - USE CODE OF 'C', OTHERWISE USE A CODE 'H'. 6. ERROR MESSAGE: NO INSTRUCTOR RECORD FOUND FOR ..(CLASS-ID) ************ PROCESS CONTINUING.. ACTION: CHECK CLASS USING SCH010 AND ADD A VALID INSTRUCTOR. 6.0 SPECIAL FEATURES: ---------------- 6.1 CALLING PROGRAMS: N/A 6.2 SUBPROGRAMS CALLED: N/A 6.3 MESSAGE CODES: N/A 7.0 PROGRAM OPTIONS: N/A --------------- 8.0 PROGRAM CHANGE HISTORY: ---------------------- 8.1 VERSION NO: V3.11 (NEW PROGRAM) CHANGE DATE: 06/01/88 PROGRAMMER NAME: PAT BUCHANAN (TCC) PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: N/A 8.2 VERSION NO: V3.13 (NEW PROGRAM) CHANGE DATE: 08/11/88 PROGRAMMER NAME: PAT BUCHANAN (TCC) PROGRAM CHANGE REQUEST NO: STC-TC-412 DESCRIPTION OF CHANGE: - ADDED TWO-TWO-CURR CODES TO THE STUDENT FILE. - MODIFIED CLASS TABLE IN STUDENT FILE, SO THAT DEPARTMENT FIELD ONLY CONTAINS THREE CHARACTERS INSTEAD OF FOUR. THIS WAS NECESSARY AS THE TABLE WAS TOO LARGE (204 BYTES) TO BE PROCESSED BY SAS PROGRAMS, FOR WHICH THIS PROGRAM IS DESIGNED. * 8.3 VERSION NO: V4.01 CHANGE DATE: 02/01/89 PROGRAMMER NAME: PAT BUCHANAN (TCC) PROGRAM CHANGE REQUEST NO: INFO - 2040 DESCRIPTION OF CHANGE: - MODIFIED TO CHECK ALL THE STUDENTS CLASSES TO DETERMINE IF CLASS IS AN AUDIT, SENIOR CITIZEN OR LATE ADD IN MODULE 270-EXCLUDE-CHECK. CLASSES IN THIS CATEGORY ARE NOT WRITTEN TO TAPE. 8.4 VERSION NO: V4.03 CHANGE DATE: 06/03/89 PROGRAMMER NAME: BOB DODGE PROGRAM CHANGE REQUEST NO: 00002928 DESCRIPTION OF CHANGE: MODIFIED TO ACCOMMODATE 60 REGS. 8.5 VERSION NO: V4.05 CHANGE DATE: 09/01/89 PROGRAMMER NAME: RH.CLARK PROGRAM CHANGE REQUEST NO: I:00002506 DESCRIPTION OF CHANGE: PROGRAM WAS MODIFIED TO PICK UP THE NEW LENGTH FOR THE COLLEGE LAST ATTENDED FIELD. THE STFILE WAS INCREASED TO 1243 CHARCTERS AND IS USED BY COLLEGE WRITTEN PROGRAMS WHICH MUST INSURE THAT THOSE PROGRAMS ACCOMMODATE IT. 8.6 VERSION NO: V4.10 CHANGE DATE: 01/08/90 PROGRAMMER NAME: VERNA BRADBY PROGRAM CHANGE REQUEST NO: I:00004197 DESCRIPTION OF CHANGE: CHANGED ST-FILE FROM FIXED TO VARIABLE LENGTH TO ELIMINATE THE USE OF UNNECESSARY SPACE SINCE THE CODING FOR SIXTY REGISTRATIONS HAS BEEN ADDED. MODIFIED TO COMPILE AND LINK UNDER COBOL II STANDARDS. 8.7 VERSION NO: V4.13 CHANGE DATE: 05/09/90 PROGRAMMER NAME: VERNA BRADBY PROGRAM CHANGE REQUEST NO: I:00005541 DESCRIPTION OF CHANGE: PROGRAM WAS CHANGED TO WORK FOR MORE THAN 12 REGIS- TRATIONS. THE CODING FOR 60 REGISTRATIONS WAS INCLUDED IN THE PROGRAM, BUT DID NOT WORK CORRECTLY. 8.8 VERSION NO: V4.21 CHANGE DATE: 02/26/91 PROGRAMMER NAME: PAT BUCHANAN PROGRAM CHANGE REQUEST NO: I:00007360 DESCRIPTION OF CHANGE: MODIFIED DOCUMENTATION TO REFLECT IN THE STUDENT FILE LAYOUT, THE CORRECT LOCATION OF COLLEGE-LAST. 8.9 VERSION NO: V4.25 CHANGE DATE: 07/09/91 PROGRAMMER NAME: PAT BUCHANAN PROGRAM CHANGE REQUEST NO: I:00008078 DESCRIPTION OF CHANGE: REVISED PROGRAM TO READ THE REGISTRATION SEGMENT FOR 02200400 VALIDATING THE SELECTION OF A STUDENT BEFORE WRITING 02199800 TO TAPE WHEN HISTORY OPTION IS SELECTED. THIS WAS FOUND NECESSARY AS USING QTR-PREV-ENROL WAS NOT RELIABLE DUE TO A PROBLEM WITH REG927S. 8.10 VERSION NO: V4.44 02199901 CHANGE DATE: 03/01/93 02200001 PROGRAMMER NAME: GERARD J LIETTE 02200100 PROGRAM CHANGE REQUEST NO: I:00010934 02200200 DESCRIPTION OF CHANGE: 02200300 REVISED PROGRAM TO WRITE THE VETERAN-CERT AND VETERAN- 02200400 CHAPTER-CODE FROM THE STUDENT-SEGMENT TO THE STUDENT FILE 02199800 (STFILE) ON THE TAPE. MODIFIED STUDENT FILE LAYOUT TO 02199800 SHOW THE LOCATION OF TWO NEW FIELDS; ST-VETERAN-CERT AND ST-VETERAN-CHAPTER-CODE.(FIELD POSITION 189 - 193) 8.11 VERSION NO: V5.08 02199901 CHANGE DATE: 01/21/94 02200001 PROGRAMMER NAME: BARBARA SHANKO 02200100 PROGRAM CHANGE REQUEST NO: I:00011951 02200200 DESCRIPTION OF CHANGE: MODIFIED PROGRAM TO BRING 'CBLTDLI' CALLS INTO COMPLIANCE WITH THE STANDARD USE OF IOAREA PER PAGE 9 IN THE AUGUST 92 PROGRAM STANDARDS, PROCEDURES AND GUIDELINES MANUAL. 8.12 VERSION NO: V6.11 02199901 CHANGE DATE: 06/16/97 02200001 PROGRAMMER NAME: BARBARA SHANKO 02200100 PROGRAM CHANGE REQUEST NO: I:00017648 02200200 DESCRIPTION OF CHANGE: MODIFIED PROGRAM TO CLOSE ALL OPEN FILES AT END OF PROGRAM TO PREVEN S0C3 WITH NEW VERSION OF IMS. MOVE 888 TO RETURN CODE FOR IMS ERRORS. 8.13 VERSION NO: V7.01 02199901 CHANGE DATE: 06/09/98 02200001 PROGRAMMER NAME: MYRA MAIORANA, TCC 02200100 PROGRAM CHANGE REQUEST NO: I:00018008 02200200 DESCRIPTION OF CHANGE: - THIS PROGRAM HAS BEEN RECOMPILED AND TESTED USING THE NEW COBOL COMPILER. - Y2K MODS WERE NOT NEEDED.