0.007/14/99 PEGGY EMMERICH 1.0 PROGRAM NARRATIVE: STUDENTM CURRICULUM UPDATE G E N E R A L N A R R A T I V E STU350 MOVES A '5024' TO THE STUDENTM CURRICULUM LEVEL/CURRICULUM FOR STUDENTS WHO HAVE GRADUATED FOR THE SPECIFIED TERM AND YEAR ON THE PARMCARD. THE PROGRAM DOES NOT UPDATE THE STUDENTM UNLESS A MATCHING GRADUATE CURRICULUM (STUHGRAD RECORD FOR THE SPECIFIED TERM & YEAR MATCHES THE STUDENTM CURRICULUM. THE FOLLOWING FIELDS ARE UPDATE FOR GRADUATES (SPECIFIED ON THE PARMCARD TERM / YEAR) : CURR-LEVEL = '5' CURRICULUM = '024' SPECIALIZATION = SPACES. CATALOG-YEAR = SPACES. THE OLD CURMASTR/CURRSTUD WILL BE DELETED AND THE NEW CURMASTR/CURRSTUD WILL BE INSERTED FOR THE UPDATED STUDENTM. THERE ARE TWO REPORTS PRODUCED: REPORT 1 - "ALL STUDENTS UPDATED" AND REPORT 2 "ALL STUDENTS NOT UPDATED" (PRODUCED WHEN STUHGRAD DOES NOT MATCH STUDENTM CURRICULUM). IF CURRICULUM IS NOT FOUND 'UNKNOWN' IS PRINTED ON THE REJECTED REPORT FOR CURRICULUM ENROLLED. 2.0 SAMPLE JCL: ----------- 2.1 RUN JCL ------- //XXSTU350 JOB (XXXX,XXXX,99,999),'STU350', // CLASS=O,MSGLEVEL=(1,1) /*ROUTE PRINT XXXX /*SETUP ** * * * * * * * * * * * * * * * /*SETUP ** THIS UPDATE JOB WILL REQUIRE TAPE(S) WITH RING /*SETUP ** FROM THE BATCH SCRATCH POOL. /*SETUP ** NEVER REPLY 'U' /*SETUP ** * * * * * * * * * * * * * * * //* //STU350 EXEC STU350, // AGENCY=XXX, // COLLEGE=XX //STU350.PARMCARD DD * -- INPUT PARAMETERS -- /* // ****** SYMBOLIC DESCRIPTION ****** PARAMETERS : REQUIRED *00210000 AGENCY = COLLEGE AGENCY CODE NUMBER *00220000 (DEFAULT = NONE) *00230000 (E.G. AGENCY=283) *00240000 COLLEGE = TWO CHARACTER COLLEGE NAME ABBREVIATION *00250000 (DEFAULT = NONE) *00260000 (E.G. AGENCY=SR) *00270000 OPTIONAL *00280000 DBTYPE = INDICATES WHETHER OR NOT TO USE TEST * 00285004 OR PRODUCTION DATA BASES * 00286004 DEFAULT = PROD * 00287004 (I.E. DBTYPE=TEST) * 00288004 RUNTYPE = INDICATES WHETHER OR NOT TO USE TEST *00289004 OR PRODUCTION FILES *00289104 (DEFAULT = PROD) *00289204 (E.G. RUNTYPE=TEST) *00289304 IMSNODE = INDICATES WHETHER TO USE PRODUCTION OR *00289404 DEVELOPMENT SYSTEM *00289504 (DEFAULT = MVS) *00289604 (E.G. IMSNODE=DEV) *00289704 FORM1 = FORM NUMBER THE OUTPUT IS TO BE STORED *00290000 UNDER FOR THE STUDENT UPDATE REPORT *00300004 (DEFAULT = A000) *00310000 (E.G. FORM1=0001) *00320000 FORM2 = FORM NUMBER THE OUTPUT IS TO BE STORED *00290000 UNDER FOR THE STUDENT REJECT REPORT *00300004 (DEFAULT = A000) *00310000 (E.G. FORM2=0001) *00320000 QUEUE1 = QUEUE CLASS THE OUTPUT IS TO BE SPOOLED *00290000 UNDER FOR THE STUDENT UPDATE REPORT *00300004 (DEFAULT = A000) *00310000 (E.G. QUEUE=A) *00320000 QUEUE2 = QUEUE CLASS THE OUTPUT IS TO BE SPOOLED *00290000 UNDER FOR THE STUDENT REJECT REPORT *00300004 (DEFAULT = A000) *00310000 (E.G. QUEUE=A) *00320000 2.2 INPUT PARAMETERS ---------------- |=========================================================| | P A R A M E T E R C A R D F O R M A T | |=========================================================| POS. PARAMETERS AND POSSIBLE VALUES ---- ----------------------------- 01-06 TERM NAME "FALL"; "SPRING"; "SUMMER" 07-08 YEAR 3.0 JOB SETUP INSTRUCTIONS ---------------------- SPECIAL FORMS QUEUE: A000 FORMS BUFFER: STANDARD ALIGNMENT INSTRUCTIONS: STANDARD PRINTED OUTPUT: STUDENTS CURRICULUM UPDATED TO 5024 STUDENTS CURRICULUM NOT UPDATED TO 5024 FORM TYPE: STANDARD SPECIAL INSTRUCTIONS: PREPARE THE PARMCARD BEFORE RUNNING THIS JOB 4.0 FILES: ----- 4.1 DATA BASES USED: STUDENT DATA BASE ---------------------------------------------------- 1. STUDENT MASTER - STUDENTM (READ REPLACE) HISTORY DATA BASE ---------------------------------------------------- 1. HISTORY MASTER SEGMENT - STUHIDNM (READ ONLY) 2. HISTORY GRADUATION - STUHGRAD (READ ONLY) CURRICULUM DATA BASE ---------------------------------------------------- 1. CURRICULUM MASTER - CURMASTR (READ ONLY) 2. CURRICULUM STUDENT - CURRSTUD (DLET ISRT) CONTROL DATA BASE ---------------------------------------------------- 1. QUARTER MASTER - CTLQUART (READ ONLY) 2. CAMPUS MASTER - CTLCAMPM (READ ONLY) 4.2 ADDITIONAL FILES USED: N/A 4.3 INPUT/OUTPUT RECORD LAYOUTS: N/A THE STUDENT CURRICULUM UPDATE AND NONUPDATE REPORTS WILL SUPPLY THE FOLLOWING DATA : DATA DESCRIPTION FORMAT ---------------------------------------------------- 1) STUDENT NAME (FIRST INITIAL LAST) X(30) 2) SOCIAL SECURITY NUMBER XXXBXXBXXXX 3) CURRICULUM NAME X(26) 5.0 SPECIAL OUTPUT MESSAGES: ----------------------- THE FOLLOWING ARE MESSAGES THAT THE PROGRAM MAY PRODUCE IF IT FINDS AN ERROR. 1. '**** MISSING PARAMETER CARD - PLEASE RESUBMIT '. 2. 'INVALID TERM ON INPUT RECORD - ' TERM-IN. 3. 'INVALID YEAR ON INPUT RECORD - ' TERM-IN. 4. 'CURRICULUM NOT FOUND ON CURMASTR '. 'KEY = ' SSA-CUR-MST 5. 'STUHIDMN NOT FOUND '. HST-SSA 6. THE FOLLOWING MESSAGES WILL BE PRINTED WHEN THERE IS A BAD CALL TO ONE OF THE DATA BASES. THE MESSAGE WILL DISPLAY THE STATUS OF THE CALL, THE CALL FUNCTION, THE PARAGRAPH NUMBER OF THE CALLING PARAGRAPH, AND THE STUDENTS SOCIAL SECURITY NUMBER (IF APPLICABLE). 'STATUS CODE =' XX. 'DBD NAME =' XXXXXXX ' 'SEGMENT NAME =' XXXXXXX ' 'SEGMENT LEVEL =' XXXXXX . 'KEY FEEDBACK =' XXXXXXXXXX . 'PARAGRAPH =' XXXXXXXXXX . '***** STU350 TERMINATED ******. '*** *** 6.0 SPECIAL FEATURES: ---------------- 6.1 CALLING PROGRAMS: N/A 6.2 SUBPROGRAMS CALLED: UTL100S FOR RETRIEVAL OF CURRENT-DATE 7.0 PROGRAM OPTIONS: N/A ---------------- 8.0 PROGRAM CHANGE HISTORY: 8.1 VERSION NO. V5.10 CHANGE DATE N/A PROGRAMMER NAME PEGGY EMMERICH PROGRAM CHANGE REQUEST NO. N/A DESCRIPTION OF CHANGE: NEW PROGRAM 8.2 VERSION NO: V7.04 CHANGE DATE: 07/01/99 PROGRAMMER NAME: RICHARD GILLETTE PROGRAM CHANGE REQUEST NO: 00018008 DESCRIPTION OF CHANGE: RECOMPILED FOR NEW COBOL COMPILER. NO Y2K CHANGES REQUIRED. 8.3 VERSION NO: V7.03 CHANGE DATE: 07/05/99 PROGRAMMER NAME: BOB DODGE PROGRAM CHANGE REQUEST NO: 00018008 DESCRIPTION OF CHANGE: MODIFIED FOR THE Y2K PROJECT AND NEW COMPILER. CHANGED USING UTL550S TO USE UTL100S.