0.009/01/99 MYRA MAIORANA 1.0 PROGRAM NARRATIVE ----------------- THIS PROGRAM (VET700) GENERATES THE VETERANS ADMINISTRATION ENROLLMENT CERTIFICATION DOCUMENTS (VA FORM # 22-1999-2, JANUARY 1984 VERSION) FOR A SELECTED TERM. ONE DOCUMENT IS GENERATED FOR EACH STUDENT WHO IS A VETERAN (IDENTIFIED BY HAVING A NON-BLANK VETERAN FILE NUMBER IN THE STUDENTM SEGMENT) AND IS REGISTERED FOR AT LEAST ONE CLASS IN THE SELECTED TERM (EXCLUDING WITHDRAWALS AND AUDITS -- W AND X GRADES). THE DOCUMENTS ARE GENERATED IN ALPHABETICAL ORDER BY STUDENT NAME. EACH DOCUMENT INCLUDES THE FOLLOWING DATA (ITEM NUMBERS 1, 3, 4A, 5, 6, 8, 10A, 10B, 11A, 11C, 11D, 11E, 13A, 13B, 18A, 18B, AND 18C): - STUDENT'S NAME (FIRST NAME, MIDDLE INITIAL, AND LAST NAME). - STUDENT'S VA FILE NUMBER. - STUDENT'S ADDRESS. - STUDENT'S SOCIAL-SECURITY NUMBER. - STUDENT'S DATE OF BIRTH. - STUDENT'S MAJOR. - STUDENT'S ENROLLMENT DATA (OCCURS ONE TO FIVE TIMES): - CLASS STARTING DATE. - CLASS ENDING DATE. - TOTAL STANDARD CREDITS FOR THIS DATE RANGE; BLANK WHEN ZERO. (A "STANDARD" CLASS IS ONE THAT ISN'T CLASSIFIED AS DEVELOPMENTAL, INDEPENDENT-STUDY, OR TELEVISED.) - TOTAL DEVELOPMENTAL CREDITS FOR THIS DATE RANGE; BLANK WHEN ZERO. (A "DEVELOPMENTAL" CLASS IS ONE FOR WHICH THE COURSE NUMBER IS IN THE RANGE OF 01 THROUGH 10.) - TOTAL INDEPENDENT-STUDY CREDITS FOR THIS DATE RANGE; BLANK WHEN ZERO. (AN "INDEPENDENT-STUDY" CLASS IS ONE FOR WHICH THE SECTION NUMBER IS INCLUDED IN THE INDEPENDENT-STUDY SECTIONS TABLE OF THE PARMCARD, AND THAT ISN'T CLASSIFIED AS DEVELOPMENTAL.) - TOTAL TELEVISED CREDITS FOR THIS DATE RANGE; BLANK WHEN ZERO. (A "TELEVISED" CLASS IS ONE FOR WHICH THE SECTION NUMBER IS INCLUDED IN THE TELEVISED SECTIONS TABLE OF THE PARMCARD, AND THAT ISN'T CLASSIFIED AS EITHER DEVELOPMENTAL OR INDEPENDENT-STUDY.) - TOTAL TUITION FOR THIS DATE RANGE; BLANK WHEN THE TOTAL CREDITS IS 6.00 OR MORE. - TOTAL FEES FOR THIS DATE RANGE; BLANK WHEN THE TOTAL CREDITS IS 6.00 OR MORE. - CURRENT DATE. - TITLE OF THE CERTIFYING OFFICIAL AT THE COLLEGE (OBTAINED FROM A CTLPROPT SEGMENT -- REFER TO SECTION 7.0). - COLLEGE'S NAME AND ADDRESS (OBTAINED FROM THE CTLCAMPM SEGMENT FOR CAMPUS A). TUITION AND FEES ARE DETERMINED BY USING THE SUBPROGRAM REC531S: 2.0 SAMPLE JOB CONTROL LANGUAGE (JCL) --------------------------------- 2.1 RUN JCL ------- //XXVET700 JOB (XXXX,XXXX,9,50),VET700,MSGLEVEL=(1,1), // MSGCLASS=A,CLASS=F,PRTY=3 /*ROUTE PRINT XXXXXXXX //* //VET700 EXEC VET700, // AGENCY=XXX, // COLLEGE=XX, // FORM=XXXX //VET700.PARMCARD DD * -- INPUT PARAMETERS -- /* // SYMBOLIC PARAMETERS ------------------- REQUIRED PARAMETERS ------------------- AGENCY = AGENCY CODE NUMBER (E.G. AGENCY=283) COLLEGE = COLLEGE NAME ABBREVIATION (E.G. COLLEGE=SR) FORM = FORM NUMBER THE DOCUMENTS ARE TO BE STORED UNDER (E.G. FORM=9876) OPTIONAL PARAMETERS ------------------- COPIES = NUMBER OF TIMES THE DOCUMENTS ARE TO BE PRINTED ON THE SELECTED FORM (DEFAULT = 01) (E.G. COPIES=02) DBTYPE = TYPE OF DATABASES TO BE USED (DEFAULT = PROD) (E.G. DBTYPE=TEST) IMSNODE = TYPE OF IMS SOFTWARE MODULES TO BE USED (DEFAULT = MVS) (E.G. IMSNODE=DEV) QUEUE = QUEUE CLASS THE DOCUMENTS ARE TO BE SPOOLED UNDER (DEFAULT = '*') (E.G. QUEUE=A) RUNTYPE = TYPE OF APPLICATION SOFTWARE MODULES TO BE USED (DEFAULT = PROD) (E.G. RUNTYPE=TEST) SRTSIZE = AMOUNT OF DASD STORAGE IN CYLINDERS ALLOCATED TO EACH SORT WORK FILE (DEFAULT = 3) (E.G. SRTSIZE=1) 2.2 INPUT PARAMETERS ---------------- POSITIONS DESCRIPTION --------- --------------------------------------------------- 01 - 06 RUN TERM NAME. (MUST BE 'FALL ', 'SPRING', OR 'SUMMER'.) 07 - 08 RUN TERM YEAR. (MUST BE NUMERIC.) 09 - 09 SUPPRESS-DOCUMENTS OPTION: 'Y' -- SUPPRESS THE GENERATION OF STUDENT DOCUMENTS (GENERATE LINEUP FORMS ONLY). 'N' (DEFAULT) -- DO NOT SUPPRESS THE GENERATION OF STUDENT DOCUMENTS. 10 - 11 LINEUP FORMS QUANTITY. (MUST BE NUMERIC.) 12 - 31 INDEPENDENT-STUDY SECTIONS TABLE -- SECTION NUMBERS THAT DESIGNATE INDEPENDENT-STUDY CLASSES. (UP TO TEN TWO-BYTE SECTION NUMBERS MAY BE SPECIFIED.) 32 - 51 TELEVISED SECTIONS TABLE -- SECTION NUMBERS THAT DESIGNATE TELEVISED CLASSES. (UP TO TEN TWO-BYTE SECTION NUMBERS MAY BE SPECIFIED.) 52 - 80 NOT USED. 2.3 SORT PARAMETERS --------------- NONE. 3.0 JOB SETUP INSTRUCTIONS ---------------------- THE PRINTER'S FORMS-ALIGNMENT MUST BE SET VERY PRECISELY. THE FIRST "XX" ON THE TOP LINE OF EACH PAGE MUST BE POSITIONED EXACTLY IN THE TOP LEFT CORNER OF THE FORM, IN ORDER FOR EACH DATA FIELD TO BE PRINTED IN ITS CORRECT POSITION ON THE FORM. 4.0 FILES ----- 4.1 DATABASE SEGMENTS USED ---------------------- DATABASE SEGMENT TYPE TYPE OF ACCESS -------- ------------ -------------- CLSDBD CLSMASTR GET CTLDBD CTLCAMPM GET CTLMESSG GET CTLPROPT GET CTLQUART GET CURDBD CURMASTR GET CURRSPEC GET STUDBD STUDENTM GET STUREGIS GET 4.2 ADDITIONAL FILES USED --------------------- NONE. 4.3 INPUT/OUTPUT RECORD LAYOUTS --------------------------- NONE. 5.0 SPECIAL OUTPUT MESSAGES ----------------------- 1. 'NO PARMCARD WAS FOUND IN THE JOBSTREAM.' RE-SUBMIT THE JOB CORRECTLY. 2. 'THE RUN TERM NAME SPECIFIED ON THE PARMCARD IS INVALID.' RE-SUBMIT THE JOB CORRECTLY. 3. 'THE RUN TERM YEAR SPECIFIED ON THE PARMCARD IS NON-NUMERIC.' RE-SUBMIT THE JOB CORRECTLY. 4. 'THE LINEUP FORMS QUANTITY SPECIFIED ON THE PARMCARD IS NON-NUMERIC.' RE-SUBMIT THE JOB CORRECTLY. 5. 'NO CTLQUART SEGMENT EXISTS FOR THE RUN TERM.' IF DESIRED, RE-SUBMIT THE JOB FOR A DIFFERENT RUN-TERM. 6. 'CTLMESSG SEGMENT #000087 IS MISSING.' CONTACT YOUR REGIONAL COORDINATOR. 7. 'NO STUREGIS SEGMENTS MET THE SELECTION CRITERIA.' IF DESIRED, RE-SUBMIT THE JOB FOR A DIFFERENT RUN-TERM. 8. 'ERROR -- MORE THAN 5 GROUPS OF REGISTRATIONS WERE FOUND FOR THIS STUDENT.' 'AN INCOMPLETE DOCUMENT WILL BE GENERATED.' 'STUDENT'S NAME AND SSN: ________________ _________' THE FORM PROVIDED BY THE VETERANS ADMINISTRATION DOESN'T INCLUDE ADEQUATE SPACE FOR ALL THE ENROLLMENT DATA PERTAINING TO THIS STUDENT. THE CERTIFYING OFFICIAL SHOULD DECIDE HOW TO REPORT THE ADDITIONAL DATA TO THE VA. 9. 'A DL/I CALL WAS UNSUCCESSFUL.' 'PARAGRAPH OR SECTION NAME: ______________________________' 'CALL-COUNT CONTENTS: _____' 'CALL-FUNCTION CONTENTS: ____' 'PCB MASK CONTENTS: __________________________________' CONTACT YOUR REGIONAL COORDINATOR. 6.0 SPECIAL FEATURES ---------------- 6.1 CALLING PROGRAMS ---------------- NONE. 6.2 SUBPROGRAMS CALLED ------------------ UTL550S, REC531S, REC332S 6.3 MESSAGE SEGMENT CODES --------------------- NONE 6.4 ERROR MESSAGES -------------- (REFER TO SECTION 5.0) 7.0 PROGRAM OPTIONS --------------- VET700 01 --------- POSITIONS DESCRIPTION --------- ---------------------------------------------------- 01 - 30 TITLE OF THE CERTIFYING OFFICIAL AT THE COLLEGE (E.G., V.A. CERTIFYING OFFICIAL). 31 - 90 NOT USED. 8.0 PROGRAM CHANGE HISTORY ---------------------- 8.1 VERSION NO: V5.21 CHANGE DATE: 02/17/95 PROGRAMMER NAME: EUGENE WALLO PROGRAM CHANGE REQUEST NUMBER: 00013750 DESCRIPTION OF CHANGE: NEW PROGRAM 8.2 VERSION NO: V5.28 CHANGE DATE: 08/18/95 PROGRAMMER NAME: EUGENE WALLO PROGRAM CHANGE REQUEST NUMBER: 00015931 DESCRIPTION OF CHANGE: - CHANGED THE SOFTWARE TO UTILIZE A PARMCARD FIELD TO SPECIFY UP TO 10 SECTION NUMBERS THAT DESIGNATE INDEPENDENT-STUDY CLASSES, AND REMOVED THE PROGRAM LOGIC THAT PROCESSED SECTION NUMBERS 96 AND 97 AS BEING "INDEPENDENT-STUDY." POSITIONS 12 THROUGH 31 OF THE PARMCARD ARE NOW USED. - CHANGED THE SOFTWARE TO UTILIZE A PARMCARD FIELD TO SPECIFY UP TO 10 SECTION NUMBERS THAT DESIGNATE TELEVISED CLASSES, AND REMOVED THE PROGRAM LOGIC THAT PROCESSED SECTION NUMBER 95 AS BEING "TELEVISED." POSITIONS 32 THROUGH 51 OF THE PARMCARD ARE NOW USED. 8.3 VERSION NO: V6.00 CHANGE DATE: 11/14/95 PROGRAMMER NAME: EUGENE WALLO PROGRAM CHANGE REQUEST NUMBER: 00016145 DESCRIPTION OF CHANGE: - RE-COMPILED THE PROGRAM, TO REFERENCE THE LATEST VERSION OF COPYLIB MEMBERS 'CTLQUART' AND 'STUREGIS'. 8.4 VERSION NO: V7.00 CHANGE DATE: 11/24/97 PROGRAMMER NAME: MYRA MAIORANA,TCC PROGRAM CHANGE REQUEST NUMBER: 00016648 DESCRIPTION OF CHANGE: - FEES PROJECT - - REMOVED REFERENCE TO CTLMISC COPYBOOK. - ADDED CALL TO REC531S TO DETERMINE TUITION AND FEES. - COMPILED AND TESTED USING "ASC" COPYLIBS AND LIBRARIES 8.5 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.