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

          THIS PROGRAM PRINTS A BUDGET STATEMENT FOR EACH COST CENTER
     MANAGER.

          THE PROGRAM READS THE BUDGET ITEM SEGMENTS FOR THE BUDGET
     YEAR SPECIFIED ON THE PARMCARD.  THE REPORT SHOWS THE APPROPRIA-
     TION, CAMPUS, DEPARTMENT, OBJECT CODE, OBJECT CODE DESCRIPTION,
     BUDGET AMOUNT, ENCUMBRANCE TOTAL, EXPENDITURE TOTAL, AND THE
     BALANCE.  THE DATA IS SORTED BY COST CENTER, APPROPRIATION, CAMPUS,
     DEPARTMENT, AND OBJECT CODE.

          THE PROGRAM TOTALS THE BUDGET, ENCUMBRANCE, EXPENDITURE,
     AND BALANCE AMOUNTS FOR EACH DEPARTMENT WITHIN COST CENTER, AND
     FOR EACH COST CENTER.  A GRAND TOTAL IS PRINTED AT THE END OF
     THE REPORT.

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

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

     2.1  RUN JCL
          -------

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


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

     SPECIAL FORMS QUEUE:      STANDARD

     FORMS BUFFER:             STANDARD

     ALIGNMENT INSTRUCTIONS:   STANDARD

     PRINTED OUTPUT:           BUDGET STATEMENT BY COST CENTER

     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)

     4.2  ADDITIONAL FILES USED:  NONE

     4.3  INPUT/OUTPUT RECORD LAYOUTS:  N/A


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

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

          MEANING - THE BUDGET YEAR ON THE PARMCARD IS NOT NUMERIC OR
                    ENDING YEAR SUBTRACTED BY 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 IS SHOWN IN THE HEADING.  EVERY
                    BUDGET YEAR ON THE DATA BASE SHOULD HAVE A PROGRAM
                    OPTION SEGMENT.

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:                V3.10
          CHANGE DATE:               01/25/88
          PROGRAMMER NAME:           DIANE LIVELY
          PROGRAM CHANGE REQUEST NO: NONE
          DESCRIPTION OF CHANGE:     RELEASE VERSION

     8.2  VERSION NO:                V4.26
          CHANGE DATE:               08/15/91
          PROGRAMMER NAME:           DIANE LIVELY
          PROGRAM CHANGE REQUEST NO: 8435
          DESCRIPTION OF CHANGE:     CHANGED PROGRAM TO PERFORM A
            PAGE BREAK BEFORE THE COLLEGE TOTAL IS PRINTED.
          PROGRAM CHANGE REQUEST NO: NONE
          DESCRIPTION OF CHANGE:     CHANGED PROGRAM TO COMPILE AND
            LINK UNDER COBOL II STANDARDS.