0.003/13/99 DIANE LIVELY 1.0 PROGRAM NARRATIVE ----------------- THIS PROGRAM WRITES ACCOUNTING/BUDGET SEGMENTS FOR A SPECIFIED BUDGET YEAR TO TAPE AND THEN DELETES THEM FROM THE DATA BASE. THE PROGRAM READS A PARMCARD FOR THE BUDGET YEAR TO BE ARCHIVED. THEN IT READS THE PROGRAM OPTION SEGMENT FOR THE BUDGET YEAR. THE PROGRAM WILL ONLY ARCHIVE THE DATA FOR A BUDGET YEAR WITH A PROGRAM OPTION SEGMENT WHICH INDICATES THAT THE YEAR IS PAST (NOT CURRENT OR FUTURE). THIS IS TO AVOID THE POSSIBILITY OF ARCHIVING DATA WHICH IS STILL NEEDED. EACH BUDGET ITEM SEGMENT AND IT'S TRANSACTION SEGMENTS ARE READ SEQUENTIALLY. AS EACH ONE IS READ, A TAPE RECORD IS WRITTEN. AFTER THE LAST SEGMENT IS WRITTEN, THE BUDGET ITEMS ARE READ AGAIN AND DELETED (THIS ALSO DELETES THE TRANSACTIONS). THE PROGRAM DISPLAYS THE NUMBER OF BUDGET ITEMS AND TRANSACTIONS THAT WERE ARCHIVED AT THE END OF THE JOB. THE ARCHIVED DATA CAN BE RELOADED USING ACC330. 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //XXACC320 JOB (WWWW,XXXX,9,29),ACC320, // 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 ** * * * * * * * * * * * * * * * //* //ACC320 EXEC ACC320, // AGENCY=DDD, // COLLEGE=DD, // IMSNODE=MVS, // RUNTYPE=PROD, // VOLSER= //ACC320.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 TAPE BEING USED TO STORE ARCHIVED DATA (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 ARCHIVE (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. 4.0 FILES: ----- 4.1 DATA BASE SEGMENTS USED ACCOUNTING DATA BASE 1. ACBBUDGT (READ,DELETE) 2. ACBTRANS (READ,DELETE) 4.2 ADDITIONAL FILES USED: TAPEFILE (STORES ARCHIVED DATA) 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 1 A/N CAMPUS 8-10 3 A/N 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 - ACC320 NO PARM RECORD *** FATAL ERROR - ACC320 5.2 *** FATAL ERROR - ACC320 BUDGET YEAR ON PARMCARD IS INVALID *** FATAL ERROR - ACC320 MEANING - THE BUDGET YEAR IS NOT NUMERIC OR ENDING YEAR MINUS BEGINNING YEAR DOES NOT EQUAL +1. 5.3 *** FATAL ERROR - ACC320 BUDGET YEAR ON PARMCARD IS FUTURE OR CURRENT *** FATAL ERROR - ACC320 MEANING - THE BUDGET YEAR MUST BE PAST TO BE ARCHIVED. 5.4 *** FATAL ERROR - ACC320 BUDGET YEAR ON PARMCARD DOES NOT HAVE A PROGRAM OPTION SEGMENT *** FATAL ERROR - ACC320 MEANING - THE PROGRAM WILL NOT ARCHIVE A BUDGET YEAR WITHOUT A PROGRAM OPTION SEGMENT WHICH INDICATES THE BUDGET YEAR IS PAST. 5.5 NO RECORDS FOUND FOR BUDGET YEAR MEANING - NO RECORDS WERE ARCHIVED. CHECK BUDGET YEAR. 6.0 SPECIAL FEATURES ---------------- 6.1 CALLING PROGRAMS: NONE 6.2 SUBPROGRAMS CALLED: NONE 6.3 MESSAGE SEGMENT CODES: NONE 7.0 PROGRAM OPTIONS: ---------------- ACCS00XX - 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 UPDATE 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: V3.13 CHANGE DATE: 09/13/88 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: STC-SR-577 DESCRIPTION OF CHANGE: CHANGED PROGRAM TO STORE THE TRANSACTION DATE IN THE TRANSACTION SEGMENT TO THE TAPE FILE. 8.4 VERSION NO: V5.25 CHANGE DATE: 05/24/95 PROGRAMMER NAME: BOB DODGE PROGRAM CHANGE REQUEST NO: 00014833 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.