0.005/27/97 CAROL WILLIS 1.0 PROGRAM NARRATIVE: ----------------- THIS BATCH UPDATE PROGRAM PRINTS THE RETURN AUTHORIZATION FORMS. THE PROGRAM UPDATES THE RETURN RECORDS WITH THE RETURN AUTHORIZATION REQUEST DATE. THE NUMBER OF BOOKS RETURNED IS SUBTRACTED FROM THE INVENTORY ON HAND AND THE INVENTORY DATE IS CHANGED TO THE CURRENT DATE. THE PROGRAM IS EXECUTED BY TERM. ALL RETURNS THAT HAVE NOT BEEN PREVIOUSLY PRINTED CAN BE PRINTED - OR THE PROGRAM HAS THE OPTION TO PRINT ONLY THOSE RETURNS WHOSE RETURN DATE IS THE SAME AS THE DATE ON THE INPUT CARD. THERE IS ALSO AN OPTION TO PRINT ONLY ONE RETURN PER PAGE. 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //CVBKS450 JOB (PPPP,RRRR,9,29),'BKS450',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 ** * * * * * * * * * * * * * * * //* //BKS450 EXEC BKS450,AGENCY= ,COLLEGE= //BKS450.PARMCARD DD * XXXXXXXXXXXXXXXXXXXXXXXXXX /* // 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 = A000) (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 =BK4350) IS USED WITH DISP OF OLD AND THE 'UPDATE' PARAMETER. THE ALTERNATE OPTION IS BKS450@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 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-26 REQUEST DATE PRINTED ON FORM (XX/XX/XX) LEAVE BLANK FOR CURRENT DATE TO PRINT 27-34 OPTIONAL - PRINT ONLY THOSE RETURNS WHOSE RETURN DATE MATCHES (XX/XX/XX) 35 OPTIONAL - PRINT ONLY ONE RETURN PER PAGE VALUE = '1' 3.0 JOB SETUP INSTRUCTIONS: ---------------------- SPECIAL FORMS QUEUE: A000 FORMS BUFFER: STANDARD ALIGNMENT INSTRUCTIONS: STANDARD PRINTED OUTPUT: RETURN AUTHORIZATIONS 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. 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 (UPDATE) 4. PURCHASE ORDER SEGMENT (READ) 5. INVOICE SEGMENT (READ) 6. RETURN SEGMENT (UPDATE) 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. BKS45001 - THIS OPTION RECORD ALLOWS THE USER TO ENTER THE BOOKSTORE ADDRESS TO BE PRINTED ON THE RETURN AUTHORIZATION. (CREDIT TO:) 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. BKS45002 - THIS OPTION RECORD CONTINUES THE BOOKSTORE ADDRESS TO BE PRINTED ON THE RETURN FORM. FIELD POSITION OPTION NAME VALUE PROCESSING DESCRIPTION _______________________________________________________________ 1-30 ] ADDRESS-3 ] ANY ] ENTER THE THIRD LINE OF ] ] VALUE ] THE BOOKSTORE ADDRESS ] ] ] 31-60 ] CONTACT-PERSON ] ANY ] ENTER THE NAME OF THE ] ] VALUE ] CONTACT PERSON ] ] ] 61-75 ] CONTACT-PHONE ] ANY ] ENTER THE PHONE NUMBER OF ] ] VALUE ] THE CONTACT PERSON ] ] ] 76-90 ] SAN-NUMBER ] 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: V6.01 CHANGE DATE: 02/07/96 PROGRAMMER NAME: BOB DODGE PROGRAM CHANGE REQUEST NO: 000014838 DESCRIPTION OF CHANGE: MODIFIED THE PROGRAM TO MOVE 888 TO RETURN CODE FOR PROGRAM ABENDS. 8.5 VERSION NO: V6.10S CHANGE DATE: 05/27/97 PROGRAMMER NAME: PAMELA J. DALRYMPLE PROGRAM CHANGE REQUEST NO: I:00017628 DESCRIPTION OF CHANGE: MODIFIED PROGRAM TO INSURE ALL FILES WERE PROPERLY CLOSED BEFORE NORMAL TERMINATION TO AVOID SC03.