0.006/15/97 MYRA MAIORANA 1.0 PROGRAM NARRATIVE: ----------------- THIS BATCH PROGRAM PRODUCES PHON-A-THON FORMS FOR GRADUATE STUDENTS WITH A GRADUATION DATE THAT FALLS WITHIN THE TERM RANGE SELECTED IN THE INPUT CARD. IT BEGINS BY READING THE CONTROL DATA BASE (CAMPUS SEGMENT) TO VALIDATE CAMPUS(ES) SELECTED VIA THE INPUT CARD. THE STUDENT HISTORY DATA BASE (STUHIDNM) IS READ SEQUENTIALLY TO OBTAIN ALL HISTORY GRADUATE SEGMENTS (STUHGRAD) THAT FALL WITHIN THE TERM RANGE SELECTED. IF THE STUDENTH SEGMENT IS PRESENT, DEMOGRAPHIC DATA IS OBTAINED FROM IT. OTHERWISE, A QUALIFIED CALL IS ISSUED TO THE CORRESPONDING STUDENTM SEGMENT TO OBTAIN DEMOGRAPHIC DATA. IF NEITHER THE STUDENTH NOR THE STUDENTM SEGMENT CAN BE FOUND FOR A STUDENT IN HISTORY, THE SOCIAL SECURITY NUMBER IS DISPLAYED ALONG WITH A MESSAGE NOTIFYING THE USER THAT THE RECORD WAS NOT PROCESSED AND NO FORM WAS PRINTED FOR IT, AND THE JOB CONTINUES PROCESSING. THE PROGRAM RETRIEVES ALL GRADUATE SEGMENTS STORED IN HISTORY. THE STUDENT DATA BASE (STUDENTM) IS THEN READ SEQUENTIALLY AND EACH RECORD, WITHIN THE CAMPUS SELECTION, IS READ TO RETRIEVE EXISTING GRADUATE SEGMENTS (STUGRADM) THAT FALL WITHIN THE GRADUATION RANGE. ONCE ALL GRADUATE RECORDS ARE FOUND, A PHON-A-THON FORM IS PRINTED FOR THOSE RECORDS, WHICH LISTS THE STUDENT'S FULL NAME, ADDRESS, HOME AND BUSINESS TELEPHONE NUMBER, THE CAMPUS, THE TERM AND YEAR OF GRADUATION, THE CURRICLUM CODE AND CURRICULUM NAME, THE DEGREE AND DEGREE NAME, AND THE STUDENT'S SOCIAL SECURITY NUMBER. THE COLLEGE AND CAMPUS NAME PRINT ON THE BOTTOM HALF OF THE FORM, WHICH IS MAILED TO THE STUDENT. ONE FORM IS PRINTED FOR EACH GRADUATE, LISTING ALL DEGREES HE HAS EARNED WITHIN THE SELECTION RANGE. A MAXIMUM OF EIGHTEEN DEGREES MAY BE PRINTED ON EACH FORM. THESE FORMS ARE EITHER SORTED BY ZIP CODE OR BY LAST NAME, DEPENDING ON THE SORT SELECTION MADE VIA THE INPUT CARD. IF THERE ARE NO GRADUATE STUDENTS WITHIN THE SELECTED TERM RANGE, THE PROGRAM INFORMS THE USER WITH A DISPLAY THAT THERE ARE NO STUDENT RECORDS TO BE PROCESSED. WHEN AN UNEXPECTED STATUS CODE IS RETURNED FOLLOWING A DLI CALL TO A DATA BASE, PCB INFORMATION IS DISPLAYED AND THE USER IS NOTIFIED THAT THE JOB TERMINATED. 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //ALU540 JOB (XXXX,XXXX),'PHON-A-THON',CLASS=F, // MSGCLASS=A,PRTY=3,REGION=2048K /*ROUTE PRINT XXXX //ALU540 EXEC ALU540,COLLEGE=XX,AGENCY=XXX //ALU540.PARMCARD DD * -- INPUT CARD -- // SYMBOLIC DESCRIPTION ******************** REQUIRED - AGENCY = COLLEGE AGENCY CODE NUMBER DEFAULT: NONE (E.G. AGENCY=295) COLLEGE = TWO CHARACTER COLLEGE NAME ABBREVIATION DEFAULT: NONE (E.G. COLLEGE=TC) OPTIONAL - FORM = FORM NUMBER THE OUTPUT IS TO BE STORED UNDER (DEFAULT = A000) (E.G. FORM = 3030) QUEUE = QUEUE CLASS THE OUTPUT IS TO BE SPOOLED UNDER (DEFAULT = *) 2.2 INPUT CARD: ---------- CC DESCRIPTION -- ----------- 1 - 5 CAMPUS SELECT OPTION '@ ' - SELECT ALL CAMPUSES (ENTER '@' IN COL 1) 'XXXXX' - ENTER ONE OR MORE CAMPUSES USING ANY COMBINATION OF THE LETTERS A,B,C,D, OR F. THEY DO NOT HAVE TO BE IN ALPHABETICAL ORDER AND SPACES ARE ALLOWED BETWEEN LETTERS (E.G. 'A C F' -OR- 'ADCBF' -OR- 'A '). 6 - 6 SORT OPTION 'L' OR ' ' - SORT FORMS BY CAMPUS, LAST NAME 'Z' - SORT FORMS BY CAMPUS, ZIP CODE, LAST NAME 7 - 12 BEGINNING GRADUATION RANGE - TERM NAME ENTER BEGINNING RANGE VALUE FOR TERM/YEAR SELECTION USING 6 CHARACTERS FOR THE TERM NAME 13 - 14 BEGINNING GRADUATION RANGE - YEAR ENTER BEGINNING RANGE VALUE FOR TERM/YEAR SELECTION USING 2 DIGITS FOR THE YEAR 15 - 20 ENDING GRADUATION RANGE - TERM NAME ENTER ENDING RANGE VALUE FOR TERM/YEAR SELECTION USING 6 CHARACTERS FOR THE TERM NAME 21 - 22 ENDING GRADUATION RANGE - YEAR ENTER ENDING RANGE VALUE TERM/YEAR SELECTION USING 2 DIGITS FOR THE YEAR **NOTE - IF SELECTING GRADUATES FOR ONLY ONE TERM/YEAR, ENTER THE SAME TERM/YEAR IN THE BEGINNING AND ENDING RANGE (EXAMPLE 'WINTER80WINTER80' IN COLUMNS 7 - 22) 3.0 JOB SETUP INSTRUCTIONS: ---------------------- SPECIAL FORMS QUEUE: J FORMS BUFFER: FOR IBM 3203 PRINTER: FCB=3030, 8 LINES PER INCH CHANNEL 1 BEGINS AT LINE 1 FOR IBM 3262/TELEX 262: LENGTH OF FORM = 68 INCHES USING 8 LINES PER INCH, SET CARRIAGE CONTROL AT TOP OF FORM (ON THE PERFORATION) ALIGNMENT INSTRUCTIONS: FIRST LINE (BLANK) PRINTS AT TOP OF FORM, ACTUAL DATA PRINTS AFTER ADVANCING 3 LINES. TEST PATTERN PRINTS ALL X'S BY THE 'HOME TELEPHONE' AND 'CAMPUS' AREAS IN THE UPPER RIGHT-HAND CORNER OF THE FORM. IT THEN PRINTS ALL X'S BY 'BUS. TELEPHONE', ALL 9'S BY 'ID #', ALL X'S FOR CAMPUS NAME, AND ALL X'S IN THE ADDRESS BOX ON BOTTOM OF FORM. PRINTED OUTPUT: PHON-A-THON FORM FORMS TYPE: 3030 - PHON-A-THON FORM SPECIAL INSTRUCTIONS: TEST PATTERN PRINTS 10 TIMES BEFORE LIVE DATA IS PRINTED. 4.0 FILES: ----- 4.1 DATA BASES/SEGMENTS USED ------------------------ CONTROL DATA BASE 1. CAMPUS SEGMENT (02) (READ ONLY) STUDENT DATA BASE 1. STUDENTM SEGMENT (READ ONLY) 2. STUGRADM SEGMENT (READ ONLY) STUDENT HISTORY DATA BASE 1. STUHIDNM SEGMENT (READ ONLY) 2. STUDENTH SEGMENT (READ ONLY) 3. STUHGRAD SEGMENT (READ ONLY) CURRICULUM DATA BASE 1. CURMASTR SEGMENT (READ ONLY) 4.2 ADDITIONAL FILES USED: --------------------- 1. PRTFILE - PHON-A-THON FORM 2. PARMCARD - TO PASS INPUT DATA TO PROGRAM 3. SORTFILE - SORT FILE 4.3 INPUT/OUTPUT RECORD LAYOUTS: N/A --------------------------- 5.0 SPECIAL OUTPUT MESSAGES: ----------------------- 1. 'STATUS CODE = ' 'DBD NAME = ' 'SEGMENT NAME = ' 'KEY FEEDBACK = ' 'SEGMENT LEVEL = ' 'PARAGRAPH = ' '**** ALU540 TERMINATED ****' THIS DISPLAY APPEARS WHENEVER THE PROGRAM ABNORMALLY ENDS. IT DISPLAYS PCB INFORMATION FOR UNSUCCESSFUL DLI CALLS. THE VALUE OF THE STATUS WILL EXPLAIN THE ERROR, AND THE PARAGRAPH NAME STATES WHERE THE PROGRAM WAS WHEN IT ABORTED. ACTION: CONTACT THE REGIONAL COORDINATOR AT THE DATA CENTER. 3. '* NO STUDENT RECORDS FOUND FOR PHON-A-THON GRADUATES*' THERE ARE NO GRADUATE STUDENTS ON THE DATA BASE, WITHIN THE CAMPUS(ES) SELECTED AND THE GRADUATION TERM/YEAR SELECTED. THE PROGRAM IS SUCCESSFULLY COMPLETED, AND NO FORMS ARE PRINTED. ACTION: NO ACTION REQUIRED, NO GRADUATE RECORDS WITHIN RANGE. 4. '*** INPUT CARD IS BLANK - INSERT PARMS AND RESUBMIT **' THE INPUT CARD IS BLANK AS NO PARAMETERS WERE ENTERED. ACTION: INSERT THE APPROPRIATE PARAMETERS AND RESTART PROGRAM. 5. '** INVALID CAMPUS PARM - INVALID CHARACTER IN FIELD **' ' CAMPUS PARM = 'XXXXX' THE 'CAMPUS SELECT OPTION' OF THE INPUT CARD CONTAINS A CHARACTER OTHER THAN A, B, C, D, OR F. ACTION: INSERT THE CORRECT CAMPUS(ES) AND RESTART PROGRAM. 6. '** INVALID CAMPUS PARM - CAMPUS CANNOT BE LEFT BLANK *' THE 'CAMPUS SELECT OPTION' OF THE INPUT CARD IS BLANK. ACTION: INSERT THE APPROPRIATE CAMPUS(ES) AND RESTART PROGRAM. 7. 'INVALID SORT PARM SELECTION - MUST BE BLANK,L,OR Z *' ' SORT OPTION = 'X' THE 'SORT SELECT OPTION' OF THE INPUT CARD IS NOT VALID. ACTION: INSERT THE CORRECT SORT SELECTION AND RESTART PROGRAM. 8. 'INVALID YEAR RANGE SELECTION - MUST BE NUMERIC **' ' YEAR ENTRY = ' XX 'AND/OR' XX' THE YEAR SELECTED IN THE TERM/YEAR RANGE OPTION IS NOT VALID. ACTION: INSERT A NUMERIC YEAR VALUE IN TERM/YEAR RANGE SELECTION AND RESTART PROGRAM. 9. 'INVALID YEAR RANGE PARM - BEG RANGE > END RANGE **' ' YEAR RANGE = ' XX '>' XX' THE BEGINNING YEAR RANGE SELECTED IS GREATER THAN THE ENDING YEAR RANGE SELECTED. ACTION: INSERT A BEGINNING YEAR VALUE THAT IS LESS THAN THE ENDING YEAR VALUE SELECTED. 10. 'INVALID BEG TERM RANGE SELECTED = ' XXXXXX' -OR- 'INVALID ENDING TERM RANGE SELECTED = ' XXXXXX' THE BEGINNING OR ENDING TERM SELECTED IS NOT WINTER, SPRING, SUMMER, OR FALL SO IT IS NOT A VALID TERM. ACTION: INSERT A VALID TERM SELECTION (WINTER IS VALID EVEN AFTER THE CONVERSION TO SEMESTERS). 11. 'ALU540 PARAMETER RECORD:' ' CAMPUS SELECTION = ' ' SORT SELECTION = ' ' BEG RANGE VALUE = ' ' END RANGE VALUE = ' THE PARAMETERS SELECTED VIA THE INPUT CARD ARE LISTED. ACTION: NO ACTION REQUIRED, FOR INFORMATIONAL PURPOSES. 12. '**** ALU540 TERMINATED ****' ONE OR MORE OF THE PARAMETERS SELECTED VIA THE INPUT CARD IS NOT VALID. THEREFORE, THE PROGRAM IS ABORTED. ACTION: CORRECT THE PARAMETERS IN THE INPUT CARD AND RESTART. 13. 'CALL TO CTLCAMPM SEGMENT FAILED' A GET UNIQUE WAS ATTEMPTED ON THE CONTROL DATABASE AND FAILED. PCB INFORMATION IS DISPLAYED, AND THE PROGRAM IS TERMINATED. ACTION: CONTACT THE REGIONAL COORDINATOR AT THE DATA CENTER. 14. 'CALL TO STUDENTH SEGMENT FAILED' -OR- 'DATA BASE ERROR - PROGRAM ABORTED' A GET NEXT WITHIN PARENT WAS ATTEMPTED ON THE STUDENT HISTORY DATA BASE (STUDENTH SEGMENT) AND FAILED. PCB INFORMATION IS DISPLAYED, AND THE PROGRAM IS TERMINATED. ACTION: CONTACT THE REGIONAL COORDINATOR AT THE DATA CENTER. 15. 'CALL TO STUHGRAD SEGMENT FAILED' A GET NEXT WITHIN PARENT WAS ATTEMPTED ON THE STUDENT HISTORY DATA BASE (STUHGRAD SEGMENT) AND FAILED. PCB INFORMATION IS DISPLAYED, AND THE PROGRAM IS TERMINATED. ACTION: CONTACT THE REGIONAL COORDINATOR AT THE DATA CENTER. 16. 'CALL TO STUGRADM SEGMENT FAILED' A GET NEXT WITHIN PARENT WAS ATTEMPTED ON THE ACTIVE STUDENT DATA BASE (STUGRADM SEGMENT) AND FAILED. PCB INFORMATION IS DISPLAYED, AND THE PROGRAM IS TERMINATED. ACTION: CONTACT THE REGIONAL COORDINATOR AT THE DATA CENTER. 17. 'CALL TO CURMASTR SEGMENT FAILED' A GET NEXT ON THE CURRICULUM DATA BASE (CURMASTER SEGMENT) WAS ATTEMPTED AND FAILED. PCB INFORMATION IS DISPLAYED, AND THE PROGRAM IS TERMINATED. ACTION: CONTACT THE REGIONAL COORDINATOR AT THE DATA CENTER. 18. 'INVALID DEGREE TYPE, SSN = 'SOCIAL-SECURITY' 'FORM PRINTED WITH QUESTION MARKS FOR DEGREE' THE DEGREE-TYPE WITHIN THE GRADUATE SEGMENT IS NOT EQUAL TO EITHER 0, 1, 2, 3, 4, 5, 6, OR 7. A FORM IS PRINTED FOR THAT GRADUATE, BUT THE DEGREE TYPE IS LISTED AS '????'. ACTION: ENTER THE CORRECT DEGREE TYPE VIA THE ONLINE PROGRAM GRP110 FOR FUTURE USE. 19. 'TEST PATTERN PRINTING FOR ALU540' TEST PATTERN IS PRINTING FOR PROPER ALIGNMENT BY THE OPERATOR. ACTION: THE OPERATOR SHOULD HAVE PROPER ALIGNMENT BEFORE LIVE DATA IS PRINTED. TEN TEST PATTERNS ARE PRINTED. 20. 'NO MASTER RECORD ON DATA BASE, SSN= 'SOCIAL-SECURITY' 'FORM NOT PRINTED FOR THIS STUDENT' 'CONTACT REGIONAL COORDINATOR' A HISTORY STUDENT HAS NO CORRESPONDING MASTER RECORD WHICH CONTAINS STUDENT'S NAME, ADDRESS, PHONE NUMBER, AND SO FORTH. ACTION: CONTACT THE REGIONAL COORDINATOR AT THE DATA CENTER. 21. 'CAMPUS ON GRADUATE RECORD IS BLANK, SSN = 'SOCIAL SECURITY' 'FORM NOT PRINTED FOR THIS STUDENT' THE CAMPUS WITHIN THE GRADUATE SEGMENT IS BLANK. ACTION: ENTER CAMPUS VIA ONLINE PROGRAM GRP110 FOR FUTURE USE. 6.0 SPECIAL FEATURES: ---------------- 6.1 CALLING PROGRAMS: N/A 6.2 SUBPROGRAMS CALLED: N/A 6.3 MESSAGE CODES: N/A 7.0 PROGRAM OPTIONS: NONE --------------- 8.0 PROGRAM CHANGE HISTORY: ---------------------- 8.1 VERSION NO: V3.3 (NEW PROGRAM) CHANGE DATE: OCTOBER 8, 1987 PROGRAMMER NAME: CAROL L. WEAVER PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: N/A 8.2 VERSION NO: V4.12 CHANGE DATE: 04/04/90 PROGRAMMER NAME: DARRELL SCRUGGS PROGRAM CHANGE REQUEST NO: 00005254 DESCRIPTION OF CHANGE: CORRECTED PARM CARD COLUMN NUMBERS FOR ENDING DATES IN DOC ONLY. 8.3 VERSION NO: V5.09 CHANGE DATE: 02/15/94 PROGRAMMER NAME: BARBARA SHANKO, ASC PROGRAM CHANGE REQUEST NO: 00011946 DESCRIPTION OF CHANGE: MODIFIED PROGRAM TO BRING 'CBLTDLI' CALLS INTO COMPLIANCE WITH THE STANDARD USE OF IOAREA PER PAGE 9 IN THE AUGUST 92 PROGRAM STANDARDS, PROCEDURES AND GUIDELINES MANUAL. 8.4 VERSION NO: V6.11 CHANGE DATE: 06/15/97 PROGRAMMER NAME: MYRA MAIORANA, TCC PROGRAM CHANGE REQUEST NO: 00017645 DESCRIPTION OF CHANGE: MODIFIED PROGRAM TO CLOSE ALL OPEN FILES AT END OF JOB TO PREVENT S0C3 WITH NEW VERSION OF IMS. MOVE 888 TO RETURN CODE FOR IMS ERRORS. 8.5 VERSION NO. V7.02 CHANGE DATE 01/99 PROGRAMMER ANDREW HASLETT REQUEST NO 00018008 DESCRIPTION MODIFY SIS PROGRAMS FOR YEAR 2000 CHANGES REQUIRED; COMPILED CLEANLY FOR COBOL II