0.004/09/99 GERRY LIETTE 1.0 PROGRAM NARRATIVE: ----------------- THIS BATCH PROGRAM PRINTS THE COURSE MASTER MISMATCH REPORT. THE DEPARTMENT SEGMENT OF THE COURSE DATABASE IS READ SEQUENTIALLY. ONCE A DEPARTMENT HAS BEEN READ, THE COURSES LINKED TO THAT DEPARTMENT ARE RETRIEVED ONE AT A TIME. IF THE DATA BASE COURSE IS INACTIVE, THE READING OF THE MASTER FILE IS NOT PERFORMED FOR THAT RECORD, AND PROCESSING CONTINUES WITH THE READING OF THE NEXT DATA BASE RECORD. IF THE DATABASE COURSE IS ACTIVE AND A MATCHING MASTER COURSE IS NOT FOUND, AN ERROR HAS OCCURED AND AN ERROR MESSAGE IS PRINTED ALONG WITH THE DATA BASE RECORD. IF A MATCHING MASTER COURSE RECORD IS FOUND FOR THE DATA BASE RECORD, THE RECORDS ARE COMPARED TO INSURE BOTH COURSES ARE ACTIVE. IN ADDITION, THE LAB AND LECTURE CREDIT HOURS ARE COMPARED. IF ANY DISCREPANCIES ARE FOUND DURING THE COMPARISON, THE DB AND/OR MASTER RECORDS ARE PRINTED ALONG WITH AN APPROPRIATE ERROR MESSAGE. IF THE PROGRAM OPTION FOR PRINTING WARNING MESSAGES IS 'YES', THE RECORDS ARE ALSO COMPARED FOR DISCREPANCIES IN THE COURSE TITLES. THIS CHECK IS NOT MADE IF THE PRINT OPTION EQUALS 'NO'. IF THE TERM CHECK OPTION IS SET TO 'YES', THE PROGRAM WILL ONLY CHECK THE COURSES WHERE THE PARM TERM (CENSUS TERM) IS GREATER THAN THE QTR-FIRST-VALID AND LESS THAN THE QTR-LAST-VALID. THESE COURSES WILL THEN BE COMPARED TO ITS MATCHING MASTER RECORD. IF THE TERM CHECK OPTION IS SET TO 'NO ', THE PROGRAM WILL COMPARE ALL COURSES TO THEIR MASTER RECORD. THE QTR-FIRST- AND QTR-LAST-VALID ARE ALSO CHECKED TO INSURE THEIR CORRECTNESS. IF ANY ERRORS EXIST, THE DB AND/OR MASTER RECORD WILL PRINT WITH A WARNING MESSAGE. ONE SHOULD NOTE THAT THERE ARE 3 TYPES OF CREDIT HOURS, REGULAR, VARIABLE, AND TABLE. WITH REGULAR HOURS, THE CREDIT FIELDS ARE CHECKED FOR A NUMERIC VALUE AND EQUALITY. VARIABLE HOUR COURSES ARE CHECKED FOR A 'V' IN THE COURSE MASTER FILE AND THE DATA BASE VARIABLE CREDIT FIELD IS CHECKED FOR A VALUE GREATER THAN 0 AND LESS THAN 6. THIS IS THE MIN AND MAX FOR VARIABLE CREDIT HOURS. IF BOTH OF THESE TEST FAIL, THE COURSE MASTER FILE IS CHECKED FOR THE LETTERS A-K AND THE COURSE DATA- BASE IS CHECKED FOR THE HOURS CORRESPONDING WITH THE LETTER. IF NONE OF THE ABOVE MATCHES ARE MADE, THE RECORD LAYOUT IS PRINTED WITH A CORRESPONDING ERROR MESAGE. AT THE END OF THE PROGRAM, A LISTING OF THE TOTAL ERRORS AND WARNINGS IS PRINTED. A MESSAGE IS PRINTED INFORMING THE USER IF NO ERRORS ARE FOUND. * PROGRAM OPTIONS --------------- CEN600 HAS THREE PROGRAM OPTIONS, THE TERM CHECK OPTION, THE PRINT WARNING OPTION, AND THE EDIT SEMESTER CLASSES ONLY OPTION. THESE OPTIONS MUST BE SET TO EITHER 'YES' OR 'NO'. IF THE TERM CHECK OPTION IS SET TO 'YES', THE PROGRAM WILL ONLY CHECK THE COURSES WHERE THE PARM TERM (CENSUS TERM) IS GREATER THAN THE QTR-FIRST-VALID AND LESS THAN THE QTR-LAST-VALID. THESE COURSES WILL THEN BE COMPARED TO ITS MATCHING MASTER RECORD. IF THE TERM CHECK OPTION IS SET TO 'NO ', THE PROGRAM WILL COMPARE ALL COURSES TO THEIR MASTER RECORD. THE QTR-FIRST- AND QTR-LAST-VALID ARE ALSO CHECKED TO INSURE THEIR CORRECTNESS. IF ANY ERRORS EXIST, THE DB AND/OR MASTER RECORD WILL PRINT WITH A WARNING MESSAGE. IF THE PRINT WARNING OPTION IS SET TO 'YES', THE PROGRAM WILL COMPARE COURSE TITLES. IF ANY DISCREPANCY IS FOUND, THE DB AND MASTER RECORD WILL PRINT WITH A WARNING MESSAGE. IF THE PRINT WARNING OPTION IS SET TO 'NO', COURSE TITLES WILL NOT BE COMPARED. IF THE PROGRAM OPTION TO ONLY EDIT SEMESTER CLASSES IS 'YES', ONLY CLASSES AFTER THE MESSAGE-YEAR-YR (DATE FIRST WENT ON SEMESTERS) ARE CHECKED. * 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //TCCEN600 JOB (XXXX,YYYY,9,30),CEN600, // MSGCLASS=A,CLASS=F,PRTY=3,REGION=2048K /*ROUTE PRINT ZZZZ // EXEC CEN600,COLLEGE=RR,AGENCY=SSS // SYMBOLIC DESCRIPTION ******************** REQUIRED - AGENCY = COLLEGE AGENCY CODE NUMBER DEFAULT: NONE (E.G. AGENCY=295) COLLEGE = TWO CHARACTER COLLEGE NAME ABBREVIATION DEFAULT: NONE (E.G. COLLEGE=TC) OPTIONAL - CENSUS = THREE CHARACTER CENSUS DATA BASE IDENTIFIER (DEFAULT = NONE) (E.G. CENSUS=CEN) FORM = FORM NUMBER THE OUTPUT IS TO BE STORED UNDER (DEFAULT = A000) (E.G. FORM = 0002) QUEUE = QUEUE CLASS THE OUTPUT IS TO BE SPOOLED UNDER (DEFAULT = *) RUNTYPE = INDICATES WHETHER OR NOT TO USE TEST OR PRODUCTION FILES (DEFAULT = PROD) (E.G. RUNTYPE=TEST) 2.2 INPUT PARAMETERS: ---------------- RR - COLLEGE SSS - AGENCY XXXX - PROGRAM NUMBER YYYY - ROOM NUMBER ZZZZ - REMOTE ID 3.0 JOB SETUP INSTRUCTIONS: ---------------------- SPECIAL FORMS QUEUE: N/A FORMS BUFFER: STANDARD ALIGNMENT INSTRUCTIONS: STANDARD PRINTED OUTPUT: COURSE MASTER MISMATCH REPORT FORMS TYPE: 14 X 11 SPECIAL INSTRUCTIONS: IF A FATAL ERROR OCCURS WHICH TERMINATES PROGRAM EXECUTION, GIVE THE ERROR LIST TO PROGRAMMER AT COMPUTER CENTER. * 4.0 FILES: ----- 4.1 DATA BASES/SEGMENTS USED ------------------------ CONTROL DATA BASE 1. CAMPUS SEGMENT (02) (READ ONLY) 2. MESSAGE SEGMENT (05) (READ ONLY) 3. QUARTER SEGMENT (09) (READ ONLY) 4. PROGRAM OPTION SEGMENT (15) (READ ONLY) COURSE DATA BASE 1. DEPARTMENT SEGMENT (READ ONLY) 2. COURSE SEGMENT (READ ONLY) 4.2 ADDITIONAL FILES USED: --------------------- 1. PRTFILE - JURISDICTION MASTER MISMATCH REPORT 2. MSTRFILE - MASTER COURSE FILE 4.3 INPUT/OUTPUT RECORD LAYOUTS: --------------------------- MASTER COURSE REFERENCE FILE RECORD LENGTH 70 FIELD ID DESCRIPTION POSITION SIZE/TYPE CRDEL RECORD DELETE CHARACTER 1 01 A CRKEY RECORD KEY CRDEPT DEPARTMENT CODE 2 - 5 04 A CRCRSE COURSE NUMBER 6 - 8 03 A CRCRE COURSE CREDITS CRLECMIN LECTURE CREDITS MINIMUM 9 - 12 04 N S99V99 CRLECMAX LECTURE CREDITS MAXIMUM 13 - 16 04 N S99V99 CRLABMIN LAB CREDITS MINIMUM 17 - 20 04 N S99V99 CRLABMAX LAB CREDITS MAXIMUM 21 - 24 04 N S99V99 CRTITLE COURSE TITLE 25 - 38 14 A CRCATGY COURSE CATEGORY 39 01 A CRCONTHR COURSE CONTACT HOURS MIN 40 - 44 05 N S999V99 CRCONTHR COURSE CONTACT HOURS MAX 45 - 49 05 N S999V99 FILLER FILLER 50 - 70 21 A * 5.0 SPECIAL OUTPUT MESSAGES: ----------------------- 1. 'CONTROL CAMPUS GU FAILURE, STATUS=XX, KEY-VALUE=XXX' THE CAMPUS RECORD CONTAINING KEY-VALUE '02A' COULD NOT BE FOUND DUE TO THE ERROR DESCRIBED BY STATUS CODE. THE PROGRAM SHOULD NOT BE EXECUTED UNTIL THE CAMPUS RECORD HAS BEEN ENTERED. THE PROGRAM IS TERMINATED. 2. 'DEPARTMENT GN FAILURE, STATUS=XX' A GET NEXT ON THE COURSE DATA BASE (DEPARTMENT SEGMENT) WAS ATTEMPTED AND FAILED. THE VALUE OF THE STATUS WILL EXPLAIN THE REASON FOR THE FAILURE. THE PROGRAM IS TER- MINATED. 3. 'COURSE GNP FAILURE, STATUS=XX' A GET NEXT PARENT WAS ATTEMPTED ON THE COURSE DATA BASE (COURSE SEGMENT) AND FAILED. THE VALUE OF THE STATUS WILL EXPLAIN THE REASON FOR THE FAILURE. THE PROGRAM IS TER- MINATED. 4. 'CONTROL PROGOPT GU FAILURE, STATUS=XX, KEY VALUE=XXX' THE CONTROL PROGRAM OPTION RECORD CONTAINING KEY VALUE '15CEN60001' COULD NOT BE FOUND DUE TO THE ERROR DESCRIBED BY THE STATUS CODE. THE PROGRAM SHOULD NOT BE EXECUTED UNTIL THE PROGRAM OPTION RECORD HAS BEEN ENTERED. THE PROGRAM IS TERMINATED. 5. 'CUMM INFO FLAG DOES NOT EQUAL ZERO - CHECK REF010 TO INSURE DESIRED TERM HAS ZERO IN ITS CUMM INFO FLAG' CENSUS TERM IS NOT A CURRENT TERM, PROGRAM IS TERMINATED. 6. 'TERM KEY = XXX, THE TERM LISTED WAS NOT FOUND ON THE DATA BASE. CHECK CUMM INFO FLAG VIA REF010 - PROGRAM IS TERMINATED' THE CENSUS TERM COULD NOT BE FOUND DUE TO THE ERROR DESCRIBED BY STATUS CODE. THE PROGRAM IS TERMINATED. * 7. 'CONTROL TERM GU FAILURE, STATUS=XX' THE CENSUS TERM COULD NOT BE FOUND DUE TO ERROR DESCRIBED BY STATUS CODE. THE PROGRAM IS TERMINATED. 8. 'INVALID ACTIVE/INACTIVE CODE' THE ACTIVE/INACTIVE CODE IS NOT AN 'A' OR AN 'I'. 9. 'MESSAGE SEGMENT NOT FOUND' MESSAGE #000200 WAS NOT FOUND IN THE MESSAGE SEGMENT OF THE CONTROL DATA BASE. THE PROGRAM IS TERMINATED. 10. 'CONTROL MESSAGE GU FAILURE, STATUS=XX' THE CONTROL MESSAGE SEGMENT COULD NOT BE FOUND DUE TO THE ERROR DESCRIBED BY THE STATUS CODE. THE PROGRAM IS TERMINATED. 11. 'TERM CHECK PROGRAM OPTION = XXX' 'PRINT WARNING PROGRAM OPTION = XXX' 'CENSUS TERM IS XXX' 'ONLY EDIT SEMESTER CLASSES = XXX' NO ACTION REQUIRED, FOR INFORMATIONAL PURPOSES. 6.0 SPECIAL FEATURES: ---------------- 6.1 CALLING PROGRAMS: N/A 6.2 SUBPROGRAMS CALLED: UTL550S 6.3 MESSAGE CODES: 000200 * 7.0 PROGRAM OPTIONS: 1. CEN600 - THE PROGRAM OPTION RECORD IS USED TO SUPPLY THE PROGRAM WITH THE INDIVIUAL OPTIONS THAT ARE UNIQUE TO EACH COLLEGE'S REQUIREMENTS. FIELD POSITION OPTION NAME VALUE PROCESSING DESCRIPTION ------------------------------------------------------------- 1 - 3 ] TERM-CHECK-OPTION ] YES ] WILL ONLY CHECK COURSES ] ] ] WHERE CENSUS TERM IS GREATER ] ] ] THAN QTR-FIRST-VALID AND LESS ] ] ] THAN QTR-LAST-VALID ] ] ] ] ] NO_ ] WILL COMPARE ALL COURSES TO ] ] ] MASTER RECORD. THE QTR-FIRST ] ] ] AND QTR-LAST-VALID ARE CHECK- ] ] ] ED FOR THEIR CORRECTNESS. IF ] ] ] ANY ERRORS EXIST, A WARNING ] ] ] MESSAGE WILL BE PRINTED. ] ] ] ] ] BLANK ] IF BLANK OR NOT 'YES' OR ] ] ] ' NO' THE PROGRAM WILL ] ] ] DETECT AN ERROR AND THE ] ] ] PROGRAM WILL ABORT ] ] ] 4 - 6 ] PRINT-WARN-OPTION ] YES ] WILL COMPARE DB/MASTER COURSE ] ] ] TITLES AND PRINT A WARNING ] ] ] MESSAGE IF THEY DO NOT MATCH ] ] ] ] ] NO_ ] WILL NOT COMPARE DB/MASTER ] ] ] COURSE TITLES NOR PRINT ] ] ] ASSOCIATED WARNING MESSAGE 7 - 9 ] SEMESTER-ONLY-OPT-] YES ] WILL ONLY CHECK CLASSES EQUAL ] ION ] ] TO OR GREATER THEN YEAR ] ] ] SPECIFIED IN MESSAGE SEGMENT ] ] ] (YEAR FIRST WENT SEMESTERS) ] ] ] ] ] NO_ ] WILL EDIT ALL CLASSES * 8.0 PROGRAM CHANGE HISTORY: ---------------------- 8.1 VERSION NO: V2.6 (NEW PROGRAM) CHANGE DATE: 8/20/85 PROGRAMMER NAME: KATHARINE COLLIER PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: N/A 8.2 VERSION NO: V3.1 CHANGE DATE: 6/01/87 PROGRAMMER NAME: CAROL WEAVER PROGRAM CHANGE REQUEST NO: STC-SR-172, SCP-TC-008 DESCRIPTION OF CHANGE: 1. CHANGED ALL REFERENCES TO THE WORD 'QUARTER' IN THE PROGRAM OUTPUT TO THE WORD 'TERM'. 2. REVISED CALL DISPLAY FOR CONTROL QUARTER SEGMENT TO INDICATE 'TERM' NOT FOUND RATHER THAN 'QUARTER'. REVISED CODE (TO FIND QUARTER WITH CUMM-INFO-FLAG = 0) SO WILL NOT GET 'GE' STATUS WHEN IN SEMESTER PHASE, USING CONTROL MESSAGE = '000200'. 3. ADDED OPTION TO ALLOW PROGRAM TO RUN WITHOUT COMPARING AND PRINTING THE WARNING FOR COURSE TITLE MISMATCH. 4. CORRECTED LOGIC, WHICH WAS REVERSED, FOR PRINTING THE TOTAL NBR OF WARNINGS FOR PROGRAM OPTION TO VALIDATE QTR-FIRST-VALID AND QTR-LAST-VALID IF SET TO 'YES'. 5. REVIEWED LOGIC FOR CHECKS AGAINST QTR-FIRST-VALID AND QTR-LAST-VALID TO INSURE CODING CRITERIA IS CORRECT FOR BOTH QUARTER AND SEMESTER PHASES. NO CHANGE REQUIRED. 8.3 VERSION NO: V3.3 CHANGE DATE: SEPTEMBER 21, 1987 PROGRAMMER NAME: CAROL WEAVER PROGRAM CHANGE REQUEST NO: STC-TC-220, STC-SR-287 DESCRIPTION OF CHANGE: 1. CHANGED PROGRAM TO DEFINE CREDITS IN WORKING STORAGE AS 99V99 INSTEAD OF 99V9. MODIFIED PRINTING OF CREDITS ON THE REPORT TO MATCH THE NEW DEFINITION. 2. INCREASED THE LENGTH OF THE PAGE-COUNT FIELDS FROM TWO CHARACTERS (PIC 99) TO FOUR CHARACTERS (PIC 9999) TO CORRECT PAGE NUMBERS AFTER PRINTING 99 PAGES OF OUTPUT. 8.4 VERSION NO: V3.6 CHANGE DATE: JANUARY 21, 1988 PROGRAMMER NAME: RICHARD GILLETTE PROGRAM CHANGE REQUEST NO: STC-SO-359 DESCRIPTION OF CHANGE: CHANGED PROGRAM TO USE NEW COURSE FILE LAYOUT 8.5 VERSION NO: V3.10 CHANGE DATE: MAY 27, 1988 PROGRAMMER NAME: RICHARD GILLETTE PROGRAM CHANGE REQUEST NO: STC-SO-392 DESCRIPTION OF CHANGE: MODIFIED PROGRAM TO COMPARE MINIMUN AND MAXIMUN CREDITS AGAINST THE SUM OF THE LECTURE AND LAB MINIMUN AND MAXIMUM VALUES ON THE VCCS COURSE MASTER. 8.6 VERSION NO: V4.02 CHANGE DATE: APRIL 07, 1989 PROGRAMMER NAME: LORI CALLIOTTE PROGRAM CHANGE REQUEST NO: #00002387 DESCRIPTION OF CHANGE: ADDED AN OPTION TO ONLY EDIT SEMESTER CLASSES 8.7 VERSION NO: V4.19 00632004 CHANGE DATE: 12/12/90 00633004 PROGRAMMER NAME: MARIE GORDON 00634004 PROGRAM CHANGE REQUEST NO: 00006582 00635004 DESCRIPTION OF CHANGE: - CHANGED ALL DATA BASE CALLS TO USE STANDARD IOAREA. SEE PAGE 29 OF THE 02/90 PROGRAMMING STANDARD, PROCECEDURES AND GUIDELINES MANUAL. - MADE CHANGES FOR COBOL II. 8.8 VERSION NO: V7.01 00632004 CHANGE DATE: 05/13/98 00633004 PROGRAMMER NAME: GERRY J LIETTE (TCC) 00634004 PROGRAM CHANGE REQUEST NO: 00018008 00635004 DESCRIPTION OF CHANGE: - MADE CHANGES TO PROGRAM TO MAKE IT YEAR 2000 COMPLIENT. - FIXED TERM-CHECK-OPTION WHICH IF "YES" - WILL ONLY CHECK THE COURSES WHERE THE PARM TERM (CENSUS TERM) IS GREATER THAN THE QUARTER-FIRST-VALID AND LESS THAN THE QUARTER- LAST VALID. IF TERM-CHECK-OPTION IS "NO" - WILL COMPARE ALL COURSES TO THEIR MASTER RECORD. THE QTR-FIRST- AND QTR-LAST-VALID ARE CHECKED TO ENSURE THEIR CORRECTNESS. IF ERRORS EXIST, WARNING MESSAGE WILL BE PRINTED. - PROGRAM RECOMPILED AND TESTED USING NEW COBOL COMPILER. 8.9 VERSION NO: V7.02 CHANGE DATE: 04/09/99 PROGRAMMER NAME: PAMELA J. DALRYMPLE PROGRAM CHANGE REQUEST NO: 000XXXXX DESCRIPTION OF CHANGE: - CHANGED Y2K CENTURY CONVERSION FOR TERMS FROM =< 50 TO =< 59