*S*************************************************************************         
*S***       
*S***                              WolffPack    
*S***       
*S*** Subprogram: WFAFR27N          
*S*** System    : FINANCIER         
*S*** Title     : 2026-27 ADD Federal Record Retrieve       
*S*** Function  : This subprogram retrieves a federal record
*S***             from the ADD file based on a passed student ID.       
*S***       
*S***      Copyright 1995 - 2026 WolffPack, Inc.  All rights reserved.  
*S***       
*S*************************************************************************         
*S**DEFINE DATA         
*S**  GLOBAL USING WWGDA
*S**  PARAMETER USING WWPDA         
*S**  PARAMETER USING WF27FEXD      
*S***       
*S**  LOCAL USING WFADDDSD /* Passed to object subprogram   
*S**  LOCAL USING WFADDDSR /* Passed to object subprogram   
*S**  LOCAL USING WWAOBJ   /* Passed to object subprogram   
*S***       
*S**  LOCAL USING WF27FEDL /* Sequential LDA    
*S**END-DEFINE          
*S***       
*S***       
*S*** Populate WW-GDA from WW-PDA   
*S**  MOVE BY POSITION WW-PDA TO WW-GDA         
*S***       
*S*************************************************************************         
*S**  /*    
*S**  MOVE ##AID-YEAR TO WFADDDSD.WF-AID-YEAR   
*S**  MOVE 'F' TO WFADDDSD.WF-AD-SOURCE      /* Default to Federal Data 
*S**  MOVE ##FAO-ID TO WFADDDSD.WF-FAO          
*S**  MOVE ##SSN TO WFADDDSD.WW-ST-SSN          
*S**  /*    
*S**  ASSIGN WWAOBJ.#FUNCTION = 'GET'        /* Perform GET, only way to
*S**  CALLNAT 'WFADDDSO' WW-GDA              /*  get here is thru ADD   
*S**           WFADDDSD                      /*  display, therefore record          
*S**           WFADDDSD-ID                   /*  must exist.
*S**           WFADDDSR 
*S**           WWAOBJ   
*S**  /*    
*S**  MOVE BY NAME WFADDDSD TO WF27FEDL      /* Load LDA from ADD file  
*S**  MOVE BY NAME WF27FEDL TO WF27FEXD      /* Load LDA to PDA         
*S***       
*S**MOVE BY POSITION WW-GDA TO WW-PDA           
*S***       
*S**END     
*E          
