*S*************************************************************************         
*S***       
*S***                              WolffPack    
*S***       
*S*** Subroutine: WFNSL27E          
*S*** System    : FINANCIER         
*S*** Title     : 2026-27 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 - 2026 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 WFNSL27L          
*S**  LOCAL USING WFNSL27D /* Passed to object subprogram   
*S**  LOCAL USING WFNSL27R /* Passed to object subprogram   
*S**  LOCAL USING WWAOBJ   /* Passed to object subprogram   
*S**END-DEFINE          
*S***       
*S***       
*S*************************************************************************         
*S**DEFINE SUBROUTINE LOAD-NSLDS-2627           
*S*************************************************************************         
*S**  /*    
*S**  /* Set up record keys         
*S**  ASSIGN WFNSL27D.WF-FAO = ##FAO-ID         
*S**  ASSIGN WFNSL27D.WW-STUDENT-ID = ##STUDENT-ID          
*S**  /*    
*S**  /* Get NSLDS record           
*S**  MOVE 'GET' TO WWAOBJ.#FUNCTION
*S**  CALLNAT 'WFNSL27O' WW-GDA     
*S**           WFNSL27D 
*S**           WFNSL27D-ID          
*S**           WFNSL27R 
*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 WFNSL27L.WF-NSLDS        
*S**  MOVE BY NAME WFNSL27L.WF-NSLDS TO WFNSL27D.WF-NSLDS   
*S**  /*    
*S**  /* year specific logic due to OBBBA modifications     
*S**  /*  for fields delivered pre-OBBBA they were          
*S**  /*   left justified and not zero fillednot increased in size, max out at 999999)          
*S**  /*     (Assumed 00 for cents values)      
*S**  /*    
*S**  MOVE BY NAME WFNSL27L.WF-NSLDS TO WFNSL27D.WF-NSLDS   
*S**  /*    
*S**  IF WFNSL27D.WF-NS-SUB-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-SUB-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-SUB-OUT TO    
*S**           WFNSL27D.WF-NS-SUB-OUT           
*S**      EXAMINE WFNSL27D.WF-NS-SUB-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-UNS-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-UNS-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-UNS-OUT TO    
*S**           WFNSL27D.WF-NS-UNS-OUT           
*S**      EXAMINE WFNSL27D.WF-NS-UNS-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-CMB-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-CMB-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-CMB-OUT TO    
*S**           WFNSL27D.WF-NS-CMB-OUT           
*S**      EXAMINE WFNSL27D.WF-NS-CMB-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-CON-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-CON-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-CON-OUT TO    
*S**           WFNSL27D.WF-NS-CON-OUT           
*S**      EXAMINE WFNSL27D.WF-NS-CON-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-TCH-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-TCH-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-TCH-OUT TO    
*S**           WFNSL27D.WF-NS-TCH-OUT           
*S**      EXAMINE WFNSL27D.WF-NS-TCH-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-SUB-PEND = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-SUB-PEND = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-SUB-PEND TO   
*S**           WFNSL27D.WF-NS-SUB-PEND          
*S**      EXAMINE WFNSL27D.WF-NS-SUB-PEND FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-UNS-PEND = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-UNS-PEND = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-UNS-PEND TO   
*S**           WFNSL27D.WF-NS-UNS-PEND          
*S**      EXAMINE WFNSL27D.WF-NS-UNS-PEND FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-CMB-PEND = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-CMB-PEND = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-CMB-PEND TO   
*S**           WFNSL27D.WF-NS-CMB-PEND          
*S**      EXAMINE WFNSL27D.WF-NS-CMB-PEND FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-SUB-TOTAL = 'N/A   '    
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-SUB-TOTAL = '      '  
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-SUB-TOTAL TO  
*S**           WFNSL27D.WF-NS-SUB-TOTAL         
*S**      EXAMINE WFNSL27D.WF-NS-SUB-TOTAL FOR ' ' REPLACE WITH '0'     
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-UNS-TOTAL = 'N/A   '    
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-UNS-TOTAL = '      '  
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-UNS-TOTAL TO  
*S**           WFNSL27D.WF-NS-UNS-TOTAL         
*S**      EXAMINE WFNSL27D.WF-NS-UNS-TOTAL FOR ' ' REPLACE WITH '0'     
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-CMB-TOTAL = 'N/A   '    
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-CMB-TOTAL = '      '  
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-CMB-TOTAL TO  
*S**           WFNSL27D.WF-NS-CMB-TOTAL         
*S**      EXAMINE WFNSL27D.WF-NS-CMB-TOTAL FOR ' ' REPLACE WITH '0'     
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-CON-TOTAL = 'N/A   '    
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-CON-TOTAL = '      '  
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-CON-TOTAL TO  
*S**           WFNSL27D.WF-NS-CON-TOTAL         
*S**      EXAMINE WFNSL27D.WF-NS-CON-TOTAL FOR ' ' REPLACE WITH '0'     
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-TCH-TOTAL = 'N/A   '    
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-TCH-TOTAL = '      '  
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-TCH-TOTAL TO  
*S**           WFNSL27D.WF-NS-TCH-TOTAL         
*S**      EXAMINE WFNSL27D.WF-NS-TCH-TOTAL FOR ' ' REPLACE WITH '0'     
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-PERK-TOTAL = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-PERK-TOTAL = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-PERK-TOTAL TO 
*S**           WFNSL27D.WF-NS-PERK-TOTAL        
*S**      EXAMINE WFNSL27D.WF-NS-PERK-TOTAL FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-PERK-CUR = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-PERK-CUR = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-PERK-CUR TO   
*S**           WFNSL27D.WF-NS-PERK-CUR          
*S**      EXAMINE WFNSL27D.WF-NS-PERK-CUR FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-TCH-TOTAL-UG = 'N/A   ' 
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-TCH-TOTAL-UG = '      '           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-TCH-TOTAL-UG TO           
*S**           WFNSL27D.WF-NS-TCH-TOTAL-UG      
*S**      EXAMINE WFNSL27D.WF-NS-TCH-TOTAL FOR ' ' REPLACE WITH '0'     
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-TCH-TOTAL-GR = 'N/A   ' 
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-TCH-TOTAL-GR = '      '           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-TCH-TOTAL-GR TO           
*S**           WFNSL27D.WF-NS-TCH-TOTAL-GR      
*S**      EXAMINE WFNSL27D.WF-NS-TCH-TOTAL FOR ' ' REPLACE WITH '0'     
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-P1-SCH-AWD = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-P1-SCH-AWD = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-P1-SCH-AWD TO 
*S**           WFNSL27D.WF-NS-P1-SCH-AWD        
*S**      EXAMINE WFNSL27D.WF-NS-P1-SCH-AWD FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-P1-PAID = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-P1-PAID = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-P1-PAID TO    
*S**           WFNSL27D.WF-NS-P1-PAID           
*S**      EXAMINE WFNSL27D.WF-NS-P1-PAID FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-P1-AWARD = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-P1-AWARD = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-P1-AWARD TO   
*S**           WFNSL27D.WF-NS-P1-AWARD          
*S**      EXAMINE WFNSL27D.WF-NS-P1-AWARD FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-P2-SCH-AWD = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-P2-SCH-AWD = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-P2-SCH-AWD TO 
*S**           WFNSL27D.WF-NS-P2-SCH-AWD        
*S**      EXAMINE WFNSL27D.WF-NS-P2-SCH-AWD FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-P2-PAID = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-P2-PAID = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-P2-PAID TO    
*S**           WFNSL27D.WF-NS-P2-PAID           
*S**      EXAMINE WFNSL27D.WF-NS-P2-PAID FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-P2-AWARD = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-P2-AWARD = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-P2-AWARD TO   
*S**           WFNSL27D.WF-NS-P2-AWARD          
*S**      EXAMINE WFNSL27D.WF-NS-P2-AWARD FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-P3-SCH-AWD = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-P3-SCH-AWD = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-P3-SCH-AWD TO 
*S**           WFNSL27D.WF-NS-P3-SCH-AWD        
*S**      EXAMINE WFNSL27D.WF-NS-P3-SCH-AWD FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-P3-PAID = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-P3-PAID = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-P3-PAID TO    
*S**           WFNSL27D.WF-NS-P3-PAID           
*S**      EXAMINE WFNSL27D.WF-NS-P3-PAID FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-P3-AWARD = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-P3-AWARD = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-P3-AWARD TO   
*S**           WFNSL27D.WF-NS-P3-AWARD          
*S**      EXAMINE WFNSL27D.WF-NS-P3-AWARD FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-T1-SCH-AWD = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-T1-SCH-AWD = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-T1-SCH-AWD TO 
*S**           WFNSL27D.WF-NS-T1-SCH-AWD        
*S**      EXAMINE WFNSL27D.WF-NS-T1-SCH-AWD FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-T1-PAID = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-T1-PAID = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-T1-PAID TO    
*S**           WFNSL27D.WF-NS-T1-PAID           
*S**      EXAMINE WFNSL27D.WF-NS-T1-PAID FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-T1-AWARD = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-T1-AWARD = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-T1-AWARD TO   
*S**           WFNSL27D.WF-NS-T1-AWARD          
*S**      EXAMINE WFNSL27D.WF-NS-T1-AWARD FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-T1-DCHG-AMT = 'N/A   '  
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-T1-DCHG-AMT = '      '
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-T1-DCHG-AMT TO
*S**           WFNSL27D.WF-NS-T1-DCHG-AMT       
*S**      EXAMINE WFNSL27D.WF-NS-T1-DCHG-AMT ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-T1-ADJ-DSB= 'N/A   '    
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-T1-ADJ-DSB = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-T1-ADJ-DSB TO 
*S**           WFNSL27D.WF-NS-T1-ADJ-DSB        
*S**      EXAMINE WFNSL27D.WF-NS-T1-ADJ-DSB FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-T2-SCH-AWD = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-T2-SCH-AWD = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-T2-SCH-AWD TO 
*S**           WFNSL27D.WF-NS-T2-SCH-AWD        
*S**      EXAMINE WFNSL27D.WF-NS-T2-SCH-AWD FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-T2-PAID = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-T2-PAID = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-T2-PAID TO    
*S**           WFNSL27D.WF-NS-T2-PAID           
*S**      EXAMINE WFNSL27D.WF-NS-T2-PAID FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-T2-AWARD = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-T2-AWARD = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-T2-AWARD TO   
*S**           WFNSL27D.WF-NS-T2-AWARD          
*S**      EXAMINE WFNSL27D.WF-NS-T2-AWARD FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-T2-DCHG-AMT = 'N/A   '  
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-T2-DCHG-AMT = '      '
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-T2-DCHG-AMT TO
*S**           WFNSL27D.WF-NS-T2-DCHG-AMT       
*S**      EXAMINE WFNSL27D.WF-NS-T2-DCHG-AMT FOR ' ' REPLACE WITH '0'   
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-T2-ADJ-DSB = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-T2-ADJ-DSB = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-T2-ADJ-DSB TO 
*S**           WFNSL27D.WF-NS-T2-ADJ-DSB        
*S**      EXAMINE WFNSL27D.WF-NS-T2-ADJ-DSB FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-T3-SCH-AWD = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-T3-SCH-AWD = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-T3-SCH-AWD TO 
*S**           WFNSL27D.WF-NS-T3-SCH-AWD        
*S**      EXAMINE WFNSL27D.WF-NS-T3-SCH-AWD FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-T3-PAID = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-T3-PAID = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-T3-PAID TO    
*S**           WFNSL27D.WF-NS-T3-PAID           
*S**      EXAMINE WFNSL27D.WF-NS-T3-PAID FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-T3-AWARD = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-T3-AWARD = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-T3-AWARD TO   
*S**           WFNSL27D.WF-NS-T3-AWARD          
*S**      EXAMINE WFNSL27D.WF-NS-T3-AWARD FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-T3-DCHG-AMT = 'N/A   '  
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-T3-DCHG-AMT = '      '
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-T3-DCHG-AMT TO
*S**           WFNSL27D.WF-NS-T3-DCHG-AMT       
*S**      EXAMINE WFNSL27D.WF-NS-T3-DCHG-AMT FOR ' ' REPLACE WITH '0'   
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-T3-ADJ-DSB = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-T3-ADJ-DSB = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-T3-ADJ-DSB TO 
*S**           WFNSL27D.WF-NS-T3-ADJ-DSB        
*S**      EXAMINE WFNSL27D.WF-NS-T3-ADJ-DSB FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L01-AMT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L01-AMT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L01-AMT TO    
*S**           WFNSL27D.WF-NS-L01-AMT           
*S**      EXAMINE WFNSL27D.WF-NS-L01-AMT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L01-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L01-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L01-OUT TO    
*S**           WFNSL27D.WF-NS-L01-OUT           
*S**      EXAMINE WFNSL27D.WF-NS-L01-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L01-DSB = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L01-DSB = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L01-DSB TO    
*S**           WFNSL27D.WF-NS-L01-DSB           
*S**      EXAMINE WFNSL27D.WF-NS-L01-DSB FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L02-AMT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L02-AMT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L02-AMT TO    
*S**           WFNSL27D.WF-NS-L02-AMT           
*S**      EXAMINE WFNSL27D.WF-NS-L02-AMT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L02-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L02-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L02-OUT TO    
*S**           WFNSL27D.WF-NS-L02-OUT           
*S**      EXAMINE WFNSL27D.WF-NS-L02-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L02-DSB = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L02-DSB = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L02-DSB TO    
*S**           WFNSL27D.WF-NS-L02-DSB           
*S**      EXAMINE WFNSL27D.WF-NS-L02-DSB FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L03-AMT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L03-AMT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L03-AMT TO    
*S**           WFNSL27D.WF-NS-L03-AMT           
*S**      EXAMINE WFNSL27D.WF-NS-L03-AMT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L03-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L03-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L03-OUT TO    
*S**           WFNSL27D.WF-NS-L03-OUT           
*S**      EXAMINE WFNSL27D.WF-NS-L03-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L03-DSB = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L03-DSB = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L03-DSB TO    
*S**           WFNSL27D.WF-NS-L03-DSB           
*S**      EXAMINE WFNSL27D.WF-NS-L03-DSB FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L04-AMT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L04-AMT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L04-AMT TO    
*S**           WFNSL27D.WF-NS-L04-AMT           
*S**      EXAMINE WFNSL27D.WF-NS-L04-AMT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L04-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L04-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L04-OUT TO    
*S**           WFNSL27D.WF-NS-L04-OUT           
*S**      EXAMINE WFNSL27D.WF-NS-L04-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L04-DSB = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L04-DSB = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L04-DSB TO    
*S**           WFNSL27D.WF-NS-L04-DSB           
*S**      EXAMINE WFNSL27D.WF-NS-L04-DSB FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L05-AMT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L05-AMT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L05-AMT TO    
*S**           WFNSL27D.WF-NS-L05-AMT           
*S**      EXAMINE WFNSL27D.WF-NS-L05-AMT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L05-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L05-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L05-OUT TO    
*S**           WFNSL27D.WF-NS-L05-OUT           
*S**      EXAMINE WFNSL27D.WF-NS-L05-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L05-DSB = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L05-DSB = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L05-DSB TO    
*S**           WFNSL27D.WF-NS-L05-DSB           
*S**      EXAMINE WFNSL27D.WF-NS-L05-DSB FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L06-AMT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L06-AMT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L06-AMT TO    
*S**           WFNSL27D.WF-NS-L06-AMT           
*S**      EXAMINE WFNSL27D.WF-NS-L06-AMT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L06-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L06-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L06-OUT TO    
*S**           WFNSL27D.WF-NS-L06-OUT           
*S**      EXAMINE WFNSL27D.WF-NS-L06-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL27D.WF-NS-L06-DSB = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL27D.WF-NS-L06-DSB = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27L.WF-NS-L06-DSB TO    
*S**           WFNSL27D.WF-NS-L06-DSB           
*S**      EXAMINE WFNSL27D.WF-NS-L06-DSB FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  /*    
*S**  /* Perform I/O to create/update record    
*S**  CALLNAT 'WFNSL27O' WW-GDA     
*S**           WFNSL27D 
*S**           WFNSL27D-ID          
*S**           WFNSL27R 
*S**           WWAOBJ   
*S**END-SUBROUTINE /* LOAD-NSLDS-2627           
*S**END     