*S*************************************************************************         
*S***       
*S***                              WolffPack    
*S***       
*S*** Subroutine: WFNSL26E          
*S*** System    : FINANCIER         
*S*** Title     : 2025-26 NSLDS Load subroutine 
*S*** Function  : This external subroutine loads the student's          
*S***             NSLDS record from an external federal record.         
*S***             It is performed during the ADD Load process.          
*S***       
*S***      Copyright 1995 - 2025 WolffPack, Inc.  All rights reserved.  
*S***       
*S*************************************************************************         
*S**DEFINE DATA         
*S**  GLOBAL USING WWGDA
*S**  PARAMETER         
*S**   01 PASSED-NSLDS  
*S**     02 WF-NSLDS1(A250)         
*S**     02 WF-NSLDS2(A250)         
*S**     02 WF-NSLDS3(A250)         
*S**     02 WF-NSLDS4(A250)         
*S**     02 WF-NSLDS5(A250)         
*S**     02 WF-NSLDS6(A250)         
*S**     02 WF-NSLDS7(A250)         
*S**     02 WF-NSLDS8(A250)         
*S**     02 WF-NSLDS9(A250)         
*S**     02 WF-NSLDS10(A250)        
*S**     02 WF-NSLDS11(A51)         
*S***       
*S**  LOCAL USING WFNSL26L          
*S**  LOCAL USING WFNSL26D /* Passed to object subprogram   
*S**  LOCAL USING WFNSL26R /* Passed to object subprogram   
*S**  LOCAL USING WWAOBJ   /* Passed to object subprogram   
*S**END-DEFINE          
*S***       
*S***       
*S*************************************************************************         
*S**DEFINE SUBROUTINE LOAD-NSLDS-2526           
*S*************************************************************************         
*S**  /*    
*S**  /* Set up record keys         
*S**  ASSIGN WFNSL26D.WF-FAO = ##FAO-ID         
*S**  ASSIGN WFNSL26D.WW-STUDENT-ID = ##STUDENT-ID          
*S**  /*    
*S**  /* Get NSLDS record           
*S**  MOVE 'GET' TO WWAOBJ.#FUNCTION
*S**  CALLNAT 'WFNSL26O' WW-GDA     
*S**           WFNSL26D 
*S**           WFNSL26D-ID          
*S**           WFNSL26R 
*S**           WWAOBJ   
*S**  IF WWAOBJ.#EXISTS 
*S**    MOVE 'UPDATE' TO WWAOBJ.#FUNCTION       
*S**  ELSE  
*S**    MOVE 'STORE' TO WWAOBJ.#FUNCTION        
*S**  END-IF
*S**  /*    
*S**  /* Load NSLDS record from passed federal record       
*S**  MOVE BY NAME PASSED-NSLDS TO WFNSL26L.WF-NSLDS        
*S**  MOVE BY NAME WFNSL26L.WF-NSLDS TO WFNSL26D.WF-NSLDS   
*S**  /*    
*S**  /* Perform I/O to create/update record    
*S**  CALLNAT 'WFNSL26O' WW-GDA     
*S**           WFNSL26D 
*S**           WFNSL26D-ID          
*S**           WFNSL26R 
*S**           WWAOBJ   
*S**END-SUBROUTINE /* LOAD-NSLDS-2526           
*S**END     
