0.005/24/95 BOB DODGE 1.0 PROGRAM NARRATIVE ----------------- THIS PROGRAM READS THE VCCS ACCOUNTING TRANSACTION FILE CREATED BY THE PROGRAM EACCTRN AND ADDS THESE TRANSACTIONS TO THE DATA BASE. IT ALSO UPDATES THE TOTAL ENCUMBRANCE AND TOTAL EXPENDITURE AMOUNTS IN THE BUDGET SEGMENT. THE PROGRAM SRACCTRN IS RUN WEEKLY AT THE HOST TO READ A TEMPORARY FILE CREATED BY THE VCCS ACCOUNTING MISLIST JOB (USING VCCS ACCOUNTING REPORTS ACT807 AND ACT810 TO GENERATE THE TEMPORARY ENCUMBRANCE AND EXPENDITURE TRANSACTION FILE). THESE TRANSACTIONS ARE ACCUMULATED DURING THE BUDGET YEAR. THE FILE CREATED BY SRACCTRN IS THEN BROUGHT TO THE REGION WHERE THIS PROGRAM IS RUN TO UPDATE THE DATA BASE. 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 TO 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 TRANSACTIONS 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 TAPE RECORD AND THE UPDATING WILL BEGIN. THE DATA BASE UPDATE IS ACCOMPLISHED BY THE FOLLOWING STEPS. THE BUDGET ITEM SEGMENTS ARE READ SEQUENTIALLY FOR THE BUDGET YEAR. A SORT RECORD IS BUILT TO STORE THE BUDGET ITEM INFOR- MATION. NEXT, THE BUDGET ITEM SEGMENTS ARE DELETED--THIS ALSO DELETES THE BUDGET ITEMS' TRANSACTIONS. THE BUDGET ITEM SORT RECORDS ARE SORTED ALONG WITH THE VCCS ACCOUNTING TRANSACTIONS BY THE BUDGET KEY (APPROPRIATION, CAMPUS, DEPARTMENT, AND OBJECT CODE) AND RECORD TYPE. AFTER SORTING, THE BUDGET RECORDS AND ALL THE TRANSACTIONS 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 ENXPENDITURE AMOUNTS. IF A TRANSACTION IS FOUND WITHOUT A BUDGET ITEM RECORD, A BUDGET ITEM RECORD IS CREATED WITH A BUDGET AMOUNT OF ZERO. EACH TIME THERE IS A CONTROL BREAK ON CAMPUS/DEPARTMENT OR OBJECT CODE, THE CONTROL DATA BASE IS READ TO FIND THE MASTER RECORD. IF A MASTER CAMPUS/DEPARTMENT 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 ------- //XXACC310 JOB (WWWW,XXXX,9,29),ACC310, // 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 ** * * * * * * * * * * * * * * * //* //ACC310 EXEC ACC310, // AGENCY=DDD, // COLLEGE=DD, // DSNAME=, // IMSNODE=MVS, // RUNTYPE=PROD, // SRTSIZE=3 //ACC310.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 ACCOUNTING TRANSACTION FILE CREATED BY SRACCTRN (E.G. DSNAME=SROPERS.ACCTRAN) LOGTAPE VOLUME SERIAL NUMBER OF THE TAPE BEING USED FOR IMS LOG RECORDS IN UPDATE (ACC310) STEP. (E.G. LOGTAPE=TEST01) RECTAPE VOLUME SERIAL NUMBER OF THE TAPE BEING USED FOR IMS BACKOUT LOG RECORDS. (E.G. RECTAPE=TEST02) OPTIONAL - 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. 8788) 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, A JOB MUST BE RUN AT THE HOST TO 1) DELETE AND CATALOG DATA SET AT THE HOST, 2) EXECUTE MISLIST PROCEDURE TO GET VCCS' DATA, 3) RUN SRACCTRN TO CREATE DATA SET, AND 4) BULK DATA TRANSMIT HOST FILE TO REGION. 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,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: VCCS ACCOUNTING TRANSACTIONS 4.3 INPUT/OUTPUT RECORD LAYOUTS: POS TYPE DESCRIPTION 1 - 1 A/N TYPE RECORD 2 - 3 A/N APPROPRIATION 4 - 6 A/N PROGRAM CODE 7 - 8 A/N SUB-PROGRAM 9 - 9 A/N CAMPUS 10 - 12 A/N DEPARTMENT 13 - 16 A/N OBJECT CODE 17 - 22 A/N REQUISITION NUMBER 23 - 27 A/N PURCHASE ORDER NUMBER 28 - 32 A/N VOUCHER NUMBER 33 - 38 A/N TRANSACTION DATE (MMDDYY) 39 - 39 A/N STATUS CODE 40 - 54 A/N DESCRIPTION 55 - 63 NUM AMOUNT (9999999.99) 5.0 SPECIAL OUTPUT MESSAGES ----------------------- 5.1 **** ACC310 - FATAL ERROR NO PARMCARD--PROGRAM TERMINATED **** ACC310 - FATAL ERROR 5.2 **** ACC310 - FATAL ERROR BUDGET YEAR ON PARMCARD IS INVALID...PROGRAM TERMINATED **** ACC310 - FATAL ERROR 5.3 **** ACC310 - FATAL ERROR PROGRAM OPTION SEGMENT NOT FOUND...PROGRAM TERMINATED **** ACC310 - FATAL ERROR 5.4 **** ACC310 - FATAL ERROR THE BUDGET YEAR SPECIFIED ON THE PARMCARD IS NOT CURRENT AND CANNOT BE PROCESSED **** ACC310 - FATAL ERROR 5.5 **** ACC310 - FATAL ERROR OPTION SEGMENT FOR PREVIOUS YEAR ALSO MARKED CURRENT... PROGRAM TERMINATED **** ACC310 - FATAL ERROR 5.6 **** ACC310 - FATAL ERROR OPTION SEGMENT FOR NEXT YEAR ALSO MARKED CURRENT... PROGRAM TERMINATED **** ACC310 - FATAL ERROR 5.7 **** ACC310 - FATAL ERROR TRANSACTION FILE WAS NOT CREATED IN BUDGET YEAR ON PARMCARD... PROGRAM TERMINATED **** ACC310 - FATAL ERROR 5.8 TRANSACTION FILE CREATED XX/XX/XX 5.9 **** ACC310 - FATAL ERROR RECORD COUNT ON TRAILER RECORD IS NOT THE SAME AS NUMBER OF RECORDS PROCESSED RECORDS PROCESSED - XXXXX TRAILER RECORD COUNT - XXXXX **** ACC310 - FATAL ERROR 5.10 **** ACC310 - FATAL ERROR NO RECORDS ON VCCS ACCOUNTING FILE **** ACC310 - FATAL ERROR 5.11 **** ACC310 - FATAL ERROR NO HEADER RECORD ON VCCS ACCOUNTING FILE **** ACC310 - FATAL ERROR 5.12 **** ACC310 - FATAL ERROR NO TRAILER RECORD ON VCCS ACCOUNTING FILE **** ACC310 - FATAL ERROR 5.13 X-XXX UNDEFINED CAMPUS/DEPARTMENT HAS BEEN ADDED TO THE CAMPUS/DEPARTMENT MASTER 5.14 XXXX UNDEFINED OBJECT CODE HAS BEEN ADDED TO THE OBJECT MASTER 5.15 XX-X-XXX-XXXX UNDEFINED BUDGET ITEM HAS BEEN ADDED TO THE DATA BASE 5.16 CONTROL TOTALS TRANSACTIONS AMOUNT 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: ---------------- 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: 05/13/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: V4.05 CHANGE DATE: 07/03/89 PROGRAMMER NAME: DIANE LIVELY, JSRCC PROGRAM CHANGE REQUEST NO: 00003252 DESCRIPTION OF CHANGE: CHANGED PROGRAM TO MOVE 'A' TO THE ACTIVE-INACTIVE FIELDS IN THE CONTROL SEGMENTS WHICH ARE INSERTED (CTLOBJCT AND CTLDEPT). 8.4 VERSION NO: V5.25 CHANGE DATE: 05/24/95 PROGRAMMER NAME: BOB DODGE PROGRAM CHANGE REQUEST NO: 00014832 DESCRIPTION OF CHANGE: MODIFIED THE PROGRAM TO MOVE '0888' TO RETURN-CODE AFTER A BAD CALL TO IMS.