*S*************************************************************************         
*S***       
*S***                              WolffPack    
*S***       
*S*** Subroutine: WFADDLDE          
*S*** System    : FINANCIER         
*S*** Title     : ADD Load subroutine           
*S*** Function  : This subroutine calls routines that load data and     
*S***             perform calculations.         
*S***       
*S***      Copyright 1995 - 2012 WolffPack, Inc.  All rights reserved.  
*S***       
*S*************************************************************************         
*S**DEFINE DATA         
*S**  GLOBAL USING WWGDA
*S**  PARAMETER         
*S**   01 #PARAMETER-FIELDS         
*S**     02 #PGM-PARAMETERS         
*S**       03 #EARLIER-REC(A1)      
*S**       03 #FED-REJ-CASE(A1)     
*S**       03 #OVRD-FED-REJ(A1)     
*S**       03 #OVRD-C-PEND(A1)      
*S**       03 #OVRD-C-XMIT(A1)      
*S**       03 #OVRD-LOCKED(A1)      
*S**       03 #OVRD-VERIFD(A1)      
*S**       03 #OVRD-PACKAGE(A1)     
*S**     02 #PASSED-PARAMETERS      
*S**       03 #INPUT-COUNTER(P7)    
*S**       03 #NEW-REJ-COUNTER(P7)  
*S**       03 #RE-REJ-COUNTER(P7)   
*S**       03 #BYPASS-COUNTER(P7)   
*S**       03 #ADD-RECORD-COUNTER(P7)           
*S**       03 #PROCESSED-RECORD(L)  
*S**  PARAMETER USING WFADDDSD      
*S***       
*S**  LOCAL 
*S**   01 #VER-STAT(A1) 
*S***       
*S**   01 #SUBPGM-ID(A8)
*S**   01 #AID-CCYY(A4) 
*S**   01 REDEFINE #AID-CCYY        
*S**     02 #AID-CC(A2) 
*S**     02 #AID-YY(A2) 
*S**   01 #BYPASS-STUDENT(L)        
*S**END-DEFINE          
*S***       
*S***       
*S*************************************************************************         
*S**DEFINE SUBROUTINE LOAD-STUDENT  
*S*************************************************************************         
*S***       
*S**PROG.   
*S**  REPEAT
*S**    /*  
*S**    /* Call year specific subroutine depending on data source       
*S**    MOVE ##AID-YEAR TO #AID-CCYY
*S**    DECIDE ON FIRST VALUE OF WFADDDSD.WF-AD-SOURCE      
*S**      VALUE 'F'     
*S**        COMPRESS 'WFFEL' #AID-YY 'N' INTO #SUBPGM-ID LEAVING NO     
*S**        CALLNAT #SUBPGM-ID WW-GDA #PARAMETER-FIELDS     
*S**                           WFADDDSD WFADDDSD-ID         
*S**      VALUE 'G'     
*S**        COMPRESS 'WFFGL' #AID-YY 'N' INTO #SUBPGM-ID LEAVING NO     
*S**        CALLNAT #SUBPGM-ID WW-GDA #PARAMETER-FIELDS     
*S**                           WFADDDSD WFADDDSD-ID         
*S**      VALUE 'C'     
*S**        COMPRESS 'WFCSL' #AID-YY 'N' INTO #SUBPGM-ID LEAVING NO     
*S**        CALLNAT #SUBPGM-ID WW-GDA #PARAMETER-FIELDS     
*S**                           WFADDDSD WFADDDSD-ID         
*S**      VALUE 'N'     
*S**        COMPRESS 'WFCNL' #AID-YY 'N' INTO #SUBPGM-ID LEAVING NO     
*S**        CALLNAT #SUBPGM-ID WW-GDA #PARAMETER-FIELDS     
*S**                           WFADDDSD WFADDDSD-ID         
*S**      NONE          
*S**        IGNORE      
*S**    END-DECIDE      
*S**    IF NOT #PROCESSED-RECORD    
*S**      ESCAPE BOTTOM(PROG.)      
*S**    END-IF          
*S**    /*  
*S**    /* Perform Budget calc      
*S**    PERFORM CALC-BUDGET         
*S**    /*  
*S**    /* Calculate application requirements   
*S**    MOVE WFADDDSD.WF-AD-SOURCE TO ##PASS-ACTION         
*S**    PERFORM CALC-APPL-REQ       
*S**    RESET ##PASS-ACTION         
*S**    /*  
*S**    /* Need analysis calc       
*S**    PERFORM CALC-NEED-ANALYSIS  
*S**    /*  
*S**    /* Verification calc (if previously verified)       
*S**    IF WFADDDSD.WF-AD-SOURCE = 'F'          
*S**        PERFORM CALC-VERIFICATION #BYPASS-STUDENT       
*S**    END-IF          
*S**    /*  
*S**    ESCAPE BOTTOM(PROG.)        
*S**  END-REPEAT        
*S**END-SUBROUTINE /* LOAD-STUDENT  
*S**END     
