0.002/15/96 DIANE LIVELY 1.0 PROGRAM NARRATIVE ----------------- THIS PROGRAM READS THE BUDGET ITEM SEGMENTS FOR A SPECIFIED BUDGET YEAR AND CREATES BUDGET ITEM SEGMENTS FOR THE NEW BUDGET YEAR. THE PROGRAM READS A PARMCARD WHICH GIVES THE BUDGET YEAR OF THE DATA TO USE TO CREATE THE NEW BUDGET AND THE BUDGET YEAR OF THE NEW YEAR. THE OLD BUDGET YEAR IS EDITED TO SEE THAT IT IS VALID AND DOES EXIST IN THE DATA BASE. THE NEW BUDGET YEAR IS THEN EDITED TO SEE THAT IS VALID AND DOES NOT ALREADY EXIST. THE NEW BUDGET YEAR MUST BE GREATER THAN THE OLD BUDGET YEAR. THE PROGRAM OPTION SEGMENT FOR THE NEW BUDGET RECORD IS READ. IF THE SEGMENT DOES NOT EXIST, ONE IS INSERTED WHICH SPECIFIES THE NEW BUDGET YEAR AS FUTURE WITH ONLINE UPDATE CAPABILITY. IF THE OPTION SEGMENT ALREADY EXISTS, THE PROGRAM CHECKS TO BE SURE THE BUDGET YEAR IS NOT CODED AS PAST. THE BUDGET ITEM SEGMENTS ARE READ SEQUENTIALLY FOR THE THE EXISTING YEAR AND RELEASED TO THE SORT. A BUDGET ITEM RECORD WITH A ZERO BUDGET AMOUNT WILL NOT BE INCLUDED UNLESS A TRANS- ACTION RECORD IS FOUND. WHEN THE RECORDS ARE RETURNED FROM THE SORT, THE CONTROL DATA IS CHECKED AGAINST THE CONTROL DATA BASE. IF THE CAMPUS/ DEPARTMENT IS NOT FOUND IN THE CAMPUS/DEPARTMENT MASTER, OR THE OBJECT CODE IS NOT FOUND IN THE OBJECT MASTER, OR THE COST CENTER SPECIFIED IN THE CAMPUS/DEPARTMENT MASTER RECORD IS NOT FOUND IN THE COST CENTER MASTER, THE RECORD WILL NOT BE INSERTED. THE ACTIVE/INACTIVE FIELD IS CHECKED IN THE CAMPUS/DEPARTMENT, OBJECT, AND COST CENTER MASTER FILES. THE PROGRAM WILL DISPLAY A MESSAGE SPECIFYING WHICH BUDGET ITEM WAS NOT INCLUDED AND THE REASON. A MESSAGE WILL ALSO BE DISPLAYED IF THE COST CENTER SPECIFIED IN THE BUDGET RECORD FOR THE PREVIOUS YEAR DOES NOT EQUAL THE COST CENTER SPECIFIED IN THE CAMPUS/DEPARTMENT MASTER. THE COST CENTER IN THE NEW BUDGET RECORD WILL BE FROM THE MASTER FILE. LIKEWISE, A MESSAGE WILL BE DISPLAYED IF THE PROGRAM OR SUB- PROGRAM IN THE MASTER RECORD DOES NOT AGREE WITH THE PREVIOUS BUDGET RECORD. THE THREE AMOUNT FIELDS IN THE SEGMENT (BUDGET AMOUNT, TOT-ENCUMBRANCE, AND TOT-EXPENDITURE) ARE SET TO ZERO. 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //XXACC300 JOB (WWWW,XXXX,9,29),ACC300, // MSGCLASS=A,CLASS=O /*ROUTE PRINT YYYYYYYY /*SETUP ** * * * * * * * * * * * * * * * /*SETUP ** THIS UPDATE JOB WILL REQUIRE TAPE(S) WITH RING /*SETUP ** FROM THE BATCH SCRATCH POOL. /*SETUP ** NEVER REPLY 'U' /*SETUP ** * * * * * * * * * * * * * * * //* //ACC300 EXEC ACC300, // AGENCY=DDD, // COLLEGE=DD, // IMSNODE=MVS, // RUNTYPE=PROD, // SRTSIZE=3 //ACC300.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 - IMSNODE INDICATES WHETHER TO USE PRODUCTION OR DEVELOPMENT SYSTEM DEFAULT: MVS (E.G. IMSNODE=DEV) 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 EXISTING BUDGET YEAR (I.E. 8788) 5 - 8 NEW BUDGET YEAR (I.E. 8889) 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: A PARMCARD MUST BE PREPARED PRIOR TO RUNNING THIS JOB. 4.0 FILES: ----- 4.1 DATA BASE SEGMENTS USED CONTROL DATA BASE 1. CTLDEPT (READ) 2. CTLOBJCT (READ) 3. CTLCSTCR (READ) 4. CTLPROPT (READ,INSERT) ACCOUNTING DATA BASE 1. ACBBUDGT (READ,INSERT) 2. ACBTRANS (READ) 4.2 ADDITIONAL FILES USED: NONE 4.3 INPUT/OUTPUT RECORD LAYOUTS: N/A 5.0 SPECIAL OUTPUT MESSAGES ----------------------- 5.1 *** FATAL ERROR - ACC300 NO PARM RECORD *** FATAL ERROR - ACC300 5.2 *** FATAL ERROR - ACC300 FIRST BUDGET YEAR ON PARMCARD IS INVALID *** FATAL ERROR - ACC300 MEANING - THE "EXISTING" BUDGET YEAR IS NOT NUMERIC OR ENDING YEAR MINUS BEGINNING YEAR DOES NOT EQUAL +1. 5.3 *** FATAL ERROR - ACC300 NEW BUDGET YEAR ON PARMCARD IS NOT FOUND IN DATA BASE *** FATAL ERROR - ACC300 5.4 *** FATAL ERROR - ACC300 NEW BUDGET YEAR ON PARMCARD IS INVALID *** FATAL ERROR - ACC300 MEANING - THE "NEW" BUDGET YEAR IS NOT NUMERIC OR ENDING YEAR MINUS BEGINNING YEAR DOES NOT EQUAL +1. 5.5 *** FATAL ERROR - ACC300 NEW BUDGET YEAR IS NOT GREATER THAN OLD *** FATAL ERROR - ACC300 5.6 *** FATAL ERROR - ACC300 NEW BUDGET YEAR ON PARMCARD ALREADY EXISTS *** FATAL ERROR - ACC300 5.7 *** FATAL ERROR - ACC300 BUDGET YEAR ON PARMCARD FOR THE NEW YEAR IS CODED AS PAST ON THE PROGRAM OPTION *** FATAL ERROR - ACC300 MEANING - THERE IS AN ERROR ON THE PARMCARD OR THE PROGRAM OPTION SEGMENT IS CODED INCORRECTLY. 5.8 BUDGET ITEM XXXXXXXXXXXXXX NOT INSERTED...NO TRANSACTIONS FOUND/HAS 0 BUDGET AMOUNT 5.9 BUDGET ITEM XXXXXXXXXX NOT INSERTED...COST CENTER IN CTLDEPT NOT FOUND 5.10 BUDGET ITEM XXXXXXXXXX NOT INSERTED...CAMP/DEPT IS INACTIVE 5.11 BUDGET ITEM XXXXXXXXXX NOT INSERTED...OBJECT CODE IS INACTIVE 5.12 BUDGET ITEM XXXXXXXXXX NOT INSERTED...COST CENTER FOR DEPT IS INACTIVE 5.13 BUDGET ITEM XXXXXXXXXX NOT INSERTED...CAMP/DEPT NOT FOUND IN CONTROL DATA BASE 5.14 BUDGET ITEM XXXXXXXXXX NOT INSERTED...OBJECT CODE NOT FOUND IN CONTROL DATA BASE. 5.15 THE COST CENTER FOR BUDGET ITEM XXXXXXXXXX HAS BEEN CHANGED 5.16 THE PROGRAM CODE FOR BUDGET ITEM XXXXXXXXXX HAS BEEN CHANGED 5.17 THE SUB-PROGRAM FOR BUDGET ITEM XXXXXXXXXX HAS BEEN CHANGED 6.0 SPECIAL FEATURES ---------------- 6.1 CALLING PROGRAMS: NONE 6.2 SUBPROGRAMS CALLED: NONE 6.3 MESSAGE SEGMENT CODES: NONE 7.0 PROGRAM OPTIONS: ---------------- ACCS0XX - 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 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 8.0 PROGRAM CHANGE HISTORY: ----------------------- 8.1 VERSION NO: V3.10 CHANGE DATE: 02/02/88 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: NONE DESCRIPTION OF CHANGE: RELEASE VERSION 8.2 VERSION NO: V3.11 CHANGE DATE: 06/10/88 PROGRAMMER NAME: ASC PROGRAM CHANGE REQUEST NO: STC-SO-395 DESCRIPTION OF CHANGE: MODIFIED JCL PROC TO; REMOVE LOGTAPE AND RECTAPE PARAMETERS, ADDED RETENTION DATE PROTECTION TO THE TAPES USED FOR IMS LOGGING, ADDED SETUP CARDS TO THE SAMPLE JCL TO INDICATED THAT THE TAPES WILL BE MOUNTED FROM A BATCH SCRATCH POOL. 8.3 VERSION NO: V6.01 CHANGE DATE: 02/07/96 PROGRAMMER NAME: BOB DODGE PROGRAM CHANGE REQUEST NO: 000014832 DESCRIPTION OF CHANGE: MODIFIED THE PROGRAM TO MOVE 888 TO RETURN CODE FOR AN ABEND.