0.009/15/98 DIANE LIVELY 1.0 PROGRAM NARRATIVE ----------------- THIS PROGRAM READS A TAPE CREATED BY ACC320 OF ARCHIVED ACCOUNTING/BUDGET DATA AND PUTS THE DATA BACK IN THE DATA BASE. THE PROGRAM READS A PARMCARD FOR THE BUDGET YEAR TO BE RESTORED. THE DATA BASE IS READ TO BE THERE ARE NO RECORDS ALREADY THERE FOR THAT BUDGET YEAR. THEN THE TAPE IS CHECKED TO BE SURE IT CONTAINS DATA FOR THE BUDGET YEAR SELECTED. IF THE RECORD TYPE IS '0', THE TAPE RECORD CONTAINS BUDGET ITEM DATA. THE CAMPUS/DEPARTMENT, OBJECT CODE, AND COST CENTER ID. IS EDITED AGAINST THE CONTROL DATA BASE. IF A MASTER RECORD IS NOT FOUND, A MESSAGE IS PRINTED. A MESSAGE WILL ALSO BE DISPLAYED IF AN INACTIVE MASTER RECORD IS FOUND. IF A MASTER CAMPUS/DEPARTMENT RECORD DOES NOT MATCH THE TAPE RECORD FOR COST CENTER ID., PROGRAM CODE, OR SUB-PROGRAM, A MESSAGE IS DISPLAYED. IF THE RECORD TYPE IS NOT '0', THE TAPE RECORD CONTAINS TRANSACTION DATA. THE RECORD KEY (BUDGET YEAR, APPROPRIATION, CAMPUS/DEPARTMENT, AND OBJECT CODE) IN THE TAPE RECORD IS COMPARED WITH THE RECORD KEY OF THE PREVIOUSLY INSERTED BUDGET ITEM SEGMENT. IF THEY DO NOT MATCH, THE PROGRAM WILL ABNORMALLY TERMINATE. THE PROGRAM DISPLAYS THE NUMBER OF BUDGET ITEMS AND TRANSACTIONS THAT WERE INSERTED AT THE END OF THE JOB. 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //XXACC330 JOB (WWWW,XXXX,9,29),ACC330, // 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 ** * * * * * * * * * * * * * * * //* //ACC330 EXEC ACC330, // AGENCY=DDD, // COLLEGE=DD, // IMSNODE=MVS, // RUNTYPE=PROD, // VOLSER= //ACC330.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) VOLSER VOLUME SERIAL NUMBER OF THE TAPE CREATED BY ACC320 THAT CONTAINS THE BUDGET-YEAR DATA TO BE RESTORED (E.G. VOLSER=TEST03) 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) 2.2 INPUT PARAMETERS ---------------- WWWW - PROGRAMMER NUMBER XXXX - ROOM NUMBER YYYYYYYY - PRINTER INPUT CARD CC DESCRIPTION -- ----------- 1 - 4 BUDGET YEAR TO BE RESTORED (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: A PARMCARD MUST BE PREPARED PRIOR TO RUNNING THIS JOB. THIS JOB USES A TAPE PREVIOUSLY CREATED BY ACC320. 4.0 FILES: ----- 4.1 DATA BASE SEGMENTS USED ACCOUNTING DATA BASE 1. ACBBUDGT (READ,INSERT) 2. ACBTRANS (INSERT) CONTROL DATA BASE 1. CTLDEPT (READ) 2. CTLCSTCR (READ) 3. CTLOBJCT (READ) 4.2 ADDITIONAL FILES USED: TAPEFILE (ARCHIVED DATA TO BE RESTORED) 4.3 INPUT/OUTPUT RECORD LAYOUTS: LOCATION LENGTH TYPE DESCRIPTION 1- 4 4 A/N BUDGET YEAR (IE. 8788) 5- 6 2 A/N APPROPRIATION 7-10 1 A/N CAMPUS/DEPARTMENT 11-14 4 A/N OBJECT CODE 15 1 A/N TYPE RECORD 16-18 3 A/N COST CENTER ID 19-21 3 NUM PROGRAM CODE 22-23 2 NUM SUB-PROGRAM 24-28 5 NUM AMOUNT S9(7)V99 COMP-3 29-33 5 NUM TOT-ENCUMBRANCE S9(7)V99 COMP-3 34-38 5 NUM TOT-EXPENDITURE S9(7)V99 COMP-3 39-44 6 A/N TRANSACTION DATE 45-59 15 A/N DESCRIPTION 60-64 5 A/N PURCHASE ORDER 65-70 6 A/N REQUISITION 71 1 A/N STATUS CODE 72-76 5 A/N VOUCHER NUMBER 5.0 SPECIAL OUTPUT MESSAGES ----------------------- 5.1 *** FATAL ERROR - ACC330 NO PARM RECORD *** FATAL ERROR - ACC330 5.2 *** FATAL ERROR - ACC330 BUDGET YEAR ON PARMCARD IS INVALID *** FATAL ERROR - ACC330 5.3 *** FATAL ERROR - ACC330 BUDGET YEAR ON PARMCARD ALREADY EXISTS *** FATAL ERROR - ACC330 5.4 *** FATAL ERROR - ACC330 ACBTRANS TAPE-REC IS OUT OF ORDER *** FATAL ERROR - ACC330 5.5 *** FATAL ERROR - ACC330 DATA ON TAPE IS NOT FOR BUDGET YEAR REQUESTED TAPE IS FOR XXXX *** FATAL ERROR - ACC330 5.6 CAMP/DEPT XXXX IS INACTIVE FOR XXXXXXXXXXXXXX 5.7 CAMPUS/DEPT XXXX NOT FOUND IN CONTROL DATA BASE FOR XXXXXXXXXXXXXX PROGRAM CODE - XXX SUB-PROGRAM - XX COST CENTER XXX 5.8 COST CENTER XXX IS INACTIVE FOR XXXXXXXXXXXXXX 5.9 COST CENTER XXX NOT FOUND IN CONTROL DATA BASE FOR XXXXXXXXXXXXXX 5.10 OBJECT CODE XXXX NOT FOUND IN CONTROL DATA BASE FOR XXXXXXXXXXXXXX 5.11 OBJECT CODE XXXX IS INACTIVE FOR XXXXXXXXXXXXXX 5.12 THE COST CENTER XXX FOR BUDGET ITEM XXXXXXXXXXXXXX DOES NOT = CTLDEPT COST CENTER OF XXX 5.13 THE PROGRAM CODE XXX FOR BUDGET ITEM XXXXXXXXXXXXXX DOES NOT = CTLDEPT PROGRAM CODE OF XXX 5.14 THE SUB PROGRAM XX FOR BUDGET ITEM XXXXXXXXXXXXXX DOES NOT = CTLDEPT SUB PROGRAM OF XX 6.0 SPECIAL FEATURES ---------------- 6.1 CALLING PROGRAMS: NONE 6.2 SUBPROGRAMS CALLED: NONE 6.3 MESSAGE SEGMENT CODES: NONE 7.0 PROGRAM OPTIONS: ---------------- NONE 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: V3.13 CHANGE DATE: 09/13/88 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: STC-SR-578 DESCRIPTION OF CHANGE: CHANGED PROGRAM TO CORRECTLY RESTORE RECORD-TYPE IN THE TRANSACTION SEGMENT. 8.4 VERSION NO: V5.25 CHANGE DATE: 05/24/95 PROGRAMMER NAME: BOB DODGE PROGRAM CHANGE REQUEST NO: 00014834 DESCRIPTION OF CHANGE: MODIFIED THE PROGRAM TO MOVE '0888' TO RETURN-CODE AFTER A BAD CALL TO IMS. 8.5 RELEASE V7.02 DATE 09/16/98 PROGRAMMER DIANE LIVELY, JSRCC REQUEST NO NONE DESCRIPTION CHANGED PROGRAM FOR THE NEW COMPILER AND Y2K. ALSO MADE CHANGES FOR FRS.