0.001/15/92 DIANE LIVELY 1.0 PROGRAM NARRATIVE ----------------- THIS PROGRAM PRINTS A BUDGET STATUS REPORT. IT ALLOWS THE USER TO SELECT WHICH BUDGET ITEMS TO INCLUDE IN A TOTAL AND THE DESCRIPTION TO PRINT FOR THE TOTAL. A TABLE IS BUILT FROM THE PARMCARDS. (PLEASE SEE INPUT CARD #2.) THE LAST PARMCARD SHOULD SPECIFY ALL COST CENTERS, ALL CAMPUS/DEPARTMENTS, AND ALL OBJECT CODES SO THE LAST TOTAL WILL REFLECT ALL THE BUDGETS NOT PREVIOUSLY SPECIFIED. THERE IS AN OPTION TO PRINT A SUMMARY REPORT, WHICH SHOWS TOTAL BUDGET, ENCUMBRANCES, EXPENDITURES, BALANCE, AND PERCENT OF THE BUDGET AMOUNT (IF BALANCE IS GREATER THAN ZERO). THERE IS AN OPTION TO PRINT A DETAIL REPORT, WHICH LISTS THE COST CENTER, CAMPUS/DEPARTMENT, OBJECT CODE, VOUCHER NUMBER, VOUCHER DATE, PURCHASE ORDER NUMBER, REQUISITION NUMBER, BUDGET AMOUNT, AND EXPENDITURE OR ENCUMBRANCE AMOUNT, IN ADDITION TO THE SUMMARY INFORMATION. THERE IS ALSO AN OPTION TO PRINT BOTH REPORTS. FOR EACH BUDGET ITEM IN THE SELECTED BUDGET YEAR, THE TABLE GENERATED FROM THE PARMCARDS IS SEARCHED. THE BUDGET AMOUNT IS ADDED TO THE BUDGET COUNTER IN THE TABLE WHEN A MATCH IS FOUND FOR COST CENTER, CAMPUS/DEPARTMENT, AND OBJECT CODE. IF A BUDGET ITEM DOES NOT FALL INTO A PREVIOUS CATEGORY, IT IS INCLUDED IN THE LAST ENTRY OF THE TABLE, WHICH IS CODED FOR 'MISCELLANEOUS' ITEMS. THE PROGRAM DISPLAYS INFORMATION ON THE COMPOSITION OF THIS MISCELLANEOUS TOTAL WHEN THE SUMMARY REPORT IS PRINTED. THERE IS AN OPTION, HOWEVER, TO OMIT THESE DISPLAYS. EXPENDITURE AND ENCUMBRANCE AMOUNTS ARE ALSO ADDED TO THE TABLE IF THE BUDGET ITEM HAS TRANSACTIONS. IF A DETAIL REPORT IS REQUESTED, A SORT RECORD IS GENERATED AT THIS TIME WHICH CONTAINS THE TABLE ENTRY NUMBER FOR WHICH IT BELONGS AND THE DETAIL INFORMATION. AFTER ALL THE BUDGET ITEM AND TRANSACTION SEGMENTS ARE READ FOR THE BUDGET YEAR, THE REPORT IS GENERATED BY PRINTING THE TABLE AND/OR THE TABLE IN CONJUNCTION WITH THE SORT RECORDS. THERE IS AN OPTION TO CONTROL WHETHER THE PRINTING OF THE MISCELLANEOUS TOTALS AND GRAND TOTALS WILL APPEAR ON A SEPARATE PAGE OR AT THE END OF THE REPORT. 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //XXACC950 JOB (WWWW,XXXX,9,29),ACC950, // MSGCLASS=A,CLASS=F,PRTY=3 /*ROUTE PRINT YYYYYYYY //ACC950 EXEC ACC950, // AGENCY=DDD, // COLLEGE=DD, // RUNTYPE=PROD, // DBTYPE=PROD, // FORM=A000, // QUEUE='*', // COPIES=1 // FORM2=A000, // QUEUE2='*', // COPIES2=1, // SRTSIZE=3 //ACC950.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 INDICATES THE NUMBER OF COPIES OF THE SUMMARY REPORT DEFAULT: 1 (E.G. COPIES=3) COPIES2 INDICATES THE NUMBER OF COPIES OF THE DETAIL REPORT DEFAULT: 1 (E.G. COPIES2=3) DBTYPE INDICATES WHETHER TO USE TEST OR PRODUCTION DATA BASES DEFAULT: PROD (E.G. DBTYPE=TEST) FORM FORM NUMBER THE SUMMARY REPORT IS TO BE STORED UNDER DEFAULT: A000 (E.G. FORM=0001) FORM2 FORM NUMBER THE DETAIL REPORT IS TO BE STORED UNDER DEFAULT: A000 (E.G. FORM2=0001) QUEUE QUEUE CLASS THE SUMMARY REPORT IS TO BE SPOOLED UNDER DEFAULT: * (E.G. QUEUE=J) QUEUE2 QUEUE CLASS THE DETAIL REPORT IS TO BE SPOOLED UNDER DEFAULT: * (E.G. QUEUE2=J) 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 #1 CC DESCRIPTION -- ----------- 1 - 4 BUDGET YEAR (I.E. 8788) 5 REPORT OPTION - "S" FOR SUMMARY REPORT "D" FOR DETAIL REPORT "B" FOR BOTH REPORTS 6 TOTAL OPTION - "Y" PRINT MISC & GRAND TOTALS ON NEW PAGE "N" OR " " TO PRINT ON SAME PAGE 7 MISC. OPTION - "Y" OR " " TO HAVE MISCELLANEOUS ITEMS DISPLAYED "N" TO OMIT DISPLAYS INPUT CARD #2 (YOU CAN HAVE UP TO 400 OF THESE.) CC DESCRIPTION -- ----------- HEADING CARDS 1 - 2 LEVEL (I.E. L1, L2, L3) 3 - 72 DESCRIPTION (I.E. RENT, DUPLICATING, HEAT) DETAIL CARDS 1 - 2 BLANK 3 - 5 COST CENTER ID OR 'ALL' 6 BLANK 7 - 10 CAMPUS/DEPARTMENT OR 'ALL' 11 BLANK 12 - 15 OBJECT CODE OR 'ALL' EXAMPLE: //ACC950.PARMCARD DD * 8788SNY L1GENERAL ACADEMIC DIVISIONS L2CAMPUS A L3PROVOST OFFICE - CAMPUS A 100 2200 1425 100 2201 ALL L3STUDENT SERVICES 200 ALL ALL L1MISCELLANEOUS ALL ALL ALL /* 3.0 JOB SETUP INSTRUCTIONS: ---------------------- SPECIAL FORMS QUEUE: STANDARD FORMS BUFFER: STANDARD ALIGNMENT INSTRUCTIONS: STANDARD PRINTED OUTPUT: BUDGET STATUS REPORT FORMS TYPE: 11 X 14 7/8 SPECIAL INSTRUCTIONS: PARMCARDS 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 *** FATAL ERROR - ACC950 NO PARMCARD RECORD *** FATAL ERROR - ACC950 5.2 *** FATAL ERROR - ACC950 BUDGET YEAR ON PARMCARD IS INVALID *** FATAL ERROR - ACC950 MEANING - BUDGET YEAR ON THE PARMCARD IS NOT NUMERIC OR ENDING YEAR SUBTRACTED BY BEGINNING YEAR IS NOT EQUAL TO +1. 5.3 *** FATAL ERROR - ACC950 INVALID REPORT OPTION *** FATAL ERROR - ACC950 MEANING - THE REPORT OPTION MUST BE 'S', 'D', OR 'B' 5.4 *** FATAL ERROR - ACC950 INVALID PRINT-MISC OPTION *** FATAL ERROR - ACC950 MEANING - THE MISC. OPTION MUST BE 'Y', 'N', OR ' ' 5.5 *** FATAL ERROR - ACC950 INVALID TOTAL OPTION *** FATAL ERROR - ACC950 MEANING - THE TOTAL OPTION MUST BE 'Y', 'N', OR ' ' 5.6 *** FATAL ERROR - ACC950 TABLE OVERFLOW *** FATAL ERROR - ACC950 MEANING - THE TABLE WHICH HOLDS THE PARMCARD DATA IS TOO SMALL. YOU CANNOT HAVE MORE THAN 400 PARMCARDS. 5.7 OPTION SEGMENT NOT FOUND MEANING - THE PROGRAM OPTION SEGMENT IN THE CONTROL DATA BASE FOR THE BUDGET YEAR (ACCS00XX) WAS NOT FOUND. IT WAS READ IN ORDER TO GET THE DATE THE DATA BASE WAS LAST UPDATED BY ACC310. 5.8 ITEMS PLACED IN MISCELLANEOUS FIELD COST CAMPUS OBJECT CENTER DEPT CODE AMOUNT XXX XXXX XXXX 99999999.99 XXX THIS INFORMATION IS DISPLAYED (WHEN THE OPTION IS SET TO ALLOW THIS) FOR ITEMS THAT COMPOSE THE MISCELLANEOUS GROUP. THE FIELD TO THE RIGHT OF THE AMOUNT INDICATES WHETHER THE AMOUNT WAS A BUDGET AMOUNT, ENCUM- BRANCE, OR EXPENDITURE. 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.07 CHANGE DATE: 10/05/89 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: 00004015 DESCRIPTION OF CHANGE: INCREASE TABLE SIZE FROM 350 TO 400. 8.3 VERSION NO: V4.08 CHANGE DATE: 10/23/89 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: 00003777 DESCRIPTION OF CHANGE: ADDED AN OPTION TO PRINT A DETAIL REPORT. 8.4 VERSION NO: V4.30 CHANGE DATE: 01/15/92 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: 00009184 DESCRIPTION OF CHANGE: - ADDED AN OPTION TO CONTROL WHETHER A PAGE BREAK WILL BE TAKEN PRIOR TO PRINTING THE MISCELLANEOUS AND GRAND TOTALS. - ADDED AN OPTION TO CONTROL WHETHER THE ITEMS WHICH MAKE UP THE MISCELLANEOUS TOTAL WILL BE DISPLAYED.