0.008/27/84 KATHARINE COLLIER 1.0 PROGRAM NARRATIVE: ----------------- THIS BATCH PROGRAM PRINTS THE JURISDICTION MASTER MISMATCH REPORT. THE PROGRAM BEGINS BY READING THE CONTROL DATA BASE TO OBTAIN ALL THE JURISDICTION CODES AND NOMENCLATURES FOR THE COLLEGE EXECUTING THE PROGRAM. THE JURISDICTION INFORMATION IS THEN PLACED IN A TEMPORARY FILE AND IS SORTED BY JURISDICTION NUMBER *. THE SORTED TEMPORARY FILE IS THEN MATCHED AGAINST THE MASTER JURIS- DICTION.DISCREPANCIES ARE HIGHLIGHTED ON THE MISMATCH REPORT. AT THE END OF THE PROGRAM, A LISTING OF THE TOTAL ERRORS IS PRINTED. A MESSAGE IS PRINTED INFORMING THE USER IF NO ERRORS WERE FOUND. * ONLY JURISDICTION WHICH ARE ACTIVE ARE PLACED INTO THE TEMPORARY JURISDICTION FILE. IF A JURISDICTION IS INACTIVE THERE IS NO NEED TO CHECK IT AGAINST THE MASTER JURISDICTION FILE. * 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //TCCEN610 JOB (XXXX,YYYY,9,30),CEN610, // MSGCLASS=A,CLASS=F,PRTY=3,REGION=2048K /*ROUTE PRINT ZZZZ // EXEC CEN610,COLLEGE=RR,AGENCY=ZZZ // 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) SRTSIZE = AMOUNT OF DASD STORAGE IN CYLINDERS ALLOCATED TO EACH SORT WORK FILE (DEFAULT=3) (E.G. SRTSIZE=4) * 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: JURISDICTION 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. JURISDICTION SEGMENT (03) (READ ONLY) 4.2 ADDITIONAL FILES USED: --------------------- 1. SORTFILE - WORK AREA USED TO SORT DB JURISDICTION RECORDS 2. PRTFILE - JURISDICTION MASTER MISMATCH REPORT 3. MSTRFILE - MASTER JURISDICTION FILE 4.3 INPUT/OUTPUT RECORD LAYOUTS: --------------------------- MASTER JURISDICTION FILE RECORD LENGTH 24 FIELD ID DESCRIPTION POSITION SIZE/TYPE JUDEL DELETE CHARACTER 1 01 A JUKEY RECORD KEY JUJURIS JURISDICTION CODE 2 - 4 03 A JUNAME JURISDICTION NAME 5 - 24 20 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. 'GN FAILURE ON CTL DB (JURISDICTION), STATUS=XX' A GET NEXT ON THE CONTROL DATA BASE WAS ATTEMPTED AND FAILED. THE VALUE OF STATUS WILL EXPLAIN THE REASON FOR THE FAILURE. THE PROGRAM IS TERMINATED. 3. 'WRITE TO TEMP. DATA FILE FAILED' A WRITE TO THE TEMPORARY FILE CONTAINING JURISDICTION KEY-VALUES AND DESCRIPTIONS FAILED. THE PROGRAM IS TERMINATED. 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: NONE 8.0 PROGRAM CHANGE HISTORY: ---------------------- 8.1 VERSION NO: V2.5 (NEW PROGRAM) CHANGE DATE: 8/27/84 PROGRAMMER NAME: KATHARINE L. COLLIER PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: N/A