0.010/01/89 DIANE LIVELY 1.0 PROGRAM NARRATIVE ----------------- THIS PROGRAM BUILDS THE BUDGET TRANSACTIONS FOR THE VCCS ACCOUNTING SYSTEM. THE PROGRAM READS THE BUDGET ITEM SEGMENTS FOR THE SPECIFIED BUDGET YEAR TO BUILD THE TRANSACTION RECORDS. THE TRANSACTION DATE IS OBTAINED FROM THE PARMCARD. THE AGENCY CODE IS OBTAINED FROM THE BUDGET CAMPUS 1 RECORD OF THE CONTROL DATA BASE. THE AMOUNTS ON THE TRANSACTION CARDS ARE BROKEN DOWN BY THE FIRST TWO CHARACTERS OF THE OBJECT CODE WITHIN DEPARTMENT, WITHIN CAMPUS. THE PROGRAM CHECKS FOR A CAMPUS/DEPARTMENT RECORD IN THE CONTROL DATA BASE FOR EACH CAMPUS/DEPARTMENT IN THE BUDGET ITEM RECORD AND DISPLAYS A WARNING IF THE RECORD IS NOT FOUND. THE PROGRAM ALSO CHECKS THE PROGRAM OPTION SEGMENT FOR THE BUDGET YEAR. SINCE IT IS UNLIKELY THAT YOU WOULD WANT TO SUBMIT BUDGET RECORDS TO VCCS FOR A BUDGET YEAR WHICH IS OVER, THE PROGRAM WILL TERMINATE IF THE PROGRAM OPTION SEGMENT IS CODED AS SUCH OR IF THE OPTION SEGMENT IS NOT FOUND. THE PROGRAM PRODUCES A TEMPORARY DATA SET OF 80-COLUMN DATA CARDS. JCL STATEMENTS (OBTAINED FROM A PARMLIB) ARE WRAPPED AROUND THE DATA TO CREATE A JOB, WHICH IS TO RUN AT THE HOST AFTER THIS PROGRAM HAS SUCCESSFULLY COMPLETED. 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //XXACC890 JOB (WWWW,XXXX,9,29),ACC890, // MSGCLASS=A,CLASS=F,PRTY=3 /*ROUTE PRINT YYYYYYYY //ACC890 EXEC ACC890, // AGENCY=DDD, // COLLEGE=DD, // JOBNAME=DDDDDDDDDDDD(DDDDDDDD), // RUNTYPE=PROD, // SRTSIZE=3 //ACC890.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) JOBNAME THE DATA SET NAME WHERE THE MISRJE JOB IS TO BE PLACED. (E.G. JOBNAME=SRUSERS.A.DATA(BUDGCARD)) 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) 5 - 10 TRANSACTION DATE (MMDDYY) 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. CTLBCAMP (READ ONLY) 2. CTLDEPT (READ ONLY) 3. CTLPROPT (READ ONLY) ACCOUNTING DATA BASE 1. ACBBUDGT (READ ONLY) 4.2 ADDITIONAL FILES USED: NONE 4.3 INPUT/OUTPUT RECORD LAYOUTS: VCCS BUDGET TRANSACTION FILE POSITION DESCRIPTION SIZE TYPE 01 - 06 TRANSACTION ID (ACT010) 6 A/N 07 - 09 AGENCY CODE 3 A/N 10 - 11 APPROPRIATION 2 A/N 12 - 14 PROGRAM 3 A/N 15 - 16 SUB-PROGRAM 2 A/N 17 - 17 CAMPUS 1 A/N 18 - 20 DEPARTMENT 3 A/N 21 - 24 OBJECT CODE 4 A/N 25 - 44 NOT USED 20 FILL 45 - 50 TRANSACTION DATE (MMDDYY) 6 A/N 51 - 52 NOT USED 2 FILL 53 - 64 AMOUNT (9999999999.99) 12 NUM 65 - 65 STATUS CODE 1 A/N O - OTHER P - PERSONNEL 66 - 80 NOT USED 15 FILL 5.0 SPECIAL OUTPUT MESSAGES ----------------------- 5.1 *** FATAL ERROR - ACC890 NO PARM RECORD *** FATAL ERROR - ACC890 5.2 *** FATAL ERROR - ACC890 BUDGET YEAR ON PARMCARD IS INVALID *** FATAL ERROR - ACC890 MEANING - THE BUDGET YR ON THE PARMCARD WAS NOT NUMERIC OR ENDING YR MINUS BEGINNING YEAR DID NOT = +1. 5.3 *** FATAL ERROR - ACC890 CAMPUS 1 NOT FOUND IN CAMPUS MASTER *** FATAL ERROR - ACC890 MEANING - THE CAMPUS MASTER IS READ TO OBTAIN THE AGENCY CODE. IF CAMPUS 1 IS NOT FOUND IN THE CONTROL DATA BASE, YOU WILL GET THIS MESSAGE. 5.4 *** FATAL ERROR - ACC890 NO PROGRAM OPTION SEGMENT FOUND *** FATAL ERROR - ACC890 MEANING - THIS PROGRAM CHECKS THE PROGRAM OPTION SEGMENT TO BE SURE THE BUDGET YEAR IS NOT PAST. 5.5 *** FATAL ERROR - ACC890 THE BUDGET YEAR SPECIFIED ON THE PARMCARD IS NOT CURRENT OR FUTURE *** FATAL ERROR - ACC890 MEANING - THIS PROGRAM SHOULD NOT BE RUN FOR PAST DATA. ACTION - CHECK THE PARMCARD AND/OR PROGRAM OPTION SEGMENT. 5.6 CAMPUS/DEPT XXXX NOT FOUND IN CAMPUS/DEPT MASTER FOR BUDGET ITEM XXXXXXXXXXXXXXXX 6.0 SPECIAL FEATURES ---------------- 6.1 CALLING PROGRAMS: NONE 6.2 SUBPROGRAMS CALLED: NONE 6.3 MESSAGE SEGMENT CODES: NONE 6.4 PARMLIBS USED: 1. SYS5.SIS.PARMLIB(MISRJE&COLLEGE) //XXMISRJE JOB (WWWW,ZZZZ,1,2),'MISARJE',REGION=320K, // CLASS=Q,MSGLEVEL=(1,1) /*ROUTE PRINT PPPPPPPP //MISRJE EXEC MISRJE,AGENCY=AAA //CARDIN DD * MIS DATA CARDS FOLLOW WHERE XX = COLLEGE NAME ABBREVIATION WWWW = PROGRAMMER NUMBER ZZZZ = ROOM NUMBER PPPPPPPP = PRINTER AAA = AGENCY CODE 2. SYS3.PARMLIB(VCCHSPEF) /* // 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: 01/25/88 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: NONE DESCRIPTION OF CHANGE: RELEASE VERSION 8.2 VERSION NO: V4.05 CHANGE DATE: 06-27-89 PROGRAMMER NAME: KEN BALLARD, TNCC PROGRAM CHANGE REQUEST NO: 3088 DESCRIPTION OF CHANGE: CHANGE PROGRAM TO MOVE SPACES TO BUDGET CARDS PRIOR TO MOVING DATA. 8.3 VERSION NO: V4.06 CHANGE DATE: 09/08/89 PROGRAMMER NAME: DIANE LIVELY, JSRCC PROGRAM CHANGE REQUEST NO: 3483 DESCRIPTION OF CHANGE: CHANGED PROGRAM TO COMPUTE AND DISPLAY THE NUMBER OF CARDS WRITTEN AND TOTAL AMOUNT.