*S*************************************************************************         
*S***       
*S***                              WolffPack    
*S***       
*S*** Subroutine: WFNSB27E          
*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***       Note: Module copied from WFNSL27E, modified to allow for    
*S***             additional fields and increased field sizes in        
*S***             mid 2026-2027 processing year.
*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 WFNSB27L          
*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**  LOCAL 
*S**    01 #FIELD-COUNT (N2) INIT<0>
*S**    01 #LENGTH (N3) INIT<0>     
*S**END-DEFINE          
*S***       
*S***       
*S*************************************************************************         
*S**DEFINE SUBROUTINE LOAD-NSLDS-2627B          
*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 WFNSB27L.WF-NSLDS        
*S**  /*    
*S**  /* year specific logic due to OBBBA modifications     
*S**  /*   (for fields not increased in size, max out at 999999)        
*S**  /*     (Assumed 00 for cents values)      
*S**  IF WFNSB27L.WF-NS-SUB-OUT = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-SUB-OUT > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-SUB-OUT    
*S**    COMPRESS 'A1' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-SUB-OUT = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-SUB-OUT  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-UNS-OUT = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-UNS-OUT > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-UNS-OUT    
*S**    COMPRESS 'A2' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-UNS-OUT = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-UNS-OUT  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-CMB-OUT = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-CMB-OUT > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-CMB-OUT    
*S**    COMPRESS 'A3' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-CMB-OUT = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-CMB-OUT  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-CON-OUT = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-CON-OUT > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-CON-OUT    
*S**    COMPRESS 'A4' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-CON-OUT = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-CON-OUT  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-TCH-OUT = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-TCH-OUT > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-TCH-OUT    
*S**    COMPRESS 'A5' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-TCH-OUT = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-TCH-OUT  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-SUB-PEND = MASK(999999999999999) AND
*S**     WFNSB27L.WF-NS-SUB-PEND > '000000099999900'        
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-SUB-PEND   
*S**    COMPRESS 'A6' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-SUB-PEND ='N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-SUB-PEND 
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-UNS-PEND = MASK(999999999999999) AND
*S**     WFNSB27L.WF-NS-UNS-PEND > '000000099999900'        
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-UNS-PEND   
*S**    COMPRESS 'A7' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-UNS-PEND ='N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-UNS-PEND 
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-CMB-PEND = MASK(999999999999999) AND
*S**     WFNSB27L.WF-NS-CMB-PEND > '000000099999900'        
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-CMB-PEND   
*S**    COMPRESS 'A8' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-CMB-PEND ='N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-CMB-PEND 
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-SUB-TOTAL = MASK(999999999999999) AND           
*S**     WFNSB27L.WF-NS-SUB-TOTAL > '000000099999900'       
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-SUB-TOTAL  
*S**    COMPRESS 'A9' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-SUB-TOTAL = 'N/A            '     
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-SUB-TOTAL
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-UNS-TOTAL = MASK(999999999999999) AND           
*S**     WFNSB27L.WF-NS-UNS-TOTAL > '000000099999900'       
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-UNS-TOTAL  
*S**    COMPRESS 'B1' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-UNS-TOTAL = 'N/A            '     
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-UNS-TOTAL
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-CMB-TOTAL = MASK(999999999999999) AND           
*S**     WFNSB27L.WF-NS-CMB-TOTAL > '000000099999900'       
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-CMB-TOTAL  
*S**    COMPRESS 'B2' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-CMB-TOTAL = 'N/A            '     
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-CMB-TOTAL
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-CON-TOTAL = MASK(999999999999999) AND           
*S**     WFNSB27L.WF-NS-CON-TOTAL > '000000099999900'       
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-CON-TOTAL  
*S**    COMPRESS 'B3' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-CON-TOTAL = 'N/A            '     
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-CON-TOTAL
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-TCH-TOTAL = MASK(999999999999999) AND           
*S**     WFNSB27L.WF-NS-TCH-TOTAL > '000000099999900'       
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-TCH-TOTAL  
*S**    COMPRESS 'B4' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-TCH-TOTAL = 'N/A            '     
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-TCH-TOTAL
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-PERK-TOTAL = MASK(999999999999999) AND          
*S**     WFNSB27L.WF-NS-PERK-TOTAL > '000000099999900'      
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-PERK-TOTAL 
*S**    COMPRESS 'B5' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-PERK-TOTAL = 'N/A            '    
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-PERK-TOTAL           
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-PERK-CUR = MASK(999999999999999) AND
*S**     WFNSB27L.WF-NS-PERK-CUR > '000000099999900'        
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-PERK-CUR   
*S**    COMPRESS 'B6' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-PERK-CUR = 'N/A            '      
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-PERK-CUR 
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-TCH-TOTAL-UG = MASK(999999999999999) AND        
*S**     WFNSB27L.WF-NS-TCH-TOTAL-UG > '000000099999900'    
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-TCH-TOTAL-UG           
*S**    COMPRESS 'B7' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-TCH-TOTAL-UG = 'N/A            '  
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-TCH-TOTAL-UG         
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-TCH-TOTAL-GR = MASK(999999999999999) AND        
*S**     WFNSB27L.WF-NS-TCH-TOTAL-GR > '000000099999900'    
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-TCH-TOTAL-GR           
*S**    COMPRESS 'B8' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-TCH-TOTAL-GR = 'N/A            '  
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-TCH-TOTAL-GR         
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-P1-SCH-AWD = MASK(999999999999999) AND          
*S**     WFNSB27L.WF-NS-P1-SCH-AWD > '000000099999900'      
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-P1-SCH-AWD 
*S**    COMPRESS 'B9' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-P1-SCH-AWD = 'N/A            '    
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-P1-SCH-AWD           
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-P1-PAID = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-P1-PAID > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-P1-PAID    
*S**    COMPRESS 'C1' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-P1-PAID = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-P1-PAID  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-P1-AWARD = MASK(999999999999999) AND
*S**     WFNSB27L.WF-NS-P1-AWARD > '000000099999900'        
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-P1-AWARD   
*S**    COMPRESS 'C2' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-P1-AWARD ='N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-P1-AWARD 
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-P2-SCH-AWD = MASK(999999999999999) AND          
*S**     WFNSB27L.WF-NS-P2-SCH-AWD > '000000099999900'      
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-P2-SCH-AWD 
*S**    COMPRESS 'C3' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-P2-SCH-AWD = 'N/A            '    
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-P2-SCH-AWD           
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-P2-PAID = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-P2-PAID > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-P2-PAID    
*S**    COMPRESS 'C4' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-P2-PAID = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-P2-PAID  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-P2-AWARD = MASK(999999999999999) AND
*S**     WFNSB27L.WF-NS-P2-AWARD > '000000099999900'        
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-P2-AWARD   
*S**    COMPRESS 'C5' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-P2-AWARD ='N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-P2-AWARD 
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-P3-SCH-AWD = MASK(999999999999999) AND          
*S**     WFNSB27L.WF-NS-P3-SCH-AWD > '000000099999900'      
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-P3-SCH-AWD 
*S**    COMPRESS 'C6' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-P3-SCH-AWD = 'N/A            '    
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-P3-SCH-AWD           
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-P3-PAID = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-P3-PAID > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-P3-PAID    
*S**    COMPRESS 'C7' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-P3-PAID = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-P3-PAID  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-P3-AWARD = MASK(999999999999999) AND
*S**     WFNSB27L.WF-NS-P3-AWARD > '000000099999900'        
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-P3-AWARD   
*S**    COMPRESS 'C8' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-P3-AWARD ='N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-P3-AWARD 
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-T1-SCH-AWD = MASK(999999999999999) AND          
*S**     WFNSB27L.WF-NS-T1-SCH-AWD > '000000099999900'      
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-T1-SCH-AWD 
*S**    COMPRESS 'C9' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-T1-SCH-AWD = 'N/A            '    
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-T1-SCH-AWD           
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-T1-PAID = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-T1-PAID > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-T1-PAID    
*S**    COMPRESS 'D1' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-T1-PAID = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-T1-PAID  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-T1-AWARD = MASK(999999999999999) AND
*S**     WFNSB27L.WF-NS-T1-AWARD > '000000099999900'        
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-T1-AWARD   
*S**    COMPRESS 'D2' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-T1-AWARD ='N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-T1-AWARD 
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-T1-DCHG-AMT = MASK(999999999999999) AND         
*S**     WFNSB27L.WF-NS-T1-DCHG-AMT > '000000099999900'     
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-T1-DCHG-AMT
*S**    COMPRESS 'D3' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-T1-DCHG-AMT = 'N/A            '   
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-T1-DCHG-AMT          
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-T1-ADJ-DSB = MASK(999999999999999) AND          
*S**     WFNSB27L.WF-NS-T1-ADJ-DSB > '000000099999900'      
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-T1-ADJ-DSB 
*S**    COMPRESS 'D4' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-T1-ADJ-DSB = 'N/A            '    
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-T1-ADJ-DSB           
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-T2-SCH-AWD = MASK(999999999999999) AND          
*S**     WFNSB27L.WF-NS-T2-SCH-AWD > '000000099999900'      
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-T2-SCH-AWD 
*S**    COMPRESS 'D5' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-T2-SCH-AWD = 'N/A            '    
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-T2-SCH-AWD           
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-T2-PAID = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-T2-PAID > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-T2-PAID    
*S**    COMPRESS 'D6' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-T2-PAID = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-T2-PAID  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-T2-AWARD = MASK(999999999999999) AND
*S**     WFNSB27L.WF-NS-T2-AWARD > '000000099999900'        
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-T2-AWARD   
*S**    COMPRESS 'D7' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-T2-AWARD ='N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-T2-AWARD 
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-T2-DCHG-AMT = MASK(999999999999999) AND         
*S**     WFNSB27L.WF-NS-T2-DCHG-AMT > '000000099999900'     
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-T2-DCHG-AMT
*S**    COMPRESS 'D8' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-T2-DCHG-AMT = 'N/A            '   
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-T2-DCHG-AMT          
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-T2-ADJ-DSB = MASK(999999999999999) AND          
*S**     WFNSB27L.WF-NS-T2-ADJ-DSB > '000000099999900'      
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-T2-ADJ-DSB 
*S**    COMPRESS 'D9' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-T2-ADJ-DSB = 'N/A            '    
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-T2-ADJ-DSB           
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-T3-SCH-AWD = MASK(999999999999999) AND          
*S**     WFNSB27L.WF-NS-T3-SCH-AWD > '000000099999900'      
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-T3-SCH-AWD 
*S**    COMPRESS 'E1' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-T3-SCH-AWD = 'N/A            '    
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-T3-SCH-AWD           
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-T3-PAID = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-T3-PAID > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-T3-PAID    
*S**    COMPRESS 'E2' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-T3-PAID = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-T3-PAID  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-T3-AWARD = MASK(999999999999999) AND
*S**     WFNSB27L.WF-NS-T3-AWARD > '000000099999900'        
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-T3-AWARD   
*S**    COMPRESS 'E3' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-T3-AWARD ='N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-T3-AWARD 
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-T3-DCHG-AMT = MASK(999999999999999) AND         
*S**     WFNSB27L.WF-NS-T3-DCHG-AMT > '000000099999900'     
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-T3-DCHG-AMT
*S**    COMPRESS 'E4' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-T3-DCHG-AMT = 'N/A            '   
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-T3-DCHG-AMT          
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-T3-ADJ-DSB = MASK(999999999999999) AND          
*S**     WFNSB27L.WF-NS-T3-ADJ-DSB > '000000099999900'      
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-T3-ADJ-DSB 
*S**    COMPRESS 'E5' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-T3-ADJ-DSB = 'N/A            '    
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-T3-ADJ-DSB           
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L01-AMT = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L01-AMT > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L01-AMT    
*S**    COMPRESS 'E6' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L01-AMT = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L01-AMT  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L01-OUT = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L01-OUT > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L01-OUT    
*S**    COMPRESS 'E7' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L01-OUT = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L01-OUT  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L01-DSB = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L01-DSB > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L01-DSB    
*S**    COMPRESS 'E8' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L01-DSB = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L01-DSB  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L02-AMT = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L02-AMT > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L02-AMT    
*S**    COMPRESS 'E9' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L02-AMT = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L02-AMT  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L02-OUT = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L02-OUT > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L02-OUT    
*S**    COMPRESS 'F1' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L02-OUT = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L02-OUT  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L02-DSB = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L02-DSB > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L02-DSB    
*S**    COMPRESS 'F2' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L02-DSB = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L02-DSB  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L03-AMT = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L03-AMT > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L03-AMT    
*S**    COMPRESS 'F3' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L03-AMT = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L03-AMT  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L03-OUT = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L03-OUT > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L03-OUT    
*S**    COMPRESS 'F4' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L03-OUT = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L03-OUT  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L03-DSB = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L03-DSB > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L03-DSB    
*S**    COMPRESS 'F5' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L03-DSB = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L03-DSB  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L04-AMT = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L04-AMT > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L04-AMT    
*S**    COMPRESS 'F6' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L04-AMT = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L04-AMT  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L04-OUT = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L04-OUT > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L04-OUT    
*S**    COMPRESS 'F7' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L04-OUT = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L04-OUT  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L04-DSB = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L04-DSB > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L04-DSB    
*S**    COMPRESS 'F8' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L04-DSB = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L04-DSB  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L05-AMT = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L05-AMT > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L05-AMT    
*S**    COMPRESS 'F9' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L05-AMT = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L05-AMT  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L05-OUT = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L05-OUT > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L05-OUT    
*S**    COMPRESS 'G1' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L05-OUT = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L05-OUT  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L05-DSB = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L05-DSB > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L05-DSB    
*S**    COMPRESS 'G2' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L05-DSB = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L05-DSB  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L06-AMT = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L06-AMT > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L06-AMT    
*S**    COMPRESS 'G3' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L06-AMT = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L06-AMT  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L06-OUT = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L06-OUT > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L06-OUT    
*S**    COMPRESS 'G4' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L06-OUT = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L06-OUT  
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSB27L.WF-NS-L06-DSB = MASK(999999999999999) AND 
*S**     WFNSB27L.WF-NS-L06-DSB > '000000099999900'         
*S**    MOVE '000000099999900' TO WFNSB27L.WF-NS-L06-DSB    
*S**    COMPRESS 'G5' ',' ##PASS-TEMP INTO ##PASS-TEMP      
*S**      LEAVING NO SPACE          
*S**  ELSE  
*S**    IF WFNSB27L.WF-NS-L06-DSB = 'N/A            '       
*S**      MOVE '         N/A   ' TO WFNSB27L.WF-NS-L06-DSB  
*S**    END-IF          
*S**  END-IF
*S**  /*    
*S**  /* Remove last byte if it's a comma       
*S**  EXAMINE ##PASS-TEMP FOR ',' GIVING LENGTH IN #LENGTH  
*S**  IF #LENGTH > 0 AND SUBSTRING(##PASS-TEMP, #LENGTH, 1) = ','       
*S**    ASSIGN #LENGTH = #LENGTH - 1
*S**    MOVE SUBSTRING(##PASS-TEMP, 1, #LENGTH) TO ##PASS-TEMP          
*S**  END-IF
*S**  /*    
*S**  MOVE BY NAME WFNSB27L.WF-NSLDS TO WFNSL27D.WF-NSLDS   
*S**  /*    
*S**  /* Need to move bytes 8-13 of 59 fields not increased 
*S**  /*  with mid year 2026-2027 mods          
*S**  /*   (ignoring cents)         
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-SUB-OUT,8,6) TO         
*S**       WFNSL27D.WF-NS-SUB-OUT   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-UNS-OUT,8,6) TO         
*S**       WFNSL27D.WF-NS-UNS-OUT   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-CMB-OUT,8,6) TO         
*S**       WFNSL27D.WF-NS-CMB-OUT   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-CON-OUT,8,6) TO         
*S**       WFNSL27D.WF-NS-CON-OUT   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-TCH-OUT,8,6) TO         
*S**       WFNSL27D.WF-NS-TCH-OUT   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-SUB-PEND,8,6) TO        
*S**       WFNSL27D.WF-NS-SUB-PEND  
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-UNS-PEND,8,6) TO        
*S**       WFNSL27D.WF-NS-UNS-PEND  
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-CMB-PEND,8,6) TO        
*S**       WFNSL27D.WF-NS-CMB-PEND  
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-SUB-TOTAL,8,6) TO       
*S**       WFNSL27D.WF-NS-SUB-TOTAL 
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-UNS-TOTAL,8,6) TO       
*S**       WFNSL27D.WF-NS-UNS-TOTAL 
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-CMB-TOTAL,8,6) TO       
*S**       WFNSL27D.WF-NS-CMB-TOTAL 
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-CON-TOTAL,8,6) TO       
*S**       WFNSL27D.WF-NS-CON-TOTAL 
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-TCH-TOTAL,8,6) TO       
*S**       WFNSL27D.WF-NS-TCH-TOTAL 
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-PERK-TOTAL,8,6) TO      
*S**       WFNSL27D.WF-NS-PERK-TOTAL
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-PERK-CUR,8,6) TO        
*S**       WFNSL27D.WF-NS-PERK-CUR  
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-TCH-TOTAL-UG,8,6) TO    
*S**       WFNSL27D.WF-NS-TCH-TOTAL-UG          
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-TCH-TOTAL-GR,8,6) TO    
*S**       WFNSL27D.WF-NS-TCH-TOTAL-GR          
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-P1-SCH-AWD,8,6) TO      
*S**       WFNSL27D.WF-NS-P1-SCH-AWD
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-P1-PAID,8,6) TO         
*S**       WFNSL27D.WF-NS-P1-PAID   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-P1-AWARD,8,6) TO        
*S**       WFNSL27D.WF-NS-P1-AWARD  
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-P2-SCH-AWD,8,6) TO      
*S**       WFNSL27D.WF-NS-P2-SCH-AWD
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-P2-PAID,8,6) TO         
*S**       WFNSL27D.WF-NS-P2-PAID   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-P2-AWARD,8,6) TO        
*S**       WFNSL27D.WF-NS-P2-AWARD  
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-P3-SCH-AWD,8,6) TO      
*S**       WFNSL27D.WF-NS-P3-SCH-AWD
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-P3-PAID,8,6) TO         
*S**       WFNSL27D.WF-NS-P3-PAID   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-P3-AWARD,8,6) TO        
*S**       WFNSL27D.WF-NS-P3-AWARD  
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-T1-SCH-AWD,8,6) TO      
*S**       WFNSL27D.WF-NS-T1-SCH-AWD
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-T1-PAID,8,6) TO         
*S**       WFNSL27D.WF-NS-T1-PAID   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-T1-AWARD,8,6) TO        
*S**       WFNSL27D.WF-NS-T1-AWARD  
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-T1-DCHG-AMT,8,6) TO     
*S**       WFNSL27D.WF-NS-T1-DCHG-AMT           
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-T1-ADJ-DSB,8,6) TO      
*S**       WFNSL27D.WF-NS-T1-ADJ-DSB
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-T2-SCH-AWD,8,6) TO      
*S**       WFNSL27D.WF-NS-T2-SCH-AWD
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-T2-PAID,8,6) TO         
*S**       WFNSL27D.WF-NS-T2-PAID   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-T2-AWARD,8,6) TO        
*S**       WFNSL27D.WF-NS-T2-AWARD  
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-T2-DCHG-AMT,8,6) TO     
*S**       WFNSL27D.WF-NS-T2-DCHG-AMT           
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-T2-ADJ-DSB,8,6) TO      
*S**       WFNSL27D.WF-NS-T2-ADJ-DSB
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-T3-SCH-AWD,8,6) TO      
*S**       WFNSL27D.WF-NS-T3-SCH-AWD
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-T3-PAID,8,6) TO         
*S**       WFNSL27D.WF-NS-T3-PAID   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-T3-AWARD,8,6) TO        
*S**       WFNSL27D.WF-NS-T3-AWARD  
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-T3-DCHG-AMT,8,6) TO     
*S**       WFNSL27D.WF-NS-T3-DCHG-AMT           
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-T3-ADJ-DSB,8,6) TO      
*S**       WFNSL27D.WF-NS-T3-ADJ-DSB
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L01-AMT,8,6) TO         
*S**       WFNSL27D.WF-NS-L01-AMT   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L01-OUT,8,6) TO         
*S**       WFNSL27D.WF-NS-L01-OUT   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L01-DSB,8,6) TO         
*S**       WFNSL27D.WF-NS-L01-DSB   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L02-AMT,8,6) TO         
*S**       WFNSL27D.WF-NS-L02-AMT   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L02-OUT,8,6) TO         
*S**       WFNSL27D.WF-NS-L02-OUT   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L02-DSB,8,6) TO         
*S**       WFNSL27D.WF-NS-L02-DSB   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L03-AMT,8,6) TO         
*S**       WFNSL27D.WF-NS-L03-AMT   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L03-OUT,8,6) TO         
*S**       WFNSL27D.WF-NS-L03-OUT   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L03-DSB,8,6) TO         
*S**       WFNSL27D.WF-NS-L03-DSB   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L04-AMT,8,6) TO         
*S**       WFNSL27D.WF-NS-L04-AMT   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L04-OUT,8,6) TO         
*S**       WFNSL27D.WF-NS-L04-OUT   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L04-DSB,8,6) TO         
*S**       WFNSL27D.WF-NS-L04-DSB   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L05-AMT,8,6) TO         
*S**       WFNSL27D.WF-NS-L05-AMT   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L05-OUT,8,6) TO         
*S**       WFNSL27D.WF-NS-L05-OUT   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L05-DSB,8,6) TO         
*S**       WFNSL27D.WF-NS-L05-DSB   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L06-AMT,8,6) TO         
*S**       WFNSL27D.WF-NS-L06-AMT   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L06-OUT,8,6) TO         
*S**       WFNSL27D.WF-NS-L06-OUT   
*S**  MOVE SUBSTRING(WFNSB27L.WF-NS-L06-DSB,8,6) TO         
*S**       WFNSL27D.WF-NS-L06-DSB   
*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-2627B          
*S**END     
