0.003/13/99 DIANE LIVELY 1.0 PROGRAM NARRATIVE ----------------- THIS PROGRAM PRINTS A REPORT THAT SHOWS MAINTENANCE ITEMS. ONLY OBJECT CODES 1253 AND 1274 ARE INCLUDED. THE PROGRAM COMPUTES THE TOTAL BUDGET AMOUNT, TOTAL ENCUMBRANCES, TOTAL EXPENDITURES, AND THE BALANCE FOR EACH OBJECT CODE, FRS ACCOUNT, COST CENTER, CAMPUS, AND FOR THE COLLEGE. THERE IS A PAGE BREAK ON CAMPUS. A SEPARATOR LINE IS PRINTED WHEN THERE IS A CHANGE ON THE COST CENTER. BUDGET TRANSFERS ARE ALSO SHOWN ON THE REPORT. THESE TRANSACTIONS ARE NOT COUNTED IN THE TOTALS. THEY ARE LISTED ON THE REPORT WITH 'BUDGET TRANSFER' AS THE VENDOR AND THE AMOUNT SHOWING WHERE THE BUDGET AMOUNT WOULD NORMALLY APPEAR. NOTE: THIS IS THE FRS VERSION OF ACC970, AND CANNOT BE RUN FOR BUDGET YEARS PRIOR TO 9394. THE BUDGET SEGMENTS AND TRANSACTION SEGMENTS ARE READ FOR THE BUDGET YEAR SPECIFIED ON THE PARMCARD. ONLY RECORDS FOR OBJECT CODES 1253 AND 1274 ARE PROCESSED. THERE IS AN OPTION TO EXCLUDE ONE FRS DEPARTMENT/CAMPUS CODE. THERE IS ALSO AN OPTION TO INCLUDE ONLY ONE FUND GROUP OR ALL. THE RECORDS ARE SORTED BY COST CENTER, FRS ACCOUNT (FUND GROUP, DEPARTMENT, CAMPUS), OBJECT CODE, TYPE OF RECORD (BUDGET, ENCUMBRANCE, EXPENDITURE, OR BUDGET TRANSFER) AND THE TRANSACTION DATE. OTHER FIELDS SHOWN INCLUDE TRANSACTION DESCRIPTION, BATCH NUMBER, PURCHASE ORDER NUMBER, VOUCHER NUMBER, AND STATUS CODE. 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 FRS DEPARTMENT/CAMPUS MASTER IS READ FOR THE FRS 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 ACC410. 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //XXACC670 JOB (WWWW,XXXX,9,29),ACC670, // MSGCLASS=A,CLASS=F,PRTY=3 /*ROUTE PRINT YYYYYYYY //ACC670 EXEC ACC670, // AGENCY=DDD, // COLLEGE=DD, // COPIES=1, // DBTYPE=PROD, // FORM=A000, // QUEUE='*', // RUNTYPE=PROD, // SRTSIZE=3 //ACC670.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. 9394, MUST BE 9394 OR AFTER) 5 - 9 FRS DEPARTMENT/CAMPUS TO EXCLUDE 10 FRS FUND GROUP CODE (SPACE OR '@' FOR ALL) 3.0 JOB SETUP INSTRUCTIONS: ---------------------- SPECIAL FORMS QUEUE: STANDARD FORMS BUFFER: STANDARD ALIGNMENT INSTRUCTIONS: STANDARD PRINTED OUTPUT: FRS ACCOUNTING BUDGET MAINTENANCE REPORT 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) 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 - ACC670 NO PARM RECORD *** FATAL ERROR - ACC670 5.2 *** FATAL ERROR - ACC670 BUDGET YEAR ON PARMCARD IS INVALID *** FATAL ERROR - ACC670 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 - ACC670 BUDGET YEAR MUST BE 9394 OR AFTER FOR FRS *** FATAL ERROR - ACC670 MEANING: THE BUDGET YEAR ON THE PARMCARD IS LESS THAN 9394. USE ACC970 FOR YEARS PRIOR TO FRS. 5.4 *** FATAL ERROR - ACC670 INVALID FUND GROUP CODE ON PARMCARD *** FATAL ERROR - ACC670 MEANING - MUST BE SPACES OR '@' FOR ALL, OR ELSE NUMERIC. 5.5 *** FATAL ERROR - ACC670 FRS DEPARTMENT/CAMPUS ON PARMCARD IS INVALID *** FATAL ERROR - ACC670 MEANING: THE FRS DEPT/CAMPUS ON THE PARMCARD TO EXCLUDE WAS NOT FOUND IN THE CONTROL DATA BASE. 5.6 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: 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: 14672 DESCRIPTION OF CHANGE: FRS VERSION OF ACC970. 8.2 VERSION NO: V6.01 CHANGE DATE: 02/15/96 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: 16468 DESCRIPTION OF CHANGE: CHANGED PROGRAM TO HANDLE BUDGET TRANSFERS (RECORD TYPE 4) AS PRINTED BUT NOT COUNTED IN TOTALS. 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.