0.003/15/91 DIANE LIVELY
1.0  PROGRAM NARRATIVE
     -----------------

          THIS PROGRAM PRINTS A PRIOR-YEAR COMPARISON STATEMENT FOR
     EACH COST CENTER MANAGER.  THE PROGRAM TOTALS THE BUDGET FOR THE
     CURRENT YEAR AND EXPENDITURES FOR PRIOR YEARS BY COST CENTER.
     THE REPORT CAN BE SORTED BY DEPARTMENT OR BY OBJECT CODE.  THE
     REPORT INCLUDES THE BUDGET FOR THE CURRENT YEAR AND A MAXIMUM OF
     THREE PRIOR YEARS OF EXPENDITURES.

          THE COST CENTER USED FOR THE CURRENT BUDGET AND FOR EACH
     TRANSACTION IS DETERMINED FROM THE DEPARTMENT MASTER.  PLEASE
     BE AWARE THAT IT IS DIFFICULT TO COMPARE THE DATA IF THERE HAS
     BEEN ALOT OF CHANGES IN THE ASSIGNMENT OF DEPARTMENTS TO COST
     CENTERS.


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

     2.1  RUN JCL
          -------

          //XXACC960  JOB (WWWW,XXXX,9,29),ACC960,
          //        MSGCLASS=A,CLASS=F,PRTY=3
          /*ROUTE  PRINT YYYYYYYY
          //ACC960  EXEC ACC960,
          //    AGENCY=DDD,
          //    COLLEGE=DD,
          //    COPIES=1,
          //    FORM=A000,
          //    QUEUE='*',
          //    RUNTYPE=PROD,
          //    DBTYPE=PROD,
          //    SRTSIZE=3
          //ACC960.PARMCARD DD *
          ----SEE INPUT CARD BELOW----
          /*
          //

     SYMBOLIC DESCRIPTION
     ********************

     REQUIRED -

       AGENCY   COLLEGE AGENCY CODE NUMBER
                (E.G. AGENCY=291)

       COLLEGE  TWO CHARACTER COLLEGE NAME ABBREVIATION
                (E.G. COLLEGE=BR)


     OPTIONAL -

       COPIES   THE NUMBER OF COPIES OF OUTPUT
                DEFAULT:  1
                (E.G. COPIES=3)

       FORM     FORM NUMBER THE REPORT IS TO BE STORED UNDER
                DEFAULT:  A000
                (E.G. FORM=0001)

       QUEUE    QUEUE CLASS THE OUTPUT IS TO BE SPOOLED UNDER
                DEFAULT:  *
                (E.G. QUEUE=A)

       RUNTYPE  INDICATES WHETHER TO USE TEST OR PRODUCTION FILES
                DEFAULT:  PROD
                (E.G. RUNTYPE=TEST)

       DBTYPE   INDICATES WHETHER TO USE TEST OR PRODUCTION DATA BASES
                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
          ----------------

              WWWW     -     PROGRAMMER NUMBER
              XXXX     -     ROOM NUMBER
          YYYYYYYY     -     PRINTER

          INPUT CARD

           CC         DESCRIPTION
           --         -----------
          1 -  4      SORT OPTION
                          OBJ  - SORT BY OBJECT
                          DEPT - SORT BY DEPARTMENT
          5 -  8      CURRENT BUDGET YEAR (I.E. 8788)
          9 - 12      FIRST EXPENDITURE BUDGET YEAR  (I.E. 8586)
         13 - 16      SECOND EXPENDITURE BUDGET YEAR (I.E. 8687)
         17 - 20      THIRD EXPENDITURE BUDGET YEAR  (I.E. 8788)


3.0  JOB SETUP INSTRUCTIONS:
     ----------------------

     SPECIAL FORMS QUEUE:      STANDARD

     FORMS BUFFER:             STANDARD

     ALIGNMENT INSTRUCTIONS:   STANDARD

     PRINTED OUTPUT:           PRIOR YEAR EXPENDITURE COMPARISONS

     FORMS TYPE:               11 X 14 7/8

     SPECIAL INSTRUCTIONS:     A PARMCARD MUST BE PREPARED PRIOR TO
                               RUNNING THIS JOB.

4.0  FILES:
     -----
     4.1  DATA BASE SEGMENTS USED

          CONTROL DATA BASE
          1.  CTLBCAMP (READ ONLY)
          2.  CTLDEPT  (READ ONLY)
          3.  CTLCSTCR (READ ONLY)
          4.  CTLOBJCT (READ ONLY)

          ACCOUNTING DATA BASE
          1.  ACBBUDGT (READ ONLY)
          2.  ACBTRANS (READ ONLY)

     4.2  ADDITIONAL FILES USED:  NONE

     4.3  INPUT/OUTPUT RECORD LAYOUTS:  N/A


5.0  SPECIAL OUTPUT MESSAGES
     -----------------------
     5.1  *** FATAL ERROR - ACC960
          NO PARM RECORD
          *** FATAL ERROR - ACC960

     5.2  *** FATAL ERROR - ACC960
          BUDGET YEAR ON PARMCARD IS INVALID
          *** FATAL ERROR - ACC960

          MEANING:  THE BUDGET YEAR ON THE PARMCARD IS NOT NUMERIC
                    OR THE ENDING YEAR SUBTRACTED BY THE BEGINNING
                    YEAR DOES NOT EQUAL +1.

     5.3  *** FATAL ERROR - ACC960
          INVALID BUDGET YEAR
          *** FATAL ERROR - ACC960

          MEANING:  ONE OF THE EXPENDITURE BUDGET YEARS ON THE
                    PARMCARD COULD NOT BE FOUND IN THE DATA BASE.


6.0  SPECIAL FEATURES
     ----------------
     6.1  CALLING PROGRAMS: NONE
     6.2  SUBPROGRAMS CALLED:  NONE
     6.3  MESSAGE SEGMENT CODES: NONE

7.0  PROGRAM OPTIONS:
     ----------------
     ACCS0XX - WHERE XX EQUALS LAST TWO DIGITS OF THE BUDGET YEAR.

     POSITION  NAME      VALUE    DESCRIPTION

        1      STATUS      P      BUDGET YEAR IS PAST
                           C      BUDGET YEAR IS CURRENT
                           F      BUDGET YEAR IS FUTURE

        2      UPDATE      Y      ACC100 CAN BE USED TO UPDATE DATA
                           N      DO NOT ALLOW ONLINE UDPATE

       3-10    DATE     XX/XX/XX  DATE ACC310 LAST UPDATED THE DATA


8.0  PROGRAM CHANGE HISTORY:
     -----------------------

     8.1  VERSION NO:                V4.03
          CHANGE DATE:               03/24/89
          PROGRAMMER NAME:           DIANE LIVELY
          PROGRAM CHANGE REQUEST NO: NONE
          DESCRIPTION OF CHANGE:     RELEASE VERSION

     8.2  VERSION NO:                V4.21
          CHANGE DATE:               03/15/91
          PROGRAMMER NAME:           DIANE LIVELY
          PROGRAM CHANGE REQUEST NO: 00007554
          DESCRIPTION OF CHANGE:     CHANGED PROGRAM TO OBTAIN THE
            COST CENTER FROM THE CAMPUS/DEPARTMENT SEGMENT INSTEAD OF
            USING WHAT IS IN THE ACCOUNTING BUDGET SEGMENT.