0.001/15/91 MARIE GORDON 1.0 PROGRAM NARRATIVE: ------------------ BOOKS BY DIVISION / DEPARTMENT THIS PROGRAM SUMMARIZES BOOK FLOW THROUGHOUT THE YEAR OR FOR A PERIOD OF YEARS (IF DESIRED). IT COULD BE USED FOR PLANNING FOR THE TERMS AHEAD. THIS PROGRAM HAS THE FOLLOWING OPTIONS: (1) WHICH TERM OR TERMS REPORT IS TO BE GENERATED FOR; A MAXIMUM OF 9 TERMS ON A PARAMETER CARD AND 1 PARAMETER CARD PER RUN. (2) WHICH YEAR OF YEARS REPORT IS TO BE GENERATED FOR; A MAXIMUM OF 9 YEARS PER PARAMETER CARD AND 1 PARAMETER CARD PER RUN. (3) WHETHER OR NOT THE PROGRAM IS TO INCLUDE ALL CAMPUSES OR JUST ONE SPECIFIC CAMPUS. (4) WHETHER OR NOT THE PROGRAM IS TO BE SORTED BY DIVISION CODES. IF THE PROGRAM IS SORTED BY DIVISIONS, THE REPORT WILL BE PRINTED BY DIVISION ORDER; WITH THE DIVISION NAME APPEARING AT THE TOP OF THE REPORT. (5) PAGE OPTION - IF A USER SO WISHES, THIS PROGRAM CAN INSURE THAT DIFFERENT DEPARTMENTS PRINT ON A NEW PAGE THE FOLLOWING FLDS. ACCUMULATE PER PORDREC OR PER RETNREC (DEPENDING UPON WHICH SEGMENT THE FIELD IS LOCATED IN); THESE ARE NOT THE TOTAL FIELDS, BUT RATHER THE INDIVIDUAL FIELDS: (1) QUANTITY ORDERED (PORDREC) (2) QUANTITY RETURNED (RETNREC) 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 ISBN (INTERNATIONAL STANDARD BOOK NUMBER) QUANTITY NEEDED 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 QUANTITY RETNREC SEGMENT FLDS. --------------------- RETURN QUANTITY OTHER ----- MAXIMUM ENROLLMENT 2.0 SAMPLE JCL ---------- 2.1 RUN JCL ------- //CVBKS530 JOB (PPPP,RRRR,N,NN),'BKS530',CLASS=F, // PRTY=3,MSGCLASS=A,MSGLEVEL=(1,1) /*ROUTE PRINT ZZZZZ //STEP1 EXEC BKS530,COLLEGE=II,AGENCY=AAA //PARMCARD DD * NUMBER OF COLUMN AS IT WOULD BE ON PARAMETER CARD: 12345678... TERM YRTERM YRTERM YRTERM YRTERM YRTERM YRTERM YRTERM YRTERM YR DPG XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX FALL 87WINTER88 ADNO /* // 1ST EXAMPLE - FOR MULTIPLE TERMS (MUST ENTER TERM AND YEAR) FALL 87WINTER88 A NO 2ND EXAMPLE - FOR MULTIPLE YEARS (PROGRAM WILL AUTOMATICALLY RETRIEVE ALL TERMS) 87 88 ADNO 3RD EXAMPLE - FOR ONE YEAR (PROGRAM RETRIEVES ALL TERMS) 88 ADNO 4TH EXAMPLE - FOR ONE TERM (MUST ENTER TERM AND YEAR) FALL 87 A NO 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 "//BKS530 PARMCARD DD" CARD USING THE FOLLOWING DIRECTIONS : CC CONTENTS -- -------- 01-72 NAME OF THE TERM AND THE YEAR REPORT IS TO BE PRINTED FOR; CAN BE MULTIPLE TERMS AND MULTIPLE YEARS (I.E. FALL 87WINTER88) (SEE ABOVE PARAMETER CARD FOR INSTRUCTIONS & DIFFERENT EXAMPLES, UNDER (2.1 RUN JCL)). 73 CAMPUS CODE FOR REPORT VALID ENTRIES ARE : ' ' - FOR ALL CAMPUSES 'A' - A VALID CAMPUS CODE AT YOUR COLLEGE 74 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 DETAILED SORT - SORT ALL OF THE FOLLOWING FLDS IN ASCENDING ORDER : CAMPUS, DIV, DEPT, COURSE & BOOKNUM 75-77 PAGE OPTION - IF USER WISHES, PROGRAM WILL GO TO A NEW PAGE FOR EVERY DEPARTMENT. ENTER - 'YES' OR 'NO ' 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 : BOOKS BY DIVISION / DEPARTMENT 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) CLASS DATA BASE 1. CLSMASTR (READ ONLY) 4.2 ADDITIONAL FILES USED: 1. PRINT-FILE PRINT FILE (REPORT) 2. BKS-FILE (FILE OF DESIRED DATA BASE RECORDS) 3. SORTED-FILE (SORTED FILE OF DESIRED DATA BASE RECORDS) 4. EXC-FILE (USED FOR EXCEPTION REPORT) 5. SORTED-EXC-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 PAGE OPTION INVALID - RUN ABORTED * MEANING: THE PAGE OPTION SUPPLIED ON THE PARAMETER CARD IS NOT "YES", OR "NO ". ACTION: SUPPLY THE CORRECT PAGE 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/03/90 PROGRAMMER : MARIE GORDON CHANGE REQUEST #: 00006573 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.