0.009/21/98 GERRY LIETTE 1.0 PROGRAM NARRATIVE: ----------------- THIS BATCH PROGRAM PRINTS THE CURRICULUM MASTER MISMATCH REPORT. THE CURRICULUM MASTER SEGMENT OF THE CURRICULUM DATA BASE IS READ SEQUENTIALLY. IF THE DATA BASE CURRICULUM IS INACTIVE OR PENDING, 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 DATA BASE CURRICULUM IS ACTIVE OR CANCELLED, THE CURRICULUM CODE IS USED TO READ THE SIP CURRICULUM MASTER FILE TO FIND A MATCHING CURRICULUM. IF THE DATA BASE CURRICULUM IS ACTIVE OR CANCELLED, AND THE MATCHING MASTER CURRICULUM IS NOT FOUND, AN ERROR HAS OCCURRED AND AN ERROR MESSAGE IS PRINTED ALONG WITH THE DATA BASE RECORD. IF A MATCHING MASTER RECORD IS FOUND FOR THE DATA BASE RECORD, THE RECORDS ARE COMPARED TO INSURE BOTH CURRICULUMS ARE ACTIVE OR CANCELLED. IF NOT, AN ERROR MESSAGE IS PRINTED ALONG WITH THE DATA BASE AND MASTER FILE RECORDS. IF THE PROGRAM OPTION FOR PRINTING WARNING MESSAGES IS SET TO 'Y', THE DATA BASE AND MASTER FILE CURRICULUM NAMES ARE COMPARED FOR DISCREPANCIES. IF DIFFERENCES ARE FOUND, THE RECORDS ARE DISPLAYED ALONG WITH A WARNING MESSAGE. THIS CHECK IS NOT MADE IF THE PRINT OPTION IS SET TO 'N'. IF THE PROGRAM OPTION FOR CURRICULUM RANGES TO BE OMITTED FROM PROCESSING IS SET TO ALL ZEROS, ALL CURRICULUMS WILL BE PROCESSED. OTHERWISE, UP TO TWO SETS OF RANGES MAY BE SET TO OMIT CURRICULUMS FROM BEING COMPARED TO THE MASTER FILE FOR DISCREPANCIES. THOSE CURRICULUMS WHICH ARE EQUAL TO OR FALL WITHIN THE RANGE VALUES WILL BE BYPASSED. AT THE END OF THE PROGRAM, A LISTING OF THE TOTAL NUMBER OF ERRORS AND WARNINGS IS PRINTED. A MESSAGE IS PRINTED INFORMING THE USER IF NO ERRORS/WARNINGS WERE FOUND. 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //CEN590 JOB (XXXX,YYYY,1,2),CEN590, // MSGCLASS=A,CLASS=Q,REGION=2048K /*ROUTE PRINT ZZZZ // EXEC CEN590,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 = *) 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: CURRICULUM 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. PROGRAM OPTION SEGMENT (15) (READ ONLY) CURRICULUM DATA BASE 1. CURRICULUM SEGMENT (READ ONLY) 4.2 ADDITIONAL FILES USED: --------------------- 1. PRTFILE - CURRICULUM MASTER MISMATCH REPORT 2. MSTRFILE - MASTER CURRICULUM FILE 4.3 INPUT/OUTPUT RECORD LAYOUTS: --------------------------- DESCRIPTION - SIP MASTER CURRICULUM FILE - RECORD LENGTH 160 FIELD ID. DESCRIPTION POSITION SIZE/TYPE CUCURR RECORD KEY 1 - 3 03 N PROGRAM-LEVELS. PROG-LEVEL-0 PROGRAM-LEVEL-0 4 01 N PROG-LEVEL-1 PROGRAM-LEVEL-1 5 01 N PROG-LEVEL-2 PROGRAM-LEVEL-2 6 01 N PROG-LEVEL-3 PROGRAM-LEVEL-3 7 01 N PROG-LEVEL-4 PROGRAM-LEVEL-4 8 01 N PROG-LEVEL-5 PROGRAM-LEVEL-5 9 01 N PROG-LEVEL-6 PROGRAM-LEVEL-6 10 01 N PROG-LEVEL-7 PROGRAM-LEVEL-7 11 01 N PROG-LEVEL-8 PROGRAM-LEVEL-8 12 01 N PROG-LEVEL-9 PROGRAM-LEVEL-9 13 01 N DEGREE DEGREE TYPE 14 - 18 05 A AUTHORIZATION-FIELDS FOR EACH SCHOOL 19 - 87 NR-FIELDS. NR-CODE 19 01 A NR-YEAR 20 - 21 02 N SV-FIELDS. SV-CODE 22 01 A SV-YEAR 23 - 24 02 N PC-FIELDS. PC-CODE 25 01 A PC-YEAR 26 - 27 02 N RC-FIELDS. RC-CODE 28 01 A RC-YEAR 29 - 30 02 N DC-FIELDS. DC-CODE 31 01 A DC-YEAR 32 - 33 02 N NV-FIELDS. NV-CODE 34 01 A NV-YEAR 35 - 36 02 N PV-FIELDS. PV-CODE 37 01 A PV-YEAR 38 - 39 02 N SR-FIELDS. SR-CODE 40 01 A SR-YEAR 41 - 42 02 N ES-FIELDS. ES-CODE 43 01 A ES-YEAR 44 - 45 02 N PH-FIELDS. PH-CODE 46 01 A PH-YEAR 47 - 48 02 N VW-FIELDS. VW-CODE 49 01 A VW-YEAR 50 - 51 02 N DL-FIELDS. DL-CODE 52 01 A DL-YEAR 53 - 54 02 N WC-FIELDS. WC-CODE 55 01 A WC-YEAR 56 - 57 02 N JT-FIELDS. JT-CODE 58 01 A JT-YEAR 59 - 60 02 N BR-FIELDS. BR-CODE 61 01 A BR-YEAR 62 - 63 02 N CV-FIELDS. CV-CODE 64 01 A CV-YEAR 65 - 66 02 N TN-FIELDS. TN-CODE 67 01 A TN-YEAR 68 - 69 02 N SW-FIELDS. SW-CODE 70 01 A SW-YEAR 71 - 72 02 N TC-FIELDS. TC-CODE 73 01 A TC-YEAR 74 - 75 02 N VH-FIELDS. VH-CODE 76 01 A VH-YEAR 77 - 78 02 N GC-FIELDS. GC-CODE 79 01 A GC-YEAR 80 - 81 02 N LF-FIELDS. LF-CODE 82 01 A LF-YEAR 83 - 84 02 N ME-FIELDS. ME-CODE 85 01 A ME-YEAR 86 - 87 02 N CURR-NAME 88 - 113 26 A CURR-ABR-NAME 114 - 125 12 A CURR-SHORT-NAME 126 - 129 04 A STATE-CURR 130 01 A NCES-CODE 131 - 137 07 A SCHEV-CODE 138 - 144 07 A CLUSTER-CODE 145 01 A FILLER 146 - 160 15 A 5.0 SPECIAL OUTPUT MESSAGES: ----------------------- 1. 'CONTROL PROGOPT GU FAILURE, STATUS=XX, KEY-VALUE=XXX' THE CONTROL PROGRAM OPTION RECORD CONTAINING KEY VALUE '15CEN59001' 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. 2. 'CONTROL CAMPUS GU FAILURE, STATUS=XX, KEY-VALUE=XXX' 'CONTROL SEGMENT NOT FOUND' THE SEGMENT CONTAINING KEY-VALUE '02A' COULD NOT BE FOUND. A 'GE' CODE US RETURNED. THE PROGRAM SHOULD NOT BE EXECUTED UNTIL THE CAMPUS RECORD HAS BEEN ENTERED. THE PROGRAM IS TERMINATED. 3. 'CONTROL CAMPUS GU FAILURE, STATUS=XX, KEY-VALUE=XXX' A CALL TO THE SEGMENT CONTAINING THE KEY-VALUE '02A' WAS ATTEMPTED AND FAILED. THE VALUE OF THE STATUS WILL EXPLAIN THE REASON FOR THE FAILURE. THE PROGRAM IS TERMINATED. 4. 'CURRICULUM GN FAILURE, STATUS-XXX, A GET NEXT ON THE CURRICULUM DATA BASE WAS ATTEMPTED AND AND FAILED. THE VALUE OF THE STATUS WILL EXPLAIN THE REASON FOR THE FAILURE. THE PROGRAM IS TERMINATED. 5. '*** CEN590 TERMINATED ***' THIS MESSAGE ACCOMPANIES THE ABOVE MESSAGES AND IS USED TO POINT OUT THAT THE PROGRAM ABNORMALLY TERMINATED. 6. 'PRINT WARNING PROGRAM OPTION = ' 'BEGINNING VALUE OF FIRST RANGE = ' 'ENDING VALUE OF FIRST RANGE = ' 'BEGINNING VALUE OF SECOND RANGE = ' 'ENDING VALUE OF SECOND RANGE = ' NO ACTION IS REQUIRED, FOR INFORMATIONAL PURPOSES ONLY. 7. 'INVALID PRINT WARN OPTION = ' THE PRINT WARN OPTION MUST BE SET TO EITHER 'Y' OR 'N'. ENTER CORRECT OPTION VALUE VIA REF070 AND RESUBMIT JOB. 8. 'BEG/END RANGE VALUE MUST BE NUMERIC' THE OPTIONS FOR SETTING CURRICULUM RANGES TO BE BYPASSED MUST BE SET TO AT LEAST '000', THEY CANNOT BE LEFT BLANK. ENTER CORRECT OPTION VALUE(S) VIA REF070 AND RESUBMIT JOB. 9. 'BEG RANGE VALUE NOT LESS THAN END RANGE VALUE' THE OPTION FOR SETTING CURRICULUM RANGES TO BE BYPASSED MUST HAVE A BEGINNING RANGE VALUE EQUAL TO OR LESS THAN THE ENDING RANGE VALUE FOR EACH SET OF RANGES. 6.0 SPECIAL FEATURES: ---------------- 6.1 CALLING PROGRAMS: N/A 6.2 SUBPROGRAMS CALLED: UTL100S 6.3 MESSAGE CODES: N/A * 7.0 PROGRAM OPTIONS: 1. CEN590 - 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 - 1 ] PRINT-WARN-OPTION ] Y ] WILL COMPARE DB/MASTER CURR ] ] ] NAMES AND PRINT A WARNING ] ] ] MESSAGE IF THEY DO NOT MATCH ] ] ] ] ] N ] WILL NOT COMPARE DB/MASTER ] ] ] CURRICULUM NAMES NOR PRINT ] ] ] ASSOCIATED WARNING MESSAGE ] ] ] ] ] BLANK ] IF BLANK OR NOT 'Y' OR 'N' ] ] ] THE PROGRAM WILL DETECT AN ] ] ] ERROR AND WILL ABORT ] ] ] 2 - 4 ] BEG-CURR-RANGE1 ] 000 ] BEGINNING VALUE FOR FIRST ] ] ] RANGE TO BE BYPASSED, SET TO ] ] ] '000' IF WANT ALL CURRICULUMS ] ] ] PROCESSED. ] ] ] 5 - 7 ] END-CURR-RANGE1 ] 000 ] ENDING VALUE FOR FIRST ] ] ] RANGE TO BE BYPASSED, SET TO ] ] ] '000' IF WANT ALL CURRICULUMS ] ] ] PROCESSED. ] ] ] 8 - 10 ] BEG-CURR-RANGE2 ] 000 ] BEGINNING VALUE FOR SECOND ] ] ] RANGE TO BE BYPASSED, SET TO ] ] ] '000' IF WANT ALL CURRICULUMS ] ] ] PROCESSED. ] ] ] 11 - 13 ] END-CURR-RANGE2 ] 000 ] ENDING VALUE FOR SECOND ] ] ] RANGE TO BE BYPASSED, SET TO ] ] ] '000' IF WANT ALL CURRICULUMS ] ] ] PROCESSED. ] ] ] * 8.0 PROGRAM CHANGE HISTORY: ---------------------- 8.1 VERSION NO: V2.5 CHANGE DATE: 9/16/84 PROGRAMMER NAME: KATHARINE L. COLLIER PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: N/A 8.2 VERSION NO: V2.9 CHANGE DATE: 5/19/86 PROGRAMMER NAME: G. TAYLOR PROGRAM CHANGE REQUEST NO: STC-ES-004 DESCRIPTION OF CHANGE: ADDED EDITS TO BY-PASS INACTIVE CURRICULUMS 8.3 VERSION NO: V3.1 CHANGE DATE: 6/10/87 PROGRAMMER NAME: CAROL WEAVER PROGRAM CHANGE REQUEST NO: STC-TC-035 STC-SR-175 DESCRIPTION OF CHANGE: 1. MODIFIED PROGRAM TO PROCESS A CANCELLED CURRICULUM IN THE SAME MANNER AS AN ACTIVE CURRICULUM (CURRICULUM IS COMPARED TO THE MASTER FILE FOR DISCREPANCIES). PENDING CURRICULUMS ARE NOT CHECKED, AS THEY ARE PROCESSED IN THE SAME MANNER AS INACTIVE CURRICULUMS. 2. ADDED AN OPTION TO ALLOW PROGRAM TO RUN WITHOUT COMPARING AND PRINTING A WARNING FOR CURRICULUM NAME MISMATCH. 3. ADDED AN OPTION TO PROVIDE SELECTION CRITERIA TO OMIT RANGES OF CURRICULUM CODES FROM PROCESSING. UP TO TWO SETS OF RANGES MAY BE SELECTED. 8.4 VERSION NO: V7.01 CHANGE DATE: 4/21/98 PROGRAMMER NAME: GERRY J LIETTE (TCC) PROGRAM CHANGE REQUEST NO: 00018008 DESCRIPTION OF CHANGE: 1. PROGRAM RECOMPILED AND TESTED USING NEW COBOL COMPILER. 2. ADDED CALL TO UTL100S TO PRINT CURRENT-DATE ON REPORT.