0.009/21/98 DIANE LIVELY 1.0 PROGRAM NARRATIVE ----------------- THIS PROGRAM READS THE FRS ACCOUNTING BUDGET FILE CREATED BY THE PROGRAM ACC700 AND BUILDS THE ACCOUNTING BUDGET DATA BASE ON SIS. EACH TIME THIS PROGRAM IS RUN, ALL BUDGET ITEM SEGMENTS AND TRANSACTIONS FOR THE YEAR ARE DELETED AND PUT BACK WITH UP-TO-DATE DATA FROM FRS. THE PROGRAM ACC700 IS RUN AT REGULAR INTERVALS AT THE HOST TO RETRIEVE ORIGINAL AND REVISED BUDGET RECORDS, AS WELL AS BUDGET TRANSFERS, ENCUMBRANCES, AND EXPENDITURE RECORDS, WHICH ACCUMULATE DURING THE YEAR. THE FILE CREATED BY ACC700 IS THEN BROUGHT TO THE REGION WHERE THIS PROGRAM IS RUN TO UPDATE THE DATA BASE. PRIOR TO FRS, THE PROGRAMS SRACCTRN AND ACC310 WERE USED TO GENERATE THE ACCOUNTING BUDGET DATA. AT THAT TIME, THE BUDGET RECORDS WERE MAINTAINED IN SIS INSTEAD OF AT THE HOST, EVEN THOUGH THE TRANSACTIONS ORIGINATED AT THE HOST. AFTER FRS, THE RECORD KEY OF THE BUDGET ITEM SEGMENT WAS REDEFINED FROM APPROPRIATION, CAMPUS, DEPARTMENT, AND OBJECT CODE TO FUND GROUP, FRS DEPARTMENT, FRS CAMPUS, AND OBJECT. REDEFINING FIELDS IN THE BUDGET ITEM SEGMENT ALLOWED THE SAME DATA BASE TO HOUSE FRS DATA WITH THE OLD SO THE USER COULD HAVE ACCESS TO BOTH. A NEW SET OF PROGRAMS WERE WRITTEN TO PROCESS THE FRS DATA FOR BUDGET YEARS 9394 AND AFTER USING THE REDEFINED FIELDS IN THE RECORD KEY AND THE APPROPRIATE FRS MASTER FILES. A PROGRAM OPTION SEGMENT IS READ AND UPDATED AT THE BEGINNING OF THIS PROGRAM. THE PROGRAM OPTION IDENTIFICATION IS ACCS00 AND THE THE OPTION NUMBER IS THE LAST TWO DIGITS OF THE BUDGET YEAR. THIS OPTION SEGMENT STORES THE DATE OF THE LAST UPDATE OF ENCUMBRANCE AND EXPENDITURE DATA AND IS USED TO DETERMINE IF THE BUDGET YEAR IS FUTURE, CURRENT, OR PAST. THIS PROGRAM WILL NOT UPDATE THE DATA BASE FOR A BUDGET YEAR WHICH IS NOT CURRENT. THE PROGRAM ALSO CHECKS THE PREVIOUS AND NEXT BUDGET YEAR IN CASE MORE THAN ONE BUDGET YEAR IS MARKED CURRENT. W A R N I N G : IF THE OPTION SEGMENT IS NOT CODED CORRECTLY, IT IS POSSIBLE (BY SPECIFYING THE WRONG BUDGET YEAR ON THE PARMCARD) TO WIPE OUT THE DATA FOR THE YEAR. THE PROGRAM WILL TERMINATE IF THE BUDGET YEAR ON THE PARMCARD IS FOR A GREATER BUDGET YEAR THAN THE HEADER-TRAILER DATE WOULD FALL IN. IF THE BUDGET YEAR IS LESS THAN THE DATE WOULD INDICATED, THE PROGRAM OPTION RECORD WILL DETERMINE WHETHER THE PROGRAM WILL TERMINATE. IF THE BUDGET YEAR PASSES THE EDIT, THE PROGRAM OPTION RECORD IS UPDATED WITH THE DATE ON THE FIRST RECORD IN THE FILE AND THE UPDATING WILL BEGIN. THE DATA BASE UPDATE IS ACCOMPLISHED BY THE FOLLOWING STEPS. ALL BUDGET ITEM SEGMENTS AND TRANSACTIONS ARE DELETED. THE INPUT RECORDS (CREATED BY ACC700 FROM FRS DATA) ARE SORTED BY THE BUDGET KEY (FUND GROUP, FRS DEPARTMENT, FRS CAMPUS, AND OBJECT CODE) AND RECORD TYPE. AFTER SORTING, THE RECORDS ARE INSERTED IN THE DATA BASE. AFTER THE TRANSACTIONS ARE INSERTED FOR EACH BUDGET ITEM, THE BUDGET ITEM RECORD IS UPDATED TO SHOW THE NEW TOTAL ENCUMBRANCE AND TOTAL EXPENDITURE AMOUNTS, WHICH THE PROGRAM CALCULATED. EACH TIME THERE IS A CONTROL BREAK ON FRS DEPARTMENT/CAMPUS OR OBJECT CODE, THE CONTROL DATA BASE IS READ TO FIND THE MASTER RECORD. IF A MASTER FRS DEPARTMENT/CAMPUS OR MASTER OBJECT RECORD IS NOT FOUND, ONE IS INSERTED. EACH TIME AN UNDEFINED RECORD IS INSERTED, THE PROGRAM DISPLAYS A MESSAGE. 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //XXACC410 JOB (WWWW,XXXX,9,29),ACC410, // MSGCLASS=A,CLASS=O /*ROUTE PRINT YYYYYYYY /*SETUP ** * * * * * * * * * * * * * * * /*SETUP ** THIS UPDATE JOB WILL LOG TO DISK. /*SETUP ** GOSIS REPLY REQUIRED. /*SETUP ** * * * * * * * * * * * * * * * //* //ACC410 EXEC ACC410, // AGENCY=DDD, // COLLEGE=DD, // DSNAME=??????????????, // IMSNODE=MVS, // DBTYPE=PROD, // RUNTYPE=PROD, // SRTSIZE=3 //ACC410.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) DSNAME NAME OF THE DATA SET WHICH CONTAINS THE FRS ACCOUNTING BUDGET FILE CREATED BY ACC700 (E.G. DSNAME=SROPERS.ACCTRAN) OPTIONAL - DBTYPE INDICATES WHETHER TO USE TEST OR PRODUCTION DATA BASES. DEFAULT: PROD (E.G. DBTYPE=TEST) 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 GREATER) 3.0 JOB SETUP INSTRUCTIONS: ---------------------- SPECIAL FORMS QUEUE: STANDARD FORMS BUFFER: STANDARD ALIGNMENT INSTRUCTIONS: STANDARD PRINTED OUTPUT: NONE FORMS TYPE: 11 X 14 7/8 SPECIAL INSTRUCTIONS: PRIOR TO RUNNING THIS JOB, ACC700 MUST BE RUN AT THE HOST TO BUILD A FILE AND TRANSMIT IT TO THE REGION. A PARMCARD MUST BE PREPARED PRIOR TO RUNNING THIS JOB. 4.0 FILES: ----- 4.1 DATA BASE SEGMENTS USED CONTROL DATA BASE 1. CTLFDEPT (READ,INSERT) 2. CTLOBJCT (READ,INSERT) 3. CTLPROPT (READ,REPLACE) ACCOUNTING DATA BASE 1. ACBBUDGT (READ,REPLACE,DELETE,INSERT) 2. ACBTRANS (DELETE,INSERT) 4.2 ADDITIONAL FILES USED: FRS ACCOUNTING BUDGET FILE 4.3 INPUT/OUTPUT RECORD LAYOUTS: POS TYPE DESCRIPTION 1 - 1 A/N TYPE RECORD 2 - 2 A/N FUND GROUP 3 - 6 A/N FRS DEPARTMENT 7 - 7 A/N FRS CAMPUS 8 - 11 A/N OBJECT CODE 12 - 17 A/N REQUISITION NUMBER 18 - 22 A/N PURCHASE ORDER NUMBER 23 - 27 A/N VOUCHER NUMBER 28 - 33 A/N TRANSACTION DATE (MMDDYY) 34 - 34 A/N STATUS CODE 35 - 49 A/N DESCRIPTION 50 - 58 NUM AMOUNT (9999999.99) 59 - 64 A/N BATCH NUMBER 65 - 74 A/N OFFSET ACCOUNT 5.0 SPECIAL OUTPUT MESSAGES ----------------------- 5.1 **** ACC410 - FATAL ERROR NO PARMCARD--PROGRAM TERMINATED **** ACC410 - FATAL ERROR 5.2 **** ACC410 - FATAL ERROR BUDGET YEAR ON PARMCARD IS INVALID...PROGRAM TERMINATED **** ACC410 - FATAL ERROR 5.3 **** ACC410 - FATAL ERROR PROGRAM OPTION SEGMENT NOT FOUND...PROGRAM TERMINATED **** ACC410 - FATAL ERROR 5.4 **** ACC410 - FATAL ERROR THE BUDGET YEAR SPECIFIED ON THE PARMCARD IS NOT CURRENT AND CANNOT BE PROCESSED **** ACC410 - FATAL ERROR 5.5 **** ACC410 - FATAL ERROR OPTION SEGMENT FOR PREVIOUS YEAR ALSO MARKED CURRENT... PROGRAM TERMINATED **** ACC410 - FATAL ERROR 5.6 **** ACC410 - FATAL ERROR OPTION SEGMENT FOR NEXT YEAR ALSO MARKED CURRENT... PROGRAM TERMINATED **** ACC410 - FATAL ERROR 5.7 **** ACC410 - FATAL ERROR TRANSACTION FILE WAS NOT CREATED IN BUDGET YEAR ON PARMCARD... PROGRAM TERMINATED **** ACC410 - FATAL ERROR 5.8 TRANSACTION FILE CREATED XX/XX/XX 5.9 **** ACC410 - FATAL ERROR RECORD COUNT ON TRAILER RECORD IS NOT THE SAME AS NUMBER OF RECORDS PROCESSED RECORDS PROCESSED - XXXXX TRAILER RECORD COUNT - XXXXX **** ACC410 - FATAL ERROR 5.10 **** ACC410 - FATAL ERROR NO RECORDS IN FRS ACCOUNTING FILE **** ACC410 - FATAL ERROR 5.11 **** ACC410 - FATAL ERROR NO HEADER RECORD IN FRS ACCOUNTING FILE **** ACC410 - FATAL ERROR 5.12 **** ACC410 - FATAL ERROR NO TRAILER RECORD IN FRS ACCOUNTING FILE **** ACC410 - FATAL ERROR 5.13 XXXX-X UNDEFINED FRS DEPARTMENT/CAMPUS HAS BEEN ADDED TO THE FRS DEPARTMENT/CAMPUS MASTER 5.14 XXXX UNDEFINED OBJECT CODE HAS BEEN ADDED TO THE OBJECT MASTER 5.15 X-XXXX-X-XXXX UNDEFINED BUDGET ITEM HAS BEEN ADDED TO THE DATA BASE 5.16 CONTROL TOTALS TRANSACTIONS AMOUNT BUDGET AMOUNT TOTALS 999,999 99,999,999.99 BUDGET TRANSFER TOTALS 999,999 99,999,999.99 ENCUMBRANCE TOTALS 999,999 99,999,999.99 EXPENDITURE TOTALS 999,999 99,999,999.99 TOTAL RECORDS - 999999 6.0 SPECIAL FEATURES ---------------- 6.1 CALLING PROGRAMS: NONE 6.2 SUBPROGRAMS CALLED: NONE 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: 14669 DESCRIPTION OF CHANGE: NEW PROGRAM CREATED FROM ACC310 TO WORK FOR FRS. 8.2 VERSION NO: V6.01 CHANGE DATE: 02/15/96 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: 16185 DESCRIPTION OF CHANGE: CHANGED PROGRAM TO HANDLE BUDGET TRANSFERS (RECORD TYPE 4). 8.3 VERSION NO: V7.01 CHANGE DATE: 06/15/98 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: 18005 1) CHANGED PROGRAM NOT TO INSERT AN ACBTRANS FOR 0 AMT. 2) PROGRAM CHANGED TO USE A NEW COPYLIB MEMBER FOR ACBTRANS WITH A NEW FIELD, OFFSET-ACCOUNT. 3) CHANGED PROGRAM FOR NEW COMPILER AND YEAR-2000.