0.008/15/91 DIANE LIVELY 1.0 PROGRAM NARRATIVE ----------------- THIS PROGRAM PRINTS A DETAILED LISTING OF ENCUMBRANCES AND EXPENDITURES FOR EACH BUDGET ITEM. THE PROGRAM COMPUTES THE TOTAL BUDGET AMOUNT, TOTAL ENCUMBRANCES, TOTAL EXPENDITURES, AND THE BALANCE FOR EACH OBJECT CODE, CAMPUS/DEPARTMENT, COST CENTER, AND FOR THE COLLEGE. THE BUDGET SEGMENTS AND TRANSACTION SEGMENTS ARE READ FOR THE BUDGET YEAR SPECIFIED ON THE PARMCARD. 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. THIS REPORT CAN BE PRINTED FOR ALL COST CENTERS OR ONE SELECTED COST CENTER. 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 ------- //XXACC910 JOB (WWWW,XXXX,9,29),ACC910, // MSGCLASS=A,CLASS=F,PRTY=3 /*ROUTE PRINT YYYYYYYY //ACC910 EXEC ACC910, // AGENCY=DDD, // COLLEGE=DD, // COPIES=1, // FORM=A000, // QUEUE='*', // RUNTYPE=PROD, // SRTSIZE=3 //ACC910.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 - 7 SELECTED COST CENTER (BLANK FOR ALL) 3.0 JOB SETUP INSTRUCTIONS: ---------------------- SPECIAL FORMS QUEUE: STANDARD FORMS BUFFER: STANDARD ALIGNMENT INSTRUCTIONS: STANDARD PRINTED OUTPUT: ENCUMBRANCE/EXPENDITURE REPORT BY COSTCTR 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 - ACC910 NO PARM RECORD *** FATAL ERROR - ACC910 5.2 *** FATAL ERROR - ACC910 BUDGET YEAR ON PARMCARD IS INVALID *** FATAL ERROR - ACC910 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 - ACC910 COST CENTER ON PARMCARD IS INVALID *** FATAL ERROR - ACC910 MEANING: THE COST CENTER ON THE PARMCARD WAS NOT FOUND IN THE COST CENTER MASTER FILE. 5.4 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. 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.14 CHANGE DATE: 05/21/90 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: 00005631 DESCRIPTION OF CHANGE: ADDED AN OPTION TO PRINT REPORT FOR ONE SELECTED COST CENTER. PROGRAM CHANGE REQUEST NO: NONE DESCRIPTION OF CHANGE: CHANGED PROGRAM TO COMPILE AND LINK UNDER COBOL II STANDARDS. 8.3 VERSION NO: V4.26 CHANGE DATE: 08/15/91 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: 00008436 DESCRIPTION OF CHANGE: CHANGED PROGRAM TO PERFORM A PAGE BREAK PRIOR TO PRINTING COLLEGE TOTALS.