0.001/15/91 MARIE GORDON 1.0 PROGRAM NARRATIVE: ------------------ THIS BATCH PROGRAM IS DESIGNED TO GENERATE THE BOOKSTORE INVENTORY PROGRAM. IT IS A COMPREHENSIVE LISTING OF THE INVENTORY, PURCHASE ORDER, INVOICE AND RETURN SEGMENTS OF THE BOOKSTORE DATA BASE. THIS PROGRAM ALLOWS THE USER THE OPTION OF GENERATING AN INVENTORY REPORT FOR "ALL" CAMPUSES OF THE COLLEGE OR JUST ONE SPECIFIC CAMPUS. THE INVENTORY REPORT PRODUCED CAN BE ORDERED BY COURSE OR BY PUBLISHER; DEPENDING UPON THE INVENTORY OPTION SELECTED BY THE USER. THE USER ALSO DETERMINES HOW THE RECORDS ARE TO BE SORTED, WITH SPECIAL REGARD TO DIVISION CODES. THIS PROGRAM ALSO PRINTS AN EXCEPTION REPORT. THE EXCEPTION REPORT IS A LIST OF ALL CLASSES THAT DO NOT REQUIRE A TEXTBOOK. THE FOLLOWING DATA ELEMENTS WILL BE PRINTED: BOOKMSTR SEGMENT FLDS. ---------------------- CAMPUS DEPARTMENT COURSE NUMBER COURSE TITLE (ON EXCEPTION REPORT ONLY) BKREC SEGMENT FLDS. ------------------- AUTHOR/EDITOR BOOK TITLE DIVISION CODES (EACH BOOK HAS AT LEAST 1 CODE; MAXIMUM OF 3) EDITION NUMBER EDITION COMMENT ISBN (INTERNATIONAL STANDARD BOOK NUMBER) INVREC SEGMENT FLDS. -------------------- NEW/USED KEY (TO DISTINGUISH BETWEEN INVENTORY RECORDS) BEGINNING INVENTORY INVENTORY DATE INVENTORY ON HAND QUANTITY SOLD PORDREC SEGMENT FLDS. --------------------- PUBLISHER CODE PURCHASE ORDER NUMBER PURCHASE ORDER DATE PURCHASE ORDER QUANTITY INVOICE SEGMENT FLDS. --------------------- INVOICE NUMBER INVOICE DATE INVOICE DATE RECEIVED MARKUP PERCENT QUANTITY RECEIVED RETAIL PRICE COST PRICE RETNREC SEGMENT FLDS. --------------------- RETURN DATE RETURN QUANTITY RETURN CODE PUBLMSTR SEGMENT FLDS. ---------------------- PUBLISHER NAME 2.0 SAMPLE JCL ---------- 2.1 RUN JCL ------- //CVBKS520 JOB (PPPP,RRRR,N,NN),'BKS520',CLASS=F, // PRTY=3,MSGCLASS=A,MSGLEVEL=(1,1) /*ROUTE PRINT ZZZZZ //STEP1 EXEC BKS520,COLLEGE=II,AGENCY=AAA //PARMCARD DD * XXXXXXXXXXXXXX /* // PPPP - PROGRAMMER NUMBER RRRR - ROOM NUMBER ZZZZ -REMOTE NUMBER THE USER SHOULD SUPPLY A VALID JOB CARD FOR THIS PROCEDURE CONFORMING TO SYSTEM STANDARDS. SYMBOLIC PARAMETERS ******************* REQUIRED - THE FOLLOWING SUBSTITUTIONS MUST BE PERFORMED ON THE ABOVE JCL'S SYMBOLIC PARAMETERS: AGENCY AAA - ENTER YOUR COLLEGE'S AGENCY CODE NUMBER (E.G. AGENCY=292) COLLEGE II - ENTER YOUR COLLEGE'S TWO CHARACTER NAME ABBREVIATION (E.G. COLLEGE=CV) 2.2 INPUT PARAMETERS : ------------------ * THE USER SHOULD PREPARE A PARAMETER/HEADER CARD AND PLACE IT AFTER THE "//BKS520 PARMCARD DD" CARD USING THE FOLLOWING DIRECTIONS : CC CONTENTS -- -------- 01-06 NAME OF THE TERM YOU DESIRE THE INVENTORY REPORT PRINTED FOR (I.E. 'FALL '). 07-08 LAST TWO DIGITS OF THE YEAR ASSOCIATED WITH THE NAME OF TERM (I.E. '87') 09 CAMPUS CODE FOR INVENTORY REPORT VALID ENTRIES ARE : '@' - FOR ALL CAMPUSES 'A' - A VALID CAMPUS CODE AT YOUR COLLEGE 10-13 INVENTORY OPTION VALID ENTRIES ARE : 'CRS ' - REPORT PRINTED BY COURSE 'PUBL' - REPORT PRINTED BY PUBLISHER 14 SORT OPTION STANDARD SORT - ENTER A BLANK DETAILED SORT - ENTER A 'D' STANDARD SORT - SORT ALL OF THE FOLLOWING FLDS IN ASCENDING ORDER : CAMPUS, DEPT, COURSE & BOOKNUM, PUBLISHER CODE (OPTIONAL) DETAILED SORT - SORT ALL OF THE FOLLOWING FLDS IN ASCENDING ORDER : CAMPUS, DIV, DEPT, COURSE & BOOKNUM, PUBLISHER CODE (OPTIONAL) 3.0 JOB SETUP INSTRUCTIONS : ------------------------ SPECIAL FORMS QUEUE : STANDARD FORMS BUFFER : STANDARD ALIGNMENT INSTRUCTIONS : MAKE SURE PRINTER IS AT TOP OF PAGE; NOT MORE THAN 6 LINES FOR TOP MARGIN PRINTED OUTPUT : INVENTORY REPORT FORMS TYPE : STOCK 11 * 14 SPECIAL INSTRUCTIONS : 4.0 FILES: ----- 4.1 DATA BASES USED: CONTROL DATA BASE 1. CTLQUART (READ ONLY) 2. CTLDIVM (READ ONLY) 3. CTLCAMPM (READ ONLY) COURSE DATA BASE 1. CRSDEPT (READ ONLY) 2. CRSSEGM (READ ONLY) BOOK STORE DATA BASE 1. BOOKMSTR (READ ONLY) 2. BOOKREC (READ ONLY) 3. INVREC (READ ONLY) 4. PORDREC (READ ONLY) 5. INVOICE (READ ONLY) 6. RETNREC (READ ONLY) PUBLISHER DATA BASE (PBL) 1. PUBLMSTR (READ ONLY) 4.2 ADDITIONAL FILES USED: 1. PRINT-FILE PRINT FILE (INVENTORY REPORT) 2. INVENTORY-FILE (FILE OF DESIRED DATA BASE RECORDS) 3. SORTED-FILE (SORTED FILE OF DESIRED DATA BASE RECORDS) 4. CLASS-FILE (USED FOR EXCEPTION REPORT) 5. SRT-CLASS-FILE (SORTED FILE FOR EXCEPTION REPORT) 6. SORT-FILE (WORK FILE #1) 7. SORT-FILE2 (USED FOR EXCEPTION REPORT) 8. PARM-CARD-FILE (CARD FILE - SUPPLIES USER INPUT PARAMETERS) 4.3 INPUT/OUTPUT RECORD LAYOUTS: N/A 5.0 SPECIAL FEATURES: ---------------- 5.1 CALLING PROGRAMS: NONE 5.2 SUBPROGRAMS CALLED: UTL550S 5.3 MESSAGE SEGMENT CODES: N/A 5.4 SPECIAL OUTPUT MESSAGES : ------------------------- 1. ERROR - * PARMCARD DD STATEMENT IS MISSING * MEANING: YOUR JOB CONTROL STATEMENTS ARE NOT CORRECT. YOU ARE MISSING THE INDICATED STATEMENT. ACTION: SUPPLY THE MISSING STATEMENT. RE-RUN JOB. 2. ERROR - * NO PARAMETER RECORD WAS FOUND FOLLOWING DD STATEMENT * MEANING: YOU LEFT OUT OR MISPLACED THE PARAMETER CARD IN THE DECK. ACTION: SUPPLY THE PARAMETER CARD IN THE CORRECT PLACE. RE-RUN JOB. 3. ERROR - * NAME OF TERM IS INVALID * MEANING: NAME OF TERM SUPPLIED ON THE PARAMETER CARD IS NOT WINTER, SPRING, SUMMER, OR FALL. ACTION: SUPPLY THE CORRECT TERM AND RE-RUN JOB. 4. ERROR - * YEAR IS NOT NUMERIC - RUN ABORTED * MEANING: YEAR SUPPLIED ON THE PARAMETER CARD IS NOT NUMERIC (00-99). ACTION: SUPPLY THE CORRECT YEAR AND RE-RUN JOB. 5. ERROR - * YEAR NOT FOUND ON CTLQUART * MEANING: YEAR SUPPLIED ON THE PARAMETER CARD DOES NOT EXIST ON THE CONTROL DATA BASE. ACTION: SUPPLY A YEAR THAT EXISTS ON THE CONTROL DATA BASE. 6. ERROR - * CAMPUS CODE NOT FOUND - INVALID * MEANING: THE CAMPUS CODE SUPPLIED ON THE PARAMETER CARD CAN NOT BE LOCATED ON THE CONTROL DATA BASE. ACTION: SUPPLY A VALID CAMPUS CODE FOR YOUR COLLEGE ON THE PARAMETER CARD. 7. ERROR - * PARM SORT OPTION INVALID - RUN ABORTED * MEANING: THE PARM SORT OPTION SUPPLIED ON THE PARAMETER CARD IS NOT D OR SPACE. ACTION: SUPPLY THE CORRECT SORT OPTION AND RE-RUN JOB. 8. ERROR - * PARM INVENTORY OPTION INVALID - RUN ABORTED * MEANING: THE INV. OPTION SUPPLIED ON THE PARAMETER CARD IS NOT "CRS ", OR "PUBL". ACTION: SUPPLY THE CORRECT INV. OPTION AND RE-RUN JOB. 9. ERROR - * ROOT SEGMENT (BOOKMSTR) NOT FOUND *' MEANING: CAN NOT ENTER DATA BASE. ACTION: REPORT THE PROBLEM TO PROGRAMMING. 10. ERROR - * CAMPUS "A" NOT FOUND ON CONTROL CAMPUS * MEANING: CAMPUS CODE OF "A" NOT FOUND ON CONTROL DATA BASE. ACTION: REPORT THE PROBLEM TO PROGRAMMING. 11. ERROR - * DIVISION NOT FOUND ON CONTROL DIVISION * * SS-DIV-1 = _ * WS-HOLD-DIVISION = _ MEANING: DIVISION NOT FOUND ON CONTROL DIVISION. ACTION: INSURE DIVISION DOES NOT EXIST, IF IT DOES REPORT THE PROBLEM TO PROGRAMMING. 12. ERROR - * DEPARTMENT NOT FOUND * MEANING: DEPARTMENT NOT ON CONTROL DATA BASE. ACTION: INSURE DEPARTMENT DOES NOT EXIST, IF IT DOES REPORT THE PROBLEM TO PROGRAMMING. 13. ERROR - * COURSE TITLE NOT FOUND * MEANING: COURSE TITLE NOT ON CONTROL DATA BASE. ACTION: INSURE COURSE TITLE DOES NOT EXIST, IF IT DOES REPORT THE PROBLEM TO PROGRAMMING. 14. ERROR - * NO RECORDS IN SORTED FILE - PROGRAM ABORTED * MEANING: SORTED FILE CONTAINS NO RECORDS ACTION : REPORT THE PROBLEM TO PROGRAMMING. 15. ERROR - * BOOKMSTR FROM BACK UP MODULE NOT FOUND * MEANING: ATTEMPTED TO BACK UP TO ROOT SEGMENT WITH THE USE OF THE (F) COMMAND CODE ACTION : REPORT THE PROBLEM TO PROGRAMMING. 16. ERROR - * RESET FOR PORDREC NOT PERFORMED * MEANING: NO PORDREC FOUND FOR PUBLISHER CODE CONTAINED IN THE SEGMENT SEARCH ARGUMENT ACTION : REPORT THE PROBLEM TO PROGRAMMING. 19. ERROR - * PREVIOUS PORDREC NOT FOUND * MEANING: PROGRAM IS UNABLE TO RETRIEVE A PREVIOUSLY RETRIEVED PORDREC; CHECK SEGMENT SEARCH ARGUMENTS ACTION : REPORT THE PROBLEM TO PROGRAMMING. 20. ERROR - * RESET FOR INVOICE NOT PERFORMED * MEANING: PROGRAM IS UNABLE TO RETRIEVE A PREVIOUSLY RETRIEVED INVOICE RECORD; CHECK SEGMENT SEARCH ARGUMENTS ACTION : REPORT THE PROBLEM TO PROGRAMMING. 21. ERROR - * DATA BASE ERROR (MOD XXX) - PCB = * ... MEANING: ACTION: REPORT THE PROBLEM TO PROGRAMMING !!!!!!! 6.0 PROGRAM OPTIONS : ----------------- NONE 7.0 PROGRAM CHANGE HISTORY: ---------------------- 7.1 VERSION NO: 3.7 CHANGE DATE: 03/88 PROGRAMMER: LAURA L. MCCOY PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: NEW RELEASE 7.2 VERSION : V4.19 CHANGE DATE : 12/01/90 PROGRAMMER : MARIE GORDON CHANGE REQUEST #: 00006572 DESCRIPTION OF CHANGE: - CHANGED ALL DATA BASE CALLS TO USE STANDARD IOAREA. SEE PAGE 29 OF THE 02/90 PROGRAMMING STANDARD, PROCECEDURES AND GUIDELINES MANUAL. - MADE CHANGES FOR COBOL II.