0.003/13/99 DIANE LIVELY 1.0 PROGRAM NARRATIVE ----------------- THIS PROGRAM PRINTS AN FRS BUDGET STATEMENT FOR EACH COST CENTER MANAGER. THIS IS THE FRS VERSION OF ACC900, AND MUST BE RUN FOR BUDGET YEAR '9394' OR AFTER. THE PROGRAM READS THE BUDGET ITEM SEGMENTS FOR THE BUDGET YEAR SPECIFIED ON THE PARMCARD. THE REPORT SHOWS THE FUND GROUP, FRS CAMPUS, FRS DEPARTMENT, OBJECT CODE, OBJECT CODE DESCRIPTION, BUDGET AMOUNT, ENCUMBRANCE TOTAL, EXPENDITURE TOTAL, AND THE BALANCE. THE DATA IS SORTED BY COST CENTER, FUND GROUP, FRS CAMPUS, FRS DEPARTMENT, AND OBJECT CODE. THERE IS AN OPTION TO INCLUDE ONLY ONE FUND GROUP AND ON WHETHER TO INCLUDE OR EXCLUDE PERSONAL SERVICES (OBJECT CODE LESS THAN 1200). THERE IS ALSO AN OPTION ON WHETHER TO PRINT ACCOUNTS WITH ZERO FOR THE BUDGET AMOUNT AND ZERO FOR THE AMOUNT OF ENCUMBRANCES AND EXPENDITURES. THE PROGRAM TOTALS THE BUDGET, ENCUMBRANCE, EXPENDITURE, AND BALANCE AMOUNTS FOR EACH FRS 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 ACC410. THE FRS DEPARTMENT/CAMPUS MASTER IS READ FOR THE FRS 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 ------- //XXACC600 JOB (WWWW,XXXX,9,29),ACC600, // MSGCLASS=A,CLASS=F,PRTY=3 /*ROUTE PRINT YYYYYYYY //ACC600 EXEC ACC600, // AGENCY=DDD, // COLLEGE=DD, // COPIES=1, // DBTYPE=PROD, // FORM=A000, // QUEUE='*', // RUNTYPE=PROD, // SRTSIZE=3 //ACC600.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) DBTYPE INDICATES WHETHER TO USE TEST OR PRODUCTION DATA BASES DEFAULT: PROD (E.G. DBTYPE=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. 9495, 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') 7 OMIT ACCOUNTS WITH ZERO BUDGET, EXPENDITURES AND ENCUMBRANCES 'Y' OR 'N' (DEFAULT = 'N') 3.0 JOB SETUP INSTRUCTIONS: ---------------------- SPECIAL FORMS QUEUE: STANDARD FORMS BUFFER: STANDARD ALIGNMENT INSTRUCTIONS: STANDARD PRINTED OUTPUT: FRS 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. CTLFDEPT (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 - ACC600 NO PARM RECORD *** FATAL ERROR - ACC600 5.2 *** FATAL ERROR - ACC600 BUDGET YEAR ON PARMCARD IS INVALID *** FATAL ERROR - ACC600 MEANING - THE BUDGET YEAR ON THE PARMCARD IS NOT NUMERIC OR ENDING YEAR SUBTRACTED BY BEGINNING YEAR DOES NOT EQUAL +1. 5.3 *** FATAL ERROR - ACC600 BUDGET YEAR ON PARMCARD MUST BE 9394 OR AFTER *** FATAL ERROR - ACC600 MEANING - THE BUDGET YEAR ON THE PARMCARD IS LESS THAN 9394. FOR YEARS PRIOR TO FRS, RUN ACC900. 5.4 *** FATAL ERROR - ACC600 INVALID FUND GROUP CODE ON PARMCARD *** FATAL ERROR - ACC600 MEANING - MUST BE SPACES OR '@' FOR ALL, OR ELSE NUMERIC. 5.5 *** FATAL ERROR - ACC600 INVALID OPTION TO INCLUDE PERSONAL SERVICES *** FATAL ERROR - ACC600 MEANING - MUST BE 'Y' TO INCLUDE OR 'N' OR SPACE TO EXCLUDE. 5.6 *** FATAL ERROR - ACC600 INVALID OPTION TO OMIT ZERO ACCOUNTS *** FATAL ERROR - ACC600 MEANING - MUST BE 'Y' TO OMIT ACCOUNTS WITH 0 FOR THE BUDGET AMOUNT AND EXPENDITURES AND ENCUMBRANCES. USE 'N' OR SPACE TO PRINT EVERY BUDGET RECORD. 5.7 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: UTL100S 6.3 MESSAGE SEGMENT CODES: NONE 7.0 PROGRAM OPTIONS: ---------------- ACCS00 XX - 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 N/A 3-10 DATE XX/XX/XX DATE ACC410 LAST UPDATED THE DATA 8.0 PROGRAM CHANGE HISTORY: ----------------------- 8.1 VERSION NO: V5.17 CHANGE DATE: 10/15/94 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: 14675 DESCRIPTION OF CHANGE: FRS VERSION OF ACC900. 8.2 VERSION NO: V6.05 CHANGE DATE: 07/15/96 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: 16997 DESCRIPTION OF CHANGE: ADD AN OPTION TO OMIT PRINTING ACCOUNTS WITH ZERO FOR THE BUDGET AMOUNT AND AMOUNT OF ENCUMBRANCES AND EXPENDITURES. 8.3 RELEASE V7.02 DATE 09/16/98 PROGRAMMER DIANE LIVELY, JSRCC REQUEST NO NONE DESCRIPTION CHANGED PROGRAM FOR THE NEW COMPILER AND Y2K. PROGRAM NOW CALLS UTL100S FOR CURRENT DATE.