0.010/29/98 SUE DOTSON 1.0 PROGRAM NARRATIVE ----------------- THIS PROGRAM PRODUCES A SUPPLEMENTAL DISBURSEMENT REPORT FOR FINANACIAL AID RECIPIENTS. WHEN A STUDENT'S FINANCIAL AID CHANGES AFTER THE TERM HAS BEEN CLOSED, THE FINANCIAL AID OFFICE USES FIN060 TO RECALCULATE THE AWARDS, ADJUSTMENTS, AND DISBURSE- MENTS FOR THE STUDENT AND FINANCIAL AID TYPE AFFECTED. THE CHANGES ARE IMMEDIATELY EFFECTIVE IN THE SYSTEM, AND THE UPDATES ARE LOGGED TO THE WORK DATA BASE. THIS PROGRAM, FIN360 IS RUN TO PRINT THE 'FINANCIAL AID SUPPLEMENTAL DISBURSEMENT REPORT', USING THE LOG RECORDS. THE REPORT IS IN THE SAME FORMAT AS THE FIN369 WHICH GENERATES THE PRELIMINARY AND FINAL DISBURSEMENT REPORTS, AND IS GENERALLY ACCEPTED AS THE OFFICIAL FINANCIAL AID RECORD OF AWARDS AND DISBURSEMENTS. THE FIN360 CAN BE ATTACHED TO THE FINAL FIN369 RUN TO REFLECT THE UPDATES. FIN360 CALLS FIVE SUBPROGRAMS TO CALCULATE THE AMOUNTS THAT ARE TO BE REPORTED. FIN321S INITIALIZES THE PROGRAM WORK AREAS AND CALCULATES THE TUITION AND FEE TOTALS, CHARGED TO FINANCIAL AID ACCOUNTS, PAID BY ANY OTHER SOURCE, AND STILL DUE. FIN331S IS USED TO CALCULATE TERM AND YEAR-TO-DATE DISBURSEMENTS FOR PELL GRANT RECIPIENTS. FIN341S PERFORMS THE SAME FUNCTION FOR SEOG, AS DOES FIN351S FOR CSAP AND FIN361S FOR LOANS/GRANTS. THE DATA IS NOT UPDATED IN ANY WAY, IT IS ONLY RETRIEVED FROM THE EXISTING DATA BASE RECORDS AND PRINTED. SHOULD THE INFORMATION CHANGE AGAIN, IT WOULD BE NECESSARY TO USE FIN060 TO UPDATE AND RE-RUN FIN360 TO PRINT THE SUPPLEMENTAL REPORT. AN OPTION RECORD IS REQUIRED TO SELECT THE FINANCIAL AID ACCOUNTS THAT ARE TO BE REPORTED IN THIS RUN. ANY AND ALL AID AWARDS ADJUSTED BY FIN060 CAN BE SELECTED. THE LOG RECORDS WILL BE SELECTED ACCORDINGLY AND DELETED AT THE END OF THE RUN. THE REPORT CAN BE SORTED BY CAMPUS OR COLLEGE. SEPARATE TOTALS ARE GIVEN WHEN THE RUN INCLUDES MORE THAN ONE FINANCIAL AID TYPE. SINCE THE FINANCIAL AID DATA BASE IS UPDATED WHEN FIN060 IS USED TO CORRECT THE TERM TOTAL RECORDS, AND THE LOG RECORDS ARE WRITTEN TO THE WORK DATA BASE TO BE USED BY FIN360 AT A LATER TIME, OCCASIONALLY THE STUDENT'S SOCIAL SECURITY NUMBER MAY BE CHANGED, OR OTHER CIRCUMSTANCES CAUSE A MISMATCH BETWEEN THE WORK RECORD AND THE FINANCIAL AID DATA BASE. AN ERROR REPORT WILL BE GENERATED AUTOMATICALLY WHEN ONE OF THESE SITUATIONS OCCUR. THE WORK RECORD WILL BE DELETED AND AN ENTRY WILL BE PRINTED LISTING THE STUDENT'S SOCIAL SECURITY FROM THE WORK RECORD, THE DATA FROM THE WORK RECORD AND MESSAGES THAT PROVIDE INFORMATION WHY THE RECORD CANNOT BE PROCESSED NORMALLY. THE FINANCIAL AID OFFICE CAN USE THE ERROR REPORT TO INVESTIGATE WHY THE STUDENT'S DATA WAS CHANGED AFTER THE TERM WAS CLOSED, AND WHEN APPROPRIATE, UPDATE AGAIN VIA FIN060. THE PROGRAM WILL CONTINUE TO PROCESS THE OTHER LOG RECORDS AS USUAL RATHER THAN TERMINATING BECAUSE THE MISMATCH WAS FOUND. 2.0 SAMPLE JCL ---------- 2.1 RUN JCL ------- //SRFIN360 JOB (XXXX,YYYY,9,29),FIN360,CLASS=O, // MSGCLASS=A,MSGLEVEL=(0,0),REGION=4096K /*ROUTE PRINT RMTZZ /*SETUP ** * * * * * * * * * * * * * * * /*SETUP ** THIS UPDATE JOB WILL REQUIRE TAPE(S) WITH RING /*SETUP ** FROM THE BATCH SCRATCH POOL. /*SETUP ** NEVER REPLY 'U' /*SETUP ** * * * * * * * * * * * * * * * //* //FIN360 EXEC FIN360,AGENCY=XXX,COLLEGE=XX //FIN360.PARMCARD DD * --INPUT PARAMETER -- /* // SYMBOLIC DESCRIPTION ******************** REQUIRED - AGENCY COLLEGE AGENCY CODE NUMBER (E.G. AGENCY=293) COLLEGE TWO CHARACTER COLLEGE NAME ABBREVIATION (E.G. COLLEGE=TN) OPTIONAL - FORM = FORM NUMBER THE SUPPLMENTARY REPORT OUTPUT IS TO BE STORED UNDER (DEFAULT = A000) (E.G. FORM=0001) QUEUE = QUEUE CLASS THE OUTPUT IS TO SPOOLED UNDER (DEFAULT = '*') (E.G. QUEUE='J') FORM2 = FORM NUMBER THE ERROR REPORT OUTPUT IS TO BE STORED UNDER (DEFAULT = A000) (E.G. FORM=0001) QUEUE2 = QUEUE CLASS THE OUTPUT IS TO SPOOLED UNDER (DEFAULT = '*') (E.G. QUEUE='J') SRTSIZE = AMOUNT OF DASD STORAGE IN CYLINDERS ALLOCATED TO EACH SORT WORK FILE (DEFAULT = 2) (E.G. SRTSIZE=3) 2.2 INPUT PARAMETER --------------- PARAMETER CARD 1 POS CONTENTS --- -------- 1-6 CURRENT TERM (E.G., WINTER, SPRING, SUMMER OR FALL) 7-8 LAST TWO DIGITS OF CURRENT YEAR (E.G., '85') 9-11 SORT OPTION - 'CAM' FOR SORT BY CAMPUS 'SCH' FOR SORT BY COLLEGE 12-80 FILLER PARAMETER CARD 2 POS CONTENTS --- -------- 1-4 AWARD TO BE SELECTED 5-8 AWARD TO BE SELECTED 9-12 AWARD TO BE SELECTED 13-16 AWARD TO BE SELECTED 17-20 AWARD TO BE SELECTED 21-24 AWARD TO BE SELECTED 25-28 AWARD TO BE SELECTED 29-32 AWARD TO BE SELECTED 33-36 AWARD TO BE SELECTED 37-40 AWARD TO BE SELECTED 41-44 AWARD TO BE SELECTED 45-48 AWARD TO BE SELECTED 49-52 AWARD TO BE SELECTED 53-56 AWARD TO BE SELECTED 57-60 AWARD TO BE SELECTED 61-64 AWARD TO BE SELECTED 65-68 AWARD TO BE SELECTED 69-72 AWARD TO BE SELECTED 73-76 AWARD TO BE SELECTED 77-80 AWARD TO BE SELECTED 3.0 JOB SETUP INSTRUCTIONS ---------------------- FORMS BUFFER: ALIGNMENT INSTRUCTIONS: A000 - STANDARD LINE UP PRINTED OUTPUT: FINANCIAL AID SUPPLEMENTAL UPDATE REPORT FINANCIAL AID SUPPLEMENTAL ERROR REPORT FORMS TYPE: SPECIAL INSTRUCTIONS: AN INPUT RECORD MUST BE PREPARED BEFORE RUNNING THE PROGRAM. 4.0 FILES ----- 4.1 DATA BASE SEGMENTS USED: 1. ACCDBD A. ACCTMSTR (READ) 2. CTLDBD A. CTLCAMPM (READ) B. CTLMESSG (READ) C. CTLQUART (READ) D. CTLPROPT (READ) E. CTLFINYR (READ) 3. FINDBD A. FINMASTR (READ) B. PELLADJ (READ) C. PELLAWRD (READ) D. PELLDISB (READ) E. PELLQTOT (READ) F. SEOGADJ (READ) G. SEOGAWRD (READ) H. SEOGDISB (READ) I. SEOGQTOT (READ) J. CSAPADJ (READ) K. CSAPAWRD (READ) L. CSAPDISB (READ) M. CSAPQTOT (READ) N. LOANMSTR (READ) O. LOANADJ (READ) P. LOANDISB (READ) Q. LOANQTOT (READ) K. CWSPPAY (DELETE) T. GRNTAWRD (READ, ADD, UPDATE, DELETE) U. GRNTADJ (READ BY FIN361S, DELETE) V. GRNTDISB (READ BY FIN361S, DELETE) W. GRNTQTOT (READ BY FIN361S, ADD, DELETE) 4. STUDBD A. STUDENTM (READ) B. STUACCTD (READ) C. STUREGIS (READ) D. STUOBLIG (READ) 5. WKDBD A. WORKMSTR (READ) B. WORKDTLU (READ, DLET) 4.2 ADDITIONAL FILES USED: N/A 4.3 INPUT/OUTPUT RECORD LAYOUT: N/A 5.0 SPECIAL OUTPUT MESSAGES ----------------------- ERRORS IN THE HEADER CARD WILL BE DETECTED BY THE PROGRAM; AN APPROPRIATE MESSAGE WILL BE PRINTED; AND THE JOB WILL BE TERMI- NATED. THE OPERATOR SHOULD CORRECT THE HEADER CARD AND/OR THE PARAMETER CARD AND RERUN THE JOB. FATAL ERRORS RESULTING FROM DL/I CALLS WILL ALSO CAUSE THE PROGRAM TO TERMINATE. THESE CONDITIONS SHOULD BE BROUGHT TO THE ATTENTION OF THE REGIONAL COORDINATOR. 6.0 SPECIAL FEATURES ---------------- 6.1 CALLING PROGRAMS: N/A 6.2 SUBPROGRAMS CALLED: FIN321S FIN331S FIN341S FIN351S FIN361S UTL100S 6.3 MESSAGE CODES: N/A 7.0 PROGRAM OPTIONS: N/A --------------- 8.0 PROGRAM CHANGE HISTORY: ---------------------- 8.1 VERSION NO: V4.14 (INITIAL RELEASE) CHANGE DATE: 06/22/90 PROGRAMMER NAME: SUE DOTSON, JSR PROGRAM CHANGE REQUEST NO: I:00004005 DESCRIPTION OF CHANGE: RELEASE VERSION NEW PROGRAM TO PRINT SUPPLEMENTAL DISBURSEMENT REPORT FROM LOG RECORDS CREATED BY FIN060. 8.2 VERSION NO: V4.20 CHANGE DATE: 02/11/91 PROGRAMMER NAME: CAMPER PROGRAM CHANGE REQUEST NO: 00006624 DESCRIPTION OF CHANGE: - MODIFICATIONS WERE MADE TO THE CALLS TO ALL DATA BASES TO BRING THESE CALLS UP TO THE STANDARD USE OF AN IOAREA. SEE PAGE 29 OF THE 02/90 PROGRAMMING STANDARD, PROCEDURES AND GUIDELINES MANUAL. 8.3 VERSION NO: V4.24 CHANGE DATE: 06/15/91 PROGRAMMER NAME: SUE DOTSON PROGRAM CHANGE REQUEST NO: 00007763 DESCRIPTION OF CHANGE: - ADDED EXCEPTION REPORT TO PRINT LOG RECORDS WHEN THE PROGRAM ENCOUNTERS AN UNUSUAL SITUATION TRYING TO PROCESS WORK DATA BASE RECORD. PROGRAM NO LONGER ABENDS, INDSTEAD PRINTS THE INFORMATION FROM THE LOG RECORD AND CONTINUES. 8.4 VERSION NO: V4.27 CHANGE DATE: 09/06/91 PROGRAMMER NAME: KATHY HARCUM PROGRAM CHANGE REQUEST NO: 00008226 DESCRIPTION OF CHANGE: -RECOMPILED AND TESTED AGAINST CONVERTED DATA BASES TO INCLUDE NEW ACCTMSTR AND STUACCTD COPY MEMBERS. 8.5 VERISON NO: V4.35S CHANGE DATE: 06/18/92 PROGRAMMER NAME: BONNIE HEFNER PROGRAM CHANGE REQUEST NO: 00010256 DESCRIPTION OF CHANGE: -PSB CHANGED TO SUPPORT THE REC531S SUBPROGRAM ACCESSING THE STUEXTEN SEGMENT. 8.6 VERISON NO: V4.42 CHANGE DATE: 01/15/93 PROGRAMMER NAME: RH.CLARK PROGRAM CHANGE REQUEST NO: 00010504, 00010465 DESCRIPTION OF CHANGE: -PSB MODIFIED TO ACCESS ALL SEGMENTS FOR LOANS AND GRANTS. -FIN361S IS CALLED TO DETERMINE REMAINING YEARLY AWARD AMOUNTS FOR LOANS AND GRANTS. -ADDED NEW PARAMETER RECORD TO EXPAND THE SELECTION OPTION FOR LOANS AND BRANTS TO BE SELECTED. UP TO 20 CAN BE SELECTED FOR EACH RUN. -MODIFIED CALL CHAIN FOR FIN321S TO INCLUDE AIDLINK AREA FOR LOAN/GRANT AMOUNTS. ALSO ADDED SETTING OF ACCTDATA- CALL-FLAG AND FINAID-ACCT-FLAG FOR FIN321S. -MODIFIED PROGRAM TO CORRECT A PROBLEM THAT CAUSED THE THE PROGRAM TO ABEND 0C4 WHEN THERE WERE NO TRANSACTIONS TO PROCESS. 8.7 VERISON NO: V5.04 CHANGE DATE: 10/15/93 PROGRAMMER NAME: BARBARA SHANKO, ASC PROGRAM CHANGE REQUEST NO: 00013121 DESCRIPTION OF CHANGE: -ADDED 'C' TO JURISDICTION OUT-OF-STATE TEST. 8.8 VERSION NO: V5.13 CHANGE DATE: 06/17/94 PROGRAMMER NAME: KATHY CAMPER PROGRAM CHANGE REQUEST NO: 00013658 DESCRIPTION OF CHANGE: -MODIFIED PROGRAM TO NOT PRINT 'BASE AWARD > TERM AWARD' WHEN MAX-TERM-PER-CREDIT FIELD IN CTLFAPGM IS NOT "T". 8.9 VERSION NO: V5.19 CHANGE DATE: 12/15/94 PROGRAMMER NAME: MACK PEACOCK PROGRAM CHANGE REQUEST NO: 00014741 DESCRIPTION OF CHANGE: -RE-COMPILED TO INCLUDE NEW COPYBOOK LAYOUT FOR THE PELLAWRD AND PELLQTOT SEGMENTS. 8.10 VERSION NO: V6.0 CHANGE DATE: 12/15/95 PROGRAMMER NAME: BARBARA TRUITT PROGRAM CHANGE REQUEST NO: 00014741 DESCRIPTION OF CHANGE: CHANGED PROGRAM TO GET TERM CLOSED FLAGS FROM THE CTLFINYR AND CTLFAPGM SEGMENTS. PROGRAM CHANGE REQUEST NO: 00014866 DESCRIPTION OF CHANGE: CHANGED PROGRAM TO MOVE 888 TO RETURN CODE INSTEAD OF 999. 8.11 VERSION NO: V7.00 CHANGE DATE: 11/97 PROGRAMMER NAME: K CAMPER PROGRAM CHANGE REQUEST NO: 15469 DESCRIPTION OF CHANGE: ADDED TRMDBD FOR FEES PROJECT CHANGES. REMOVED REFERENCES TO SPECIFIC FEES, INSTEAD USE TOTAL FEES. **CORRECTED PROBLEM FOUND IN FEES TESTING: PROGRAM WAS ALWAYS ATTEMPTING TO RETRIEVE A PELLAWRD SEGMENT EVEN IF THE RUN WAS NOT FOR PELL AND PELL WAS NOT A CHANGED AWARD IN THE STUDENT'S LOG FILE RECORD. 8.12 VERSION NO: V7.02 CHANGE DATE: 08/98 PROGRAMMER NAME: KATHY CAMPER PROGRAM CHANGE REQUEST NO: DESCRIPTION OF CHANGE: RECOMPILED AND TESTED FOR NEW COBOL COMPILER. MODIFIED FOR Y2K, NOW CALLS UTL100S.