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

          THIS PROGRAM PRINTS A REPORT THAT SHOWS MAINTENANCE ITEMS.
     ONLY OBJECT CODES 1253 AND 1274 ARE INCLUDED.  THE PROGRAM COMPUTES
     THE TOTAL BUDGET AMOUNT, TOTAL ENCUMBRANCES, TOTAL EXPENDITURES,
     AND THE BALANCE FOR EACH OBJECT CODE, CAMPUS/DEPARTMENT, COST
     CENTER, CAMPUS, AND FOR THE COLLEGE.  THERE IS A PAGE BREAK ON
     CAMPUS.  A SEPARATOR LINE IS PRINTED WHEN THERE IS A CHANGE ON THE
     COST CENTER.

          THE BUDGET SEGMENTS AND TRANSACTION SEGMENTS ARE READ FOR THE
     BUDGET YEAR SPECIFIED ON THE PARMCARD.  ONLY RECORDS FOR OBJECT
     CODES 1253 AND 1274 ARE PROCESSED.  THERE IS AN OPTION TO EXCLUDE
     ONE CAMPUS/DEPARTMENT CODE.  THE RECORDS ARE SORTED BY COST CENTER,
     CAMPUS/DEPARTMENT, OBJECT CODE, TYPE OF RECORD (BUDGET,
     ENCUMBRANCE, OR EXPENDITURE) AND THE TRANSACTION DATE.  OTHER
     FIELDS SHOWN INCLUDE TRANSACTION DESCRIPTION, REQUISITION NUMBER,
     PURCHASE ORDER NUMBER, VOUCHER NUMBER, AND STATUS CODE.

          THE COLLEGE NAME IS OBTAINED FROM THE BUDGET CAMPUS SEGMENT
     IN THE CONTROL DATA BASE (CAMPUS 1).  THE OBJECT CODE MASTER
     IS READ FOR THE OBJECT CODE DESCRIPTION.  THE CAMPUS/DEPARTMENT
     MASTER IS READ FOR THE DEPARTMENT NAME.  THE COST CENTER MASTER
     IS READ FOR THE COST CENTER NAME AND MANAGER'S NAME.  THE CONTROL
     OPTION SEGMENT FOR THE BUDGET YEAR IS READ TO OBTAIN THE DATE
     THE DATA BASE WAS LAST UPDATED BY ACC310.

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

     2.1  RUN JCL
          -------

          //XXACC970  JOB (WWWW,XXXX,9,29),ACC970,
          //        MSGCLASS=A,CLASS=F,PRTY=3
          /*ROUTE  PRINT YYYYYYYY
          //ACC970  EXEC ACC970,
          //    AGENCY=DDD,
          //    COLLEGE=DD,
          //    COPIES=1,
          //    FORM=A000,
          //    QUEUE='*',
          //    RUNTYPE=PROD,
          //    SRTSIZE=3
          //ACC970.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)

       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       BUDGET YEAR (I.E. 8788)
          5 - 8       CAMPUS/DEPARTMENT TO EXCLUDE


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

     SPECIAL FORMS QUEUE:      STANDARD

     FORMS BUFFER:             STANDARD

     ALIGNMENT INSTRUCTIONS:   STANDARD

     PRINTED OUTPUT:           ACCOUNTING BUDGET MAINTENANCE REPORT

     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)
          5.  CTLPROPT (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 - ACC970
          NO PARM RECORD
          *** FATAL ERROR - ACC970

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

          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  PROGRAM OPTION SEGMENT NOT FOUND

          MEANING:  WHEN THE PROGRAM OPTION SEGMENT IS FOUND, THE
                    "AS OF" DATE APPEARS IN THE HEADING.  THERE SHOULD
                    BE A PROGRAM OPTION SEGMENT FOR EVERY BUDGET YEAR
                    ON THE DATA BASE.

     5.4  *** FATAL ERROR - ACC970
          CAMPUS/DEPT ON PARMCARD IS INVALID
          *** FATAL ERROR - ACC970

          MEANING:  THE CAMPUS/DEPT ON THE PARMCARD TO EXCLUDE WAS
                    NOT FOUND IN THE CONTROL 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:
     ----------------
     ACCS00 XX - 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.23
          CHANGE DATE:               05/15/91
          PROGRAMMER NAME:           DIANE LIVELY
          PROGRAM CHANGE REQUEST NO: 7753
          DESCRIPTION OF CHANGE:     RELEASE VERSION