*H**ANAT8304202607031241521LINUX                            4CAUC     04.2          
*C**                                FATEMP  WCCVN26B                        F S   NN0000        
*D01NAT8304F FATEMP  WCCVN26B                        ZWDNH   ZWDNH           S      
*D02            2026070302255402026070302255400000045324    
*D03LINUX   
*D04                 ISO_8859-1:1987
*S*************************************************************************         
*S***       
*S***                              WolffPack    
*S***       
*S*** Program  : WCCVN26B           
*S*** System   : FINANCIER          
*S*** Title    : NSLDS data conversion          
*S*** Function : This program reads through the WF-NSLDS-2526 file      
*S***            and converts the data value of left justified          
*S***            non-leading zeroes to right justified leading zero     
*S***            format 
*S***       
*S***      Copyright 1995 - 2026 WolffPack, Inc.  All rights reserved.  
*S***       
*S*************************************************************************         
*S**DEFINE DATA         
*S**  GLOBAL USING WWGDA
*S***       
*S**  LOCAL USING WWREQIBD /* Input parameter PDA           
*S**  LOCAL USING WFNSL26D /* Passed to object subprogram   
*S**  LOCAL USING WFNSL26R /* Passed to object subprogram   
*S**  LOCAL USING WWAOBJ   /* Used by object subprograms    
*S***       
*S*** LOCAL USING WWCONST  /* Constants LDA     
*S***       
*S***       
*S**  LOCAL 
*S**  01 #MAX-READ(P3) INIT<50>     
*S**  01 #MAX-WRITE(P3) INIT<10>    
*S**  01 #ET-READ-COUNTER(P7)       
*S**  01 #ET-WRITE-COUNTER(P7)      
*S***       
*S**  01 #READ-COUNTER(P7)          
*S**  01 #BYPASS-COUNTER(P7)        
*S**  01 #WRITE-COUNTER(P7)         
*S***       
*S**  01 #LAST-STUDENT(A9)          
*S**  01 #STUDENT-UPDATED(A1)       
*S**  01 #6-BYTE-FIELD(A6)          
*S**  01 #INPUT-REPORT-ZEROS(A1)    
*S**  01 #INPUT-REPORT-NA(A1)       
*S***       
*S**  01 #END-KEY       
*S**    02 WF-FAO(A2)   
*S**    02 WW-STUDENT-ID(A9)        
*S**  01 REDEFINE #END-KEY          
*S**    02 #END-KEY-RED(A11)        
*S***       
*S**  01 #PRINT-LINE    
*S**      02 #PRT-FILLER1(A2)       
*S**      02 #PRT-FILLER2(A2)       
*S**      02 #PRT-STUDENT-ID(A9)    
*S**      02 #PRT-FILLER3(A2)       
*S**      02 #PRT-STUDENT-NAME(A35) 
*S**      02 #PRT-FILLER4(A2)       
*S**      02 #PRT-FILLER5(A2)       
*S**  01 #PRINT-LINE2   
*S**      02 #PRT-FILLER1(A10)      
*S**      02 #PRT-FIELD(A25)        
*S**      02 #PRT-COLON1(A1)        
*S**      02 #PRT-OLD-VALUE(A6)     
*S**      02 #PRT-COLON2(A1)        
*S**      02 #PRT-NEW-VALUE(A6)     
*S**      02 #PRT-COLON3(A1)        
*S**      02 #PRT-FILLER3(A4)       
*S**  01 REDEFINE #PRINT-LINE2      
*S**      02 #PRT-LINE2(A54)        
*S***       
*S**01 CONVERTED-NSLDS  
*S**  02 SID(A9)        
*S**  02 NAME(A35)      
*S**  02 FIELD-SORT(A2) 
*S**  02 FIELD-NAME(A25)
*S**  02 OLD-VALUE(A15) 
*S**  02 NEW-VALUE(A15) 
*S**  02 FILLER1(A4)    
*S**01 REDEFINE CONVERTED-NSLDS     
*S**  02 FILLER(A105)   
*S**END-DEFINE          
*S***       
*S*** Define printers, formats, headings        
*S**EJECT OFF(1)        
*S**FORMAT(1) LS=80 PS=60 ZP=ON IS=OFF ES=OFF SG=OFF        
*S**EJECT OFF(2)        
*S**FORMAT(2) LS=80 PS=60 ZP=ON IS=OFF ES=OFF SG=OFF        
*S***       
*S**AT TOP OF PAGE(1)   
*S**  WRITE(1) NOTITLE ##PGM-ID     
*S**        23T '*** FINANCIER NSLDS 2025-2026 CONVERSION ***'          
*S**        71T 'Page' *PAGE-NUMBER(1)(EM=ZZ9)  
*S**      / *DATX(EM=LLL' 'DD', 'YYYY)          
*S**        28T 'Processing Counts/Errors'      
*S**        71T *TIMX(EM=HH':'II' 'AP)          
*S**END-TOPPAGE         
*S**AT TOP OF PAGE(2)   
*S**  WRITE(2) NOTITLE ##PGM-ID     
*S**        23T '*** FINANCIER NSLDS 2025-2026 CONVERSION ***'          
*S**        71T 'Page' *PAGE-NUMBER(1)(EM=ZZ9)  
*S**      / *DATX(EM=LLL' 'DD', 'YYYY)          
*S**        31T 'Student NSLDS values converted'
*S**        71T *TIMX(EM=HH':'II' 'AP)          
*S**     // 11T 'SID'   
*S**        25T 'Name / Field'      
*S**END-TOPPAGE         
*S***       
*S**ASSIGN ##PGM-ID = 'WWW-MISC'    
*S**ASSIGN ##BYPASS-TRANSLATION = 'B'           
*S***       
*S**IF *DEVICE = 'BATCH' THEN       
*S**  SET CONTROL 'D' /* Set delimiter mode for batch input 
*S**END-IF  
*S***       
*S*************************************************************************         
*S***       
*S*** Read and edit input parameters
*S**  INPUT(AD=MITL'_' SG=ON IP=OFF ZP=OFF)     
*S**          'Aid Year:' #INPUT-AID-YEAR /     
*S**          'Term:' #INPUT-TERM / 
*S**          'FAO:' #INPUT-FAO /   
*S**          'Run Mode:' #INPUT-RUNMODE /      
*S**          'Effective Date:' #INPUT-EFF-DATE /           
*S**  PERFORM REQUIRED-FIELD-BATCH WWREQIBD     
*S**  ASSIGN ##PGM-ID = 'WCCVN26B'         /* For report headings       
*S**  WRITE(1) ' '      
*S**  WRITE(2) ' ' /    
*S**  WRITE(1)          
*S**    36T ##DISP-LIT ##DISP-FAO ///           
*S***       
*S***       
*S*** Set up keys for sequential file processing
*S**  RESET WFNSL26D    
*S**  ASSIGN WFNSL26D.WF-FAO = ##FAO-ID         
*S**  MOVE BY NAME WFNSL26D TO #END-KEY         
*S**  MOVE H'FF' TO #END-KEY.WW-STUDENT-ID      
*S***       
*S***       
*S**NEW-NSLDS.          
*S**  REPEAT
*S**    /*  
*S**    /* Read next NSLDS record   
*S**    MOVE 'NEXT' TO WWAOBJ.#FUNCTION         
*S**    PERFORM CALL-OBJECT-NSLDS   
*S**    /*  
*S**    /* End of records to be processed       
*S**    IF NOT WWAOBJ.#EXISTS OR    
*S**       WFNSL26D-ID > #END-KEY-RED           
*S**      ESCAPE BOTTOM(NEW-NSLDS.) IMMEDIATE   
*S**    END-IF          
*S**    /*  
*S**    ADD 1 TO #READ-COUNTER      
*S**    ADD 1 TO #ET-READ-COUNTER   
*S**    IF #ET-READ-COUNTER > #MAX-READ         
*S**      PERFORM COMMIT-OR-BACKOUT 
*S**    END-IF          
*S**    /*  
*S**    /* Check numeric fields for left justified and      
*S**    /*  non-leading zeroes      
*S**    RESET #STUDENT-UPDATED      
*S**    MOVE WFNSL26D.WW-STUDENT-ID TO ##STUDENT-ID         
*S**    PERFORM GET-STUDENT-INFO    
*S**    MOVE ##SID TO CONVERTED-NSLDS.SID       
*S**    MOVE ##COMP-NAME TO CONVERTED-NSLDS.NAME
*S**    /*  
*S**    /* Check and repair fields  
*S**    IF WFNSL26D.WF-NS-SUB-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-SUB-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A1'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-SUB-OUT'         
*S**        MOVE WFNSL26D.WF-NS-SUB-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-SUB-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-SUB-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-UNS-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-UNS-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A2'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-UNS-OUT'         
*S**        MOVE WFNSL26D.WF-NS-UNS-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-UNS-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-UNS-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-CMB-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-CMB-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A3'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-CMB-OUT'         
*S**        MOVE WFNSL26D.WF-NS-CMB-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-CMB-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-CMB-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-CON-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-CON-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A4'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-CON-OUT'         
*S**        MOVE WFNSL26D.WF-NS-CON-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-CON-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-CON-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-TCH-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-TCH-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A5'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-TCH-OUT'         
*S**        MOVE WFNSL26D.WF-NS-TCH-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-TCH-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-TCH-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-SUB-PEND = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-SUB-PEND TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A6'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-SUB-PEND'        
*S**        MOVE WFNSL26D.WF-NS-SUB-PEND TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL26D.WF-NS-SUB-PEND  = #6-BYTE-FIELD 
*S**        MOVE WFNSL26D.WF-NS-SUB-PEND TO CONVERTED-NSLDS.NEW-VALUE   
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-UNS-PEND = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-UNS-PEND TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A7'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-UNS-PEND'        
*S**        MOVE WFNSL26D.WF-NS-UNS-PEND TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL26D.WF-NS-UNS-PEND  = #6-BYTE-FIELD 
*S**        MOVE WFNSL26D.WF-NS-UNS-PEND TO CONVERTED-NSLDS.NEW-VALUE   
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-CMB-PEND = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-CMB-PEND TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A8'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-CMB-PEND'        
*S**        MOVE WFNSL26D.WF-NS-CMB-PEND TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL26D.WF-NS-CMB-PEND  = #6-BYTE-FIELD 
*S**        MOVE WFNSL26D.WF-NS-CMB-PEND TO CONVERTED-NSLDS.NEW-VALUE   
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-SUB-TOTAL = MASK(999999)          
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-SUB-TOTAL TO #6-BYTE-FIELD
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A9'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-SUB-TOTAL'       
*S**        MOVE WFNSL26D.WF-NS-SUB-TOTAL TO CONVERTED-NSLDS.OLD-VALUE  
*S**        ASSIGN WFNSL26D.WF-NS-SUB-TOTAL  = #6-BYTE-FIELD
*S**        MOVE WFNSL26D.WF-NS-SUB-TOTAL TO CONVERTED-NSLDS.NEW-VALUE  
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-UNS-TOTAL = MASK(999999)          
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-UNS-TOTAL TO #6-BYTE-FIELD
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B1'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-UNS-TOTAL'       
*S**        MOVE WFNSL26D.WF-NS-UNS-TOTAL TO CONVERTED-NSLDS.OLD-VALUE  
*S**        ASSIGN WFNSL26D.WF-NS-UNS-TOTAL  = #6-BYTE-FIELD
*S**        MOVE WFNSL26D.WF-NS-UNS-TOTAL TO CONVERTED-NSLDS.NEW-VALUE  
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-CMB-TOTAL = MASK(999999)          
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-CMB-TOTAL TO #6-BYTE-FIELD
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B2'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-CMB-TOTAL'       
*S**        MOVE WFNSL26D.WF-NS-CMB-TOTAL TO CONVERTED-NSLDS.OLD-VALUE  
*S**        ASSIGN WFNSL26D.WF-NS-CMB-TOTAL  = #6-BYTE-FIELD
*S**        MOVE WFNSL26D.WF-NS-CMB-TOTAL TO CONVERTED-NSLDS.NEW-VALUE  
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-CON-TOTAL = MASK(999999)          
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-CON-TOTAL TO #6-BYTE-FIELD
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B3'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-CON-TOTAL'       
*S**        MOVE WFNSL26D.WF-NS-CON-TOTAL TO CONVERTED-NSLDS.OLD-VALUE  
*S**        ASSIGN WFNSL26D.WF-NS-CON-TOTAL  = #6-BYTE-FIELD
*S**        MOVE WFNSL26D.WF-NS-CON-TOTAL TO CONVERTED-NSLDS.NEW-VALUE  
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-TCH-TOTAL = MASK(999999)          
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-TCH-TOTAL TO #6-BYTE-FIELD
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B4'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-TCH-TOTAL'       
*S**        MOVE WFNSL26D.WF-NS-TCH-TOTAL TO CONVERTED-NSLDS.OLD-VALUE  
*S**        ASSIGN WFNSL26D.WF-NS-TCH-TOTAL  = #6-BYTE-FIELD
*S**        MOVE WFNSL26D.WF-NS-TCH-TOTAL TO CONVERTED-NSLDS.NEW-VALUE  
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-PERK-TOTAL = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-PERK-TOTAL  TO #6-BYTE-FIELD          
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B5'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-PERK-TOTAL'      
*S**        MOVE WFNSL26D.WF-NS-PERK-TOTAL TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL26D.WF-NS-PERK-TOTAL  = #6-BYTE-FIELD           
*S**        MOVE WFNSL26D.WF-NS-PERK-TOTAL TO CONVERTED-NSLDS.NEW-VALUE 
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-PERK-CUR = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-PERK-CUR TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B6'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-PERK-CUR'        
*S**        MOVE WFNSL26D.WF-NS-PERK-CUR TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL26D.WF-NS-PERK-CUR  = #6-BYTE-FIELD 
*S**        MOVE WFNSL26D.WF-NS-PERK-CUR TO CONVERTED-NSLDS.NEW-VALUE   
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-TCH-TOTAL-UG = MASK(999999)       
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-TCH-TOTAL-UG TO #6-BYTE-FIELD         
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B7'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-TCH-TOTAL-UG'    
*S**        MOVE WFNSL26D.WF-NS-TCH-TOTAL-UG TO CONVERTED-NSLDS.OLD-VALUE           
*S**        ASSIGN WFNSL26D.WF-NS-TCH-TOTAL-UG  = #6-BYTE-FIELD         
*S**        MOVE WFNSL26D.WF-NS-TCH-TOTAL-UG TO CONVERTED-NSLDS.NEW-VALUE           
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-TCH-TOTAL-GR = MASK(999999)       
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-TCH-TOTAL-GR TO #6-BYTE-FIELD         
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B8'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-TCH-TOTAL-GR'    
*S**        MOVE WFNSL26D.WF-NS-TCH-TOTAL-GR TO CONVERTED-NSLDS.OLD-VALUE           
*S**        ASSIGN WFNSL26D.WF-NS-TCH-TOTAL-GR  = #6-BYTE-FIELD         
*S**        MOVE WFNSL26D.WF-NS-TCH-TOTAL-GR TO CONVERTED-NSLDS.NEW-VALUE           
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-P1-SCH-AWD = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-P1-SCH-AWD TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B9'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P1-SCH-AWD'      
*S**        MOVE WFNSL26D.WF-NS-P1-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL26D.WF-NS-P1-SCH-AWD = #6-BYTE-FIELD
*S**        MOVE WFNSL26D.WF-NS-P1-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE 
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-P1-PAID = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-P1-PAID TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C1'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P1-PAID'         
*S**        MOVE WFNSL26D.WF-NS-P1-PAID TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-P1-PAID  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-P1-PAID TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-P1-AWARD = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-P1-AWARD TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C2'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P1-AWARD'        
*S**        MOVE WFNSL26D.WF-NS-P1-AWARD TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL26D.WF-NS-P1-AWARD  = #6-BYTE-FIELD 
*S**        MOVE WFNSL26D.WF-NS-P1-AWARD TO CONVERTED-NSLDS.NEW-VALUE   
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-P2-SCH-AWD = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-P2-SCH-AWD TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C3'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P2-SCH-AWD'      
*S**        MOVE WFNSL26D.WF-NS-P2-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL26D.WF-NS-P2-SCH-AWD = #6-BYTE-FIELD
*S**        MOVE WFNSL26D.WF-NS-P2-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE 
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-P2-PAID = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-P2-PAID TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C4'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P2-PAID'         
*S**        MOVE WFNSL26D.WF-NS-P2-PAID TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-P2-PAID  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-P2-PAID TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-P2-AWARD = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-P2-AWARD TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C5'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P2-AWARD'        
*S**        MOVE WFNSL26D.WF-NS-P2-AWARD TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL26D.WF-NS-P2-AWARD  = #6-BYTE-FIELD 
*S**        MOVE WFNSL26D.WF-NS-P2-AWARD TO CONVERTED-NSLDS.NEW-VALUE   
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-P3-SCH-AWD = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-P3-SCH-AWD TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C6'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P3-SCH-AWD'      
*S**        MOVE WFNSL26D.WF-NS-P3-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL26D.WF-NS-P3-SCH-AWD = #6-BYTE-FIELD
*S**        MOVE WFNSL26D.WF-NS-P3-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE 
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-P3-PAID = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-P3-PAID TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C7'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P3-PAID'         
*S**        MOVE WFNSL26D.WF-NS-P3-PAID TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-P3-PAID  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-P3-PAID TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-P3-AWARD = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-P3-AWARD TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C8'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P3-AWARD'        
*S**        MOVE WFNSL26D.WF-NS-P3-AWARD TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL26D.WF-NS-P3-AWARD  = #6-BYTE-FIELD 
*S**        MOVE WFNSL26D.WF-NS-P3-AWARD TO CONVERTED-NSLDS.NEW-VALUE   
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-T1-SCH-AWD = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-T1-SCH-AWD TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C9'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T1-SCH-AWD'      
*S**        MOVE WFNSL26D.WF-NS-T1-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL26D.WF-NS-T1-SCH-AWD = #6-BYTE-FIELD
*S**        MOVE WFNSL26D.WF-NS-T1-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE 
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-T1-PAID = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-T1-PAID TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D1'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T1-PAID'         
*S**        MOVE WFNSL26D.WF-NS-T1-PAID TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-T1-PAID  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-T1-PAID TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-T1-AWARD = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-T1-AWARD TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D2'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T1-AWARD'        
*S**        MOVE WFNSL26D.WF-NS-T1-AWARD TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL26D.WF-NS-T1-AWARD  = #6-BYTE-FIELD 
*S**        MOVE WFNSL26D.WF-NS-T1-AWARD TO CONVERTED-NSLDS.NEW-VALUE   
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-T1-DCHG-AMT = MASK(999999)        
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-T1-DCHG-AMT TO #6-BYTE-FIELD          
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D3'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T1-DCHG-AMT'     
*S**        MOVE WFNSL26D.WF-NS-T1-DCHG-AMT TO CONVERTED-NSLDS.OLD-VALUE
*S**        ASSIGN WFNSL26D.WF-NS-T1-DCHG-AMT  = #6-BYTE-FIELD          
*S**        MOVE WFNSL26D.WF-NS-T1-DCHG-AMT TO CONVERTED-NSLDS.NEW-VALUE
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-T1-ADJ-DSB = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-T1-ADJ-DSB TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D4'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T1-ADJ-DSB'      
*S**        MOVE WFNSL26D.WF-NS-T1-ADJ-DSB TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL26D.WF-NS-T1-ADJ-DSB = #6-BYTE-FIELD
*S**        MOVE WFNSL26D.WF-NS-T1-ADJ-DSB TO CONVERTED-NSLDS.NEW-VALUE 
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-T2-SCH-AWD = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-T2-SCH-AWD TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D5'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T2-SCH-AWD'      
*S**        MOVE WFNSL26D.WF-NS-T2-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL26D.WF-NS-T2-SCH-AWD = #6-BYTE-FIELD
*S**        MOVE WFNSL26D.WF-NS-T2-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE 
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-T2-PAID = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-T2-PAID TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D6'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T2-PAID'         
*S**        MOVE WFNSL26D.WF-NS-T2-PAID TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-T2-PAID  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-T2-PAID TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-T2-AWARD = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-T2-AWARD TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D7'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T2-AWARD'        
*S**        MOVE WFNSL26D.WF-NS-T2-AWARD TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL26D.WF-NS-T2-AWARD  = #6-BYTE-FIELD 
*S**        MOVE WFNSL26D.WF-NS-T2-AWARD TO CONVERTED-NSLDS.NEW-VALUE   
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-T2-DCHG-AMT = MASK(999999)        
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-T2-DCHG-AMT TO #6-BYTE-FIELD          
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D8'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T2-DCHG-AMT'     
*S**        MOVE WFNSL26D.WF-NS-T2-DCHG-AMT TO CONVERTED-NSLDS.OLD-VALUE
*S**        ASSIGN WFNSL26D.WF-NS-T2-DCHG-AMT  = #6-BYTE-FIELD          
*S**        MOVE WFNSL26D.WF-NS-T2-DCHG-AMT TO CONVERTED-NSLDS.NEW-VALUE
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-T2-ADJ-DSB = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-T2-ADJ-DSB TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D9'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T2-ADJ-DSB'      
*S**        MOVE WFNSL26D.WF-NS-T2-ADJ-DSB TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL26D.WF-NS-T2-ADJ-DSB  = #6-BYTE-FIELD           
*S**        MOVE WFNSL26D.WF-NS-T2-ADJ-DSB TO CONVERTED-NSLDS.NEW-VALUE 
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-T3-SCH-AWD = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-T3-SCH-AWD TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E1'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T3-SCH-AWD'      
*S**        MOVE WFNSL26D.WF-NS-T3-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL26D.WF-NS-T3-SCH-AWD  = #6-BYTE-FIELD           
*S**        MOVE WFNSL26D.WF-NS-T3-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE 
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-T3-PAID = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-T3-PAID TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E2'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T3-PAID'         
*S**        MOVE WFNSL26D.WF-NS-T3-PAID TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-T3-PAID  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-T3-PAID TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-T3-AWARD = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-T3-AWARD TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E3'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T3-AWARD'        
*S**        MOVE WFNSL26D.WF-NS-T3-AWARD TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL26D.WF-NS-T3-AWARD  = #6-BYTE-FIELD 
*S**        MOVE WFNSL26D.WF-NS-T3-AWARD TO CONVERTED-NSLDS.NEW-VALUE   
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-T3-DCHG-AMT = MASK(999999)        
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-T3-DCHG-AMT TO #6-BYTE-FIELD          
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E4'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T3-DCHG-AMT'     
*S**        MOVE WFNSL26D.WF-NS-T3-DCHG-AMT TO CONVERTED-NSLDS.OLD-VALUE
*S**        ASSIGN WFNSL26D.WF-NS-T3-DCHG-AMT  = #6-BYTE-FIELD          
*S**        MOVE WFNSL26D.WF-NS-T3-DCHG-AMT TO CONVERTED-NSLDS.NEW-VALUE
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-T3-ADJ-DSB = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-T3-ADJ-DSB TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E5'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T3-ADJ-DSB'      
*S**        MOVE WFNSL26D.WF-NS-T3-ADJ-DSB TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL26D.WF-NS-T3-ADJ-DSB  = #6-BYTE-FIELD           
*S**        MOVE WFNSL26D.WF-NS-T3-ADJ-DSB TO CONVERTED-NSLDS.NEW-VALUE 
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L01-AMT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L01-AMT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E6'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L01-AMT'         
*S**        MOVE WFNSL26D.WF-NS-L01-AMT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L01-AMT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L01-AMT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L01-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L01-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E7'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L01-OUT'         
*S**        MOVE WFNSL26D.WF-NS-L01-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L01-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L01-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L01-DSB = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L01-DSB TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E8'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L01-DSB'         
*S**        MOVE WFNSL26D.WF-NS-L01-DSB TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L01-DSB  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L01-DSB TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L02-AMT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L02-AMT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E9'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L02-AMT'         
*S**        MOVE WFNSL26D.WF-NS-L02-AMT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L02-AMT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L02-AMT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L02-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L02-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F1'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L02-OUT'         
*S**        MOVE WFNSL26D.WF-NS-L02-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L02-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L02-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L02-DSB = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L02-DSB TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F2'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L02-DSB'         
*S**        MOVE WFNSL26D.WF-NS-L02-DSB TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L02-DSB  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L02-DSB TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L03-AMT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L03-AMT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F3'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L03-AMT'         
*S**        MOVE WFNSL26D.WF-NS-L03-AMT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L03-AMT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L03-AMT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L03-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L03-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F4'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L03-OUT'         
*S**        MOVE WFNSL26D.WF-NS-L03-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L03-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L03-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L03-DSB = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L03-DSB TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F5'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L03-DSB'         
*S**        MOVE WFNSL26D.WF-NS-L03-DSB TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L03-DSB  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L03-DSB TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L04-AMT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L04-AMT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F6'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L04-AMT'         
*S**        MOVE WFNSL26D.WF-NS-L04-AMT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L04-AMT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L04-AMT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L04-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L04-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F7'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L04-OUT'         
*S**        MOVE WFNSL26D.WF-NS-L04-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L04-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L04-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L04-DSB = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L04-DSB TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F8'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L04-DSB'         
*S**        MOVE WFNSL26D.WF-NS-L04-DSB TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L04-DSB  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L04-DSB TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L05-AMT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L05-AMT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F9'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L05-AMT'         
*S**        MOVE WFNSL26D.WF-NS-L05-AMT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L05-AMT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L05-AMT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L05-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L05-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'G1'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L05-OUT'         
*S**        MOVE WFNSL26D.WF-NS-L05-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L05-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L05-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L05-DSB = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L05-DSB TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'G2'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L05-DSB'         
*S**        MOVE WFNSL26D.WF-NS-L05-DSB TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L05-DSB  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L05-DSB TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L06-AMT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L06-AMT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'G3'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L06-AMT'         
*S**        MOVE WFNSL26D.WF-NS-L06-AMT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L06-AMT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L06-AMT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L06-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L06-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'G4'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L06-OUT'         
*S**        MOVE WFNSL26D.WF-NS-L06-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L06-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L06-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL26D.WF-NS-L06-DSB = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26D.WF-NS-L06-DSB TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'G5'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L06-DSB'         
*S**        MOVE WFNSL26D.WF-NS-L06-DSB TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL26D.WF-NS-L06-DSB  = #6-BYTE-FIELD  
*S**        MOVE WFNSL26D.WF-NS-L06-DSB TO CONVERTED-NSLDS.NEW-VALUE    
*S**        ASSIGN #STUDENT-UPDATED = 'Y'       
*S**        WRITE WORK 1 CONVERTED-NSLDS        
*S**      END-IF        
*S**    END-IF          
*S**    /* Update NSLDS record      
*S**    IF #STUDENT-UPDATED = 'Y'   
*S**      MOVE 'UPDATE' TO WWAOBJ.#FUNCTION     
*S**      PERFORM CALL-OBJECT-NSLDS 
*S**      /*
*S**      ADD 1 TO #WRITE-COUNTER   
*S**      ADD 1 TO #ET-WRITE-COUNTER
*S**      IF #ET-WRITE-COUNTER > #MAX-WRITE     
*S**        PERFORM COMMIT-OR-BACKOUT           
*S**      END-IF        
*S**    END-IF          
*S**    /*  
*S**    /* Check for limited-run maximum        
*S**    IF (#INPUT-RUNMODE = 'TRIAL' OR = 'SAMPLE') AND     
*S**        #INPUT-LIMIT-COUNT > 0 AND          
*S**        #WRITE-COUNTER GE #INPUT-LIMIT-COUNT
*S**      ESCAPE BOTTOM(NEW-NSLDS.) IMMEDIATE   
*S**    END-IF          
*S**  END-REPEAT        
*S**  /*    
*S**  /* Issue final END TRANSACTION
*S**  PERFORM COMMIT-OR-BACKOUT     
*S***       
*S*** Print job statistics          
*S**  WRITE(1) NOTITLE  
*S**    15T 'FINANCIER processing:' /           
*S**    17T 'NSLDS 2627 records read:'          
*S**                        (I) 55T #READ-COUNTER (EM=Z,ZZZ,ZZ9) /      
*S**    19T 'Records bypassed:'     
*S**                        (I) 55T #BYPASS-COUNTER (EM=Z,ZZZ,ZZ9) //   
*S**    17T 'NSLDS records updated:' /          
*S**    19T 'Updates:'  
*S**                        (I) 55T #WRITE-COUNTER (EM=Z,ZZZ,ZZ9) /     
*S***       
*S***       
*S*** Sort tentative awards for fund roster reporting       
*S**CLOSE WORK 1        
*S**READ WORK FILE 1 CONVERTED-NSLDS
*S**END-ALL 
*S***       
*S**SORT BY CONVERTED-NSLDS.NAME    
*S**        CONVERTED-NSLDS.FIELD-SORT          
*S** USING  
*S**  CONVERTED-NSLDS.SID           
*S**  CONVERTED-NSLDS.FIELD-NAME    
*S**  CONVERTED-NSLDS.OLD-VALUE     
*S**  CONVERTED-NSLDS.NEW-VALUE     
*S**  CONVERTED-NSLDS.FILLER        
*S** WRITE WORK 2 CONVERTED-NSLDS   
*S**END-SORT
*S***       
*S**READ WORK FILE 02 CONVERTED-NSLDS           
*S**    IF CONVERTED-NSLDS.SID <> #LAST-STUDENT 
*S**      RESET #PRINT-LINE         
*S**      MOVE CONVERTED-NSLDS.SID TO #PRT-STUDENT-ID       
*S**      MOVE CONVERTED-NSLDS.NAME TO #PRT-STUDENT-NAME    
*S**      WRITE(2) ' '  
*S**      WRITE(2) #PRINT-LINE      
*S**      MOVE CONVERTED-NSLDS.SID TO #LAST-STUDENT         
*S**    END-IF          
*S**    /*  
*S**    /* Suppress printing of 0 values        
*S**    IF (CONVERTED-NSLDS.NEW-VALUE <> '000000' AND       
*S**        #INPUT-REPORT-ZEROS = 'Y') OR       
*S**       (CONVERTED-NSLDS.NEW-VALUE <> 'N/A   ' AND       
*S**        #INPUT-REPORT-NA = 'Y') 
*S**      MOVE CONVERTED-NSLDS.FIELD-NAME TO #PRT-FIELD     
*S**      MOVE CONVERTED-NSLDS.OLD-VALUE TO #PRT-OLD-VALUE  
*S**      MOVE CONVERTED-NSLDS.NEW-VALUE TO #PRT-NEW-VALUE  
*S**      MOVE ':' TO #PRT-COLON1   
*S**                  #PRT-COLON2   
*S**                  #PRT-COLON3   
*S**      WRITE(2) #PRT-LINE2       
*S**      RESET #PRINT-LINE2        
*S**    END-IF          
*S**END-WORK
*S*************************************************************************         
*S**DEFINE SUBROUTINE CALL-OBJECT-NSLDS         
*S*************************************************************************         
*S**  /*    
*S**  /* Call WF-NSLDS-2627 file object subprogram          
*S**  CALLNAT 'WFNSL26O' WW-GDA     
*S**           WFNSL26D 
*S**           WFNSL26D-ID          
*S**           WFNSL26R 
*S**           WWAOBJ   
*S**END-SUBROUTINE /* CALL-OBJECT-NSLDS         
*S***       
*S*******************************************************************   
*S**DEFINE SUBROUTINE COMMIT-OR-BACKOUT         
*S*******************************************************************   
*S**  /*    
*S**  /* Periodically issue END TRANSACTION     
*S**  IF #INPUT-RUNMODE = 'TRIAL' OR = 'RECOVER'
*S**    BACKOUT TRANSACTION         
*S**  ELSE  
*S**    END TRANSACTION 
*S**  END-IF
*S**  RESET #ET-READ-COUNTER #ET-WRITE-COUNTER  
*S**END-SUBROUTINE /* COMMIT-OR-BACKOUT         
*S**END     
*C**                                FATEMP  WCCVN27B                        F S   NN0000        
*D01NAT8304F FATEMP  WCCVN27B                        ZWDNH   ZWDNH           S      
*D02            2026070311415402026070311415400000084298    
*D03LINUX   
*D04                 ISO_8859-1:1987
*S*************************************************************************         
*S***       
*S***                              WolffPack    
*S***       
*S*** Program  : WCCVN27B           
*S*** System   : FINANCIER          
*S*** Title    : NSLDS data conversion          
*S*** Function : This program reads through the WF-NSLDS-2627 file      
*S***            and converts the data value of left justified          
*S***            non-leading zeroes to right justified leading zero     
*S***            format 
*S***       
*S***      Copyright 1995 - 2026 WolffPack, Inc.  All rights reserved.  
*S***       
*S*************************************************************************         
*S**DEFINE DATA         
*S**  GLOBAL USING WWGDA
*S***       
*S**  LOCAL USING WWREQIBD /* Input parameter PDA           
*S**  LOCAL USING WFNSL27D /* Passed to object subprogram   
*S**  LOCAL USING WFNSL27R /* Passed to object subprogram   
*S**  LOCAL USING WWAOBJ   /* Used by object subprograms    
*S***       
*S*** LOCAL USING WWCONST  /* Constants LDA     
*S***       
*S***       
*S**  LOCAL 
*S**  01 #MAX-READ(P3) INIT<50>     
*S**  01 #MAX-WRITE(P3) INIT<10>    
*S**  01 #ET-READ-COUNTER(P7)       
*S**  01 #ET-WRITE-COUNTER(P7)      
*S***       
*S**  01 #READ-COUNTER(P7)          
*S**  01 #BYPASS-COUNTER(P7)        
*S**  01 #WRITE-COUNTER(P7)         
*S***       
*S**  01 #INPUT-REPORT-ZEROS(A1)    
*S**  01 #INPUT-REPORT-NA(A1)       
*S**  01 #LAST-STUDENT(A9)          
*S**  01 #STUDENT-UPDATED(A1)       
*S**  01 #6-BYTE-FIELD(A6)          
*S**  01 #COUNT(N6)     
*S***       
*S**  01 #END-KEY       
*S**    02 WF-FAO(A2)   
*S**    02 WW-STUDENT-ID(A9)        
*S**  01 REDEFINE #END-KEY          
*S**    02 #END-KEY-RED(A11)        
*S***       
*S**  01 #PRINT-LINE    
*S**      02 #PRT-FILLER1(A2)       
*S**      02 #PRT-FILLER2(A2)       
*S**      02 #PRT-STUDENT-ID(A9)    
*S**      02 #PRT-FILLER3(A2)       
*S**      02 #PRT-STUDENT-NAME(A35) 
*S**      02 #PRT-FILLER4(A2)       
*S**      02 #PRT-FILLER5(A2)       
*S**  01 #PRINT-LINE2   
*S**      02 #PRT-FILLER1(A10)      
*S**      02 #PRT-FIELD(A25)        
*S**      02 #PRT-COLON1(A1)        
*S**      02 #PRT-OLD-VALUE(A6)     
*S**      02 #PRT-COLON2(A1)        
*S**      02 #PRT-NEW-VALUE(A6)     
*S**      02 #PRT-COLON3(A1)        
*S**      02 #PRT-FILLER3(A4)       
*S**  01 REDEFINE #PRINT-LINE2      
*S**      02 #PRT-LINE2(A54)        
*S***       
*S**01 CONVERTED-NSLDS  
*S**  02 SID(A9)        
*S**  02 NAME(A35)      
*S**  02 FIELD-SORT(A2) 
*S**  02 FIELD-NAME(A25)
*S**  02 OLD-VALUE(A15) 
*S**  02 NEW-VALUE(A15) 
*S**  02 FILLER1(A4)    
*S**01 REDEFINE CONVERTED-NSLDS     
*S**  02 FILLER(A105)   
*S**END-DEFINE          
*S***       
*S*** Define printers, formats, headings        
*S**EJECT OFF(1)        
*S**FORMAT(1) LS=80 PS=60 ZP=ON IS=OFF ES=OFF SG=OFF        
*S**EJECT OFF(2)        
*S**FORMAT(2) LS=80 PS=60 ZP=ON IS=OFF ES=OFF SG=OFF        
*S***       
*S**AT TOP OF PAGE(1)   
*S**  WRITE(1) NOTITLE ##PGM-ID     
*S**        23T '*** FINANCIER NSLDS 2026-2027 CONVERSION ***'          
*S**        71T 'Page' *PAGE-NUMBER(1)(EM=ZZ9)  
*S**      / *DATX(EM=LLL' 'DD', 'YYYY)          
*S**        28T 'Processing Counts/Errors'      
*S**        71T *TIMX(EM=HH':'II' 'AP)          
*S**END-TOPPAGE         
*S**AT TOP OF PAGE(2)   
*S**  WRITE(2) NOTITLE ##PGM-ID     
*S**        23T '*** FINANCIER NSLDS 2026-2027 CONVERSION ***'          
*S**        71T 'Page' *PAGE-NUMBER(2)(EM=ZZ9)  
*S**      / *DATX(EM=LLL' 'DD', 'YYYY)          
*S**        31T 'Student NSLDS values converted'
*S**        71T *TIMX(EM=HH':'II' 'AP)          
*S**     // 11T 'SID'   
*S**        25T 'Name / Field'      
*S**END-TOPPAGE         
*S***       
*S**ASSIGN ##PGM-ID = 'WWW-MISC'    
*S**ASSIGN ##BYPASS-TRANSLATION = 'B'           
*S***       
*S**IF *DEVICE = 'BATCH' THEN       
*S**  SET CONTROL 'D' /* Set delimiter mode for batch input 
*S**END-IF  
*S***       
*S*************************************************************************         
*S***       
*S*** Read and edit input parameters
*S**  INPUT(AD=MITL'_' SG=ON IP=OFF ZP=OFF)     
*S**          'Aid Year:' #INPUT-AID-YEAR /     
*S**          'Term:' #INPUT-TERM / 
*S**          'FAO:' #INPUT-FAO /   
*S**          'Run Mode:' #INPUT-RUNMODE /      
*S**          'Effective Date:' #INPUT-EFF-DATE /           
*S**          'Report Zeroes:' #INPUT-REPORT-ZEROS /        
*S**          'Report N/A:' #INPUT-REPORT-NA /  
*S**  PERFORM REQUIRED-FIELD-BATCH WWREQIBD     
*S**  ASSIGN ##PGM-ID = 'WCCVN27B'         /* For report headings       
*S**  WRITE(1) ' '      
*S**  WRITE(2) ' ' /    
*S**  WRITE(1)          
*S**    36T ##DISP-LIT ##DISP-FAO ///           
*S***       
*S***       
*S*** Set up keys for sequential file processing
*S**  RESET WFNSL27D    
*S**  ASSIGN WFNSL27D.WF-FAO = ##FAO-ID         
*S**  MOVE BY NAME WFNSL27D TO #END-KEY         
*S**  MOVE H'FF' TO #END-KEY.WW-STUDENT-ID      
*S***       
*S***       
*S**NEW-NSLDS.          
*S**  REPEAT
*S**    /*  
*S**    /* Read next NSLDS record   
*S**    MOVE 'NEXT' TO WWAOBJ.#FUNCTION         
*S**    PERFORM CALL-OBJECT-NSLDS   
*S**    /*  
*S**    /* End of records to be processed       
*S**    IF NOT WWAOBJ.#EXISTS OR    
*S**       WFNSL27D-ID > #END-KEY-RED           
*S**      ESCAPE BOTTOM(NEW-NSLDS.) IMMEDIATE   
*S**    END-IF          
*S**    /*  
*S**    ADD 1 TO #READ-COUNTER      
*S**    ADD 1 TO #ET-READ-COUNTER   
*S**    IF #ET-READ-COUNTER > #MAX-READ         
*S**      PERFORM COMMIT-OR-BACKOUT 
*S**    END-IF          
*S**    /*  
*S**    /* Check numeric fields for left justified and      
*S**    /*  non-leading zeroes      
*S**    RESET #STUDENT-UPDATED      
*S**    MOVE WFNSL27D.WW-STUDENT-ID TO ##STUDENT-ID         
*S**    PERFORM GET-STUDENT-INFO    
*S**    MOVE ##SID TO CONVERTED-NSLDS.SID       
*S**    MOVE ##COMP-NAME TO CONVERTED-NSLDS.NAME
*S**    /*  
*S**    /* Check and repair fields  
*S**    IF WFNSL27D.WF-NS-SUB-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-SUB-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A1'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-SUB-OUT'         
*S**        MOVE WFNSL27D.WF-NS-SUB-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-SUB-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-SUB-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-SUB-OUT FOR 'N/A' GIVING NUMBER #COUNT           
*S**        IF #COUNT > 0           
*S**          IF WFNSL27D.WF-NS-SUB-OUT = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A1'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-SUB-OUT'     
*S**            MOVE WFNSL27D.WF-NS-SUB-OUT TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-SUB-OUT TO           
*S**                 WFNSL27D.WF-NS-SUB-OUT     
*S**            MOVE WFNSL27D.WF-NS-SUB-OUT TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-UNS-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-UNS-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A2'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-UNS-OUT'         
*S**        MOVE WFNSL27D.WF-NS-UNS-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-UNS-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-UNS-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-UNS-OUT  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-UNS-OUT  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A2'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-UNS-OUT'     
*S**            MOVE WFNSL27D.WF-NS-UNS-OUT TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-UNS-OUT TO           
*S**                 WFNSL27D.WF-NS-UNS-OUT     
*S**            MOVE WFNSL27D.WF-NS-UNS-OUT TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-CMB-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-CMB-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A3'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-CMB-OUT'         
*S**        MOVE WFNSL27D.WF-NS-CMB-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-CMB-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-CMB-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-CMB-OUT  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-CMB-OUT  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A3'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-CMB-OUT'     
*S**            MOVE WFNSL27D.WF-NS-CMB-OUT TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-CMB-OUT TO           
*S**                 WFNSL27D.WF-NS-CMB-OUT     
*S**            MOVE WFNSL27D.WF-NS-CMB-OUT TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-CON-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-CON-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A4'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-CON-OUT'         
*S**        MOVE WFNSL27D.WF-NS-CON-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-CON-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-CON-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-CON-OUT  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-CON-OUT  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A4'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-CON-OUT'     
*S**            MOVE WFNSL27D.WF-NS-CON-OUT TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-CON-OUT TO           
*S**                 WFNSL27D.WF-NS-CON-OUT     
*S**            MOVE WFNSL27D.WF-NS-CON-OUT TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-TCH-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-TCH-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A5'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-TCH-OUT'         
*S**        MOVE WFNSL27D.WF-NS-TCH-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-TCH-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-TCH-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-TCH-OUT  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-TCH-OUT  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A5'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-TCH-OUT'     
*S**            MOVE WFNSL27D.WF-NS-TCH-OUT TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-TCH-OUT TO           
*S**                 WFNSL27D.WF-NS-TCH-OUT     
*S**            MOVE WFNSL27D.WF-NS-TCH-OUT TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-SUB-PEND = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-SUB-PEND TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A6'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-SUB-PEND'        
*S**        MOVE WFNSL27D.WF-NS-SUB-PEND TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL27D.WF-NS-SUB-PEND  = #6-BYTE-FIELD 
*S**        MOVE WFNSL27D.WF-NS-SUB-PEND TO CONVERTED-NSLDS.NEW-VALUE   
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-SUB-PEND  FOR 'N/A' GIVING NUMBER #COUNT         
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-SUB-PEND  = 'N/A   '         
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A6'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-SUB-PEND'    
*S**            MOVE WFNSL27D.WF-NS-SUB-PEND TO CONVERTED-NSLDS.OLD-VALUE           
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-SUB-PEND TO          
*S**                 WFNSL27D.WF-NS-SUB-PEND    
*S**            MOVE WFNSL27D.WF-NS-SUB-PEND TO CONVERTED-NSLDS.NEW-VALUE           
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-UNS-PEND = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-UNS-PEND TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A7'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-UNS-PEND'        
*S**        MOVE WFNSL27D.WF-NS-UNS-PEND TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL27D.WF-NS-UNS-PEND  = #6-BYTE-FIELD 
*S**        MOVE WFNSL27D.WF-NS-UNS-PEND TO CONVERTED-NSLDS.NEW-VALUE   
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-UNS-PEND  FOR 'N/A' GIVING NUMBER #COUNT         
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-UNS-PEND  = 'N/A   '         
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A7'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-UNS-PEND'    
*S**            MOVE WFNSL27D.WF-NS-UNS-PEND TO CONVERTED-NSLDS.OLD-VALUE           
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-UNS-PEND TO          
*S**                 WFNSL27D.WF-NS-UNS-PEND    
*S**            MOVE WFNSL27D.WF-NS-UNS-PEND TO CONVERTED-NSLDS.NEW-VALUE           
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-CMB-PEND = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-CMB-PEND TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A8'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-CMB-PEND'        
*S**        MOVE WFNSL27D.WF-NS-CMB-PEND TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL27D.WF-NS-CMB-PEND  = #6-BYTE-FIELD 
*S**        MOVE WFNSL27D.WF-NS-CMB-PEND TO CONVERTED-NSLDS.NEW-VALUE   
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-CMB-PEND  FOR 'N/A' GIVING NUMBER #COUNT         
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-CMB-PEND  = 'N/A   '         
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A8'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-CMB-PEND'    
*S**            MOVE WFNSL27D.WF-NS-CMB-PEND TO CONVERTED-NSLDS.OLD-VALUE           
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-CMB-PEND TO          
*S**                 WFNSL27D.WF-NS-CMB-PEND    
*S**            MOVE WFNSL27D.WF-NS-CMB-PEND TO CONVERTED-NSLDS.NEW-VALUE           
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-SUB-TOTAL = MASK(999999)          
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-SUB-TOTAL TO #6-BYTE-FIELD
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A9'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-SUB-TOTAL'       
*S**        MOVE WFNSL27D.WF-NS-SUB-TOTAL TO CONVERTED-NSLDS.OLD-VALUE  
*S**        ASSIGN WFNSL27D.WF-NS-SUB-TOTAL  = #6-BYTE-FIELD
*S**        MOVE WFNSL27D.WF-NS-SUB-TOTAL TO CONVERTED-NSLDS.NEW-VALUE  
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-SUB-TOTAL  FOR 'N/A' GIVING NUMBER #COUNT        
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-SUB-TOTAL  = 'N/A   '        
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'A9'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-SUB-TOTAL'   
*S**            MOVE WFNSL27D.WF-NS-SUB-TOTAL TO CONVERTED-NSLDS.OLD-VALUE          
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-SUB-TOTAL TO         
*S**                 WFNSL27D.WF-NS-SUB-TOTAL   
*S**            MOVE WFNSL27D.WF-NS-SUB-TOTAL TO CONVERTED-NSLDS.NEW-VALUE          
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-UNS-TOTAL = MASK(999999)          
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-UNS-TOTAL TO #6-BYTE-FIELD
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B1'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-UNS-TOTAL'       
*S**        MOVE WFNSL27D.WF-NS-UNS-TOTAL TO CONVERTED-NSLDS.OLD-VALUE  
*S**        ASSIGN WFNSL27D.WF-NS-UNS-TOTAL  = #6-BYTE-FIELD
*S**        MOVE WFNSL27D.WF-NS-UNS-TOTAL TO CONVERTED-NSLDS.NEW-VALUE  
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-UNS-TOTAL  FOR 'N/A' GIVING NUMBER #COUNT        
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-UNS-TOTAL  = 'N/A   '        
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B1'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-UNS-TOTAL'   
*S**            MOVE WFNSL27D.WF-NS-UNS-TOTAL TO CONVERTED-NSLDS.OLD-VALUE          
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-UNS-TOTAL TO         
*S**                 WFNSL27D.WF-NS-UNS-TOTAL   
*S**            MOVE WFNSL27D.WF-NS-UNS-TOTAL TO CONVERTED-NSLDS.NEW-VALUE          
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-CMB-TOTAL = MASK(999999)          
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-CMB-TOTAL TO #6-BYTE-FIELD
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B2'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-CMB-TOTAL'       
*S**        MOVE WFNSL27D.WF-NS-CMB-TOTAL TO CONVERTED-NSLDS.OLD-VALUE  
*S**        ASSIGN WFNSL27D.WF-NS-CMB-TOTAL  = #6-BYTE-FIELD
*S**        MOVE WFNSL27D.WF-NS-CMB-TOTAL TO CONVERTED-NSLDS.NEW-VALUE  
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-CMB-TOTAL  FOR 'N/A' GIVING NUMBER #COUNT        
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-CMB-TOTAL  = 'N/A   '        
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B2'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-CMB-TOTAL'   
*S**            MOVE WFNSL27D.WF-NS-CMB-TOTAL TO CONVERTED-NSLDS.OLD-VALUE          
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-CMB-TOTAL TO         
*S**                 WFNSL27D.WF-NS-CMB-TOTAL   
*S**            MOVE WFNSL27D.WF-NS-CMB-TOTAL TO CONVERTED-NSLDS.NEW-VALUE          
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-CON-TOTAL = MASK(999999)          
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-CON-TOTAL TO #6-BYTE-FIELD
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B3'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-CON-TOTAL'       
*S**        MOVE WFNSL27D.WF-NS-CON-TOTAL TO CONVERTED-NSLDS.OLD-VALUE  
*S**        ASSIGN WFNSL27D.WF-NS-CON-TOTAL  = #6-BYTE-FIELD
*S**        MOVE WFNSL27D.WF-NS-CON-TOTAL TO CONVERTED-NSLDS.NEW-VALUE  
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-CON-TOTAL  FOR 'N/A' GIVING NUMBER #COUNT        
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-CON-TOTAL  = 'N/A   '        
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B3'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-CON-TOTAL'   
*S**            MOVE WFNSL27D.WF-NS-CON-TOTAL TO CONVERTED-NSLDS.OLD-VALUE          
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-CON-TOTAL TO         
*S**                 WFNSL27D.WF-NS-CON-TOTAL   
*S**            MOVE WFNSL27D.WF-NS-CON-TOTAL TO CONVERTED-NSLDS.NEW-VALUE          
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-TCH-TOTAL = MASK(999999)          
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-TCH-TOTAL TO #6-BYTE-FIELD
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B4'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-TCH-TOTAL'       
*S**        MOVE WFNSL27D.WF-NS-TCH-TOTAL TO CONVERTED-NSLDS.OLD-VALUE  
*S**        ASSIGN WFNSL27D.WF-NS-TCH-TOTAL  = #6-BYTE-FIELD
*S**        MOVE WFNSL27D.WF-NS-TCH-TOTAL TO CONVERTED-NSLDS.NEW-VALUE  
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-TCH-TOTAL  FOR 'N/A' GIVING NUMBER #COUNT        
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-TCH-TOTAL  = 'N/A   '        
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B4'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-TCH-TOTAL'   
*S**            MOVE WFNSL27D.WF-NS-TCH-TOTAL TO CONVERTED-NSLDS.OLD-VALUE          
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-TCH-TOTAL TO         
*S**                 WFNSL27D.WF-NS-TCH-TOTAL   
*S**            MOVE WFNSL27D.WF-NS-TCH-TOTAL TO CONVERTED-NSLDS.NEW-VALUE          
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-PERK-TOTAL = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-PERK-TOTAL TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B5'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-PERK-TOTAL'      
*S**        MOVE WFNSL27D.WF-NS-PERK-TOTAL TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL27D.WF-NS-PERK-TOTAL  = #6-BYTE-FIELD           
*S**        MOVE WFNSL27D.WF-NS-PERK-TOTAL TO CONVERTED-NSLDS.NEW-VALUE 
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-PERK-TOTAL  FOR 'N/A' GIVING NUMBER #COUNT       
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-PERK-TOTAL  = 'N/A   '       
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B5'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-PERK-TOTAL'  
*S**            MOVE WFNSL27D.WF-NS-PERK-TOTAL TO CONVERTED-NSLDS.OLD-VALUE         
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-PERK-TOTAL TO        
*S**                 WFNSL27D.WF-NS-PERK-TOTAL  
*S**            MOVE WFNSL27D.WF-NS-PERK-TOTAL TO CONVERTED-NSLDS.NEW-VALUE         
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-PERK-CUR = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-PERK-CUR TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B6'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-PERK-CUR'        
*S**        MOVE WFNSL27D.WF-NS-PERK-CUR TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL27D.WF-NS-PERK-CUR  = #6-BYTE-FIELD 
*S**        MOVE WFNSL27D.WF-NS-PERK-CUR TO CONVERTED-NSLDS.NEW-VALUE   
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-PERK-CUR  FOR 'N/A' GIVING NUMBER #COUNT         
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-PERK-CUR  = 'N/A   '         
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B6'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-PERK-CUR'    
*S**            MOVE WFNSL27D.WF-NS-PERK-CUR TO CONVERTED-NSLDS.OLD-VALUE           
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-PERK-CUR TO          
*S**                 WFNSL27D.WF-NS-PERK-CUR    
*S**            MOVE WFNSL27D.WF-NS-PERK-CUR TO CONVERTED-NSLDS.NEW-VALUE           
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-TCH-TOTAL-UG = MASK(999999)       
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-TCH-TOTAL-UG TO #6-BYTE-FIELD         
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B7'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-TCH-TOTAL-UG'    
*S**        MOVE WFNSL27D.WF-NS-TCH-TOTAL-UG TO CONVERTED-NSLDS.OLD-VALUE           
*S**        ASSIGN WFNSL27D.WF-NS-TCH-TOTAL-UG  = #6-BYTE-FIELD         
*S**        MOVE WFNSL27D.WF-NS-TCH-TOTAL-UG TO CONVERTED-NSLDS.NEW-VALUE           
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-TCH-TOTAL-UG  FOR 'N/A' GIVING NUMBER #COUNT     
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-TCH-TOTAL-UG  = 'N/A   '     
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B7'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-TCH-TOTAL-UG'
*S**            MOVE WFNSL27D.WF-NS-TCH-TOTAL-UG TO CONVERTED-NSLDS.OLD-VALUE       
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-TCH-TOTAL-UG TO      
*S**                 WFNSL27D.WF-NS-TCH-TOTAL-UG
*S**            MOVE WFNSL27D.WF-NS-TCH-TOTAL-UG TO CONVERTED-NSLDS.NEW-VALUE       
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-TCH-TOTAL-GR = MASK(999999)       
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-TCH-TOTAL-GR TO #6-BYTE-FIELD         
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B8'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-TCH-TOTAL-GR'    
*S**        MOVE WFNSL27D.WF-NS-TCH-TOTAL-GR TO CONVERTED-NSLDS.OLD-VALUE           
*S**        ASSIGN WFNSL27D.WF-NS-TCH-TOTAL-GR  = #6-BYTE-FIELD         
*S**        MOVE WFNSL27D.WF-NS-TCH-TOTAL-GR TO CONVERTED-NSLDS.NEW-VALUE           
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-TCH-TOTAL-GR  FOR 'N/A' GIVING NUMBER #COUNT     
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-TCH-TOTAL-GR  = 'N/A   '     
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B8'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-TCH-TOTAL-GR'
*S**            MOVE WFNSL27D.WF-NS-TCH-TOTAL-GR TO CONVERTED-NSLDS.OLD-VALUE       
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-TCH-TOTAL-GR TO      
*S**                 WFNSL27D.WF-NS-TCH-TOTAL-GR
*S**            MOVE WFNSL27D.WF-NS-TCH-TOTAL-GR TO CONVERTED-NSLDS.NEW-VALUE       
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-P1-SCH-AWD = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-P1-SCH-AWD TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B9'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P1-SCH-AWD'      
*S**        MOVE WFNSL27D.WF-NS-P1-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL27D.WF-NS-P1-SCH-AWD = #6-BYTE-FIELD
*S**        MOVE WFNSL27D.WF-NS-P1-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE 
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-P1-SCH-AWD  FOR 'N/A' GIVING NUMBER #COUNT       
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-P1-SCH-AWD  = 'N/A   '       
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'B9'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P1-SCH-AWD'  
*S**            MOVE WFNSL27D.WF-NS-P1-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE         
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-P1-SCH-AWD TO        
*S**                 WFNSL27D.WF-NS-P1-SCH-AWD  
*S**            MOVE WFNSL27D.WF-NS-P1-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE         
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-P1-PAID = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-P1-PAID TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C1'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P1-PAID'         
*S**        MOVE WFNSL27D.WF-NS-P1-PAID TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-P1-PAID  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-P1-PAID TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-P1-PAID  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-P1-PAID  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C1'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P1-PAID'     
*S**            MOVE WFNSL27D.WF-NS-P1-PAID TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-P1-PAID TO           
*S**                 WFNSL27D.WF-NS-P1-PAID     
*S**            MOVE WFNSL27D.WF-NS-P1-PAID TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-P1-AWARD = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-P1-AWARD TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C2'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P1-AWARD'        
*S**        MOVE WFNSL27D.WF-NS-P1-AWARD TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL27D.WF-NS-P1-AWARD  = #6-BYTE-FIELD 
*S**        MOVE WFNSL27D.WF-NS-P1-AWARD TO CONVERTED-NSLDS.NEW-VALUE   
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-P1-AWARD  FOR 'N/A' GIVING NUMBER #COUNT         
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-P1-AWARD  = 'N/A   '         
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C2'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P1-AWARD'    
*S**            MOVE WFNSL27D.WF-NS-P1-AWARD TO CONVERTED-NSLDS.OLD-VALUE           
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-P1-AWARD TO          
*S**                 WFNSL27D.WF-NS-P1-AWARD    
*S**            MOVE WFNSL27D.WF-NS-P1-AWARD TO CONVERTED-NSLDS.NEW-VALUE           
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-P2-SCH-AWD = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-P2-SCH-AWD TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C3'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P2-SCH-AWD'      
*S**        MOVE WFNSL27D.WF-NS-P2-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL27D.WF-NS-P2-SCH-AWD = #6-BYTE-FIELD
*S**        MOVE WFNSL27D.WF-NS-P2-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE 
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-P2-SCH-AWD  FOR 'N/A' GIVING NUMBER #COUNT       
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-P2-SCH-AWD  = 'N/A   '       
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C3'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P2-SCH-AWD'  
*S**            MOVE WFNSL27D.WF-NS-P2-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE         
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-P2-SCH-AWD TO        
*S**                 WFNSL27D.WF-NS-P2-SCH-AWD  
*S**            MOVE WFNSL27D.WF-NS-P2-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE         
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-P2-PAID = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-P2-PAID TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C4'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P2-PAID'         
*S**        MOVE WFNSL27D.WF-NS-P2-PAID TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-P2-PAID  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-P2-PAID TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-P2-PAID  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-P2-PAID  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C4'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P2-PAID'     
*S**            MOVE WFNSL27D.WF-NS-P2-PAID TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-P2-PAID TO           
*S**                 WFNSL27D.WF-NS-P2-PAID     
*S**            MOVE WFNSL27D.WF-NS-P2-PAID TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-P2-AWARD = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-P2-AWARD TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C5'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P2-AWARD'        
*S**        MOVE WFNSL27D.WF-NS-P2-AWARD TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL27D.WF-NS-P2-AWARD  = #6-BYTE-FIELD 
*S**        MOVE WFNSL27D.WF-NS-P2-AWARD TO CONVERTED-NSLDS.NEW-VALUE   
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-P2-AWARD  FOR 'N/A' GIVING NUMBER #COUNT         
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-P2-AWARD  = 'N/A   '         
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C5'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P2-AWARD'    
*S**            MOVE WFNSL27D.WF-NS-P2-AWARD TO CONVERTED-NSLDS.OLD-VALUE           
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-P2-AWARD TO          
*S**                 WFNSL27D.WF-NS-P2-AWARD    
*S**            MOVE WFNSL27D.WF-NS-P2-AWARD TO CONVERTED-NSLDS.NEW-VALUE           
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-P3-SCH-AWD = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-P3-SCH-AWD TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C6'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P3-SCH-AWD'      
*S**        MOVE WFNSL27D.WF-NS-P3-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL27D.WF-NS-P3-SCH-AWD = #6-BYTE-FIELD
*S**        MOVE WFNSL27D.WF-NS-P3-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE 
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-P3-SCH-AWD  FOR 'N/A' GIVING NUMBER #COUNT       
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-P3-SCH-AWD  = 'N/A   '       
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C6'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P3-SCH-AWD'  
*S**            MOVE WFNSL27D.WF-NS-P3-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE         
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-P3-SCH-AWD TO        
*S**                 WFNSL27D.WF-NS-P3-SCH-AWD  
*S**            MOVE WFNSL27D.WF-NS-P3-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE         
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-P3-PAID = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-P3-PAID TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C7'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P3-PAID'         
*S**        MOVE WFNSL27D.WF-NS-P3-PAID TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-P3-PAID  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-P3-PAID TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-P3-PAID  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-P3-PAID  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C7'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P3-PAID'     
*S**            MOVE WFNSL27D.WF-NS-P3-PAID TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-P3-PAID TO           
*S**                 WFNSL27D.WF-NS-P3-PAID     
*S**            MOVE WFNSL27D.WF-NS-P3-PAID TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-P3-AWARD = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-P3-AWARD TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C8'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P3-AWARD'        
*S**        MOVE WFNSL27D.WF-NS-P3-AWARD TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL27D.WF-NS-P3-AWARD  = #6-BYTE-FIELD 
*S**        MOVE WFNSL27D.WF-NS-P3-AWARD TO CONVERTED-NSLDS.NEW-VALUE   
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-P3-AWARD  FOR 'N/A' GIVING NUMBER #COUNT         
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-P3-AWARD  = 'N/A   '         
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C8'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-P3-AWARD'    
*S**            MOVE WFNSL27D.WF-NS-P3-AWARD TO CONVERTED-NSLDS.OLD-VALUE           
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-P3-AWARD TO          
*S**                 WFNSL27D.WF-NS-P3-AWARD    
*S**            MOVE WFNSL27D.WF-NS-P3-AWARD TO CONVERTED-NSLDS.NEW-VALUE           
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-T1-SCH-AWD = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-T1-SCH-AWD TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C9'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T1-SCH-AWD'      
*S**        MOVE WFNSL27D.WF-NS-T1-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL27D.WF-NS-T1-SCH-AWD = #6-BYTE-FIELD
*S**        MOVE WFNSL27D.WF-NS-T1-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE 
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-T1-SCH-AWD  FOR 'N/A' GIVING NUMBER #COUNT       
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-T1-SCH-AWD  = 'N/A   '       
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'C9'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T1-SCH-AWD'  
*S**            MOVE WFNSL27D.WF-NS-T1-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE         
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-T1-SCH-AWD TO        
*S**                 WFNSL27D.WF-NS-T1-SCH-AWD  
*S**            MOVE WFNSL27D.WF-NS-T1-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE         
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-T1-PAID = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-T1-PAID TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D1'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T1-PAID'         
*S**        MOVE WFNSL27D.WF-NS-T1-PAID TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-T1-PAID  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-T1-PAID TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-T1-PAID  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-T1-PAID  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D1'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T1-PAID'     
*S**            MOVE WFNSL27D.WF-NS-T1-PAID TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-T1-PAID TO           
*S**                 WFNSL27D.WF-NS-T1-PAID     
*S**            MOVE WFNSL27D.WF-NS-T1-PAID TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-T1-AWARD = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-T1-AWARD TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D2'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T1-AWARD'        
*S**        MOVE WFNSL27D.WF-NS-T1-AWARD TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL27D.WF-NS-T1-AWARD  = #6-BYTE-FIELD 
*S**        MOVE WFNSL27D.WF-NS-T1-AWARD TO CONVERTED-NSLDS.NEW-VALUE   
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-T1-AWARD  FOR 'N/A' GIVING NUMBER #COUNT         
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-T1-AWARD  = 'N/A   '         
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D2'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T1-AWARD'    
*S**            MOVE WFNSL27D.WF-NS-T1-AWARD TO CONVERTED-NSLDS.OLD-VALUE           
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-T1-AWARD TO          
*S**                 WFNSL27D.WF-NS-T1-AWARD    
*S**            MOVE WFNSL27D.WF-NS-T1-AWARD TO CONVERTED-NSLDS.NEW-VALUE           
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-T1-DCHG-AMT = MASK(999999)        
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-T1-DCHG-AMT TO #6-BYTE-FIELD          
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D3'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T1-DCHG-AMT'     
*S**        MOVE WFNSL27D.WF-NS-T1-DCHG-AMT TO CONVERTED-NSLDS.OLD-VALUE
*S**        ASSIGN WFNSL27D.WF-NS-T1-DCHG-AMT  = #6-BYTE-FIELD          
*S**        MOVE WFNSL27D.WF-NS-T1-DCHG-AMT TO CONVERTED-NSLDS.NEW-VALUE
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-T1-DCHG-AMT  FOR 'N/A' GIVING NUMBER #COUNT      
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-T1-DCHG-AMT  = 'N/A   '      
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D3'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T1-DCHG-AMT' 
*S**            MOVE WFNSL27D.WF-NS-T1-DCHG-AMT TO CONVERTED-NSLDS.OLD-VALUE        
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-T1-DCHG-AMT TO       
*S**                 WFNSL27D.WF-NS-T1-DCHG-AMT 
*S**            MOVE WFNSL27D.WF-NS-T1-DCHG-AMT TO CONVERTED-NSLDS.NEW-VALUE        
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-T1-ADJ-DSB = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-T1-ADJ-DSB TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D4'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T1-ADJ-DSB'      
*S**        MOVE WFNSL27D.WF-NS-T1-ADJ-DSB TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL27D.WF-NS-T1-ADJ-DSB = #6-BYTE-FIELD
*S**        MOVE WFNSL27D.WF-NS-T1-ADJ-DSB TO CONVERTED-NSLDS.NEW-VALUE 
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-T1-ADJ-DSB  FOR 'N/A' GIVING NUMBER #COUNT       
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-T1-ADJ-DSB  = 'N/A   '       
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D4'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T1-ADJ-DSB'  
*S**            MOVE WFNSL27D.WF-NS-T1-ADJ-DSB TO CONVERTED-NSLDS.OLD-VALUE         
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-T1-ADJ-DSB TO        
*S**                 WFNSL27D.WF-NS-T1-ADJ-DSB  
*S**            MOVE WFNSL27D.WF-NS-T1-ADJ-DSB TO CONVERTED-NSLDS.NEW-VALUE         
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-T2-SCH-AWD = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-T2-SCH-AWD TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D5'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T2-SCH-AWD'      
*S**        MOVE WFNSL27D.WF-NS-T2-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL27D.WF-NS-T2-SCH-AWD = #6-BYTE-FIELD
*S**        MOVE WFNSL27D.WF-NS-T2-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE 
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-T2-SCH-AWD  FOR 'N/A' GIVING NUMBER #COUNT       
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-T2-SCH-AWD  = 'N/A   '       
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D5'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T2-SCH-AWD'  
*S**            MOVE WFNSL27D.WF-NS-T2-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE         
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-T2-SCH-AWD TO        
*S**                 WFNSL27D.WF-NS-T2-SCH-AWD  
*S**            MOVE WFNSL27D.WF-NS-T2-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE         
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-T2-PAID = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-T2-PAID TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D6'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T2-PAID'         
*S**        MOVE WFNSL27D.WF-NS-T2-PAID TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-T2-PAID  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-T2-PAID TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-T2-PAID  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-T2-PAID  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D6'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T2-PAID'     
*S**            MOVE WFNSL27D.WF-NS-T2-PAID TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-T2-PAID TO           
*S**                 WFNSL27D.WF-NS-T2-PAID     
*S**            MOVE WFNSL27D.WF-NS-T2-PAID TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-T2-AWARD = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-T2-AWARD TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D7'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T2-AWARD'        
*S**        MOVE WFNSL27D.WF-NS-T2-AWARD TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL27D.WF-NS-T2-AWARD  = #6-BYTE-FIELD 
*S**        MOVE WFNSL27D.WF-NS-T2-AWARD TO CONVERTED-NSLDS.NEW-VALUE   
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-T2-AWARD  FOR 'N/A' GIVING NUMBER #COUNT         
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-T2-AWARD  = 'N/A   '         
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D7'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T2-AWARD'    
*S**            MOVE WFNSL27D.WF-NS-T2-AWARD TO CONVERTED-NSLDS.OLD-VALUE           
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-T2-AWARD TO          
*S**                 WFNSL27D.WF-NS-T2-AWARD    
*S**            MOVE WFNSL27D.WF-NS-T2-AWARD TO CONVERTED-NSLDS.NEW-VALUE           
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-T2-DCHG-AMT = MASK(999999)        
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-T2-DCHG-AMT TO #6-BYTE-FIELD          
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D8'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T2-DCHG-AMT'     
*S**        MOVE WFNSL27D.WF-NS-T2-DCHG-AMT TO CONVERTED-NSLDS.OLD-VALUE
*S**        ASSIGN WFNSL27D.WF-NS-T2-DCHG-AMT  = #6-BYTE-FIELD          
*S**        MOVE WFNSL27D.WF-NS-T2-DCHG-AMT TO CONVERTED-NSLDS.NEW-VALUE
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-T2-DCHG-AMT  FOR 'N/A' GIVING NUMBER #COUNT      
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-T2-DCHG-AMT  = 'N/A   '      
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D8'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T2-DCHG-AMT' 
*S**            MOVE WFNSL27D.WF-NS-T2-DCHG-AMT TO CONVERTED-NSLDS.OLD-VALUE        
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-T2-DCHG-AMT TO       
*S**                 WFNSL27D.WF-NS-T2-DCHG-AMT 
*S**            MOVE WFNSL27D.WF-NS-T2-DCHG-AMT TO CONVERTED-NSLDS.NEW-VALUE        
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-T2-ADJ-DSB = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-T2-ADJ-DSB TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D9'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T2-ADJ-DSB'      
*S**        MOVE WFNSL27D.WF-NS-T2-ADJ-DSB TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL27D.WF-NS-T2-ADJ-DSB  = #6-BYTE-FIELD           
*S**        MOVE WFNSL27D.WF-NS-T2-ADJ-DSB TO CONVERTED-NSLDS.NEW-VALUE 
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-T2-ADJ-DSB  FOR 'N/A' GIVING NUMBER #COUNT       
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-T2-ADJ-DSB  = 'N/A   '       
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'D9'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T2-ADJ-DSB'  
*S**            MOVE WFNSL27D.WF-NS-T2-ADJ-DSB TO CONVERTED-NSLDS.OLD-VALUE         
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-T2-ADJ-DSB TO        
*S**                 WFNSL27D.WF-NS-T2-ADJ-DSB  
*S**            MOVE WFNSL27D.WF-NS-T2-ADJ-DSB TO CONVERTED-NSLDS.NEW-VALUE         
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-T3-SCH-AWD = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-T3-SCH-AWD TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E1'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T3-SCH-AWD'      
*S**        MOVE WFNSL27D.WF-NS-T3-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL27D.WF-NS-T3-SCH-AWD  = #6-BYTE-FIELD           
*S**        MOVE WFNSL27D.WF-NS-T3-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE 
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-T3-SCH-AWD  FOR 'N/A' GIVING NUMBER #COUNT       
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-T3-SCH-AWD  = 'N/A   '       
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E1'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T3-SCH-AWD'  
*S**            MOVE WFNSL27D.WF-NS-T3-SCH-AWD TO CONVERTED-NSLDS.OLD-VALUE         
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-T3-SCH-AWD TO        
*S**                 WFNSL27D.WF-NS-T3-SCH-AWD  
*S**            MOVE WFNSL27D.WF-NS-T3-SCH-AWD TO CONVERTED-NSLDS.NEW-VALUE         
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-T3-PAID = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-T3-PAID TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E2'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T3-PAID'         
*S**        MOVE WFNSL27D.WF-NS-T3-PAID TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-T3-PAID  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-T3-PAID TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-T3-PAID  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-T3-PAID  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E2'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T3-PAID'     
*S**            MOVE WFNSL27D.WF-NS-T3-PAID TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-T3-PAID TO           
*S**                 WFNSL27D.WF-NS-T3-PAID     
*S**            MOVE WFNSL27D.WF-NS-T3-PAID TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-T3-AWARD = MASK(999999)           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-T3-AWARD TO #6-BYTE-FIELD 
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E3'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T3-AWARD'        
*S**        MOVE WFNSL27D.WF-NS-T3-AWARD TO CONVERTED-NSLDS.OLD-VALUE   
*S**        ASSIGN WFNSL27D.WF-NS-T3-AWARD  = #6-BYTE-FIELD 
*S**        MOVE WFNSL27D.WF-NS-T3-AWARD TO CONVERTED-NSLDS.NEW-VALUE   
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-T3-AWARD  FOR 'N/A' GIVING NUMBER #COUNT         
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-T3-AWARD  = 'N/A   '         
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E3'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T3-AWARD'    
*S**            MOVE WFNSL27D.WF-NS-T3-AWARD TO CONVERTED-NSLDS.OLD-VALUE           
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-T3-AWARD TO          
*S**                 WFNSL27D.WF-NS-T3-AWARD    
*S**            MOVE WFNSL27D.WF-NS-T3-AWARD TO CONVERTED-NSLDS.NEW-VALUE           
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-T3-DCHG-AMT = MASK(999999)        
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-T3-DCHG-AMT TO #6-BYTE-FIELD          
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E4'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T3-DCHG-AMT'     
*S**        MOVE WFNSL27D.WF-NS-T3-DCHG-AMT TO CONVERTED-NSLDS.OLD-VALUE
*S**        ASSIGN WFNSL27D.WF-NS-T3-DCHG-AMT  = #6-BYTE-FIELD          
*S**        MOVE WFNSL27D.WF-NS-T3-DCHG-AMT TO CONVERTED-NSLDS.NEW-VALUE
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-T3-DCHG-AMT  FOR 'N/A' GIVING NUMBER #COUNT      
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-T3-DCHG-AMT  = 'N/A   '      
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E4'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T3-DCHG-AMT' 
*S**            MOVE WFNSL27D.WF-NS-T3-DCHG-AMT TO CONVERTED-NSLDS.OLD-VALUE        
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-T3-DCHG-AMT TO       
*S**                 WFNSL27D.WF-NS-T3-DCHG-AMT 
*S**            MOVE WFNSL27D.WF-NS-T3-DCHG-AMT TO CONVERTED-NSLDS.NEW-VALUE        
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-T3-ADJ-DSB = MASK(999999)         
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-T3-ADJ-DSB TO #6-BYTE-FIELD           
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E5'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T3-ADJ-DSB'      
*S**        MOVE WFNSL27D.WF-NS-T3-ADJ-DSB TO CONVERTED-NSLDS.OLD-VALUE 
*S**        ASSIGN WFNSL27D.WF-NS-T3-ADJ-DSB  = #6-BYTE-FIELD           
*S**        MOVE WFNSL27D.WF-NS-T3-ADJ-DSB TO CONVERTED-NSLDS.NEW-VALUE 
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-T3-ADJ-DSB  FOR 'N/A' GIVING NUMBER #COUNT       
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-T3-ADJ-DSB  = 'N/A   '       
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E5'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-T3-ADJ-DSB'  
*S**            MOVE WFNSL27D.WF-NS-T3-ADJ-DSB TO CONVERTED-NSLDS.OLD-VALUE         
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-T3-ADJ-DSB TO        
*S**                 WFNSL27D.WF-NS-T3-ADJ-DSB  
*S**            MOVE WFNSL27D.WF-NS-T3-ADJ-DSB TO CONVERTED-NSLDS.NEW-VALUE         
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L01-AMT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L01-AMT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E6'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L01-AMT'         
*S**        MOVE WFNSL27D.WF-NS-L01-AMT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L01-AMT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L01-AMT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L01-AMT  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L01-AMT  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E6'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L01-AMT'     
*S**            MOVE WFNSL27D.WF-NS-L01-AMT TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L01-AMT TO           
*S**                 WFNSL27D.WF-NS-L01-AMT     
*S**            MOVE WFNSL27D.WF-NS-L01-AMT TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L01-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L01-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E7'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L01-OUT'         
*S**        MOVE WFNSL27D.WF-NS-L01-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L01-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L01-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L01-OUT  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L01-OUT  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E7'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L01-OUT'     
*S**            MOVE WFNSL27D.WF-NS-L01-OUT TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L01-OUT TO           
*S**                 WFNSL27D.WF-NS-L01-OUT     
*S**            MOVE WFNSL27D.WF-NS-L01-OUT TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L01-DSB = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L01-DSB TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E8'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L01-DSB'         
*S**        MOVE WFNSL27D.WF-NS-L01-DSB TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L01-DSB  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L01-DSB TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L01-DSB  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L01-DSB  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E8'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L01-DSB'     
*S**            MOVE WFNSL27D.WF-NS-L01-DSB TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L01-DSB TO           
*S**                 WFNSL27D.WF-NS-L01-DSB     
*S**            MOVE WFNSL27D.WF-NS-L01-DSB TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L02-AMT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L02-AMT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E9'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L02-AMT'         
*S**        MOVE WFNSL27D.WF-NS-L02-AMT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L02-AMT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L02-AMT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L02-AMT  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L02-AMT  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'E9'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L02-AMT'     
*S**            MOVE WFNSL27D.WF-NS-L02-AMT TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L02-AMT TO           
*S**                 WFNSL27D.WF-NS-L02-AMT     
*S**            MOVE WFNSL27D.WF-NS-L02-AMT TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L02-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L02-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F1'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L02-OUT'         
*S**        MOVE WFNSL27D.WF-NS-L02-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L02-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L02-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L02-OUT  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L02-OUT  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F1'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L02-OUT'     
*S**            MOVE WFNSL27D.WF-NS-L02-OUT TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L02-OUT TO           
*S**                 WFNSL27D.WF-NS-L02-OUT     
*S**            MOVE WFNSL27D.WF-NS-L02-OUT TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L02-DSB = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L02-DSB TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F2'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L02-DSB'         
*S**        MOVE WFNSL27D.WF-NS-L02-DSB TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L02-DSB  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L02-DSB TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L02-DSB  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L02-DSB  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F2'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L02-DSB'     
*S**            MOVE WFNSL27D.WF-NS-L02-DSB TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L02-DSB TO           
*S**                 WFNSL27D.WF-NS-L02-DSB     
*S**            MOVE WFNSL27D.WF-NS-L02-DSB TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L03-AMT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L03-AMT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F3'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L03-AMT'         
*S**        MOVE WFNSL27D.WF-NS-L03-AMT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L03-AMT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L03-AMT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L03-AMT  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L03-AMT  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F3'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L03-AMT'     
*S**            MOVE WFNSL27D.WF-NS-L03-AMT TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L03-AMT TO           
*S**                 WFNSL27D.WF-NS-L03-AMT     
*S**            MOVE WFNSL27D.WF-NS-L03-AMT TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L03-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L03-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F4'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L03-OUT'         
*S**        MOVE WFNSL27D.WF-NS-L03-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L03-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L03-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L03-OUT  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L03-OUT  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F4'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L03-OUT'     
*S**            MOVE WFNSL27D.WF-NS-L03-OUT TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L03-OUT TO           
*S**                 WFNSL27D.WF-NS-L03-OUT     
*S**            MOVE WFNSL27D.WF-NS-L03-OUT TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L03-DSB = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L03-DSB TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F5'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L03-DSB'         
*S**        MOVE WFNSL27D.WF-NS-L03-DSB TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L03-DSB  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L03-DSB TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L03-DSB  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L03-DSB  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F5'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L03-DSB'     
*S**            MOVE WFNSL27D.WF-NS-L03-DSB TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L03-DSB TO           
*S**                 WFNSL27D.WF-NS-L03-DSB     
*S**            MOVE WFNSL27D.WF-NS-L03-DSB TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L04-AMT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L04-AMT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F6'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L04-AMT'         
*S**        MOVE WFNSL27D.WF-NS-L04-AMT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L04-AMT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L04-AMT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L04-AMT  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L04-AMT  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F6'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L04-AMT'     
*S**            MOVE WFNSL27D.WF-NS-L04-AMT TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L04-AMT TO           
*S**                 WFNSL27D.WF-NS-L04-AMT     
*S**            MOVE WFNSL27D.WF-NS-L04-AMT TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L04-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L04-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F7'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L04-OUT'         
*S**        MOVE WFNSL27D.WF-NS-L04-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L04-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L04-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L04-OUT  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L04-OUT  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F7'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L04-OUT'     
*S**            MOVE WFNSL27D.WF-NS-L04-OUT TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L04-OUT TO           
*S**                 WFNSL27D.WF-NS-L04-OUT     
*S**            MOVE WFNSL27D.WF-NS-L04-OUT TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L04-DSB = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L04-DSB TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F8'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L04-DSB'         
*S**        MOVE WFNSL27D.WF-NS-L04-DSB TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L04-DSB  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L04-DSB TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L04-DSB  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L04-DSB  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F8'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L04-DSB'     
*S**            MOVE WFNSL27D.WF-NS-L04-DSB TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L04-DSB TO           
*S**                 WFNSL27D.WF-NS-L04-DSB     
*S**            MOVE WFNSL27D.WF-NS-L04-DSB TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L05-AMT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L05-AMT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F9'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L05-AMT'         
*S**        MOVE WFNSL27D.WF-NS-L05-AMT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L05-AMT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L05-AMT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L05-AMT  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L05-AMT  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'F9'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L05-AMT'     
*S**            MOVE WFNSL27D.WF-NS-L05-AMT TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L05-AMT TO           
*S**                 WFNSL27D.WF-NS-L05-AMT     
*S**            MOVE WFNSL27D.WF-NS-L05-AMT TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L05-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L05-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'G1'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L05-OUT'         
*S**        MOVE WFNSL27D.WF-NS-L05-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L05-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L05-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L05-OUT  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L05-OUT  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'G1'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L05-OUT'     
*S**            MOVE WFNSL27D.WF-NS-L05-OUT TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L05-OUT TO           
*S**                 WFNSL27D.WF-NS-L05-OUT     
*S**            MOVE WFNSL27D.WF-NS-L05-OUT TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L05-DSB = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L05-DSB TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'G2'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L05-DSB'         
*S**        MOVE WFNSL27D.WF-NS-L05-DSB TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L05-DSB  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L05-DSB TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L05-DSB  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L05-DSB  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'G2'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L05-DSB'     
*S**            MOVE WFNSL27D.WF-NS-L05-DSB TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L05-DSB TO           
*S**                 WFNSL27D.WF-NS-L05-DSB     
*S**            MOVE WFNSL27D.WF-NS-L05-DSB TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L06-AMT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L06-AMT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'G3'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L06-AMT'         
*S**        MOVE WFNSL27D.WF-NS-L06-AMT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L06-AMT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L06-AMT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L06-AMT  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L06-AMT  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'G3'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L06-AMT'     
*S**            MOVE WFNSL27D.WF-NS-L06-AMT TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L06-AMT TO           
*S**                 WFNSL27D.WF-NS-L06-AMT     
*S**            MOVE WFNSL27D.WF-NS-L06-AMT TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L06-OUT = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L06-OUT TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'G4'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L06-OUT'         
*S**        MOVE WFNSL27D.WF-NS-L06-OUT TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L06-OUT  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L06-OUT TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L06-OUT  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L06-OUT  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'G4'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L06-OUT'     
*S**            MOVE WFNSL27D.WF-NS-L06-OUT TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L06-OUT TO           
*S**                 WFNSL27D.WF-NS-L06-OUT     
*S**            MOVE WFNSL27D.WF-NS-L06-OUT TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-L06-DSB = MASK(999999)
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL27D.WF-NS-L06-DSB TO #6-BYTE-FIELD  
*S**      EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'    
*S**      IF #6-BYTE-FIELD = MASK(999999)       
*S**        ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'G5'        
*S**        ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L06-DSB'         
*S**        MOVE WFNSL27D.WF-NS-L06-DSB TO CONVERTED-NSLDS.OLD-VALUE    
*S**        ASSIGN WFNSL27D.WF-NS-L06-DSB  = #6-BYTE-FIELD  
*S**        MOVE WFNSL27D.WF-NS-L06-DSB TO CONVERTED-NSLDS.NEW-VALUE    
*S**        PERFORM WRITE-WORK-FILE 
*S**      ELSE          
*S**        EXAMINE WFNSL27D.WF-NS-L06-DSB  FOR 'N/A' GIVING NUMBER #COUNT          
*S**        IF #COUNT > 0           
*S**         IF WFNSL27D.WF-NS-L06-DSB  = 'N/A   '          
*S**            IGNORE  
*S**          ELSE      
*S**            ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'G5'    
*S**            ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-L06-DSB'     
*S**            MOVE WFNSL27D.WF-NS-L06-DSB TO CONVERTED-NSLDS.OLD-VALUE
*S**            MOVE LEFT JUSTIFIED WFNSL27D.WF-NS-L06-DSB TO           
*S**                 WFNSL27D.WF-NS-L06-DSB     
*S**            MOVE WFNSL27D.WF-NS-L06-DSB TO CONVERTED-NSLDS.NEW-VALUE
*S**            PERFORM WRITE-WORK-FILE         
*S**          END-IF    
*S**        END-IF      
*S**      END-IF        
*S**    END-IF          
*S**    /*  
*S**    IF WFNSL27D.WF-NS-LIMIT-EXCP = 'Y' OR   
*S**       WFNSL27D.WF-NS-LIMIT-EXCP = 'N' OR   
*S**       WFNSL27D.WF-NS-LIMIT-EXCP = ' '      
*S**      IGNORE        
*S**    ELSE
*S**       ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'H1'         
*S**       ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-LIMIT-EXCP'       
*S**       MOVE WFNSL27D.WF-NS-LIMIT-EXCP TO CONVERTED-NSLDS.OLD-VALUE  
*S**       ASSIGN WFNSL27D.WF-NS-LIMIT-EXCP = #6-BYTE-FIELD 
*S**       MOVE ' ' TO WFNSL27D.WF-NS-LIMIT-EXCP
*S**       MOVE WFNSL27D.WF-NS-LIMIT-EXCP TO CONVERTED-NSLDS.NEW-VALUE  
*S**       PERFORM WRITE-WORK-FILE  
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-DSB-DATE-FLAG = 'Y' OR
*S**       WFNSL27D.WF-NS-DSB-DATE-FLAG = 'N' OR
*S**       WFNSL27D.WF-NS-DSB-DATE-FLAG = ' '   
*S**      IGNORE        
*S**    ELSE
*S**       ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'H2'         
*S**       ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-DSB-DATE-FLAG'    
*S**       MOVE WFNSL27D.WF-NS-DSB-DATE-FLAG TO CONVERTED-NSLDS.OLD-VALUE           
*S**       ASSIGN WFNSL27D.WF-NS-DSB-DATE-FLAG = #6-BYTE-FIELD          
*S**       MOVE ' ' TO WFNSL27D.WF-NS-DSB-DATE-FLAG         
*S**       MOVE WFNSL27D.WF-NS-DSB-DATE-FLAG TO CONVERTED-NSLDS.NEW-VALUE           
*S**       PERFORM WRITE-WORK-FILE  
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-CMB-LIMIT-GRAD = 'C' OR           
*S**       WFNSL27D.WF-NS-CMB-LIMIT-GRAD = 'E' OR           
*S**       WFNSL27D.WF-NS-CMB-LIMIT-GRAD = 'N' OR           
*S**       WFNSL27D.WF-NS-CMB-LIMIT-GRAD = 'R' OR           
*S**       WFNSL27D.WF-NS-CMB-LIMIT-GRAD = ' '  
*S**      IGNORE        
*S**    ELSE
*S**       ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'H3'         
*S**       ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-CMB-LIMIT-GRAD'   
*S**       MOVE WFNSL27D.WF-NS-CMB-LIMIT-GRAD TO CONVERTED-NSLDS.OLD-VALUE          
*S**       ASSIGN WFNSL27D.WF-NS-CMB-LIMIT-GRAD = #6-BYTE-FIELD         
*S**       MOVE ' ' TO WFNSL27D.WF-NS-CMB-LIMIT-GRAD        
*S**       MOVE WFNSL27D.WF-NS-CMB-LIMIT-GRAD TO CONVERTED-NSLDS.NEW-VALUE          
*S**       PERFORM WRITE-WORK-FILE  
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-CMB-LIMIT-PROF = 'C' OR           
*S**       WFNSL27D.WF-NS-CMB-LIMIT-PROF = 'E' OR           
*S**       WFNSL27D.WF-NS-CMB-LIMIT-PROF = 'N' OR           
*S**       WFNSL27D.WF-NS-CMB-LIMIT-PROF = 'R' OR           
*S**       WFNSL27D.WF-NS-CMB-LIMIT-PROF = ' '  
*S**      IGNORE        
*S**    ELSE
*S**       ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'H4'         
*S**       ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-CMB-LIMIT-PROF'   
*S**       MOVE WFNSL27D.WF-NS-CMB-LIMIT-PROF TO CONVERTED-NSLDS.OLD-VALUE          
*S**       ASSIGN WFNSL27D.WF-NS-CMB-LIMIT-PROF = #6-BYTE-FIELD         
*S**       MOVE ' ' TO WFNSL27D.WF-NS-CMB-LIMIT-PROF        
*S**       MOVE WFNSL27D.WF-NS-CMB-LIMIT-PROF TO CONVERTED-NSLDS.NEW-VALUE          
*S**       PERFORM WRITE-WORK-FILE  
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-PLUS-LIMIT-FLAG = 'C' OR          
*S**       WFNSL27D.WF-NS-PLUS-LIMIT-FLAG = 'E' OR          
*S**       WFNSL27D.WF-NS-PLUS-LIMIT-FLAG = 'N' OR          
*S**       WFNSL27D.WF-NS-PLUS-LIMIT-FLAG = ' ' 
*S**      IGNORE        
*S**    ELSE
*S**       ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'H5'         
*S**       ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-PLUS-LIMIT-FLAG'  
*S**       MOVE WFNSL27D.WF-NS-PLUS-LIMIT-FLAG TO CONVERTED-NSLDS.OLD-VALUE         
*S**       ASSIGN WFNSL27D.WF-NS-PLUS-LIMIT-FLAG = #6-BYTE-FIELD        
*S**       MOVE ' ' TO WFNSL27D.WF-NS-PLUS-LIMIT-FLAG       
*S**       MOVE WFNSL27D.WF-NS-PLUS-LIMIT-FLAG TO CONVERTED-NSLDS.NEW-VALUE         
*S**       PERFORM WRITE-WORK-FILE  
*S**    END-IF          
*S**    IF WFNSL27D.WF-NS-LIFE-MAX-LIMIT = 'C' OR           
*S**       WFNSL27D.WF-NS-LIFE-MAX-LIMIT = 'E' OR           
*S**       WFNSL27D.WF-NS-LIFE-MAX-LIMIT = 'N' OR           
*S**       WFNSL27D.WF-NS-LIFE-MAX-LIMIT = ' '  
*S**      IGNORE        
*S**    ELSE
*S**       ASSIGN CONVERTED-NSLDS.FIELD-SORT = 'H6'         
*S**       ASSIGN CONVERTED-NSLDS.FIELD-NAME = 'WF-NS-LIFE-MAX-LIMIT'   
*S**       MOVE WFNSL27D.WF-NS-LIFE-MAX-LIMIT TO CONVERTED-NSLDS.OLD-VALUE          
*S**       ASSIGN WFNSL27D.WF-NS-LIFE-MAX-LIMIT = #6-BYTE-FIELD         
*S**       MOVE ' ' TO WFNSL27D.WF-NS-LIFE-MAX-LIMIT        
*S**       MOVE WFNSL27D.WF-NS-LIFE-MAX-LIMIT TO CONVERTED-NSLDS.NEW-VALUE          
*S**       PERFORM WRITE-WORK-FILE  
*S**    END-IF          
*S**    /*  
*S**    /* Update NSLDS record      
*S**    IF #STUDENT-UPDATED = 'Y'   
*S**      MOVE 'UPDATE' TO WWAOBJ.#FUNCTION     
*S**      PERFORM CALL-OBJECT-NSLDS 
*S**      /*
*S**      ADD 1 TO #WRITE-COUNTER   
*S**      ADD 1 TO #ET-WRITE-COUNTER
*S**      IF #ET-WRITE-COUNTER > #MAX-WRITE     
*S**        PERFORM COMMIT-OR-BACKOUT           
*S**      END-IF        
*S**    END-IF          
*S**    /*  
*S**    /* Check for limited-run maximum        
*S**    IF (#INPUT-RUNMODE = 'TRIAL' OR = 'SAMPLE') AND     
*S**        #INPUT-LIMIT-COUNT > 0 AND          
*S**        #WRITE-COUNTER GE #INPUT-LIMIT-COUNT
*S**      ESCAPE BOTTOM(NEW-NSLDS.) IMMEDIATE   
*S**    END-IF          
*S**  END-REPEAT        
*S**  /*    
*S**  /* Issue final END TRANSACTION
*S**  PERFORM COMMIT-OR-BACKOUT     
*S***       
*S*** Print job statistics          
*S**  WRITE(1) NOTITLE  
*S**    15T 'FINANCIER processing:' /           
*S**    17T 'NSLDS 2627 records read:'          
*S**                        (I) 55T #READ-COUNTER (EM=Z,ZZZ,ZZ9) /      
*S**    19T 'Records bypassed:'     
*S**                        (I) 55T #BYPASS-COUNTER (EM=Z,ZZZ,ZZ9) //   
*S**    17T 'NSLDS records updated:' /          
*S**    19T 'Updates:'  
*S**                        (I) 55T #WRITE-COUNTER (EM=Z,ZZZ,ZZ9) /     
*S***       
*S***       
*S*** Sort tentative awards for fund roster reporting       
*S**CLOSE WORK 1        
*S**READ WORK FILE 1 CONVERTED-NSLDS
*S**END-ALL 
*S***       
*S**SORT BY CONVERTED-NSLDS.NAME    
*S**        CONVERTED-NSLDS.SID     
*S**        CONVERTED-NSLDS.FIELD-SORT          
*S** USING  
*S**  CONVERTED-NSLDS.FIELD-NAME    
*S**  CONVERTED-NSLDS.OLD-VALUE     
*S**  CONVERTED-NSLDS.NEW-VALUE     
*S**  CONVERTED-NSLDS.FILLER        
*S** WRITE WORK 2 CONVERTED-NSLDS   
*S**END-SORT
*S***       
*S**READ WORK FILE 02 CONVERTED-NSLDS           
*S**    IF CONVERTED-NSLDS.SID <> #LAST-STUDENT 
*S**      RESET #PRINT-LINE         
*S**      MOVE CONVERTED-NSLDS.SID TO #PRT-STUDENT-ID       
*S**      MOVE CONVERTED-NSLDS.NAME TO #PRT-STUDENT-NAME    
*S**      WRITE(2) ' '  
*S**      WRITE(2) #PRINT-LINE      
*S**      MOVE CONVERTED-NSLDS.SID TO #LAST-STUDENT         
*S**    END-IF          
*S**    /*  
*S**    /* Suppress printing of 0 values        
*S**    IF (CONVERTED-NSLDS.NEW-VALUE <> '000000' AND       
*S**        #INPUT-REPORT-ZEROS = 'Y') OR       
*S**       (CONVERTED-NSLDS.NEW-VALUE <> 'N/A   ' AND       
*S**        #INPUT-REPORT-NA = 'Y') 
*S**      MOVE CONVERTED-NSLDS.FIELD-NAME TO #PRT-FIELD     
*S**      MOVE CONVERTED-NSLDS.OLD-VALUE TO #PRT-OLD-VALUE  
*S**      MOVE CONVERTED-NSLDS.NEW-VALUE TO #PRT-NEW-VALUE  
*S**      MOVE ':' TO #PRT-COLON1   
*S**                  #PRT-COLON2   
*S**                  #PRT-COLON3   
*S**      WRITE(2) #PRT-LINE2       
*S**      RESET #PRINT-LINE2        
*S**    END-IF          
*S**END-WORK
*S***       
*S*************************************************************************         
*S**DEFINE SUBROUTINE CALL-OBJECT-NSLDS         
*S*************************************************************************         
*S**  /*    
*S**  /* Call WF-NSLDS-2627 file object subprogram          
*S**  CALLNAT 'WFNSL27O' WW-GDA     
*S**           WFNSL27D 
*S**           WFNSL27D-ID          
*S**           WFNSL27R 
*S**           WWAOBJ   
*S**END-SUBROUTINE /* CALL-OBJECT-NSLDS         
*S***       
*S*******************************************************************   
*S**DEFINE SUBROUTINE COMMIT-OR-BACKOUT         
*S*******************************************************************   
*S**  /*    
*S**  /* Periodically issue END TRANSACTION     
*S**  IF #INPUT-RUNMODE = 'TRIAL' OR = 'RECOVER'
*S**    BACKOUT TRANSACTION         
*S**  ELSE  
*S**    END TRANSACTION 
*S**  END-IF
*S**  RESET #ET-READ-COUNTER #ET-WRITE-COUNTER  
*S**END-SUBROUTINE /* COMMIT-OR-BACKOUT         
*S***       
*S*************************************************************************         
*S**DEFINE SUBROUTINE WRITE-WORK-FILE           
*S*************************************************************************         
*S**  /*    
*S**  /* Student updated, set flag, write work file and reset values    
*S**  ASSIGN #STUDENT-UPDATED = 'Y' 
*S**  WRITE WORK 1 CONVERTED-NSLDS  
*S**  RESET CONVERTED-NSLDS.FIELD-SORT          
*S**        CONVERTED-NSLDS.FIELD-NAME          
*S**        CONVERTED-NSLDS.OLD-VALUE           
*S**        CONVERTED-NSLDS.NEW-VALUE           
*S**END-SUBROUTINE /* WRITE-WORK-FILE           
*S***       
*S**END     
*C**                                FATEMP  WFNSL26E                        S S   NN0000        
*D01NAT8304S FATEMP  WFNSL26E                        ZWDNH   ZWDNH           S      
*D02            2026063017553902026063017553900000020397    
*D03LINUX   
*D04                 ISO_8859-1:1987
*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 - 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 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**  /* 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 WFNSL26L.WF-NSLDS TO WFNSL26D.WF-NSLDS   
*S**  /*    
*S**  IF WFNSL26D.WF-NS-SUB-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-SUB-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-SUB-OUT TO    
*S**           WFNSL26D.WF-NS-SUB-OUT           
*S**      EXAMINE WFNSL26D.WF-NS-SUB-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-UNS-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-UNS-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-UNS-OUT TO    
*S**           WFNSL26D.WF-NS-UNS-OUT           
*S**      EXAMINE WFNSL26D.WF-NS-UNS-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-CMB-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-CMB-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-CMB-OUT TO    
*S**           WFNSL26D.WF-NS-CMB-OUT           
*S**      EXAMINE WFNSL26D.WF-NS-CMB-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-CON-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-CON-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-CON-OUT TO    
*S**           WFNSL26D.WF-NS-CON-OUT           
*S**      EXAMINE WFNSL26D.WF-NS-CON-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-TCH-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-TCH-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-TCH-OUT TO    
*S**           WFNSL26D.WF-NS-TCH-OUT           
*S**      EXAMINE WFNSL26D.WF-NS-TCH-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-SUB-PEND = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-SUB-PEND = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-SUB-PEND TO   
*S**           WFNSL26D.WF-NS-SUB-PEND          
*S**      EXAMINE WFNSL26D.WF-NS-SUB-PEND FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-UNS-PEND = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-UNS-PEND = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-UNS-PEND TO   
*S**           WFNSL26D.WF-NS-UNS-PEND          
*S**      EXAMINE WFNSL26D.WF-NS-UNS-PEND FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-CMB-PEND = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-CMB-PEND = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-CMB-PEND TO   
*S**           WFNSL26D.WF-NS-CMB-PEND          
*S**      EXAMINE WFNSL26D.WF-NS-CMB-PEND FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-SUB-TOTAL = 'N/A   '    
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-SUB-TOTAL = '      '  
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-SUB-TOTAL TO  
*S**           WFNSL26D.WF-NS-SUB-TOTAL         
*S**      EXAMINE WFNSL26D.WF-NS-SUB-TOTAL FOR ' ' REPLACE WITH '0'     
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-UNS-TOTAL = 'N/A   '    
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-UNS-TOTAL = '      '  
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-UNS-TOTAL TO  
*S**           WFNSL26D.WF-NS-UNS-TOTAL         
*S**      EXAMINE WFNSL26D.WF-NS-UNS-TOTAL FOR ' ' REPLACE WITH '0'     
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-CMB-TOTAL = 'N/A   '    
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-CMB-TOTAL = '      '  
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-CMB-TOTAL TO  
*S**           WFNSL26D.WF-NS-CMB-TOTAL         
*S**      EXAMINE WFNSL26D.WF-NS-CMB-TOTAL FOR ' ' REPLACE WITH '0'     
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-CON-TOTAL = 'N/A   '    
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-CON-TOTAL = '      '  
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-CON-TOTAL TO  
*S**           WFNSL26D.WF-NS-CON-TOTAL         
*S**      EXAMINE WFNSL26D.WF-NS-CON-TOTAL FOR ' ' REPLACE WITH '0'     
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-TCH-TOTAL = 'N/A   '    
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-TCH-TOTAL = '      '  
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-TCH-TOTAL TO  
*S**           WFNSL26D.WF-NS-TCH-TOTAL         
*S**      EXAMINE WFNSL26D.WF-NS-TCH-TOTAL FOR ' ' REPLACE WITH '0'     
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-PERK-TOTAL= 'N/A   '    
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-PERK-TOTAL= '      '  
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-PERK-TOTAL TO 
*S**           WFNSL26D.WF-NS-PERK-TOTAL        
*S**      EXAMINE WFNSL26D.WF-NS-PERK-TOTAL FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-PERK-CUR = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-PERK-CUR = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-PERK-CUR TO   
*S**           WFNSL26D.WF-NS-PERK-CUR          
*S**      EXAMINE WFNSL26D.WF-NS-PERK-CUR FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-TCH-TOTAL-UG = 'N/A   ' 
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-TCH-TOTAL-UG = '      '           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-TCH-TOTAL-UG TO           
*S**           WFNSL26D.WF-NS-TCH-TOTAL-UG      
*S**      EXAMINE WFNSL26D.WF-NS-TCH-TOTAL FOR ' ' REPLACE WITH '0'     
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-TCH-TOTAL-GR = 'N/A   ' 
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-TCH-TOTAL-GR = '      '           
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-TCH-TOTAL-GR TO           
*S**           WFNSL26D.WF-NS-TCH-TOTAL-GR      
*S**      EXAMINE WFNSL26D.WF-NS-TCH-TOTAL FOR ' ' REPLACE WITH '0'     
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-P1-SCH-AWD = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-P1-SCH-AWD = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-P1-SCH-AWD TO 
*S**           WFNSL26D.WF-NS-P1-SCH-AWD        
*S**      EXAMINE WFNSL26D.WF-NS-P1-SCH-AWD FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-P1-PAID = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-P1-PAID = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-P1-PAID TO    
*S**           WFNSL26D.WF-NS-P1-PAID           
*S**      EXAMINE WFNSL26D.WF-NS-P1-PAID FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-P1-AWARD = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-P1-AWARD = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-P1-AWARD TO   
*S**           WFNSL26D.WF-NS-P1-AWARD          
*S**      EXAMINE WFNSL26D.WF-NS-P1-AWARD FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-P2-SCH-AWD = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-P2-SCH-AWD = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-P2-SCH-AWD TO 
*S**           WFNSL26D.WF-NS-P2-SCH-AWD        
*S**      EXAMINE WFNSL26D.WF-NS-P2-SCH-AWD FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-P2-PAID = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-P2-PAID = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-P2-PAID TO    
*S**           WFNSL26D.WF-NS-P2-PAID           
*S**      EXAMINE WFNSL26D.WF-NS-P2-PAID FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-P2-AWARD = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-P2-AWARD = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-P2-AWARD TO   
*S**           WFNSL26D.WF-NS-P2-AWARD          
*S**      EXAMINE WFNSL26D.WF-NS-P2-AWARD FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-P3-SCH-AWD = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-P3-SCH-AWD = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-P3-SCH-AWD TO 
*S**           WFNSL26D.WF-NS-P3-SCH-AWD        
*S**      EXAMINE WFNSL26D.WF-NS-P3-SCH-AWD FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-P3-PAID = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-P3-PAID = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-P3-PAID TO    
*S**           WFNSL26D.WF-NS-P3-PAID           
*S**      EXAMINE WFNSL26D.WF-NS-P3-PAID FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-P3-AWARD = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-P3-AWARD = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-P3-AWARD TO   
*S**           WFNSL26D.WF-NS-P3-AWARD          
*S**      EXAMINE WFNSL26D.WF-NS-P3-AWARD FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-T1-SCH-AWD = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-T1-SCH-AWD = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-T1-SCH-AWD TO 
*S**           WFNSL26D.WF-NS-T1-SCH-AWD        
*S**      EXAMINE WFNSL26D.WF-NS-T1-SCH-AWD FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-T1-PAID = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-T1-PAID = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-T1-PAID TO    
*S**           WFNSL26D.WF-NS-T1-PAID           
*S**      EXAMINE WFNSL26D.WF-NS-T1-PAID FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-T1-AWARD = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-T1-AWARD = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-T1-AWARD TO   
*S**           WFNSL26D.WF-NS-T1-AWARD          
*S**      EXAMINE WFNSL26D.WF-NS-T1-AWARD FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-T1-DCHG-AMT = 'N/A   '  
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-T1-DCHG-AMT = '      '
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-T1-DCHG-AMT TO
*S**           WFNSL26D.WF-NS-T1-DCHG-AMT       
*S**      EXAMINE WFNSL26D.WF-NS-T1-DCHG-AMT ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-T1-ADJ-DSB = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-T1-ADJ-DSB = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-T1-ADJ-DSB TO 
*S**           WFNSL26D.WF-NS-T1-ADJ-DSB        
*S**      EXAMINE WFNSL26D.WF-NS-T1-ADJ-DSB FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-T2-SCH-AWD = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-T2-SCH-AWD = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-T2-SCH-AWD TO 
*S**           WFNSL26D.WF-NS-T2-SCH-AWD        
*S**      EXAMINE WFNSL26D.WF-NS-T2-SCH-AWD FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-T2-PAID = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-T2-PAID = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-T2-PAID TO    
*S**           WFNSL26D.WF-NS-T2-PAID           
*S**      EXAMINE WFNSL26D.WF-NS-T2-PAID FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-T2-AWARD = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-T2-AWARD = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-T2-AWARD TO   
*S**           WFNSL26D.WF-NS-T2-AWARD          
*S**      EXAMINE WFNSL26D.WF-NS-T2-AWARD FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-T2-DCHG-AMT = 'N/A   '  
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-T2-DCHG-AMT = '      '
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-T2-DCHG-AMT TO
*S**           WFNSL26D.WF-NS-T2-DCHG-AMT       
*S**      EXAMINE WFNSL26D.WF-NS-T2-DCHG-AMT FOR ' ' REPLACE WITH '0'   
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-T2-ADJ-DSB = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-T2-ADJ-DSB = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-T2-ADJ-DSB TO 
*S**           WFNSL26D.WF-NS-T2-ADJ-DSB        
*S**      EXAMINE WFNSL26D.WF-NS-T2-ADJ-DSB FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-T3-SCH-AWD = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-T3-SCH-AWD = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-T3-SCH-AWD TO 
*S**           WFNSL26D.WF-NS-T3-SCH-AWD        
*S**      EXAMINE WFNSL26D.WF-NS-T3-SCH-AWD FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-T3-PAID = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-T3-PAID = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-T3-PAID TO    
*S**           WFNSL26D.WF-NS-T3-PAID           
*S**      EXAMINE WFNSL26D.WF-NS-T3-PAID FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-T3-AWARD = 'N/A   '     
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-T3-AWARD = '      '   
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-T3-AWARD TO   
*S**           WFNSL26D.WF-NS-T3-AWARD          
*S**      EXAMINE WFNSL26D.WF-NS-T3-AWARD FOR ' ' REPLACE WITH '0'      
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-T3-DCHG-AMT = 'N/A   '  
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-T3-DCHG-AMT = '      '
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-T3-DCHG-AMT TO
*S**           WFNSL26D.WF-NS-T3-DCHG-AMT       
*S**      EXAMINE WFNSL26D.WF-NS-T3-DCHG-AMT FOR ' ' REPLACE WITH '0'   
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-T3-ADJ-DSB = 'N/A   '   
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-T3-ADJ-DSB = '      ' 
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-T3-ADJ-DSB TO 
*S**           WFNSL26D.WF-NS-T3-ADJ-DSB        
*S**      EXAMINE WFNSL26D.WF-NS-T3-ADJ-DSB FOR ' ' REPLACE WITH '0'    
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L01-AMT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L01-AMT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L01-AMT TO    
*S**           WFNSL26D.WF-NS-L01-AMT           
*S**      EXAMINE WFNSL26D.WF-NS-L01-AMT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L01-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L01-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L01-OUT TO    
*S**           WFNSL26D.WF-NS-L01-OUT           
*S**      EXAMINE WFNSL26D.WF-NS-L01-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L01-DSB = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L01-DSB = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L01-DSB TO    
*S**           WFNSL26D.WF-NS-L01-DSB           
*S**      EXAMINE WFNSL26D.WF-NS-L01-DSB FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L02-AMT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L02-AMT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L02-AMT TO    
*S**           WFNSL26D.WF-NS-L02-AMT           
*S**      EXAMINE WFNSL26D.WF-NS-L02-AMT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L02-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L02-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L02-OUT TO    
*S**           WFNSL26D.WF-NS-L02-OUT           
*S**      EXAMINE WFNSL26D.WF-NS-L02-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L02-DSB = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L02-DSB = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L02-DSB TO    
*S**           WFNSL26D.WF-NS-L02-DSB           
*S**      EXAMINE WFNSL26D.WF-NS-L02-DSB FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L03-AMT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L03-AMT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L03-AMT TO    
*S**           WFNSL26D.WF-NS-L03-AMT           
*S**      EXAMINE WFNSL26D.WF-NS-L03-AMT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L03-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L03-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L03-OUT TO    
*S**           WFNSL26D.WF-NS-L03-OUT           
*S**      EXAMINE WFNSL26D.WF-NS-L03-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L03-DSB = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L03-DSB = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L03-DSB TO    
*S**           WFNSL26D.WF-NS-L03-DSB           
*S**      EXAMINE WFNSL26D.WF-NS-L03-DSB FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L04-AMT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L04-AMT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L04-AMT TO    
*S**           WFNSL26D.WF-NS-L04-AMT           
*S**      EXAMINE WFNSL26D.WF-NS-L04-AMT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L04-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L04-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L04-OUT TO    
*S**           WFNSL26D.WF-NS-L04-OUT           
*S**      EXAMINE WFNSL26D.WF-NS-L04-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L04-DSB = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L04-DSB = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L04-DSB TO    
*S**           WFNSL26D.WF-NS-L04-DSB           
*S**      EXAMINE WFNSL26D.WF-NS-L04-DSB FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L05-AMT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L05-AMT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L05-AMT TO    
*S**           WFNSL26D.WF-NS-L05-AMT           
*S**      EXAMINE WFNSL26D.WF-NS-L05-AMT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L05-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L05-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L05-OUT TO    
*S**           WFNSL26D.WF-NS-L05-OUT           
*S**      EXAMINE WFNSL26D.WF-NS-L05-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L05-DSB = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L05-DSB = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L05-DSB TO    
*S**           WFNSL26D.WF-NS-L05-DSB           
*S**      EXAMINE WFNSL26D.WF-NS-L05-DSB FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L06-AMT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L06-AMT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L06-AMT TO    
*S**           WFNSL26D.WF-NS-L06-AMT           
*S**      EXAMINE WFNSL26D.WF-NS-L06-AMT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L06-OUT = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L06-OUT = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L06-OUT TO    
*S**           WFNSL26D.WF-NS-L06-OUT           
*S**      EXAMINE WFNSL26D.WF-NS-L06-OUT FOR ' ' REPLACE WITH '0'       
*S**    END-IF          
*S**  END-IF
*S**  IF WFNSL26D.WF-NS-L06-DSB = 'N/A   '      
*S**    IGNORE          
*S**  ELSE  
*S**    IF WFNSL26D.WF-NS-L06-DSB = '      '    
*S**      IGNORE        
*S**    ELSE
*S**      MOVE RIGHT JUSTIFIED WFNSL26L.WF-NS-L06-DSB TO    
*S**           WFNSL26D.WF-NS-L06-DSB           
*S**      EXAMINE WFNSL26D.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 'WFNSL26O' WW-GDA     
*S**           WFNSL26D 
*S**           WFNSL26D-ID          
*S**           WFNSL26R 
*S**           WWAOBJ   
*S**END-SUBROUTINE /* LOAD-NSLDS-2526           
*S**END     
*C**                                FATEMP  WFNSL27E                        S S   NN0000        
*D01NAT8304S FATEMP  WFNSL27E                        ZWDNH   ZWDNH           S      
*D02            2026063018094602026063018094600000020398    
*D03LINUX   
*D04                 ISO_8859-1:1987
*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     
*E          
