*S*************************************************************************         
*S***       
*S***                              WolffPack    
*S***       
*S*** Subroutine: WFISY27E          
*S*** System    : FINANCIER         
*S*** Title     : 2026-27 ISIR Extract routine (Methodology Calcs fields)           
*S*** Function  : This external subroutine extracts and formats a       
*S***             subset of available ISIR information.     
*S***       
*S***      Copyright 1995 - 2026 WolffPack, Inc.  All rights reserved.  
*S***       
*S*************************************************************************         
*S**DEFINE DATA         
*S**  GLOBAL USING WWGDA
*S**  PARAMETER USING WFISY27D /* ISIR file extract PDA     
*S***       
*S**  LOCAL USING WFISR27D     /* Aidyear PDA   
*S**  LOCAL USING WFISR27R     /*   
*S**  LOCAL USING WWAOBJ       /* Used by object subprograms
*S**  LOCAL USING WWCONST      /*   
*S**  LOCAL 
*S**    01 #CNVT-NEG(L) 
*S**    01 #CNVT-BYTE(A1)           
*S**    01 #PASS-KEY(A30)           
*S**    01 #PASS-TEMP(A30)          
*S***       
*S**    01 #DEP(A1)     
*S***   01 #FISAP(P8)   
*S**    01 #SAI(P7)     
*S**    01 #SAI-PROV(P7)
*S**    01 #S-ANAL(A1)  
*S**    01 #S-SC(P7)    
*S**    01 #S-SCI(P7)   
*S**    01 #S-SCA(P7)   
*S**    01 #P-ANAL(A1)  
*S**    01 #P-PC(P7)    
*S**    01 #P-PCI(P7)   
*S**    01 #P-PCA(P7)   
*S**    /*  
*S**    01 #3-BYTE-FIELD(A3)        
*S**    01 #6-BYTE-FIELD(A6)        
*S**    01 #7-BYTE-FIELD(A7)        
*S**    01 #9-BYTE-FIELD(A9)        
*S**    01 #10-BYTE-FIELD(A10)      
*S**    01 #11-BYTE-FIELD(A11)      
*S**    01 #12-BYTE-FIELD(A12)      
*S**    01 #14-BYTE-FIELD(A14)      
*S**    01 #15-BYTE-FIELD(A15)      
*S***       
*S**    01 #3-BYTE-FIELD-N(P3)      
*S**    01 #6-BYTE-FIELD-N(P6)      
*S**    01 #7-BYTE-FIELD-N(P7)      
*S**    01 #9-BYTE-FIELD-N(P9)      
*S**    01 #10-BYTE-FIELD-N(P10)    
*S**    01 #11-BYTE-FIELD-N(P11)    
*S**    01 #12-BYTE-FIELD-N(P12)    
*S**    01 #14-BYTE-FIELD-N(P14)    
*S**    01 #15-BYTE-FIELD-N(P15)    
*S**END-DEFINE          
*S***       
*S*************************************************************************         
*S**DEFINE SUBROUTINE EXTRACT-ISIR-MCALCS-2627  
*S*************************************************************************         
*S**  /*    
*S**  /* Read ISIR record           
*S**  ASSIGN WFISR27D.WW-STUDENT-ID = ##STUDENT-ID          
*S**  ASSIGN WFISR27D.WF-FAO = ##FAO-ID         
*S**  ASSIGN WWAOBJ.#FUNCTION = 'GET'           
*S**  CALLNAT 'WFISR27O' WW-GDA     
*S**           WFISR27D 
*S**           WFISR27D-ID          
*S**           WFISR27R 
*S**           WWAOBJ   
*S***       
*S**  RESET WFISY27D    
*S**  IF WWAOBJ.#EXISTS 
*S**    ASSIGN WFISY27D.#EXISTS = TRUE          
*S**  ELSE  
*S**    ESCAPE ROUTINE  
*S**  END-IF
*S***       
*S**  MOVE WFISR27D.WF-IS-C-DEP-MODEL TO #DEP   
*S***       
*S**  /* Fill in masked values and/or translations          
*S**  MOVE 'WWSYSVRD.WF-CAL-DEP' TO #PASS-KEY   
*S**  MOVE #DEP TO #PASS-TEMP       
*S**  PERFORM GET-VALUE-TRANSLATION #PASS-KEY #PASS-TEMP    
*S**  MOVE #PASS-TEMP TO #DEP-TRAN  
*S**  MOVE 'WWSYSVRD.WF-CAL-ANAL' TO #PASS-KEY  
*S**  MOVE #S-ANAL TO #PASS-TEMP    
*S**  PERFORM GET-VALUE-TRANSLATION #PASS-KEY #PASS-TEMP    
*S**  MOVE #PASS-TEMP TO #S-ANAL-TRAN           
*S**  MOVE 'WWSYSVRD.WF-CAL-ANAL' TO #PASS-KEY  
*S**  MOVE #P-ANAL TO #PASS-TEMP    
*S**  PERFORM GET-VALUE-TRANSLATION #PASS-KEY #PASS-TEMP    
*S**  MOVE #PASS-TEMP TO #P-ANAL-TRAN           
*S**  IF WFISR27D.WF-IS-C-SAI NE SPACE          
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-C-SAI,1,1) TO #CNVT-BYTE          
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-C-SAI FOR '-' DELETE       
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-C-SAI TO #6-BYTE-FIELD      
*S**    EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'      
*S**    IF #6-BYTE-FIELD = MASK(999999)         
*S**      ASSIGN #6-BYTE-FIELD-N = VAL(#6-BYTE-FIELD)       
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #6-BYTE-FIELD-N BY -1      
*S**      END-IF        
*S**      MOVE EDITED #6-BYTE-FIELD-N(EM=ZZZ,ZZ9-) TO       
*S**       #SAI-MSK     
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-C-SAI = ' ' 
*S**    ASSIGN #BLANK-SAI = 'Y'     
*S**    ASSIGN #SAI-MSK = ' '       
*S**  END-IF
*S**  IF WFISR27D.WF-IS-C-SAI-PROV NE SPACE     
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-C-SAI-PROV,1,1) TO #CNVT-BYTE     
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-C-SAI-PROV FOR '-' DELETE  
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-C-SAI-PROV TO #6-BYTE-FIELD 
*S**    EXAMINE #6-BYTE-FIELD FOR ' ' REPLACE WITH '0'      
*S**    IF #6-BYTE-FIELD = MASK(999999)         
*S**      ASSIGN #6-BYTE-FIELD-N = VAL(#6-BYTE-FIELD)       
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #6-BYTE-FIELD-N BY -1      
*S**      END-IF        
*S**      MOVE EDITED #6-BYTE-FIELD-N(EM=ZZZ,ZZ9-) TO       
*S**       #SAI-PROV-MSK
*S**    END-IF          
*S**  END-IF
*S**  /*    
*S**  /* Load SC and PC components  
*S**  MOVE SUBSTRING(WFISR27D.WF-IS-S-FC1-CI,1,1) TO #CNVT-BYTE         
*S**  RESET #CNVT-NEG   
*S**  IF #CNVT-BYTE = '-'           
*S**    ASSIGN #CNVT-NEG = TRUE     
*S**    EXAMINE WFISR27D.WF-IS-S-FC1-CI FOR '-' DELETE      
*S**  END-IF
*S**  MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-S-FC1-CI TO #15-BYTE-FIELD    
*S**  EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'       
*S**  IF #15-BYTE-FIELD = MASK(999999999999999) 
*S**    ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)       
*S**    ASSIGN #S-SCI = VAL(#15-BYTE-FIELD)     
*S**    IF VAL(#15-BYTE-FIELD) > 9999999        
*S**      ASSIGN #S-SCI = 9999999   
*S**    ELSE
*S**      ASSIGN #S-SCI = VAL(#15-BYTE-FIELD)   
*S**    END-IF          
*S**    IF #CNVT-NEG    
*S**      MULTIPLY #S-SCI BY -1     
*S**      MULTIPLY #15-BYTE-FIELD-N BY -1       
*S**    END-IF          
*S**    MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9-) TO        
*S**        WFISY27D.WF-IS-S-FC1-CI 
*S**  END-IF
*S**  MOVE SUBSTRING(WFISR27D.WF-IS-S-FC1-CA,1,1) TO #CNVT-BYTE         
*S**  RESET #CNVT-NEG   
*S**  IF #CNVT-BYTE = '-'           
*S**    ASSIGN #CNVT-NEG = TRUE     
*S**    EXAMINE WFISR27D.WF-IS-S-FC1-CA FOR '-' DELETE      
*S**  END-IF
*S**  MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-S-FC1-CA TO #15-BYTE-FIELD    
*S**  EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'       
*S**  IF #15-BYTE-FIELD = MASK(999999999999999) 
*S**    ASSIGN #S-SCA = VAL(#15-BYTE-FIELD)     
*S**    IF VAL(#15-BYTE-FIELD) > 9999999        
*S**      ASSIGN #S-SCA = 9999999   
*S**    ELSE
*S**      ASSIGN #S-SCA = VAL(#15-BYTE-FIELD)   
*S**    END-IF          
*S**    IF #CNVT-NEG    
*S**      MULTIPLY #S-SCA BY -1     
*S**    END-IF          
*S**  END-IF
*S**  IF (#S-SCI + #S-SCA) > 9999999
*S**    ASSIGN #S-SC = 9999999      
*S**  ELSE  
*S**   ASSIGN #S-SC = #S-SCI + #S-SCA           
*S**  END-IF
*S**  /*    
*S**  MOVE SUBSTRING(WFISR27D.WF-IS-P1-FC1-CONT,1,1) TO #CNVT-BYTE      
*S**  RESET #CNVT-NEG   
*S**  IF #CNVT-BYTE = '-'           
*S**    ASSIGN #CNVT-NEG = TRUE     
*S**    EXAMINE WFISR27D.WF-IS-P1-FC1-CONT FOR '-' DELETE   
*S**  END-IF
*S**  MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-P1-FC1-CONT TO #15-BYTE-FIELD 
*S**  EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'       
*S**  IF #15-BYTE-FIELD = MASK(999999999999999) 
*S**    ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)       
*S**    ASSIGN #P-PC = VAL(#15-BYTE-FIELD)      
*S**    IF VAL(#15-BYTE-FIELD) > 9999999        
*S**      ASSIGN #P-PC = 9999999    
*S**    ELSE
*S**      ASSIGN #P-PC = VAL(#15-BYTE-FIELD)    
*S**    END-IF          
*S**    IF #CNVT-NEG    
*S**      MULTIPLY #P-PC BY -1      
*S**      MULTIPLY #15-BYTE-FIELD-N BY -1       
*S**    END-IF          
*S**    MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9-) TO        
*S**        WFISY27D.WF-IS-P1-FC1-CONT          
*S**  END-IF
*S**  MOVE SUBSTRING(WFISR27D.WF-IS-P1-FC1-CA,1,1) TO #CNVT-BYTE        
*S**  RESET #CNVT-NEG   
*S**  IF #CNVT-BYTE = '-'           
*S**    ASSIGN #CNVT-NEG = TRUE     
*S**    EXAMINE WFISR27D.WF-IS-P1-FC1-CA FOR '-' DELETE     
*S**  END-IF
*S**  MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-P1-FC1-CA TO #15-BYTE-FIELD   
*S**  EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'       
*S**  IF #15-BYTE-FIELD = MASK(999999999999999) 
*S**    ASSIGN #P-PCA = VAL(#15-BYTE-FIELD)     
*S**    IF VAL(#15-BYTE-FIELD) > 9999999        
*S**      ASSIGN #P-PCA = 9999999   
*S**    ELSE
*S**      ASSIGN #P-PCA = VAL(#15-BYTE-FIELD)   
*S**    END-IF          
*S**    IF #CNVT-NEG    
*S**      MULTIPLY #P-PCA BY -1     
*S**    END-IF          
*S**  END-IF
*S**  ASSIGN #P-PCI = #P-PC - #P-PCA
*S**  MOVE EDITED #P-PC(EM=Z,ZZZ,ZZZ-) TO #P-PC-MSK         
*S**  MOVE EDITED #P-PCA(EM=Z,ZZZ,ZZZ-) TO #P-PCA-MSK       
*S**  MOVE EDITED #P-PCI(EM=Z,ZZZ,ZZZ-) TO #P-PCI-MSK       
*S**  MOVE EDITED #S-SC(EM=Z,ZZZ,ZZZ-) TO #S-SC-MSK         
*S**  MOVE EDITED #S-SCA(EM=Z,ZZZ,ZZZ-) TO #S-SCA-MSK       
*S**  MOVE EDITED #S-SCI(EM=Z,ZZZ,ZZZ-) TO #S-SCI-MSK       
*S**  /*    
*S**  IF WFISR27D.WF-IS-S-FWS NE SPACE          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-S-FWS TO #12-BYTE-FIELD     
*S**    EXAMINE #12-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #12-BYTE-FIELD = MASK(999999999999)  
*S**      ASSIGN #12-BYTE-FIELD-N = VAL(#12-BYTE-FIELD)     
*S**      MOVE EDITED #12-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZ9) TO           
*S**       WFISY27D.WF-IS-S-FWS     
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-SP-FWS NE SPACE         
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-SP-FWS TO #12-BYTE-FIELD    
*S**    EXAMINE #12-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #12-BYTE-FIELD = MASK(999999999999)  
*S**      ASSIGN #12-BYTE-FIELD-N = VAL(#12-BYTE-FIELD)     
*S**      MOVE EDITED #12-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZ9) TO           
*S**       WFISY27D.WF-IS-SP-FWS    
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-P1-FWS NE SPACE         
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-P1-FWS TO #12-BYTE-FIELD    
*S**    EXAMINE #12-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #12-BYTE-FIELD = MASK(999999999999)  
*S**      ASSIGN #12-BYTE-FIELD-N = VAL(#12-BYTE-FIELD)     
*S**      MOVE EDITED #12-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZ9) TO           
*S**      WFISY27D.WF-IS-P1-FWS     
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-P2-FWS NE SPACE         
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-P2-FWS TO #12-BYTE-FIELD    
*S**    EXAMINE #12-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #12-BYTE-FIELD = MASK(999999999999)  
*S**      ASSIGN #12-BYTE-FIELD-N = VAL(#12-BYTE-FIELD)     
*S**      MOVE EDITED #12-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZ9) TO           
*S**       WFISY27D.WF-IS-P2-FWS    
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-P1-FC1-ATI  NE SPACE    
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-P1-FC1-ATI TO #15-BYTE-FIELD
*S**    EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #15-BYTE-FIELD = MASK(999999999999999)           
*S**      ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)     
*S**      MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9) TO       
*S**       WFISY27D.WF-IS-P1-FC1-ATI
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-P1-FC1-PAYR  NE SPACE   
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-P1-FC1-PAYR TO #15-BYTE-FIELD           
*S**    EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #15-BYTE-FIELD = MASK(999999999999999)           
*S**      ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)     
*S**      MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9) TO       
*S**       WFISY27D.WF-IS-P1-FC1-PAYR           
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-P1-FC1-IPA  NE SPACE    
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-P1-FC1-IPA TO #15-BYTE-FIELD
*S**    EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #15-BYTE-FIELD = MASK(999999999999999)           
*S**      ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)     
*S**      MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9) TO       
*S**       WFISY27D.WF-IS-P1-FC1-IPA
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-P1-FC1-EEA  NE SPACE    
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-P1-FC1-EEA TO #15-BYTE-FIELD
*S**    EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #15-BYTE-FIELD = MASK(999999999999999)           
*S**      ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)     
*S**      MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9) TO       
*S**       WFISY27D.WF-IS-P1-FC1-EEA
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-P1-FC1-AI NE SPACE      
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-P1-FC1-AI,1,1) TO #CNVT-BYTE      
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-P1-FC1-AI FOR '-' DELETE   
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-P1-FC1-AI TO #15-BYTE-FIELD 
*S**    EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #15-BYTE-FIELD = MASK(999999999999999)           
*S**      ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)     
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #15-BYTE-FIELD-N BY -1     
*S**      END-IF        
*S**      MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9-) TO      
*S**       WFISY27D.WF-IS-P1-FC1-AI 
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-P1-FC1-AAI NE SPACE     
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-P1-FC1-AAI,1,1) TO #CNVT-BYTE     
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-P1-FC1-AAI FOR '-' DELETE  
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-P1-FC1-AAI TO #15-BYTE-FIELD
*S**    EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #15-BYTE-FIELD = MASK(999999999999999)           
*S**      ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)     
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #15-BYTE-FIELD-N BY -1     
*S**      END-IF        
*S**      MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9-) TO      
*S**       WFISY27D.WF-IS-P1-FC1-AAI
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-S-FC1-PAYR  NE SPACE    
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-S-FC1-PAYR TO #15-BYTE-FIELD
*S**    EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #15-BYTE-FIELD = MASK(999999999999999)           
*S**      ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)     
*S**      MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9) TO       
*S**       WFISY27D.WF-IS-S-FC1-PAYR
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-S-FC1-IPA  NE SPACE     
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-S-FC1-IPA TO #15-BYTE-FIELD 
*S**    EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #15-BYTE-FIELD = MASK(999999999999999)           
*S**      ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)     
*S**      MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9) TO       
*S**       WFISY27D.WF-IS-S-FC1-IPA 
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-S-FC1-NEG-AAI  NE SPACE 
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-S-FC1-NEG-AAI TO #15-BYTE-FIELD         
*S**    EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #15-BYTE-FIELD = MASK(999999999999999)           
*S**      ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)     
*S**      MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9) TO       
*S**       WFISY27D.WF-IS-S-FC1-NEG-AAI         
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-S-FC1-EEA  NE SPACE     
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-S-FC1-EEA TO #15-BYTE-FIELD 
*S**    EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #15-BYTE-FIELD = MASK(999999999999999)           
*S**      ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)     
*S**      MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9) TO       
*S**       WFISY27D.WF-IS-S-FC1-EEA 
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-S-FC1-ATI  NE SPACE     
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-S-FC1-ATI TO #15-BYTE-FIELD 
*S**    EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #15-BYTE-FIELD = MASK(999999999999999)           
*S**      ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)     
*S**      MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9) TO       
*S**       WFISY27D.WF-IS-S-FC1-ATI 
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-S-FC1-AI NE SPACE       
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-S-FC1-AI,1,1) TO #CNVT-BYTE       
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-S-FC1-AI FOR '-' DELETE    
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-S-FC1-AI TO #15-BYTE-FIELD  
*S**    EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #15-BYTE-FIELD = MASK(999999999999999)           
*S**      ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)     
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #15-BYTE-FIELD-N BY -1     
*S**      END-IF        
*S**      MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9-) TO      
*S**       WFISY27D.WF-IS-S-FC1-AI  
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-S-FC1-AAI NE SPACE      
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-S-FC1-AAI,1,1) TO #CNVT-BYTE      
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-S-FC1-AAI FOR '-' DELETE   
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-S-FC1-AAI TO #15-BYTE-FIELD 
*S**    EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #15-BYTE-FIELD = MASK(999999999999999)           
*S**      ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)     
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #15-BYTE-FIELD-N BY -1     
*S**      END-IF        
*S**      MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9-) TO      
*S**       WFISY27D.WF-IS-S-FC1-AAI 
*S**    END-IF          
*S**  END-IF
*S***       
*S**  IF WFISR27D.WF-IS-S-FC1-AAI-CONT NE SPACE 
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-S-FC1-AAI-CONT,1,1) TO #CNVT-BYTE 
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-S-FC1-AAI-CONT FOR '-' DELETE          
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-S-FC1-AAI-CONT TO #15-BYTE-FIELD        
*S**    EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #15-BYTE-FIELD = MASK(999999999999999)           
*S**      ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)     
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #15-BYTE-FIELD-N BY -1     
*S**      END-IF        
*S**      MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9-) TO      
*S**       WFISY27D.WF-IS-S-FC1-AAI-CONT        
*S**    END-IF          
*S**  END-IF
*S***       
*S**  IF WFISR27D.WF-IS-P1-FC1-DNW  NE SPACE    
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-P1-FC1-DNW TO #7-BYTE-FIELD 
*S**    EXAMINE #7-BYTE-FIELD FOR ' ' REPLACE WITH '0'      
*S**    IF #7-BYTE-FIELD = MASK(9999999)        
*S**      ASSIGN #7-BYTE-FIELD-N = VAL(#7-BYTE-FIELD)       
*S**      MOVE EDITED #7-BYTE-FIELD-N(EM=Z,ZZZ,ZZ9) TO      
*S**       WFISY27D.WF-IS-P1-FC1-DNW
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-P1-FC1-NW  NE SPACE     
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-P1-FC1-NW TO #7-BYTE-FIELD  
*S**    EXAMINE #7-BYTE-FIELD FOR ' ' REPLACE WITH '0'      
*S**    IF #7-BYTE-FIELD = MASK(9999999)        
*S**      ASSIGN #7-BYTE-FIELD-N = VAL(#7-BYTE-FIELD)       
*S**      MOVE EDITED #7-BYTE-FIELD-N(EM=Z,ZZZ,ZZ9) TO      
*S**       WFISY27D.WF-IS-P1-FC1-NW 
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-P1-FC1-APA NE SPACE     
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-P1-FC1-APA TO #12-BYTE-FIELD
*S**    EXAMINE #12-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #12-BYTE-FIELD = MASK(999999999999)  
*S**      ASSIGN #12-BYTE-FIELD-N = VAL(#12-BYTE-FIELD)     
*S**      MOVE EDITED #12-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZ9) TO           
*S**       WFISY27D.WF-IS-P1-FC1-APA
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-P1-FC1-CA NE SPACE      
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-P1-FC1-CA TO #12-BYTE-FIELD 
*S**    EXAMINE #12-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #12-BYTE-FIELD = MASK(999999999999)  
*S**      ASSIGN #12-BYTE-FIELD-N = VAL(#12-BYTE-FIELD)     
*S**      MOVE EDITED #12-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZ9) TO           
*S**       WFISY27D.WF-IS-P1-FC1-CA 
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-S-FC1-NW  NE SPACE      
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-S-FC1-NW TO #7-BYTE-FIELD   
*S**    EXAMINE #7-BYTE-FIELD FOR ' ' REPLACE WITH '0'      
*S**    IF #7-BYTE-FIELD = MASK(9999999)        
*S**      ASSIGN #7-BYTE-FIELD-N = VAL(#7-BYTE-FIELD)       
*S**      MOVE EDITED #7-BYTE-FIELD-N(EM=Z,ZZZ,ZZ9) TO      
*S**       WFISY27D.WF-IS-S-FC1-NW  
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-S-FC1-APA NE SPACE      
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-S-FC1-APA TO #12-BYTE-FIELD 
*S**    EXAMINE #12-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #12-BYTE-FIELD = MASK(999999999999)  
*S**      ASSIGN #12-BYTE-FIELD-N = VAL(#12-BYTE-FIELD)     
*S**      MOVE EDITED #12-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZ9) TO           
*S**       WFISY27D.WF-IS-S-FC1-APA 
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-S-FC1-CA NE SPACE       
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-S-FC1-CA TO #12-BYTE-FIELD  
*S**    EXAMINE #12-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #12-BYTE-FIELD = MASK(999999999999)  
*S**      ASSIGN #12-BYTE-FIELD-N = VAL(#12-BYTE-FIELD)     
*S**      MOVE EDITED #12-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZ9) TO           
*S**       WFISY27D.WF-IS-S-FC1-CA  
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-CAS-FAM-SIZE NE SPACE   
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-CAS-FAM-SIZE TO #3-BYTE-FIELD           
*S**    EXAMINE #3-BYTE-FIELD FOR ' ' REPLACE WITH '0'      
*S**    IF #3-BYTE-FIELD = MASK(999)
*S**      ASSIGN #3-BYTE-FIELD-N = VAL(#3-BYTE-FIELD)       
*S**      MOVE EDITED #3-BYTE-FIELD-N(EM=ZZ9) TO
*S**       WFISY27D.WF-IS-CAS-FAM-SIZE          
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-CAP-FAM-SIZE NE SPACE   
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-CAP-FAM-SIZE TO #3-BYTE-FIELD           
*S**    EXAMINE #3-BYTE-FIELD FOR ' ' REPLACE WITH '0'      
*S**    IF #3-BYTE-FIELD = MASK(999)
*S**      ASSIGN #3-BYTE-FIELD-N = VAL(#3-BYTE-FIELD)       
*S**      MOVE EDITED #3-BYTE-FIELD-N(EM=ZZ9) TO
*S**       WFISY27D.WF-IS-CAP-FAM-SIZE          
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-S-TOT-INC NE SPACE      
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-S-TOT-INC,1,1) TO #CNVT-BYTE      
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-S-TOT-INC FOR '-' DELETE   
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-S-TOT-INC TO #15-BYTE-FIELD 
*S**    EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #15-BYTE-FIELD = MASK(999999999999999)           
*S**      ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)     
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #15-BYTE-FIELD-N BY -1     
*S**      END-IF        
*S**      MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9-) TO      
*S**       WFISY27D.WF-IS-S-TOT-INC 
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-P-TOT-INC NE SPACE      
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-P-TOT-INC,1,1) TO #CNVT-BYTE      
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-P-TOT-INC FOR '-' DELETE   
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-P-TOT-INC TO #15-BYTE-FIELD 
*S**    EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #15-BYTE-FIELD = MASK(999999999999999)           
*S**      ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)     
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #15-BYTE-FIELD-N BY -1     
*S**      END-IF        
*S**      MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9-) TO      
*S**       WFISY27D.WF-IS-P-TOT-INC 
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FISAP-TOT-INC NE SPACE  
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-FISAP-TOT-INC,1,1) TO #CNVT-BYTE  
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-FISAP-TOT-INC FOR '-' DELETE           
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FISAP-TOT-INC TO #15-BYTE-FIELD         
*S**    EXAMINE #15-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #15-BYTE-FIELD = MASK(999999999999999)           
*S**      ASSIGN #15-BYTE-FIELD-N = VAL(#15-BYTE-FIELD)     
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #15-BYTE-FIELD-N BY -1     
*S**      END-IF        
*S**      MOVE EDITED #15-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9-) TO      
*S**       #FISAP-MSK   
*S**    END-IF          
*S**  END-IF
*S**  /* Calculate SC (not delivered)           
*S**  ASSIGN #S-SC = #S-SCI + #S-SCA
*S**  MOVE EDITED #S-SC(EM=ZZZ,ZZZ,ZZZ,ZZZ,ZZ9-) TO #S-SC-MSK           
*S***       
*S**  MOVE WFISR27D.WF-IS-FTI-S-RET-YEAR TO WFISY27D.WF-IS-FTI-S-RET-YEAR           
*S**  MOVE WFISR27D.WF-IS-FTI-S-FILE-STAT TO WFISY27D.WF-IS-FTI-S-FILE-STAT         
*S**  MOVE WFISR27D.WF-IS-FTI-S-EXE TO WFISY27D.WF-IS-FTI-S-EXE         
*S**  MOVE WFISR27D.WF-IS-FTI-S-DEPS TO WFISY27D.WF-IS-FTI-S-DEPS       
*S**  MOVE WFISR27D.WF-IS-FTI-S-IRS-RESP TO WFISY27D.WF-IS-FTI-S-IRS-RESP           
*S**  MOVE WFISR27D.WF-IS-FTI-S-SCHEDA TO WFISY27D.WF-IS-FTI-S-SCHEDA   
*S**  MOVE WFISR27D.WF-IS-FTI-S-SCHEDB TO WFISY27D.WF-IS-FTI-S-SCHEDB   
*S**  MOVE WFISR27D.WF-IS-FTI-S-SCHEDD TO WFISY27D.WF-IS-FTI-S-SCHEDD   
*S**  MOVE WFISR27D.WF-IS-FTI-S-SCHEDE TO WFISY27D.WF-IS-FTI-S-SCHEDE   
*S**  MOVE WFISR27D.WF-IS-FTI-S-SCHEDF TO WFISY27D.WF-IS-FTI-S-SCHEDF   
*S**  MOVE WFISR27D.WF-IS-FTI-S-SCHEDH TO WFISY27D.WF-IS-FTI-S-SCHEDH   
*S**  IF WFISR27D.WF-IS-FTI-S-AGI NE SPACE      
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-FTI-S-AGI,1,1) TO #CNVT-BYTE      
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-FTI-S-AGI FOR '-' DELETE   
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-S-AGI TO #10-BYTE-FIELD 
*S**    EXAMINE #10-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #10-BYTE-FIELD = MASK(9999999999)    
*S**      ASSIGN #10-BYTE-FIELD-N = VAL(#10-BYTE-FIELD)     
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #10-BYTE-FIELD-N BY -1     
*S**      END-IF        
*S**      MOVE EDITED #10-BYTE-FIELD-N(EM=Z,ZZZ,ZZZ,ZZ9-) TO
*S**       WFISY27D.WF-IS-FTI-S-AGI 
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-S-SCHEDC-NET NE SPACE           
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-FTI-S-SCHEDC-NET,1,1) TO #CNVT-BYTE           
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-FTI-S-SCHEDC-NET FOR '-' DELETE        
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-S-SCHEDC-NET TO #12-BYTE-FIELD      
*S**    EXAMINE #12-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #12-BYTE-FIELD = MASK(999999999999)  
*S**      ASSIGN #12-BYTE-FIELD-N = VAL(#12-BYTE-FIELD)     
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #12-BYTE-FIELD-N BY -1     
*S**      END-IF        
*S**      MOVE EDITED #12-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZ9-) TO          
*S**       WFISY27D.WF-IS-FTI-S-SCHEDC-NET      
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-S-TOT-FED-TAX NE SPACE          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-S-TOT-FED-TAX TO #9-BYTE-FIELD      
*S**    EXAMINE #9-BYTE-FIELD FOR ' ' REPLACE WITH '0'      
*S**    IF #9-BYTE-FIELD = MASK(999999999)      
*S**      ASSIGN #9-BYTE-FIELD-N = VAL(#9-BYTE-FIELD)       
*S**      MOVE EDITED #9-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZ9) TO    
*S**       WFISY27D.WF-IS-FTI-S-TOT-FED-TAX     
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-S-EDCR NE SPACE     
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-S-EDCR TO #9-BYTE-FIELD 
*S**    EXAMINE #9-BYTE-FIELD FOR ' ' REPLACE WITH '0'      
*S**    IF #9-BYTE-FIELD = MASK(999999999)      
*S**      ASSIGN #9-BYTE-FIELD-N = VAL(#9-BYTE-FIELD)       
*S**      MOVE EDITED #9-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZ9) TO    
*S**       WFISY27D.WF-IS-FTI-S-EDCR
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-S-TOT-INC NE SPACE  
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-S-TOT-INC TO #11-BYTE-FIELD         
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-S-TOT-INC         
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-S-DST-IRA NE SPACE  
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-S-DST-IRA TO #11-BYTE-FIELD         
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-S-DST-IRA         
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-S-DED-PAY NE SPACE  
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-S-DED-PAY TO #11-BYTE-FIELD         
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-S-DED-PAY         
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-S-DST-PEN NE SPACE  
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-S-DST-PEN TO #11-BYTE-FIELD         
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-S-DST-PEN         
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-S-U-INT NE SPACE    
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-S-U-INT TO #11-BYTE-FIELD           
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-S-U-INT           
*S**    END-IF          
*S**  END-IF
*S**  MOVE WFISR27D.WF-IS-FTI-SP-RET-YEAR TO WFISY27D.WF-IS-FTI-SP-RET-YEAR         
*S**  MOVE WFISR27D.WF-IS-FTI-SP-FILE-STAT TO   
*S**       WFISY27D.WF-IS-FTI-SP-FILE-STAT      
*S**  MOVE WFISR27D.WF-IS-FTI-SP-EXE TO WFISY27D.WF-IS-FTI-SP-EXE       
*S**  MOVE WFISR27D.WF-IS-FTI-SP-DEPS TO WFISY27D.WF-IS-FTI-SP-DEPS     
*S**  MOVE WFISR27D.WF-IS-FTI-SP-IRS-RESP TO WFISY27D.WF-IS-FTI-SP-IRS-RESP         
*S**  MOVE WFISR27D.WF-IS-FTI-SP-SCHEDA TO WFISY27D.WF-IS-FTI-SP-SCHEDA 
*S**  MOVE WFISR27D.WF-IS-FTI-SP-SCHEDB TO WFISY27D.WF-IS-FTI-SP-SCHEDB 
*S**  MOVE WFISR27D.WF-IS-FTI-SP-SCHEDD TO WFISY27D.WF-IS-FTI-SP-SCHEDD 
*S**  MOVE WFISR27D.WF-IS-FTI-SP-SCHEDE TO WFISY27D.WF-IS-FTI-SP-SCHEDE 
*S**  MOVE WFISR27D.WF-IS-FTI-SP-SCHEDF TO WFISY27D.WF-IS-FTI-SP-SCHEDF 
*S**  MOVE WFISR27D.WF-IS-FTI-SP-SCHEDH TO WFISY27D.WF-IS-FTI-SP-SCHEDH 
*S**  IF WFISR27D.WF-IS-FTI-SP-AGI NE SPACE     
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-FTI-SP-AGI,1,1) TO #CNVT-BYTE     
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-FTI-SP-AGI FOR '-' DELETE  
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-SP-AGI TO #10-BYTE-FIELD
*S**    EXAMINE #10-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #10-BYTE-FIELD = MASK(9999999999)    
*S**      ASSIGN #10-BYTE-FIELD-N = VAL(#10-BYTE-FIELD)     
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #10-BYTE-FIELD-N BY -1     
*S**      END-IF        
*S**      MOVE EDITED #10-BYTE-FIELD-N(EM=Z,ZZZ,ZZZ,ZZ9-) TO
*S**       WFISY27D.WF-IS-FTI-SP-AGI
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-SP-SCHEDC-NET NE SPACE          
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-FTI-SP-SCHEDC-NET,1,1) TO #CNVT-BYTE          
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-FTI-SP-SCHEDC-NET FOR '-' DELETE       
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-SP-SCHEDC-NET TO #12-BYTE-FIELD     
*S**    EXAMINE #12-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #12-BYTE-FIELD = MASK(999999999999)  
*S**      ASSIGN #12-BYTE-FIELD-N = VAL(#12-BYTE-FIELD)     
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #12-BYTE-FIELD-N BY -1     
*S**      END-IF        
*S**      MOVE EDITED #12-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZ9-) TO          
*S**       WFISY27D.WF-IS-FTI-SP-SCHEDC-NET     
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-SP-TOT-FED-TAX NE SPACE         
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-SP-TOT-FED-TAX TO #9-BYTE-FIELD     
*S**    EXAMINE #9-BYTE-FIELD FOR ' ' REPLACE WITH '0'      
*S**    IF #9-BYTE-FIELD = MASK(999999999)      
*S**      ASSIGN #9-BYTE-FIELD-N = VAL(#9-BYTE-FIELD)       
*S**      MOVE EDITED #9-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZ9) TO    
*S**       WFISY27D.WF-IS-FTI-SP-TOT-FED-TAX    
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-SP-EDCR NE SPACE    
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-SP-EDCR TO #9-BYTE-FIELD
*S**    EXAMINE #9-BYTE-FIELD FOR ' ' REPLACE WITH '0'      
*S**    IF #9-BYTE-FIELD = MASK(999999999)      
*S**      ASSIGN #9-BYTE-FIELD-N = VAL(#9-BYTE-FIELD)       
*S**      MOVE EDITED #9-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZ9) TO    
*S**       WFISY27D.WF-IS-FTI-SP-EDCR           
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-SP-TOT-INC NE SPACE 
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-SP-TOT-INC TO #11-BYTE-FIELD        
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-SP-TOT-INC        
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-SP-DST-IRA NE SPACE 
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-SP-DST-IRA TO #11-BYTE-FIELD        
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-SP-DST-IRA        
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-SP-DED-PAY NE SPACE 
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-SP-DED-PAY TO #11-BYTE-FIELD        
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-SP-DED-PAY        
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-SP-DST-PEN NE SPACE 
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-SP-DST-PEN TO #11-BYTE-FIELD        
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-SP-DST-PEN        
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-SP-U-INT NE SPACE   
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-SP-U-INT TO #11-BYTE-FIELD          
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-SP-U-INT          
*S**    END-IF          
*S**  END-IF
*S**  MOVE WFISR27D.WF-IS-FTI-P1-RET-YEAR TO WFISY27D.WF-IS-FTI-P1-RET-YEAR         
*S**  MOVE WFISR27D.WF-IS-FTI-P1-FILE-STAT TO WFISY27D.WF-IS-FTI-P1-FILE-STAT       
*S**  MOVE WFISR27D.WF-IS-FTI-P1-EXE TO WFISY27D.WF-IS-FTI-P1-EXE       
*S**  MOVE WFISR27D.WF-IS-FTI-P1-DEPS TO WFISY27D.WF-IS-FTI-P1-DEPS     
*S**  MOVE WFISR27D.WF-IS-FTI-P1-IRS-RESP TO WFISY27D.WF-IS-FTI-P1-IRS-RESP         
*S**  MOVE WFISR27D.WF-IS-FTI-P1-SCHEDA TO WFISY27D.WF-IS-FTI-P1-SCHEDA 
*S**  MOVE WFISR27D.WF-IS-FTI-P1-SCHEDB TO WFISY27D.WF-IS-FTI-P1-SCHEDB 
*S**  MOVE WFISR27D.WF-IS-FTI-P1-SCHEDD TO WFISY27D.WF-IS-FTI-P1-SCHEDD 
*S**  MOVE WFISR27D.WF-IS-FTI-P1-SCHEDE TO WFISY27D.WF-IS-FTI-P1-SCHEDE 
*S**  MOVE WFISR27D.WF-IS-FTI-P1-SCHEDF TO WFISY27D.WF-IS-FTI-P1-SCHEDF 
*S**  MOVE WFISR27D.WF-IS-FTI-P1-SCHEDH TO WFISY27D.WF-IS-FTI-P1-SCHEDH 
*S**  IF WFISR27D.WF-IS-FTI-P1-AGI NE SPACE     
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-FTI-P1-AGI,1,1) TO #CNVT-BYTE     
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-FTI-P1-AGI FOR '-' DELETE  
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P1-AGI TO #10-BYTE-FIELD
*S**    EXAMINE #10-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #10-BYTE-FIELD = MASK(9999999999)    
*S**      ASSIGN #10-BYTE-FIELD-N = VAL(#10-BYTE-FIELD)     
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #10-BYTE-FIELD-N BY -1     
*S**      END-IF        
*S**      MOVE EDITED #10-BYTE-FIELD-N(EM=Z,ZZZ,ZZZ,ZZ9-) TO
*S**       WFISY27D.WF-IS-FTI-P1-AGI
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-P1-SCHEDC-NET NE SPACE          
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-FTI-P1-SCHEDC-NET,1,1) TO #CNVT-BYTE          
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-FTI-P1-SCHEDC-NET FOR '-' DELETE       
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P1-SCHEDC-NET TO #12-BYTE-FIELD     
*S**    EXAMINE #12-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #12-BYTE-FIELD = MASK(999999999999)  
*S**      ASSIGN #12-BYTE-FIELD-N = VAL(#12-BYTE-FIELD)     
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #12-BYTE-FIELD-N BY -1     
*S**      END-IF        
*S**      MOVE EDITED #12-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZ9-) TO          
*S**       WFISY27D.WF-IS-FTI-P1-SCHEDC-NET     
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-P1-TOT-FED-TAX NE SPACE         
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P1-TOT-FED-TAX TO #9-BYTE-FIELD     
*S**    EXAMINE #9-BYTE-FIELD FOR ' ' REPLACE WITH '0'      
*S**    IF #9-BYTE-FIELD = MASK(999999999)      
*S**      ASSIGN #9-BYTE-FIELD-N = VAL(#9-BYTE-FIELD)       
*S**      MOVE EDITED #9-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZ9) TO    
*S**       WFISY27D.WF-IS-FTI-P1-TOT-FED-TAX    
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-P1-EDCR NE SPACE    
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P1-EDCR TO #9-BYTE-FIELD
*S**    EXAMINE #9-BYTE-FIELD FOR ' ' REPLACE WITH '0'      
*S**    IF #9-BYTE-FIELD = MASK(999999999)      
*S**      ASSIGN #9-BYTE-FIELD-N = VAL(#9-BYTE-FIELD)       
*S**      MOVE EDITED #9-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZ9) TO    
*S**       WFISY27D.WF-IS-FTI-P1-EDCR           
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-P1-TOT-INC NE SPACE 
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P1-TOT-INC TO #11-BYTE-FIELD        
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-P1-TOT-INC        
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-P1-DST-IRA NE SPACE 
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P1-DST-IRA TO #11-BYTE-FIELD        
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-P1-DST-IRA        
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-P1-DED-PAY NE SPACE 
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P1-DED-PAY TO #11-BYTE-FIELD        
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-P1-DED-PAY        
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-P1-DST-PEN NE SPACE 
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P1-DST-PEN TO #11-BYTE-FIELD        
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-P1-DST-PEN        
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-P1-U-INT NE SPACE   
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P1-U-INT TO #11-BYTE-FIELD          
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-P1-U-INT          
*S**    END-IF          
*S**  END-IF
*S**  MOVE WFISR27D.WF-IS-FTI-P2-RET-YEAR TO WFISY27D.WF-IS-FTI-P2-RET-YEAR         
*S**  MOVE WFISR27D.WF-IS-FTI-P2-FILE-STAT TO WFISY27D.WF-IS-FTI-P2-FILE-STAT       
*S**  MOVE WFISR27D.WF-IS-FTI-P2-EXE TO WFISY27D.WF-IS-FTI-P2-EXE       
*S**  MOVE WFISR27D.WF-IS-FTI-P2-DEPS TO WFISY27D.WF-IS-FTI-P2-DEPS     
*S**  MOVE WFISR27D.WF-IS-FTI-P2-IRS-RESP TO WFISY27D.WF-IS-FTI-P2-IRS-RESP         
*S**  MOVE WFISR27D.WF-IS-FTI-P2-SCHEDA TO WFISY27D.WF-IS-FTI-P2-SCHEDA 
*S**  MOVE WFISR27D.WF-IS-FTI-P2-SCHEDB TO WFISY27D.WF-IS-FTI-P2-SCHEDB 
*S**  MOVE WFISR27D.WF-IS-FTI-P2-SCHEDD TO WFISY27D.WF-IS-FTI-P2-SCHEDD 
*S**  MOVE WFISR27D.WF-IS-FTI-P2-SCHEDE TO WFISY27D.WF-IS-FTI-P2-SCHEDE 
*S**  MOVE WFISR27D.WF-IS-FTI-P2-SCHEDF TO WFISY27D.WF-IS-FTI-P2-SCHEDF 
*S**  MOVE WFISR27D.WF-IS-FTI-P2-SCHEDH TO WFISY27D.WF-IS-FTI-P2-SCHEDH 
*S**  IF WFISR27D.WF-IS-FTI-P2-AGI NE SPACE     
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-FTI-P2-AGI,1,1) TO #CNVT-BYTE     
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-FTI-P2-AGI FOR '-' DELETE  
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P2-AGI TO #10-BYTE-FIELD
*S**    EXAMINE #10-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #10-BYTE-FIELD = MASK(9999999999)    
*S**      ASSIGN #10-BYTE-FIELD-N = VAL(#10-BYTE-FIELD)     
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #10-BYTE-FIELD-N BY -1     
*S**      END-IF        
*S**      MOVE EDITED #10-BYTE-FIELD-N(EM=Z,ZZZ,ZZZ,ZZ9-) TO
*S**       WFISY27D.WF-IS-FTI-P2-AGI
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-P2-SCHEDC-NET NE SPACE          
*S**    RESET #CNVT-NEG 
*S**    MOVE SUBSTRING(WFISR27D.WF-IS-FTI-P2-SCHEDC-NET,1,1) TO #CNVT-BYTE          
*S**    IF #CNVT-BYTE = '-'         
*S**      ASSIGN #CNVT-NEG = TRUE   
*S**      EXAMINE WFISR27D.WF-IS-FTI-P2-SCHEDC-NET FOR '-' DELETE       
*S**    END-IF          
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P2-SCHEDC-NET TO #12-BYTE-FIELD     
*S**    EXAMINE #12-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #12-BYTE-FIELD = MASK(999999999999)  
*S**      ASSIGN #12-BYTE-FIELD-N = VAL(#12-BYTE-FIELD)     
*S**      IF #CNVT-NEG  
*S**        MULTIPLY #12-BYTE-FIELD-N BY -1     
*S**      END-IF        
*S**      MOVE EDITED #12-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZZ,ZZ9-) TO          
*S**       WFISY27D.WF-IS-FTI-P2-SCHEDC-NET     
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-P2-TOT-FED-TAX NE SPACE         
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P2-TOT-FED-TAX TO #9-BYTE-FIELD     
*S**    EXAMINE #9-BYTE-FIELD FOR ' ' REPLACE WITH '0'      
*S**    IF #9-BYTE-FIELD = MASK(999999999)      
*S**      ASSIGN #9-BYTE-FIELD-N = VAL(#9-BYTE-FIELD)       
*S**      MOVE EDITED #9-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZ9) TO    
*S**       WFISY27D.WF-IS-FTI-P2-TOT-FED-TAX    
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-P2-EDCR NE SPACE    
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P2-EDCR TO #9-BYTE-FIELD
*S**    EXAMINE #9-BYTE-FIELD FOR ' ' REPLACE WITH '0'      
*S**    IF #9-BYTE-FIELD = MASK(999999999)      
*S**      ASSIGN #9-BYTE-FIELD-N = VAL(#9-BYTE-FIELD)       
*S**      MOVE EDITED #9-BYTE-FIELD-N(EM=ZZZ,ZZZ,ZZ9) TO    
*S**       WFISY27D.WF-IS-FTI-P2-EDCR           
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-P2-TOT-INC NE SPACE 
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P2-TOT-INC TO #11-BYTE-FIELD        
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-P2-TOT-INC        
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-P2-DST-IRA NE SPACE 
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P2-DST-IRA TO #11-BYTE-FIELD        
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-P2-DST-IRA        
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-P2-DED-PAY NE SPACE 
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P2-DED-PAY TO #11-BYTE-FIELD        
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-P2-DED-PAY        
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-P2-DST-PEN NE SPACE 
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P2-DST-PEN TO #11-BYTE-FIELD        
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-P2-DST-PEN        
*S**    END-IF          
*S**  END-IF
*S**  IF WFISR27D.WF-IS-FTI-P2-U-INT NE SPACE   
*S**    MOVE RIGHT JUSTIFIED WFISR27D.WF-IS-FTI-P2-U-INT TO #11-BYTE-FIELD          
*S**    EXAMINE #11-BYTE-FIELD FOR ' ' REPLACE WITH '0'     
*S**    IF #11-BYTE-FIELD = MASK(99999999999)   
*S**      ASSIGN #11-BYTE-FIELD-N = VAL(#11-BYTE-FIELD)     
*S**      MOVE EDITED #11-BYTE-FIELD-N(EM=ZZ,ZZZ,ZZZ,ZZ9) TO
*S**       WFISY27D.WF-IS-FTI-P2-U-INT          
*S**    END-IF          
*S**  END-IF
*S***       
*S**END-SUBROUTINE /* EXTRACT-ISIR-MCALCS-2627  
*S**END     
*E          
