0.002/01/98 KATHY HARCUM 1.0 PROGRAM NARRATIVE ----------------- THIS SUBPROGRAM IS DESIGNED TO UPDATE THE TERM TYPE STUEXTEN SEGMENT, MAINTAINING THE TERM RELATED FLAGS. A SINGLE CALL CAN BE USED TO UPDATE ONE, SEVERAL OR ALL FLAGS. IF ALL FLAG VALUES ARE SET 'OFF', THE STUEXTEN TERM SEGMENT WILL BE DELETED. IF NO DATA CHANGES ARE DETECTED (IE, DATA FIELDS ALREADY CONTAIN VALUES SPECIFIED IN CALL), THEN NO SEGMENT PROCESSING IS DONE AND A NORMAL RETURN CODE IS RETURNED. IT IS RECOMMENDED THAT THE CALLING PROGRAMS VERIFY THE STUDENT SSN AND TERM PASSED BEFORE CALLING; HOWEVER THE SUBROUTINE WILL ALSO VERIFY AND RETURN AN ERROR STATUS/MESSAGE IF INVALID. THE SUBROUTINE WILL ACCOMODATE A MAXIMUM RELATIVE FLAG VALUE OF 20 (20 TERM RELATED FLAGS ARE CURRENTLY ALLOCATED ON THE STUEXTEN TERM SEGMENT TO ALLOW FOR FUTURE EXPANSION); HOWEVER THE CALLING PROGRAM IS RESPONSIBLE FOR ENSURING THAT THE RELATIVE FLAG VALUE IS ACTUALLY ACTIVE. CALLING PROGRAMS MUST PERFORM ANY NECESSARY VALIDATION OF THE FLAG UPDATE VALUES, THE SUBROUTINE DOES NOT EDIT THE VALUES PASSED. 'N', 'X' AND ' ' ARE ASSUMED TO BE 'OFF' VALUES. ---------------------------------------------------------------- CALLING PROGRAMS MUST PASS: CONTROL DATA BASE PCB STUDENT DATA BASE PCB PARAMETER CHAIN (COPY LINK300S) CALLING PROGRAMS MUST SUPPLY THE FOLLOWING REQUIRED FIELDS IN PARAMETER CHAING LINK300S: STUDENT-SSN: SOCIAL SECURITY NUMBER OF STUDENT PROCESS-TERM: TERM OF STUEXTEN TERM SEGMENT TO BE UPDATED (YYT FORMAT) NUM-FLAGS-TO-UPDATE: NUMBER OF UPDATE ENTRIES IN TABLE. FLAG-UPDATE-DATA: TABLE WHICH CONTAINS DESIRED UDPATES. THE DATA ITEMS IN THE TABLE FOLLOW: FLAG-NUMBER (N): RELATIVE FLAG POSITION NUMBER IN THE STUEXTEN SEGMENT. COPY MEMBER 'STUXTERM' LISTS THE RELATIVE FLAG NUMBER AS COMMENTS FOR EACH DEFINED FLAG. FLAG-VALUE (N): VALUE TO BE PLACED IN THE FIELD ON THE STUEXTEN TERM SEGMENT. STUX-AD-COUNT: ADD/DROP COUNTER VALUE, USED WITH FLAG- NUMBER 04 AND/OR 05 AS THE VALUE; FLAG-VALUE IS IGNORED FOR FLAG-NUMBERS 04,05. ---------------------------------------------------------------- SUBROUTINE WILL INITIALIZE PASS-STATUS-DATA TO SPACES AT THE BEGINNING OF EXECUTION. THE FOLLOWING STATUS DATA WILL BE RETURNED: PASS-COND: SPACES - SUCCESSFULL CALL 'XX' - EDIT ERRORS FOUND (IE, BAD TERM, INVALID RELATIVE FLAG NUMBER, ETC.) '??' - WHERE ?? IS THE UNEXPECTED RETURN CODE FROM A DL1 CALL (IE, NO STUDENTM SEGMENT, ETC.) PASS-CALL: WILL CONTAIN CALL ISSUED IF UNEXPECTED DL1 RETURN CODE IS ENCOUNTERED; OTHERWISE WILL BE BLANK. (EX: PASS-COND = 'GE', PASS-CALL='GU ') PASS-DSET: WILL CONTAIN SEGMENT NAME SOUGHT IF UNEXPECTED DL1 RETURN CODE IS ENCOUNTERED; OTHERWISE WILL BE BLANK. (EX: PASS-COND = 'GE', PASS-CALL='GU ', PASS-DSET = 'STUDENTM') PASS-PCB-OR-ERR: WILL CONTAIN PCB DATA IF AN UNEXPECTED DL1 RETURN CODE IS ENCOUNTERED. (EX: PASS-PCB-OR-ERR = 'STUDBD 01GE STUDENTM.......') WILL CONTAIN AN APPROPRIATE ERROR MESSAGE WHEN EDIT ERRORS ARE ENCOUNTERED. (EX: PASS-PCB-OR-ERR = 'PASSED TERM IS NOT NUMERIC') 2.0 SAMPLE JCL N/A ---------- 3.0 JOB SETUP INSTRUCTIONS N/A ---------------------- 4.0 FILES ----- 4.1 DATA BASE SEGMENTS USED: 1. CTLDBD A. CTLQUART (READ) 2. STUDBD A. STUDENTM (READ) B. STUEXTEN (ALL) 4.2 ADDITIONAL FILES USED: N/A 4.3 INPUT/OUTPUT RECORD LAYOUT: N/A 5.0 SPECIAL OUTPUT MESSAGES N/A ----------------------- 6.0 SPECIAL FEATURES ---------------- 6.1 CALLING PROGRAMS: REC310 REC391 REC075 REG010 REG020 REG025 REG070 REG250 STU010 STU025 STU040 6.2 SUBPROGRAMS CALLED: N/A 6.3 MESSAGE CODES: THE FOLLOWING 'HARDCODED' MESSAGES MAY BE RETURNED IN 'PASS-PCB-OR-ERR' WHEN WHEN EDIT ERRORS ARE DETECTED: - 'PASSED TERM IS NOT NUMERIC' - 'PASSED TERM NOT FOUND ON CTLQUART' - 'NUMBER FLAGS TO UPDATE NOT NUMERIC' - 'NUMBER FLAGS TO UPDATE ZERO OR GREATER THAN 20' - 'RELATIVE FLAG NUMBER NOT NUMERIC,ZERO OR GREATER THAN 20' 7.0 PROGRAM OPTIONS: N/A --------------- 8.0 PROGRAM CHANGE HISTORY: ---------------------- 8.1 RELEASE VERSION: V5.02 CHANGE DATE: MAY 1993. PROGRAMMER: KATHY HARCUM PROGRAM REQUEST NO: 00012393 PROGRAM DESCRIPTION: NEW SUBPROGRAM TO MAINTAIN THE TERM RELATED FLAGS ON THE TERM TYPE STUEXTEN SEGMENT. 8.2 VERSION: V5.09 CHANGE DATE: FEB 15 1994. PROGRAMMER: PEGGY EMMERICH PROGRAM REQUEST NO: 00013704 PROGRAM DESCRIPTION: MODIFIED THE PROCESSING TO UPDATE THE NEW FLAG AND THE FIELD TUITION-INVOICED-AMT-MAILED. 8.3 CHANGE VERSION: V7.00 CHANGE DATE: 11/97. PROGRAMMER: KATHY HARCUM PROGRAM REQUEST NO: PROGRAM DESCRIPTION: -MODIFIED TO PROCESS THE REGISTRATION ADD/DROP COUNT ON THE STUXTERM SEGMENT CORRECTLY. COUNT FIELD WAS EXPANDED TO TWO BYTES, RELATIVE POSITIONS 4,5. -IF EITHER FLAG VALUE 4 OR 5 IS PASSED TO THIS SUBROUTINE THEN THE ADD/DROP COUNT VALUE DESIRED FOR UPDATE MUST BE STORED IN THE 'UPDATE-OTHER-VALUE' AREA OF LINK300S, REDEFINES FOR STUX-AD-COUNT. -MODIFIED TO LOOK FOR ZERO IN THE ADD/DROP COUNT AREA WHEN DETERMINING IF 'FLAGS' ARE ALL TURNED OFF.