0.008/24/87 KATHARINE COLLIER
1.0  PROGRAM NARRATIVE:
     -----------------

          THIS BATCH PROGRAM PRINTS A DEPARTMENT MASTER MISMATCH REPORT.
     THE PROGRAM BEGINS BY READING THE COURSE DATA BASE SEQUENTIALLY TO
     OBTAIN THE DEPARTMENT CODES AND NOMENCLATURES THAT ARE VALID FOR
     THE COLLEGE EXECUTING THE PROGRAM.  EACH RECORD IS READ FROM THE
     COURSE DATA BASE (DEPARTMENT SEGMENT).  HOWEVER, ONLY ACTIVE
     DEPARTMENTS ARE COMPARED TO THE MASTER FILE FOR PROCESSING.
          IF THE DATA BASE DEPARTMENT IS ACTIVE AND A MATCHING MASTER
     DEPARTMENT IS NOT FOUND, AN ERROR HAS OCCURRED.  AN ERROR MESSAGE
     IS PRINTED ALONG WITH THE DATA BASE MASTER FILE RECORDS.
          IF A MATCHING MASTER DEPARTMENT RECORD IS FOUND FOR THE
     DATA BASE RECORD, THE RECORDS ARE COMPARED TO INSURE BOTH
     DEPARTMENTS ARE ACTIVE.  IF DISCREPANCIES ARE FOUND, AN ERROR
     MESSAGE IS PRINTED ALONG WITH THE RECORDS.
          THE DEPARTMENT TITLES ARE ALSO COMPARED.  IF DISCREPANCIES
     ARE FOUND, A WARNING MESSAGE IS PRINTED WITH THE RECORD LAYOUTS.
          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 WERE FOUND.

























2.0  SAMPLE JCL:
     ----------

     2.1  RUN JCL
          -------

          //TCCEN620 JOB (XXXX,YYYY,1,2),CEN620,
          //         MSGCLASS=A,CLASS=Q,REGION=2048K
          /*ROUTE  PRINT ZZZZ
          // EXEC CEN620,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:          DEPARTMENT 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)

          COURSE DATA BASE
          1.  DEPARTMENT SEGMENT (READ ONLY)

     4.2  ADDITIONAL FILES USED:
          ---------------------

          1.  PRTFILE   -  DEPARTMENT MASTER MISMATCH REPORT
          2.  MSTRFILE  -  MASTER DEPARTMENT FILE

     4.3  INPUT/OUTPUT RECORD LAYOUTS:
          ---------------------------
          DESCRIPTION - SIP MASTER DEPARTMENT FILE -  RECORD LENGTH 36

          FIELD ID.  DESCRIPTION               POSTITON  SIZE/TYPE
          ---------  -----------               --------  ---------
          DPDEL      RECORD DELETE CHARACTER       1       01 A
          DPKEY      RECORD KEY
             DPDEPT  DEPARTMENT CODE              2-5      04 A
          DPNAME     DEPARTMENT NAME              6-35     30 A
          FILLER                                    36     01 A

5.0  SPECIAL OUTPUT MESSAGES:
     -----------------------

          1.  '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 IS RETURNED.  THE PROGRAM SHOULD
              NOT BE EXECUTED UNTIL THE CAMPUS RECORD HAS BEEN
              ENTERED.  THE PROGRAM IS TERMINATED.

          2.  'CONTROL CAMPUS GU FAILURE, STATUS=XX, KEY-VALUE=XXX'

              A CALL TO THE SEGMENT CONTAINING KEY-VALUE '02A' WAS
              ATTEMPED AND FAILED.  THE VALUE OF THE STATUS WILL
              EXPLAIN THE REASON FOR THE FAILURE. THE PROGRAM IS
              TERMINATED.

          3.  'DEPARTMENT GN FAILURE, STATUS=XXX'

              A GET NEXT ON THE DEPARTMENT SEGMENT WAS ATTEMPTED AND
              FAILED.  THE VALUE OF STATUS WILL EXPLAIN THE REASON FOR
              THE FAILURE.  THE PROGRAM IS TERMINATED.

           4. '*** CEN620 TERMINATED ***'

              THIS MESSAGE ACCOMPANIES THE ABOVE MESSAGES AND IS USED
              TO POINT OUT THAT THE PROGRAM ABNORMALLY 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:               9/18/84
          PROGRAMMER NAME:           KATHARINE L. COLLIER
          PROGRAM CHANGE REQUEST NO: N/A
          DESCRIPTION OF CHANGE: N/A

     8.2  VERSION NO:                V3.1
          CHNAGE DATE:               5/26/87
          PROGRAMMER NAME:           CAROL WEAVER
          PROGRAM CHANGE REQUEST NO: STC-SR-173
          DESCRIPTION OF CHANGE:
               CORRECTED PRINTING OF WARNING MESSAGE WHICH INDICATES
               WHEN A DEPARTMENT DESCRIPTION DOES NOT MATCH THE
               MASTER FILE DESCRIPTION.  THIS WAS PRINTING INCORRECTLY
               BECAUSE THE MASTER FILE IS NOT READ FOR INACTIVE
               DEPARTMENTS, BUT THE PROGRAM STILL COMPARED DEPARTMENT
               NAMES FOR ALL DEPARTMENTS (ACTIVE/INACTIVE).  CORRECTED
               PROGRAM SO THAT COMPARISONS ARE DONE FOR ACTIVE
               DEPARTMENTS ONLY.