0.005/27/97 CAROL WILLIS 1.0 PROGRAM NARRATIVE: ----------------- THIS BATCH UPDATE PROGRAM COPIES AN OLD TERM OF BOOKSTORE DATA TO THE NEXT YEAR. THE VALUE ON THE INPUT CARD SHOULD BE THE OLD TERM AND YEAR. THE PROGRAM ADDS ONE TO THE YEAR VALUE AND CREATES THE NEW BOOKSTORE DATA FOR THE NEW TERM AND YEAR. DATA COPIED OLD TERM NEW TERM -------- -------- BOOK-YEAR ===> BOOK-YEAR + 1 BOOK-TERM ===> BOOK-TERM COURSE-ID ===> COURSE-ID COURSE-TITLE ===> COURSE-TITLE BOOK-NUMBER ===> BOOK-NUMBER AUTHOR-EDITOR ===> AUTHOR-EDITOR BOOK-PUBLISHER ===> BOOK-PUBLISHER BOOK-TITLE ===> BOOK-TITLE CLASS-SECTIONS ===> CLASS-SECTIONS COPYRIGHT-YR ===> COPYRIGHT-YR DIVISIONS ===> DIVISIONS EDITION ===> EDITION ISBN ===> ISBN QUANTITY-NEEDED ===> ORDERED-LAST-YR QUANTITY-SOLD ===> QTY-USED-LAST-YR QUANTITY-NEEDED = ZERO SHELF-LOCATION ===> SHELF-LOCATION TEXT-REQ'D? ===> TEXT-REQ'D? THE INVENTORY-DATE AND INVENTORY-ON-HAND WILL BE MOVED FROM THE PREVIOUS TERM AND NOT FROM THE LAST YEAR'S TERM. THE INVENTORY-ON-HAND FROM THE PREVIOUS TERM WILL ALSO BE MOVED TO THE BEGINNING-INVENTORY OF THE NEW TERM'S RECORDS. ONE 'NEW' PUBLISHER-CODE AND ONE 'USED' PUBLISHER CODE WILL BE MOVED FROM THE LAST YEARS TERM TO CARRY OVER THE PURCHASE ORDER DATA. ALL OTHER FIELDS IN THE PURCHASE ORDER RECORD WILL BE ZEROED OR SPACED OUT. INVOICE AND RETURN RECORDS WILL NOT BE COPIED OVER. ALL REMARK RECORDS WILL BE COPIED OVER TO THE NEW TERM. --- 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //CVBKS300 JOB (PPPP,RRRR,5,25),'BKS300',CLASS=O, // MSGCLASS=A,MSGLEVEL=(1,1),REGION=2048K /*ROUTE PRINT ZZZZZ /*SETUP ** * * * * * * * * * * * * * * * /*SETUP ** THIS UPDATE JOB WILL REQUIRE TAPE(S) WITH RING /*SETUP ** FROM THE BATCH SCRATCH POOL. /*SETUP ** NEVER REPLY 'U' /*SETUP ** * * * * * * * * * * * * * * * //* //BKS300 EXEC BKS300,COLLEGE= ,AGENCY= //BKS300.PARMCARD DD * IIIIIIII /* // SYMBOLIC DESCRIPTION ******************** AGENCY COLLEGE AGENCY CODE NUMBER (E.G. AGENCY=292) COLLEGE DENOTES THE TWO CHARACTER COLLEGE NAME ABBREVIATION (E.G. COLLEGE=CV) 2.2 INPUT PARAMETERS: ---------------- PPPP - PROGRAMMER NUMBER RRRR - ROOM NUMBER ZZZZ - REMOTE NUMBER INPUT CARD CC DESCRIPTION -- ----------- 1-6 TERM (WINTER, SPRING, SUMMER OR FALL ) 7-8 YEAR (I.E. 87) MUST BE YEAR TO COPY FROM --------- 3.0 JOB SETUP INSTRUCTIONS: ---------------------- SPECIAL FORMS QUEUE: STANDARD FORMS BUFFER: STANDARD ALIGNMENT INSTRUCTIONS: STANDARD PRINTED OUTPUT: NUMBER OF BOOKSTORE SEGMENTS CREATED FORMS TYPE: 11 X 14 SPECIAL INSTRUCTIONS: A HEADER CARD MUST BE PREPARED PRIOR TO RUNNING THIS JOB. 4.0 FILES: ----- 4.1 DATA BASES/SEGMENTS USED ------------------------ CONTROL DATA BASE 1. QUARTER SEGMENT (READ) BOOKSTORE DATA BASE 1. BOOK MASTER (UPDATE) 2. BOOK RECORD (UPDATE) 3. INVENTORY SEGMENT (UPDATE) 4. PURCHASE ORDER SEGMENT (UPDATE) 5. REMARK RECORD SEGMENT (UPDATE) 4.2 ADDITIONAL FILES USED: --------------------- NONE 5.0 SPECIAL OUTPUT MESSAGES: N/A ----------------------- 6.0 SPECIAL FEATURES: ---------------- 6.1 CALLING PROGRAMS: N/A 6.2 SUBPROGRAMS CALLED: N/A 6.3 MESSAGE CODES: N/A 7.0 PROGRAM OPTIONS: N/A --------------- 8.0 PROGRAM CHANGE HISTORY: ---------------------- 8.1 VERSION NO: 3.7 CHANGE DATE: 3/88 PROGRAMMER NAME: CAROL WILLIS PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: NEW RELEASE 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: 08/15/88 PROGRAMMER NAME: CAROL WILLIS PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: MODIFIED JCL PROC - REMOVED &DISP SYMBOLIC PARAMETER SINCE PROGRAM CAN ONLY BE RUN IN THE UPDATE MODE. 8.4 VERSION NO: V6.01 CHANGE DATE: 02/07/96 PROGRAMMER NAME: BOB DODGE PROGRAM CHANGE REQUEST NO: 000014835 DESCRIPTION OF CHANGE: MODIFIED THE PROGRAM TO MOVE 888 TO RETURN CODE FOR ABENDS 8.5 VERSION NO: V6.10S CHANGE DATE: 05/27/97 PROGRAMMER NAME: PAMELA J. DALRYMPLE PROGRAM CHANGE REQUEST NO: I:00017626 DESCRIPTION OF CHANGE: MODIFIED PROGRAM TO INSURE ALL FILES WERE PROPERLY CLOSED BEFORE NORMAL TERMINATION TO AVOID SC03.