0.010/01/88 LORI J HAUGEN 1.0 PROGRAM NARRATIVE ----------------- THIS PROGRAM PRODUCES A BUDGET STATEMENT BY COST CENTER. THE BUDGET ITEM RECORDS FOR A SPECIFIC BUDGET YEAR ARE READ AND SORTED BY COST CENTER, APPROPRIATION, CAMPUS DEPARTMENT AND OBJECT CODE. THE REPORT SHOWS THE APPROPRIATION, CAMPUS, DEPARTMENT, MAJOR/ OBJECT CODES, OBJECT CODE DESCRIPTIONS, BUDGET AMOUNTS, ENCUMBRANCE AMOUNTS, EXPENDITURE AMOUNTS AND BALANCES. TOTALS ARE GIVEN FOR MAJOR OBJECT CODE, DEPARTMENT, COST CENTER AND COLLEGE. THE BUDGET CAMPUS SEGMENT (CAMPUS 0) 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 ACC310. THE CAMPUS/DEPARTMENT MASTER IS READ FOR THE 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. THE MINOR OBJECT CODES FOR TRAVEL AND EDUCATION ARE FURTHER SUBDIVIDED INTO A MAJOR OBJECT CODE OF 12XX. THE MINOR OBJECT CODES TO BE COLLAPSED INTO THIS CATEGORY ARE OBTAINED FROM THE PROGRAM OPTION SEGMENT. * 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //XXACC901 JOB (WWWW,XXXX,9,29),ACC901, // MSGCLASS=A,CLASS=F,PRTY=3,REGION=2048K /*ROUTE PRINT YYYYYYYY //ACC900 EXEC ACC900, // AGENCY=DDD, // COLLEGE=DD, // COPIES=1, // FORM=A000, // QUEUE='*', // SRTSIZE=3 //ACC900.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) 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: 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. CTLDEPT (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 'INVALID BUDGET YEAR ON PARAMETER CARD' MEANING - THE BUDGET YEAR ON THE PARMCARD IS NOT NUMERIC OR ENDING YEAR SUBTRACTED BY BEGINNING YEAR DOES NOT EQUAL +1. 5.2 'ACCS00XX PROGRAM OPTION SEGMENT NOT FOUND' (WHERE XX = LAST TWO DIGITS OF THE BUDGET YEAR, (I.E., 89) 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: NONE 6.3 MESSAGE SEGMENT CODES: NONE * 7.0 PROGRAM OPTIONS: ---------------- 7.1 ACCS00XX WHERE XX = 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 7.2 ACC90101 FOR USE ONLY WHEN THE TRAVEL/EDUCATION MINOR OBJECT CODES ARE TO BE COLLAPSED INTO THE 12XX MAJOR OBJECT CODE A MAXIMUM OF 22 FOUR CHARACTER MINOR OBJECT CODES (I.E., 1223) CAN BE SPECIFIED FOR INCLUSION IN THE 12XX MAJOR OBJECT CODE CATEGORY. 8.0 PROGRAM CHANGE HISTORY: ----------------------- 8.1 VERSION NO: V3.13 (INITIAL RELEASE) CHANGE DATE: 09/01/88 PROGRAMMER NAME: LORI J HAUGEN, TNCC PROGRAM CHANGE REQUEST NO: N/A