0.002/15/96 CAROL WILLIS 1.0 PROGRAM NARRATIVE: ----------------- THIS BATCH UPDATE UPDATE PROGRAM PRINTS THE PURCHASE ORDERS. BY USING THE NON-UPDATE MODE, THE PROGRAM MAY BE RUN AS MANY TIMES AS NEEDED TO ASSURE THAT THE OUTPUT IS CORRECT. IN THE UPDATE MODE, THE PROGRAM PRINTS THE PURCHASE ORDERS AND UPDATES THE LOGICAL RELATIONSHIPS FOR THE PUBLISHER/ BOOK LOGICAL DATA BASE. THE PURCHASE ORDER NUMBER AND PURCHASE ORDER DATE ARE ADDED TO THE PURCHASE ORDER SEGMENTS IN THE UPDATE MODE. 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //CVBKS350 JOB (PPPP,RRRR,5,25),'BKS350',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 ** * * * * * * * * * * * * * * * //* //BKS350 EXEC BKS350,AGENCY= ,COLLEGE= //BKS350.PARMCARD DD * 1ST INPUT CARD (REQUIRED) 2ND INPUT CARD (REQUIRED) 1ST DATA CARD (OPTIONAL) 2ND DATA CARD (OPTIONAL) 3RD DATA CARD (OPTIONAL) /* // SYMBOLIC DESCRIPTION ******************** REQUIRED -------- AGENCY COLLEGE AGENCY CODE NUMBER (E.G. AGENCY=292) COLLEGE DENOTES THE TWO CHARACTER COLLEGE NAME ABBREVIATION (E.G. COLLEGE=CV) OPTIONAL -------- CENSUS = THREE CHARACTER CENSUS DATA BASE IDENTIFIER (DEFAULT = NONE) (E.G. CENSUS=CEN) DISP = INDICATES THE DISPOSITION OF THE DATA BASES FOR THE RUN (DEFAULT = OLD) (E.G. DISP=SHR) FORM = FORM NUMBER THE OUTPUT IS TO BE STORED UNDER (DEFAULT = 8LPI) (E.G. FORM=0001) IMSNODE = INDICATES WHETHER TO USE PRODUCTION OR DEVELOPMENT SYSTEM (DEFAULT = MVS) (E.G. IMSNODE=DEV) PSBOPT = INDICATES THE PSB TO BE USED AND IS RELATED TO THE DISP. (DEFAULT =BKS350) IS USED WITH DISP OF OLD AND THE 'UPDATE' PARAMETER. THE ALTERNATE OPTION IS BKS350@D AND IS USED WITH THE DISP OF SHR AND THE 'NOUPDATE' PARAMETER. QUEUE = QUEUE CLASS THE OUTPUT IS TO SPOOLED UNDER (DEFAULT = '*') (E.G. QUEUE='J') RUNTYPE = INDICATES WHETHER OR NOT 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 = 2) (E.G. SRTSIZE=3) 2.2 INPUT PARAMETERS: ---------------- PPPP - PROGRAMMER NUMBER RRRR - ROOM NUMBER ZZZZ - REMOTE NUMBER 1ST INPUT CARD CC DESCRIPTION -- ----------- 1-8 'UPDATE ' OR 'NOUPDATE' 9 CAMPUS ('@' FOR ALL CAMPUSES) 10-15 TERM (WINTER, SPRING, SUMMER OR FALL ) 16-17 YEAR 18 CAMPUS SORT OPTION ('Y' OR 'N') 19-21 PROCESS OPTION ('ALL' OR 'SEL') TO PROCESS ALL ORDERS OR ONLY SELECTED ORDERS 22 NUMBER OF COPIES OF INVOICES REQUESTED (1-9 OR _) 23-28 BEGINNING PURCHASE ORDER NUMBER MUST BE NUMERIC OR BLANKS (BLANKS FORCE NEXT CONSECUTIVE NUMBER) 2ND INPUT CARD CC DESCRIPTION -- ----------- 1-8 DATE PRINTED (MM/DD/YY) BLANKS WILL FORCE SYSTEM DATE 9-23 SHIP-VIA (USUALLY 'BESTWAY PREPAID') 24-32 ROUTING (USUALLY 'BEST WAY') 33-40 DATE REQUIRED (MM/DD/YY) 41-55 TERMS (USUALLY 'BOOKSTORE TERMS') DATA CARDS CC DESCRIPTION -- ----------- 1-7 USED WITH 'SEL' OPTION. PRINTS SELECTED 8-14 DEPARTMENTS OR COURSES. A MAXIMUM OF 15-21 SEVEN PER LINE. A MAXIMUM OF 3 LINES. ETC (EX. DAPR144ENGR130ECONALL) 2.3 JCL EXAMPLES ------------- THIS JCL WILL EXECUTE THE PURCHASE ORDER PROGRAM IN THE UPDATE MODE. IT SELECTS ALL CAMPUSES, THE SUMMER 1987 TERM AND WILL BE SORTED BY PUBLISHER CODE, DEPARTMENT COURSE NUMBER AND BOOK NUMBER (BUT NOT BY CAMPUS). ALL DEPARTMENTS WILL BE SELECTED. THE BEGINNING PURCHASE ORDER NUMBER WILL BE '000550'. //CVBKS350 JOB (PPPP,RRRR,5,25),'BKS350',CLASS=O, // MSGCLASS=A,MSGLEVEL=(1,1),REGION=2048K /*ROUTE PRINT ZZZZZ /*SETUP (SETUP CARD) //BKS350 EXEC BKS350,AGENCY=292,COLLEGE=CV //BKS350.PARMCARD DD * UPDATE @SUMMER87NALL3000550 07/22/87BESTWAY PREPAIDBESTWAY 09/02/87BOOKSTORE TERMS /* // THIS JCL WILL EXECUTE THE PURCHASE ORDER PROGRAM IN THE NON-UPDATE MODE. IT SELECTS CAMPUS 'A' ONLY FOR WINTER 1988 AND WILL BE SORTED BY PUBLISHER CODE, DEPARTMENT COURSE NUMBER AND BOOK NUMBER (BUT NOT BY CAMPUS). BOOKS FOR ALL ENGLISH CLASSES AND DAPR148 WILL BE SELECTED. THE BEGINNING PURCHASE ORDER NUMBER WILL BE '000580'. //CVBKS350 JOB (PPPP,RRRR,5,25),'BKS350',CLASS=O, // MSGCLASS=A,MSGLEVEL=(1,1),REGION=2048K /*ROUTE PRINT ZZZZZ /*SETUP (SETUP CARD) //BKS350 EXEC BKS350,AGENCY=292,COLLEGE=CV, // PSBOPT=BKS350@D,DISP=SHR //BKS350.PARMCARD DD * NOUPDATEAWINTER88NSEL_000580 10/03/87BESTWAY PREPAIDBESTWAY 11/30/87BOOKSTORE TERMS ENGLALLDAPR148 /* // 3.0 JOB SETUP INSTRUCTIONS: ---------------------- SPECIAL FORMS QUEUE: 8LPI FORMS BUFFER: STANDARD ALIGNMENT INSTRUCTIONS: STANDARD PRINTED OUTPUT: PURCHASE ORDERS FORMS TYPE: 8 X 11 (8 CHAR PER INCH 88 LINES PER PAGE) SPECIAL INSTRUCTIONS: HEADER CARDS MUST BE PREPARED PRIOR TO RUNNING THIS JOB. 4.0 FILES: ----- 4.1 DATA BASES/SEGMENTS USED ------------------------ CONTROL DATA BASE 1. CAMPUS SEGMENT (READ) 2. QUARTER SEGMENT (READ) 3. PROGRAM OPTION SEGMENT (READ) BOOKSTORE DATA BASE 1. BOOK MASTER SEGMENT (READ) 2. BOOK RECORD SEGMENT (READ) 3. INVENTORY SEGMENT (READ) 4. PURCHASE ORDER SEGMENT (UPDATE) PUBLISHER DATA BASE 1. PUBLISHER MASTER SEGMENT (READ) 2. PUBLISHER/BOOK 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: --------------- 1. BKS35001 - THIS OPTION RECORD ALLOWS THE USER TO ENTER THE BOOKSTORE ADDRESS TO BE PRINTED ON THE PURCHASE ORDER. FIELD POSITION OPTION NAME VALUE PROCESSING DESCRIPTION _______________________________________________________________ 1-30 ] BOOKSTORE-NAME ] ANY ] ENTER THE NAME OF ] ] VALUE ] THE BOOKSTORE ] ] ] 31-60 ] ADDRESS-1 ] ANY ] ENTER THE FIRST LINE OF ] ] VALUE ] THE BOOKSTORE ADDRESS ] ] ] 61-90 ] ADDRESS-2 ] ANY ] ENTER THE SECOND LINE OF ] ] VALUE ] THE BOOKSTORE ADDRESS 1. BKS35002 - THIS OPTION RECORD CONTINUES THE BOOKSTORE ADDRESS TO BE PRINTED ON THE PURCHASE ORDER. FIELD POSITION OPTION NAME VALUE PROCESSING DESCRIPTION _______________________________________________________________ 1-30 ] ADDRESS-3 ] ANY ] ENTER THE THIRD LINE OF ] ] VALUE ] THE BOOKSTORE ADDRESS ] ] ] 31-60 ] ADDRESS-4 ] ANY ] ENTER THE FOURTH LINE OF ] ] VALUE ] THE BOOKSTORE ADDRESS ] ] ] 61-90 ] ADDRESS-3 ] ANY ] ENTER THE 'SAN' NUMBER OF ] ] VALUE ] THE BOOKSTORE 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 - TOOK &DISP PARAMETER OFF OF THE CTLDBD, SINCE THIS DATA BASES IS NOT UPDATED BY THE PROGRAM. CLARIFIED DOCUMENTATION BY ADDING THE LIST OF OPTIONAL SYMBOLIC PARAMETERS. 8.4 VERSION NO: V4.1 CHANGE DATE: 03/13/89 PROGRAMMER NAME: CAROL WILLIS PROGRAM CHANGE REQUEST NO: 00001965 DESCRIPTION OF CHANGE: WHEN A PUBLISHER HAS ORDERS FOR USED BOOKS, PRINT 'USED' UNDER THE QUANTITY ORDERED. 8.5 VERSION NO: V4.08 CHANGE DATE: 11/02/89 PROGRAMMER NAME: CAROL WILLIS PROGRAM CHANGE REQUEST NO: 00004274 DESCRIPTION OF CHANGE: FIXED PROBLEM OF NOT UPDATING THE DATA BASE WITH THE PURCHASE ORDER NUMBERS. 8.6 VERSION NO: V6.01 CHANGE DATE: 02/07/96 PROGRAMMER NAME: BOB DODGE PROGRAM CHANGE REQUEST NO: 00014836 DESCRIPTION OF CHANGE: MODIFIED THE PROGRAM TO MOVE 888 TO RETURN CODE FOR PROGRAM ABENDS.