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