0.007/01/88 RICHARD GILLETTE 1.0 PROGRAM NARRATIVE ----------------- THIS BATCH UPDATE PROGRAM READS THE COURSE DATA BASE AND THE VCCS COURSE MASTER FILE. IT THEN COMPARES THE COURSE TITLES AND REPLACES THE DATA BASE TITLE WITH THE VCCS TITLE IF THEY ARE DIFFERENT. IT ALSOC COMPARES LECTURE AND LAB CREDITS AND REPLACES THE DATA BASE CREDIT FIELDS WITH THE MASTER FILE VALUES IF DIFFERENT (FOR NON-VARIABLE COURSES ONLY). A REPORT IS PRODUCED SHOWING THE COURSE-ID, OLD TITLE, NEW TITLE, OLD LECTURE CREDITS, NEW LECTURE CREDITS, OLD LAB CREDITS, AND NEW LAB CREDITS. THE REPORT WILL ALSO SHOW IF A COURSE IS ON THE DATA BASE BUT NOT ON THE VCCS MASTER FILE. AT THE END OF THE REPORT, CONTROL TOTALS ARE GIVEN SHOWING THE TOTAL NUMBER OF COURSE SEGMENTS READ, COURSE SEGMENTS BYPASSED (4-CHARACTER COURSES), COURSES NOT FOUND ON VCCS MASTER FILE, COURSES CHECKED (3-CHARACTER COURSES), COURSES NOT UPDATED, COURSES UPDATED, TITLES UPDATED, LECTURE CREDITS UPDATED AND LAB CREDITS UPDATED. 2.0 SAMPLE JCL ---------- //CEN310 JOB (XXXX,XXXX,9,9),CEN310, // CLASS=O, // MSGCLASS=A, // MSGLEVEL=(1,1), // REGION=4096 /*ROUTE PRINT XXXXX /*SETUP ** * * * * * * * * * * * * * * * /*SETUP ** THIS UPDATE JOB WILL REQUIRE TAPE(S) WITH RING /*SETUP ** FROM THE BATCH SCRATCH POOL. /*SETUP ** NEVER REPLY 'U' /*SETUP ** * * * * * * * * * * * * * * * //* //CEN310 EXEC CEN310, // AGENCY=XXX, // COLLEGE=XX // SYMBOLIC DESCRIPTION ******************** REQUIRED - AGENCY COLLEGE AGENCY CODE NUMBER (E.G. AGENCY=292) COLLEGE TWO CHARACTER COLLEGE NAME ABBREVIATION (E.G. COLLEGE=CV) 3.0 JOB SETUP INSTRUCTIONS ---------------------- SPECIAL FORMS QUEUE: A000 FORMS BUFFER: STANDARD ALIGNMENT INSTRUCTIONS: STANDARD PRINTED OUTPUT: COURSE TITLE/CREDIT UPDATE FORMS TYPE: 14 X 11 SPECIAL INSTRUCTIONS: NONE 4.0 FILES ----- 4.1 DATA BASE/SEGMENTS USED: ----------------------- 1. CTLSEG (READ ONLY) 2. COURSE SEGMENT (UPDATE) 4.2 ADDITIONAL FILES USED: --------------------- 1. VCCS COURSE MASTER FILE SODBV.SIP.CLUSPROD.MASTER.CRFILE 4.3 INPUT RECORD LAYOUT: ------------------- 01 CR-FILE. 05 CR-DEL PIC X(1) VALUE SPACE. 05 CR-KEY. 10 CR-DEPT PIC X(4) VALUE SAPCE. 10 CR-CRSE PIC X(3) VALUE SPACE. 05 CR-LEC-MIN PIC S9(2)V99 VALUE ZERO. 05 CR-LEC-MAX PIC S9(2)V99 VALUE ZERO. 05 CR-LAB-MIN PIC S9(2)V99 VALUE ZERO. 05 CR-LAB-MAX PIC S9(2)V99 VALUE ZERO. 05 CR-TITLE PIC X(14) VALUE SPACE. 05 CR-CATEG PIC X(1) VALUE SPACE. 05 CR-CON-MIN PIC S9(3)V99 VALUE ZERO. 05 CR-CON-MAX PIC S9(3)V99 VALUE ZERO. 05 FILLER PIC X(21) VALUE SPACE. 5.0 SPECIAL OUTPUT MESSAGES: N/A ----------------------- 6.0 SPECIAL FEATURES: N/A ---------------- 7.0 PROGRAM OPTIONS: N/A --------------- 8.0 CHANGE HISTORY -------------- 8.1 VERSION NO: V3.7 (INITIAL RELEASE) CHANGE DATE: 3/88 PROGRAMMER NAME: RICHARD GILLETTE PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: NEW PROGRAM 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.