JOB NAME: LLTF Correction for loan disbursements JOB PURPOSE: This job is to create a finder file from the BRS VSAM Master Detail file and create transactions to be fed into LAPR001. If LAPR001 is executed in non-update mode, then only reports will be generated. JOB SUBMISSION: *Normal Run Frequency: As requested. PROGRAM LIST: *LAPR022 User subcode select report *LAPR001 - Creates student loan transactions to update eduserv loan system. JOB SETUP: *Symbolic Parameters: CAMPUS campus abbreviation in two character format AWARD YEAR last digit of award year DSN dsn of BRS Master file tape TAPE NUMBER tape number for BRS Master file PRTM1 - Dispatch parameters for reports UPDATE N for reports only, Y for updating eduserv files *Control records: 0190 LAPR022 SUBCODE SELECT PARAMETER (PRECEDES) REQUIRED 01 06 PROGRAM LITERAL LAP022. 07 07 ACCOUNT: A = ALL ACCOUNTS S = STUDENTS ONLY X = EXTERNAL ONLY 08 08 SEQUENCE: A = ALPHA SORT N = ACCOUNT NUMBER SORT BLANK = ALPHA 09 09 CHARGE/PAYMENT: C = CHARGES ONLY P = PAYMENTS ONLY A or BLANK = ALL 10 10 DEBIT/CREDIT: D = DEBITS ONLY C = CREDITS ONLY A or BLANK = ALL 11 11 BILLED: B = BILLED ITEMS ONLY U = UNBILLED ONLY A or BLANK = ALL ITEMS 12 12 PRINT: S = PAGE BREAK AND SUBTOTAL BY SUBCODE N = SUMMARY ONLY T or BLANK = PRINT ALL 14 14 CURRENT/HISTORY: H = HISTORY FILE ONLY C or BLANK = CURRENT FILE ONLY 16 16 PUNCH: D = PUNCH DETAIL USE THIS FOR FILE FOR LAPR001 N = NO PUNCH FILE S = PUNCH SUMMARY 18 18 USER/SUBCODE: S = SPECIFIC SUBCODES U = USER CODE SELECT 20 30 SUBCODE RANGE OR USER CODES: SUBCODE FORMAT: XXXXX-XXXXX USER CODE(S) FORMAT: X (BLANK IS VALID) 32 66 DESCRIPTION: REPORT TITLE. WILL DEFAULT TO PROGRAM TITLE 67 69 YEAR/TERM1: FORMAT YYT. VALID TERM=B I G P BLANK YYT IS VALID (NO SELECT) 70 72 YEAR/TERM2: SAME AS YEAR/TERM1 73 75 YEAR/TERM3: SAME AS YEAR/TERM1 76 80 EXTERNAL CODE: USER SPECIFIED 0190 LAPR022 DATE RANGE PARAMETER (PRECEDES) OPTIONAL 01 06 PROGRAM LITERAL LAP022. 08 13 BEGINNING CUTOFF DATE: EX: MMDDYY 15 20 ENDING CUTOFF DATE: EX: MMDDYY 0190 LAPR022 SUBCODE PARAMETER (PRECEDES) OPTIONAL (MAX 100) 01 06 PROGRAM LITERAL LAP022. 07 11 SUBCODE (1) TO BE SELECTED 13 17 SUBCODE (2) TO BE SELECTED 19 23 SUBCODE (3) TO BE SELECTED 25 29 SUBCODE (4) TO BE SELECTED 31 35 SUBCODE (5) TO BE SELECTED 37 41 SUBCODE (6) TO BE SELECTED 43 47 SUBCODE (7) TO BE SELECTED 49 53 SUBCODE (8) TO BE SELECTED 55 59 SUBCODE (9) TO BE SELECTED 61 65 SUBCODE (10) TO BE SELECTED 67 71 SUBCODE (11) TO BE SELECTED 73 77 SUBCODE (12) TO BE SELECTED 0190 LAPR022 BILL CYCLE SELECT PARAMETER (PRECEDES) OPTIONAL 01 07 PROGRAM LITERAL LAP022. 08 11 TYPE OF SELECT: INCL or EXCL. 12 12 FILLER 13 14 BILL CYCLE TYPE 1: EX: BD 15 80 BILL CYCLE TYPE OCCURS 22 TIMES. EX: FA ** AFTER LAST BILL CYCLE TYPE. 0210 LAPR001 CONTROL PARAMETER (PRECEDES) REQUIRED 01 07 PROGRAM LITERAL LAPR001. 08 08 FILLER. 09 10 ACADEMIC UNIT: UCB=B1, HSC=H1, UCD=D1, UCCS=C1 11 11 FILLER 12 13 AWARD YEAR: EX: 93 14 14 FILLER 15 16 FINANCIAL UNIT: UCB=F1, HSC=F4, UCD=F3, UCCS=F2 17 17 FILLER 18 22 PRIME RATE FOR HSC INST. LOANS. IF NO RATE, MUST BE ZEROS. 23 23 FILLER 24 24 UPDATE: Y or - WILL UPDATE LAM FILES N - REPORTS ONLY FILES: *Input: (T) BRS.HISTORY.Y&BEGYT&ENDYT (D) BRSV.MDFL (E) BRS.CNTLFL (D) LAMV.LOAN.MASTER (D) LAM.FIX.LLTF.FINDER.&CAMPUS&AWDYR (D) LAM.FIX.NEWLOANS (D) LAM.FIX.ADVANCES (D) LAM.FIX.REVERSAL (D) LAM.CNTL.BATCHNEW (D) LAM.CNTL.BATCHADV (D) LAM.CNTL.BATCHREV *Output: (D) LAM.FIX.LLTF.FINDER.&CAMPUS&AWDYR (D) LAM.FIX.DISB.RPTFILE&CAMPUS&AWDYR (E) LAM.FIX.NEWLOANS (F) LAM.FIX.ADVANCES (G) LAM.FIX.REVERSAL (H) LAM.FIX.DISB.SETUP.&CAMPUS&AWDYR (T) LAM.FIX.EDUSERV.NEWLOAN (T) LAM.FIX.EDUSERV.ADVANCE (T) LAM.FIX.EDUSERV.REVERSE (T) LAM.FIX.EDU.NEW.BCKUP (T) LAM.FIX.EDU.ADV.BCKUP (T) LAM.FIX.EDU.REV.BCKUP (D) LAM.FIX.TEMP.NEWLOAN (D) LAM.FIX.SORT.NEWLOAN (D) LAM.FIX.TEMP.ADVANCES (E) LAM.FIX.TEMP.REVERSE (F) LAM.FIX.CNTL.BATCHNEW.BACKUP (G) LAM.FIX.CNTL.BATCHADV.BACKUP (H) LAM.FIX.CNTL.BATCHREV.BACKUP (I) LAM.FIX.NEWLOANS (RE-INITIALIZE) (J) LAM.FIX.ADVANCES (RE-INITIALIZE) (K) LAM.FIX.REVERSAL (RE-INITIALIZE) (L) LAM.CNTL.BATCHNEW (UPDATE) (M) LAM.CNTL.BATCHADV (UPDATE) (N) LAM.CNTL.BATCHREV (UPDATE) (O) LAM.FIX.EDU.NEW.DISK (P) LAM.FIX.EDU.ADV.DISK (Q) LAM.FIX.EDU.REV.DISK (R) LAM.FIX.TEMPM.ADVANCES (D) LAM.FIX.TEMP.MULT.ADVANCES *I/O: NONE REPORTS: *Title: LAP022 *Description: subcode select report. *Title: TSVC6 *Description: eduserv trans report. *Title: LLTC2 *Description: newloan batch summary. *Title: LLTC3A *Description: advances combined per program number. *Title: LLTC4 *Description: advances batch summary. *Title: LLTC6 *Description: reversal batch summary. PROGRAM NAME AND DESCRIPTION: *LAPR022 - User subcode select report. MESSAGE: SC SELECT TABLE SIZE EXCEEDED ACTION: DECREASE # OF SELECTED SUBCODES ON CONTROL CARD, RERUN. MESSAGE: UNSUCCESSFUL SORT. ACTION: VERIFY FILES, RERUN. MESSAGE: PROGRAM LOGIC ERROR ACTION: BAD DATA. NOTIFY PRODUCTION MANAGER. MESSAGE: SUBCODE TABLE SIZE EXCEEDED. ACTION: INCREASE TABLE SIZE IN PROGRAM. RECOMPILE. RERUN. MESSAGE: CUTOFF BEGIN DATE NOT NUMERIC. ACTION: CORRECT CONTROL CARD 2. RERUN. MESSAGE: CUTOFF END DATE NOT NUMERIC. ACTION: CORRECT CONTROL CARD 2. RERUN. *LAPR001 - SIS/loan interface. MESSAGE: INVALID PROGRAM NAME. ACTION: CORRECT CONTROL CARD, RESTART STEP 3. MESSAGE: INVALID ACADEMIC UNIT. ACTION: CORRECT CONTROL CARD, RESTART STEP 3. MESSAGE: INVALID AWARD YEAR. ACTION: CORRECT CONTROL CARD, RESTART STEP 3. MESSAGE: INVALID FINANCIAL UNIT. ACTION: CORRECT CONTROL CARD, RESTART STEP 3. MESSAGE: PRIME RATE NOT NUMERIC ACTION: CORRECT CONTROL CARD, RESTART STEP 3. MESSAGE: MSG06 UPDATE OPTION, COL 24 MUST BE Y, N, or SPACE ACTION: CORRECT CONTROL CARD, RESTART STEP 3. RERUN INSTRUCTIONS: LLTF Setup # Program Name 1 CORRECT ERROR AND RERUN JOB. IEFBR14 MESSAGE: SEE SYSTEM UTILITIES MESSAGES MANUAL. ACTION: CORRECT ERROR AND RERUN JOB. 2 CORRECT ERROR AND RERUN JOB. LAPR022 SEE ABOVE FOR MESSAGES AND ACTION 3 CORRECT ERROR AND RESTART STEP 3 IEFBR14 MESSAGE: SEE SYSTEM UTILITIES MESSAGES MANUAL. ACTION: CORRECT ERROR. 3A CORRECT ERROR AND RESTART STEP 3 LAPR001 SEE ABOVE FOR MESSAGES AND ACTION 4 CORRECT ERROR AND RESTART STEP 4. EZTPA00 MESSAGE: SEE EASYTRIEVE ERROR MESSAGES MANUAL. ACTION: CORRECT ERROR. 5 CORRECT ERROR AND RESTART STEP 4. N684 MESSAGE: PREVIOUS STEP IN JOB DID NOT RUN. ACTION: CORRECT ERROR 6 CORRECT ERROR AND RESTART STEP 6. N151 MESSAGE: FORMAT ERROR. ACTION: CHECK FORMAT IN UMS.PROD.DATA. 7 CORRECT ERROR AND RESTART STEP 7. IEFBR14 MESSAGE: SEE SYSTEM UTILITIES MESSAGES MANUAL. ACTION: CORRECT ERROR. 8 CORRECT ERROR AND RESTART STEP 8. EZTPA00 MESSAGE: NO BATCHES THIS RUN. ACTION: NONE FYI ONLY. MESSAGE: TABLE OVERFLOW. ACTION: INCREASE TABLE SIZE. MESSAGE: EASYTRIEVE ERRORS. ACTION: SEE EASYTRIEVE MESSAGES MANUAL. 9 CORRECT ERROR AND RESTART STEP 8. N684 MESSAGE: PREVIOUS STEP IN JOB DID NOT RUN. ACTION: CORRECT PROBLEM IN PREVIOUS STEP. 10 CORRECT ERROR AND RESTART STEP 10. IEBGENER MESSAGE: UTILITIES ERROR. ACTION: LOOKUP ERROR. 11 CORRECT ERROR AND RESTART STEP 11. EZTPA00 MESSAGE: LLTC3A NO INPUT THIS RUN. ACTION: NONE FYI ONLY. MESSAGE: THIS STUDENT EXCEEDS TABLE LIMITS. ACTION: NONE FYI ONLY MESSAGE: EASYTRIEVE ERRORS. ACTION: SEE EASYTRIEVE MESSAGES MANUAL 12 CORRECT ERROR AND RESTART STEP 11. N684 MESSAGE: PREVIOUS STEP IN JOB DID NOT RUN. ACTION: CORRECT PROBLEM IN PREVIOUS STEP. 13 CORRECT ERROR AND RESTART STEP 13. EZTPA00 MESSAGE: NO BATCHES THIS RUN. ACTION: NONE FYI ONLY. MESSAGE: TABLE OVERFLOW. ACTION: INCREASE TABLE SIZE. MESSAGE: EASYTRIEVE ERRORS. ACTION: SEE EASYTRIEVE MESSAGES MANUAL 14 CORRECT ERROR AND RESTART STEP 13. N684 MESSAGE: PREVIOUS STEP IN JOB DID NOT RUN. ACTION: CORRECT PROBLEM IN PREVIOUS STEP 15 CORRECT ERROR AND RESTART STEP 15. IEBGENER MESSAGE: UTILITIES ERROR. ACTION: LOOKUP ERROR. 16 CORRECT ERROR AND RESTART STEP 16. EZTPA00 MESSAGE: NO BATCHES THIS RUN. ACTION: NONE FYI ONLY. MESSAGE: TABLE OVERFLOW. ACTION: INCREASE TABLE SIZE. MESSAGE: EASYTRIEVE ERRORS. ACTION: SEE EASYTRIEVE MESSAGES MANUAL 17 CORRECT ERROR AND RESTART STEP 16. N684 MESSAGE: PREVIOUS STEP IN JOB DID NOT RUN. ACTION: CORRECT PROBLEM IN PREVIOUS STEP. 18-24 CORRECT ERROR AND RESTART SAME STEP IEBGENER MESSAGE: UTILITY MESSAGE. ACTION: LOOK UP MESSAGE. 25-26 CORRECT ERROR AND RESTART SAME STEP IEFBR14 MESSAGE: UTILITY MESSAGE. ACTION: LOOK UP MESSAGE. 27 CORRECT ERROR AND RESTART STEP 27. IDCAMS MESSAGE: UTILITY MESSAGE. ACTION: LOOK UP MESSAGE. CHANGE LOG: 970127 New job , MR11863