0.005/01/89 CAROL WILLIS 1.0 PROGRAM NARRATIVE: ----------------- THIS BATCH PROGRAM PRINTS SELECTED PURCHASE ORDERS FROM THE BOOKSTORE DATA BASE. THE PURCHASE ORDERS MUST HAVE ALREADY BEEN PRINTED IN THE UPDATE MODE. THIS PROGRAM SERIALLY READS THE PURCHASE ORDER SEGMENTS TO FIND THE PURCHASE ORDER NUMBER, OR RANGE OF NUMBERS ON THE INPUT CARD. THE OUTPUT IS THE REPRINTED PURCHASE ORDER. 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //CVBKS650 JOB (PPPP,RRRR,5,25),'BKS650',CLASS=F, // MSGCLASS=A,MSGLEVEL=(1,1),REGION=2048K,PRTY=3 /*ROUTE PRINT ZZZZZ //BKS650 EXEC BKS650,AGENCY= ,COLLEGE= //BKS650.PARMCARD DD * 1ST INPUT CARD (REQUIRED) 2ND INPUT CARD (REQUIRED) /* // 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 1ST INPUT CARD CC DESCRIPTION -- ----------- 1-6 BEGINNING PURCHASE ORDER NUMBER 7-12 ENDING PURCHASE ORDER NUMBER (FOR A RANGE OF ORDERS, OTHERWISE, SPACES) 13 CAMPUS ('@' FOR ALL CAMPUSES) 14 CAMPUS SORT OPTION ('Y' OR 'N') 15 NUMBER OF COPIES OF INVOICES REQUESTED (1-9 OR _) 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') 2.3 JCL EXAMPLES ------------- THIS JCL WILL PRINT PURCHASE ORDERS 000400 THROUGH 000450. ALL CAMPUSES WILL BE SELECTED AND THE SORT WILL BE BY DEPARTMENT WITHIN PURCHASE ORDER NUMBER. //CVBKS650 JOB (PPPP,RRRR,5,25),'BKS650',CLASS=F, // MSGCLASS=A,MSGLEVEL=(1,1),REGION=2048K,PRTY=3 /*ROUTE PRINT ZZZZZ //BKS650 EXEC BKS650,AGENCY=292,COLLEGE=CV //BKS650.PARMCARD DD * 000400000450@N3 07/22/87BESTWAY PREPAIDBESTWAY 09/02/87BOOKSTORE TERMS /* // 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) 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 (READ) PUBLISHER DATA BASE 1. PUBLISHER MASTER SEGMENT (READ) 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 AND BKS35002 --------------------- SEE DOCUMENTATION FOR BKS350 IF THESE OPTIONS ARE NOT SET. 8.0 PROGRAM CHANGE HISTORY: ---------------------- 8.1 VERSION NO: 3.13 CHANGE DATE: 8/88 PROGRAMMER NAME: CAROL WILLIS PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: NEW RELEASE 8.2 VERSION NO: 4.1 CHANGE DATE: 03/13/89 PROGRAMMER NAME: CAROL WILLIS PROGRAM CHANGE REQUEST NO: 00001974 DESCRIPTION OF CHANGE: MODIFIED TO SHOW 'USED' UNDER QUANTITY ORDERED WHEN USED BOOKS ARE NEEDED. SAME MODIFICATION MADE TO BKS350.