0.0010/15/94 DIANE LIVELY 1.0 PROGRAM NARRATIVE ----------------- THIS PROGRAM PRINTS THE BUDGET FOR A SPECIFIED BUDGET YEAR BY COST CENTER. THE PROGRAM TOTALS THE BUDGET FOR EACH FRS 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 BUDGET AMOUNT IS PRINTED. THIS PROGRAM IS THE FRS VERSION OF ACC800 AND SHOULD ONLY BE RUN FOR BUDGET YEARS 9394 OR AFTER. THE ACCOUNTING BUDGET DATA BASE IS READ FOR BUDGET ITEM SEGMENTS. THERE IS AN OPTION TO INCLUDE ONLY ONE FUND GROUP AND ON WHETHER TO INCLUDE PERSONAL SERVICES (OBJECT CODE LESS THAN 1200). A DETAIL LINE IS PRINTED FOR EACH BUDGET ITEM . FIELDS PRINTED INCLUDE COST CENTER, FUND GROUP, FRS DEPARTMENT, FRS CAMPUS, PROGRAM, SUB-PROGRAM, OBJECT CODE, OBJECT CODE DESCRIPTION, AND BUDGET AMOUNT. THE OBJECT CODE DESCRIPTION IS OBTAINED FROM THE OBJECT MASTER IN THE CONTROL DATA BASE. THE COLLEGE HEADING IS OBTAINED FROM THE BUDGET CAMPUS MASTER IN THE CONTROL DATA BASE (CAMPUS 1). DATA IS SORTED BY FUND GROUP, COST CENTER, FRS DEPARTMENT, AND OBJECT CODE. THIS PROGRAM IS WRITTEN IN DYL-280. 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //XXACC500 JOB (WWWW,XXXX,9,29),ACC500, // MSGCLASS=A,CLASS=F,PRTY=3 /*ROUTE PRINT YYYYYYYY //ACC500 EXEC ACC500, // AGENCY=DDD, // COLLEGE=DD, // COPIES=1, // DBTYPE=PROD, // FORM=A000, // QUEUE='*', // RUNTYPE=PROD, // SRTSIZE=3 //ACC500.PARMCARD DD * ----SEE INPUT CARD BELOW---- /* // SYMBOLIC DESCRIPTION ******************** REQUIRED - AGENCY COLLEGE AGENCY CODE NUMBER (E.G. AGENCY=283) COLLEGE TWO CHARACTER COLLEGE NAME ABBREVIATION (E.G. COLLEGE=SR) OPTIONAL - COPIES THE NUMBER OF COPIES OF OUTPUT. DEFAULT: 1 (E.G. COPIES=3) DBTYPE INDICATES WHETHER TO USE TEST OR PRODUCTION DATA BASES DEFAULT: PROD (E.G. RUNTYPE=TEST) 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. 9394, MUST BE 9394 OR AFTER) 5 FUND GROUP CODE ('@' OR SPACE FOR ALL) 6 INCLUDE PERSONAL SERVICES (OBJECT CODES < 1200) 'Y' OR 'N' (DEFAULT = 'N') 3.0 JOB SETUP INSTRUCTIONS: ---------------------- SPECIAL FORMS QUEUE: STANDARD FORMS BUFFER: STANDARD ALIGNMENT INSTRUCTIONS: STANDARD PRINTED OUTPUT: FRS ACCOUNTING BUDGET 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. CTLOBJCT (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 "CTLBCAMP 1 NOT FOUND" MEANING - THE PROGRAM TERMINATED BECAUSE IT WAS UNABLE TO PRINT THE COLLEGE HEADING. 5.2 "BUDGET YR INVALID" MEANING - THE BUDGET YEAR ON THE PARMCARD WAS NOT NUMERIC OR LESS THAN '9394'. 5.3 "FUND GROUP INVALID" MEANING - THE FUND GROUP CODE ON THE PARMCARD WAS NOT NUMERIC OR EQUAL TO "@' OR SPACE FOR ALL. 5.4 "PERS OPTION INVALID" MEANING - THE PERSONAL SERVICES OPTION MUST BE 'Y', 'N', OR SPACE. 5.5 "NO RECS FOUND FOR YR" MEANING - THERE WERE NO BUDGET ITEM SEGMENTS FOUND FOR THE BUDGET YEAR SPECIFIED ON THE PARMCARD 6.0 SPECIAL FEATURES ---------------- 6.1 CALLING PROGRAMS: NONE 6.2 SUBPROGRAMS CALLED: NONE 6.3 MESSAGE SEGMENT CODES: NONE 7.0 PROGRAM OPTIONS: ---------------- NONE 8.0 PROGRAM CHANGE HISTORY: ----------------------- 8.1 VERSION NO: V5.17 CHANGE DATE: 10/15/94 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: 14674 DESCRIPTION OF CHANGE: FRS VERSION OF ACC800.