0.006/ 1/88 DIANE LIVELY
1.0  PROGRAM NARRATIVE
     -----------------

          THIS PROGRAM PRINTS AN ENCUMBRANCE REGISTER FOR A SPECIFIED
     BUDGET YEAR BY COST CENTER.  THE PROGRAM TOTALS THE ENCUMBRANCE
     AMOUNT FOR EACH DEPARTMENT WITHIN THE COST CENTER AND FOR EACH
     COST CENTER.  THERE IS A PAGE BREAK ON COST CENTER.  AT THE END
     OF THE REPORT, THE GRAND TOTAL AMOUNT IS PRINTED.

          THE PROGRAM READS THE BUDGET ITEM SEGMENTS AND TRANSACTIONS
     IN THE ACCOUNTING BUDGET DATA BASE.  A DETAIL LINE IS PRINTED
     FOR EACH TRANSACTION WITH RECORD TYPE '1' OR '2' FOR THE
     BUDGET YEAR SPECIFIED ON THE PARMCARD.  FIELDS PRINTED INCLUDE
     COST CENTER ID, CAMPUS, DEPARTMENT, APPROPRIATION, SUB-PROGRAM,
     OBJECT CODE, TRANSACTION DESCRIPTION (VENDOR), DATE, REQUISITION
     NUMBER, PURCHASE ORDER NUMBER, AND TRANSACTION AMOUNT.  THE
     DATA IS SORTED BY APPROPRIATION, COST CENTER ID, CAMPUS, AND
     REQUISITION NUMBER.

          THE COLLEGE HEADING IS OBTAINED FROM THE BUDGET CAMPUS MASTER
     IN THE CONTROL DATA BASE (CAMPUS 1).  THE PROGRAM OPTION SEGMENT
     IS READ FOR THE DATE THE DATA BASE WAS LAST UPDATED BY ACC310.

          THIS PROGRAM IS WRITTEN IN DYL-280.

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

     2.1  RUN JCL
          -------

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

          MEANING - THE BUDGET YEAR ON THE PARMCARD WAS NOT NUMERIC

     5.2  "NO RECS FOUND FOR YR"

          MEANING - THERE WERE NO BUDGET ITEM SEGMENTS FOUND FOR
                    THE BUDGET YEAR SPECIFIED ON THE PARMCARD

     5.3  "OPTION NOT FOUND"

          MEANING - THE PROGRAM OPTION SEGMENT FOR THE BUDGET YEAR
                    WAS NOT FOUND.  EVERY BUDGET YEAR ON THE DATA BASE
                    SHOULD HAVE A PROGRAM OPTION SEGMENT.

     5.4  "NO ENC TRANS FOUND"

          MEANING - THERE WERE NO TRANSACTIONS FOUND WITH RECORD
                    TYPE 1 OR 2.

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:               04/28/88
          PROGRAMMER NAME:           DIANE LIVELY
          PROGRAM CHANGE REQUEST NO: NONE
          DESCRIPTION OF CHANGE:     RELEASE VERSION