       IDENTIFICATION DIVISION.                                                 
                                                                                
       PROGRAM-ID.    EW43.                                                     
       AUTHOR.        DOE.                                                      
      ******************************************************************        
      *                            FORM 4A                             *        
      ******************************************************************        
      * DATE CREATED:  06/25/95                                        *    0011
      ******************************************************************        
      * CALL #  - MMDDYY - PURPOSE                                     *        
      * 9512053 - 121495 - CORRECT EDIT OF FORM 5 PCT FIELD            *        
      * 2006001 - 041006 - ADD FUNCTIONS 6500 & 8200.                  *        
      ******************************************************************        
                                                                                
       ENVIRONMENT DIVISION.                                                    
       CONFIGURATION SECTION.                                                   
       DATA DIVISION.                                                           
                                                                                
       WORKING-STORAGE SECTION.                                                 
                                                                                
       01            WSC.                                                       
041006*    05        WSCMAPLEN         PIC S9(04) COMP SYNC VALUE +0477.        
041006     05        WSCMAPLEN         PIC S9(04) COMP SYNC VALUE +0519.        
                                                                                
       01            WSK.                                                       
           05        NEWKEY.                                                    
             10      NEWTABLE.                                                  
               15    NEWTABLE9         PIC  9(05).                              
             10      NEWFUND           PIC  X(01).                              
           05        NEWPANEL.                                                  
             10      NEWPANEL1         PIC  X(01).                              
             10      NEWPANEL2         PIC  X(02).                              
           05        OLDKEY            PIC  X(06).                              
       01            WSKR       REDEFINES   WSK.                                
           05        WSKB       OCCURS 09   TIMES  INDEXED BY WSK1              
                                       PIC  X(01).                              
                                                                                
       01            RET.                                                       
           05        RETQWR            PIC  X(02).                              
           05        RETQWRT1          PIC  X(02).                              
           05        RETCDF            PIC  X(02).                              
           05        RETSPT            PIC  X(02).                              
           05        RETCRF            PIC  X(02).                              
           05        RETALL            PIC  X(02).                              
           05        RETERR            PIC S9(01).                              
           05        RETERR2           PIC S9(01).                              
                                                                                
       01            EDT.                                                       
           05        EDTSAL            PIC S9(11)  COMP-3.                      
           05        EDTBEN            PIC S9(11)  COMP-3.                      
           05        EDTPURSRV         PIC S9(11)  COMP-3.                      
           05        EDTMTRL           PIC S9(11)  COMP-3.                      
           05        EDTOTHR           PIC S9(11)  COMP-3.                      
           05        EDTCAP            PIC S9(11)  COMP-3.                      
           05        EDTPCTCNT         PIC S9(05)  COMP-3.                      
           05        EDTSPCCNT         PIC S9(05)  COMP-3.                      
                                                                                
       01            MSG.                                                       
           05        MSG01             PIC  X(35) VALUE                         
                     'District is not authorized.  EXIT.'.                      
           05        MSG03             PIC  X(37) VALUE                         
                     'Highlighted elements in error. Retry.'.                   
           05        MSG12             PIC  X(25) VALUE                         
                     'Record displayed.  Next ?'.                               
           05        MSG13             PIC  X(28) VALUE                         
                     'No previous records.  Next ?'.                            
           05        MSG14             PIC  X(30) VALUE                         
                     'No additional records.  Next ?'.                          
           05        MSG15             PIC  X(25) VALUE                         
                     'Record unchanged.  Next ?'.                               
           05        MSG16             PIC  X(21) VALUE                         
                     'Record added.  Next ?'.                                   
           05        MSG17             PIC  X(23) VALUE                         
                     'Record updated.  Next ?'.                                 
           05        MSG18             PIC  X(40) VALUE                         
                     'Please type key element(s).  Then ENTER.'.                
           05        MSG20             PIC  X(39) VALUE                         
                     'Record deleted.  Press ENTER to re-add.'.                 
           05        MSG21             PIC  X(35) VALUE                         
                     'Not on file. Not update authorized.'.                     
           05        MSG22             PIC  X(37) VALUE                         
                     'Record displayed for inquiry.  Next ?'.                   
           05        MSG23             PIC  X(40) VALUE                         
                     'Not on file.  Type data to add or retry.'.                
           05        MSG29             PIC  X(28) VALUE                         
                     'No record to delete.  Next ?'.                            
           05        MSG90             PIC  X(35) VALUE                         
                     'Not authorized for panel requested.'.                     
           05        MSG91             PIC  X(32) VALUE                         
                     'Not authorized at this terminal.'.                        
           05        MSG92             PIC  X(35) VALUE                         
                     'Panel unknown/not installed. Retry.'.                     
           05        MSG93             PIC  X(39) VALUE                         
                     'Panel temporarily disabled.  Try later.'.                 
           05        MSG94             PIC  X(41) VALUE                         
                     'Unknown system error. Request assistance.'.               
           05        MSG95             PIC  X(35) VALUE                         
                     'Database full.  Request assistance.'.                     
           05        MSG96             PIC  X(42) VALUE                         
                     'Program error(INVREQ). Request assistance.'.              
           05        MSG97             PIC  X(30) VALUE                         
                     'Database closed.  Try later.'.                            
                                                                                
           COPY                             EWCDFC.                             
           COPY                             EWSPTC.                             
           COPY                             EWCRFC.                             
           COPY                             EWQWRC.                             
                                                                                
       01            ODF.                                                       
           05        ODFALT.                                                    
             10      FILLER                 PIC  X(014).                        
             10      ODFKEY                 PIC  X(018).                        
           05        ODFDATA                PIC  X(062).                        
                                                                                
           COPY                             EWQWR.                              
       01            QWRTBLEDT   REDEFINES  QWR.                                
           05        FILLER            PIC  X(008).                             
           05        QWRTBL            PIC  X(042).                             
           05        FILLER            PIC  X(1998).                            
                                                                                
           COPY                             EWQWRI.                             
           COPY                             EWNUMBW.                            
           COPY                             EWWCM.                              
           COPY                             DFHAID.                             
           COPY                             EWWAB.                              
           COPY                             EWCDF.                              
           COPY                             EWSPT.                              
           COPY                             EWTBL.                              
                                                                                
           COPY                             MPEW43.                             
       01            MPEW43R     REDEFINES  MPEW43I.                            
041006*    05        MAPBYTE        OCCURS  0477  TIMES INDEXED BY MAP1.        
041006     05        MAPBYTE        OCCURS  0519  TIMES INDEXED BY MAP1.        
             10      FILLER            PIC  X(01).                              
                                                                                
       LINKAGE SECTION.                                                         
                                                                                
       01  DFHCOMMAREA                 PIC  X(220).                             
                                                                                
       PROCEDURE DIVISION.                                                      
      ******************************************************************        
                                                                                
       000-CONTROL.                                                             
           MOVE    ZEROS               TO   EDTSAL        EDTBEN                
                                            EDTPURSRV     EDTMTRL               
                                            EDTOTHR       EDTCAP                
                                            EDTPCTCNT     EDTSPCCNT             
           MOVE    SPACES              TO   WSK           WCM                   
           MOVE    LOW-VALUES          TO   MPEW43O                             
           MOVE    '99'                TO   RETQWRT1                            
           EXEC    CICS HANDLE CONDITION    MAPFAIL  (100-DISPLAY)              
                   ERROR   (901-ERROR)      NOSPACE  (902-NOSPACE)              
                   INVREQ  (903-INVREQ)     NOTOPEN  (904-NOTOPEN)              
                   DSIDERR (905-DSIDERR)    END-EXEC                            
                                                                                
           MOVE    EIBTRMID            TO   QWRTRMID                            
           MOVE    'EWT1'              TO   QWRPGM                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (005-NEW1) END-EXEC         
           EXEC    CICS READ                DATASET (QWRFIL)                    
                                            INTO    (QWR)                       
                                            RIDFLD  (QWRKEY)                    
                                            LENGTH  (QWRLENR)  END-EXEC         
           MOVE    '00'                TO   RETQWRT1                            
           MOVE    QWRTBL              TO   EDT.                                
       005-NEW1.                                                                
           MOVE    EIBTRMID            TO   QWRTRMID                            
           MOVE    'EW43'              TO   QWRPGM                              
           MOVE    '99'                TO   RETQWR                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (005-NEW)  END-EXEC         
           EXEC    CICS READ                DATASET (QWRFIL)                    
                                            INTO    (QWR)                       
                                            RIDFLD  (QWRKEY)                    
                                            LENGTH  (QWRLENR)  END-EXEC         
           MOVE    '00'                TO   RETQWR.                             
       005-NEW.                                                                 
           IF      RETQWR              NOT  =   '00'                            
             MOVE  QWRKEY              TO   QWRIKEY                             
             MOVE  QWRI                TO   QWR                                 
             MOVE  DFHCOMMAREA         TO   WCM                                 
             MOVE  ZEROS               TO   WCMXFCRS9     WCMXFPOS9             
             MOVE  HIGH-VALUES         TO   OLDKEY                              
           ELSE                                                                 
             MOVE  QWRWCM              TO   WCM                                 
             MOVE  QWROLD              TO   OLDKEY.                             
                                                                                
           MOVE    WCMSODISTA          TO   CDFFILDS      CRFFILDS              
                                            CDFFILXDS     SPTFILDS              
                                                                                
           IF      EIBCALEN            >    ZEROS                               
             GO                        TO   850-CALLED.                         
           IF      EIBAID              NOT  =   DFHENTER                        
             GO                        TO   800-XCTL.                           
                                                                                
           MOVE    QWROLD              TO   OLDKEY                              
           PERFORM 010-RECEIVE         THRU 010-EXIT                            
           IF      NEWPANEL            NOT  =   SPACES                          
             MOVE  NEWPANEL            TO   WCMXFTPNL                           
             GO                        TO   805-XCTL.                           
           IF      NEWKEY              NOT  =   OLDKEY                          
             GO                        TO   100-DISPLAY                         
           ELSE                                                                 
             GO                        TO   300-UPDATE.                         
                                                                                
      ******************************************************************        
       010-RECEIVE.                                                             
           EXEC    CICS RECEIVE             MAP    ('MPEW43')  END-EXEC         
           MOVE    EIBCPOSN            TO   WCMXFCRS9                           
           SET     MAP1  QWR1          TO   +1.                                 
       010-LOOP1.                                                               
           IF     (MAPBYTE      (MAP1) NOT  =   LOW-VALUES)          AND        
                  (MAPBYTE      (MAP1) NOT  =   HIGH-VALUES)                    
             MOVE  MAPBYTE      (MAP1) TO   QWRBYTE      (QWR1).                
           IF      MAP1                <    WSCMAPLEN                           
             SET   MAP1  QWR1          UP   BY  +1                              
             GO                        TO   010-LOOP1.                          
           MOVE    QWRMAP              TO   MPEW43I                             
                                                                                
           IF      MPANELA             =    WABEOF                              
             MOVE  WABUM               TO   MPANELA                             
             MOVE  ALL '_'             TO   MPANELO       NEWPANEL              
           ELSE                                                                 
             IF      MPANELL           >    ZEROS                               
               MOVE  MPANELI           TO   NEWPANEL                            
               MOVE  WABUM             TO   MPANELA                             
             ELSE                                                               
               IF      MPANELI         >    LOW-VALUES                          
                 MOVE  MPANELI         TO   NEWPANEL.                           
                                                                                
           IF      MTBLEA              =    WABEOF                              
             MOVE  WABUM               TO   MTBLEA                              
             MOVE  ALL '_'             TO   MTBLEO                              
           ELSE                                                                 
             MOVE  MTBLEI              TO   WNUIN                               
             PERFORM  700-CONVERT      THRU 700-EXIT                            
             MOVE  WABUNM              TO   MTBLEA                              
             IF    WNU50               >    ZERO                                
               MOVE  WNU50             TO   NEWTABLE9    MTBLEO.                
           IF      MFUNDA              =    WABEOF                              
             MOVE  WABUM               TO   MFUNDA                              
             MOVE  ALL '_'             TO   MFUNDO       NEWFUND                
           ELSE                                                                 
             IF      MFUNDL            >    ZEROS                               
               MOVE  ZEROS             TO   MFUNDL                              
               MOVE  MFUNDI            TO   NEWFUND                             
               MOVE  WABUM             TO   MFUNDA                              
             ELSE                                                               
               IF      MFUNDI          >    LOW-VALUES                          
                 MOVE  MFUNDI          TO   NEWFUND.                            
                                                                                
           SET     WSK1                TO   +1.                                 
       010-LOOP2.                                                               
           IF      WSKB         (WSK1) =    '_'                                 
             MOVE  ' '                 TO   WSKB         (WSK1).                
           IF      WSK1                <    +9                                  
             SET   WSK1                UP   BY  +1                              
             GO                        TO   010-LOOP2.                          
       010-EXIT.                                                                
           EXIT.                                                                
                                                                                
      ******************************************************************        
       015-SEND.                                                                
           MOVE    EIBTRMID            TO   QWRTRMID                            
           MOVE    'EW43'              TO   QWRPGM                              
           MOVE    OLDKEY              TO   QWROLD                              
           MOVE    WCM                 TO   QWRWCM                              
           MOVE    MPEW43O             TO   QWRMAP                              
           EXEC    CICS HANDLE CONDITION    DUPREC  (015-ERR1) END-EXEC         
           IF      RETQWR              NOT  =   '00'                            
             EXEC  CICS WRITE               DATASET (QWRFIL)                    
                                            FROM    (QWR)                       
                                            RIDFLD  (QWRKEY)                    
                                            LENGTH  (QWRLENR)  END-EXEC         
           ELSE                                                                 
             EXEC  CICS READ UPDATE         DATASET (QWRFIL)                    
                                            INTO    (QWRI)                      
                                            RIDFLD  (QWRKEY)                    
                                            LENGTH  (QWRLENR)  END-EXEC         
             EXEC  CICS REWRITE             DATASET (QWRFIL)                    
                                            FROM    (QWR)                       
                                            LENGTH  (QWRLENR)  END-EXEC.        
       015-ERR1.                                                                
           MOVE    EIBTRMID            TO   QWR                                 
           MOVE    'EWT1'              TO   QWRPGM                              
           MOVE    EDT                 TO   QWRTBL                              
           EXEC    CICS HANDLE CONDITION    DUPREC  (015-ERR2) END-EXEC         
           IF      RETQWRT1            NOT  =   '00'                            
             EXEC  CICS WRITE               DATASET (QWRFIL)                    
                                            FROM    (QWR)                       
                                            RIDFLD  (QWRKEY)                    
                                            LENGTH  (QWRLENR)  END-EXEC         
           ELSE                                                                 
             EXEC  CICS READ UPDATE         DATASET (QWRFIL)                    
                                            INTO    (QWRI)                      
                                            RIDFLD  (QWRKEY)                    
                                            LENGTH  (QWRLENR)  END-EXEC         
             EXEC  CICS REWRITE             DATASET (QWRFIL)                    
                                            FROM    (QWR)                       
                                            LENGTH  (QWRLENR)  END-EXEC.        
       015-ERR2.                                                                
           IF      EIBCALEN            =    ZEROS                               
             EXEC  CICS SEND                MAP     ('MPEW43') DATAONLY         
                                            CURSOR             END-EXEC         
           ELSE                                                                 
             IF      EIBCALEN          NOT  =   1234                            
               EXEC  CICS SEND              MAP     ('MPEW43') ERASE            
                                            CURSOR             END-EXEC         
             ELSE                                                               
               EXEC  CICS SEND              MAP     ('MPEW43') ERASE            
                                            CURSOR  (EIBCPOSN) END-EXEC.        
           EXEC    CICS RETURN              TRANSID ('EW43')   END-EXEC.        
                                                                                
      ******************************************************************        
       100-DISPLAY.                                                             
           MOVE    ZEROS               TO   EDTSAL        EDTBEN                
                                            EDTPURSRV     EDTMTRL               
                                            EDTOTHR       EDTCAP                
                                            EDTPCTCNT     EDTSPCCNT             
           MOVE    HIGH-VALUES         TO   OLDKEY                              
           MOVE    LOW-VALUES          TO   MPEW43O       QWRMAP                
           MOVE    +10                 TO   EIBCALEN                            
           MOVE    ZEROS               TO   RETERR                              
           MOVE    SPACES              TO   RETALL                              
           SET     WSK1                TO   +1.                                 
       100-LOOP1.                                                               
           IF      WSKB         (WSK1) =    ' '                                 
             MOVE  '_'                 TO   WSKB         (WSK1).                
           IF      WSK1                <    +9                                  
             SET   WSK1                UP   BY  +1                              
             GO                        TO   100-LOOP1.                          
           MOVE    NEWPANEL            TO   MPANELO                             
           MOVE    NEWTABLE            TO   MTBLEO                              
           MOVE    NEWFUND             TO   MFUNDO                              
           SET     WSK1                TO   +1.                                 
       100-LOOP2.                                                               
           IF      WSKB         (WSK1) =    '_'                                 
             MOVE  ' '                 TO   WSKB         (WSK1).                
           IF      WSK1                <    +9                                  
             SET   WSK1                UP   BY  +1                              
             GO                        TO   100-LOOP2.                          
                                                                                
           IF     (NEWTABLE            =    SPACES)                 OR          
                  (NEWTABLE            =    '00000')                            
             MOVE  -1                  TO   MTBLEL                              
             MOVE  MSG18               TO   MMSGO                               
             GO                        TO   015-SEND.                           
                                                                                
           MOVE    WCMSODIST           TO   TBLKEY                              
           MOVE    WCMSOFY             TO   TBLFY                               
           MOVE    'TBL'               TO   TBLPREF                             
           MOVE    NEWTABLE            TO   TBLTBL                              
           MOVE    '99'                TO   RETCRF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (105-ERR)  END-EXEC         
           EXEC    CICS READ                DATASET (CRFFIL)                    
                                            INTO    (TBL)                       
                                            RIDFLD  (TBLKEY)                    
                                            LENGTH  (CRFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCRF.                             
       105-ERR.                                                                 
           IF      RETCRF              NOT  =   '00'                            
             MOVE  SPACES              TO   TBLDATA                             
             MOVE  WABUMB              TO   MTBLEA        MFUNDA                
             MOVE  -1                  TO   MTBLEL        RETERR.               
           IF      NEWFUND             =    SPACES                              
             MOVE  TBLFTYPE            TO   NEWFUND       MFUNDO.               
           IF      NEWFUND             NOT  =   TBLFTYPE                        
             MOVE  WABUMB              TO   MTBLEA        MFUNDA                
             MOVE  -1                  TO   MTBLEL        RETERR.               
                                                                                
           MOVE    WCMSODIST           TO   SPTKEY                              
           MOVE    WCMSOFY             TO   SPTFY                               
           MOVE    NEWFUND             TO   SPTFUND                             
           MOVE    NEWTABLE            TO   SPTTABLE                            
           MOVE    LOW-VALUES          TO   SPTSCHL       SPTPGM                
           EXEC    CICS HANDLE CONDITION    INVREQ  (105-ERR2)                  
                                            NOTFND  (105-ERR2)                  
                                            ENDFILE (105-ERR2) END-EXEC.        
           MOVE    '99'                TO   RETSPT                              
           EXEC    CICS STARTBR             DATASET (SPTFIL)                    
                                            RIDFLD  (SPTKEY)   GTEQ             
                                            KEYLENGTH (SPTLENK)                 
                                            END-EXEC.                           
           EXEC    CICS READNEXT            DATASET (SPTFIL)                    
                                            INTO    (SPT)                       
                                            RIDFLD  (SPTKEY)                    
                                            LENGTH  (SPTLENR)  END-EXEC         
           MOVE    '00'                TO   RETSPT                              
           EXEC    CICS HANDLE CONDITION    INVREQ  (105-ERR2) END-EXEC         
           EXEC    CICS ENDBR               DATASET (SPTFIL)   END-EXEC.        
       105-ERR2.                                                                
           IF     (RETSPT              NOT  =  '00')                 OR         
                  (SPTDIST             NOT  =  WCMSODIST)            OR         
                  (SPTFY               NOT  =  WCMSOFY)              OR         
                  (SPTFUND             NOT  =  NEWFUND)              OR         
                  (SPTTABLE            NOT  =  NEWTABLE)                        
             MOVE  WABUMB              TO   MTBLEA        MFUNDA                
             MOVE  -1                  TO   MTBLEL        RETERR.               
                                                                                
           IF      RETERR              NOT  =   ZEROS                           
             MOVE  MSG03               TO   MMSGO                               
             GO                        TO   015-SEND.                           
                                                                                
           MOVE    WCMSODIST           TO   CDFALT                              
           MOVE    WCMSOFY             TO   CDFFY2                              
           MOVE    NEWFUND             TO   CDFFUND2                            
           MOVE    NEWTABLE            TO   CDFTABLE2                           
           MOVE    '7000'              TO   CDFCONTROL2                         
           EXEC    CICS HANDLE CONDITION    INVREQ  (105-LOOP)                  
                                            NOTFND  (105-LOOP)                  
                                            ENDFILE (105-LOOP) END-EXEC         
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS STARTBR             DATASET (CDFFILX)                   
                                            RIDFLD  (CDFALT)   GTEQ             
                                            KEYLENGTH (CDFLENX)                 
                                            END-EXEC                            
           MOVE    '00'                TO   RETCDF.                             
       105-LOOP.                                                                
           IF      RETCDF              =    '00'                                
             MOVE  '99'                TO   RETCDF                              
             EXEC  CICS READNEXT            DATASET (CDFFILX)                   
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFALT)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             MOVE  '00'                TO   RETCDF                              
             IF   (RETCDF              =    '00')                  AND          
                  (CDFDIST2            =    WCMSODIST)             AND          
                  (CDFFY2              =    WCMSOFY)               AND          
                  (CDFFUND2            =    NEWFUND)               AND          
                  (CDFTABLE2           =    NEWTABLE)              AND          
                  (CDFCONTROL2         =    '7000')                             
               ADD CDFAMT1             TO   EDTSAL                              
               ADD CDFAMT2             TO   EDTBEN                              
               ADD CDFAMT3             TO   EDTPURSRV                           
               ADD CDFAMT4             TO   EDTMTRL                             
               ADD CDFAMT5             TO   EDTOTHR                             
               ADD CDFAMT6             TO   EDTCAP                              
               IF  CDFPCT              =    'P'                                 
                 ADD  +1               TO   EDTPCTCNT                           
                 GO                    TO   105-LOOP                            
               ELSE                                                             
121495           IF   CDFAMT1          NOT  =  ZERO                             
                   ADD  +1             TO   EDTSPCCNT                           
121495             GO                  TO   105-LOOP                            
121495           ELSE                                                           
                   GO                  TO   105-LOOP.                           
                                                                                
           EXEC    CICS HANDLE CONDITION    INVREQ  (105-CONT) END-EXEC         
           EXEC    CICS ENDBR               DATASET (CDFFILX)  END-EXEC.        
       105-CONT.                                                                
                                                                                
           MOVE    NEWKEY              TO   OLDKEY                              
           MOVE    SPACES              TO   CDF                                 
           MOVE    WCMSODIST           TO   CDFDIST                             
           MOVE    WCMSOFY             TO   CDFFY                               
           MOVE    NEWFUND             TO   CDFFUND                             
           MOVE    NEWTABLE            TO   CDFTABLE                            
           MOVE    '0000'              TO   CDFSCHL                             
           MOVE    '1000'              TO   CDFCONTROL                          
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (110-NXT1) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCDF                              
           MOVE    CDFAMT1             TO   MSALO                               
           MOVE    CDFPCT              TO   MPCTO                               
           MOVE    CDFAMT2             TO   MBENO                               
           MOVE    CDFAMT3             TO   MPURSRVO                            
           MOVE    CDFAMT4             TO   MMTRLO                              
           MOVE    CDFAMT5             TO   MOTHRO                              
           MOVE    CDFAMT6             TO   MCAPO                               
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   MSALI.                              
           IF      CDFPCT              =    SPACES                              
             MOVE  '_'                 TO   MPCTO.                              
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   MBENI.                              
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   MPURSRVI.                           
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   MMTRLI.                             
           IF      CDFAMT5             =    ZEROS                               
             MOVE  '_________ '        TO   MOTHRI.                             
           IF      CDFAMT6             =    ZEROS                               
             MOVE  '_________ '        TO   MCAPI.                              
       110-NXT1.                                                                
           IF      RETCDF              =    '00'                                
             MOVE  RETCDF              TO   RETALL.                             
                                                                                
           MOVE    '2000'              TO   CDFCONTROL                          
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (110-NXT2) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCDF                              
           MOVE    CDFAMT1             TO   M26100O                             
           MOVE    CDFAMT2             TO   M26200O                             
           MOVE    CDFAMT3             TO   M26300O                             
           MOVE    CDFAMT4             TO   M26400O                             
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M26100I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M26200I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M26300I.                            
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   M26400I.                            
       110-NXT2.                                                                
           IF      RETCDF              =    '00'                                
             MOVE  RETCDF              TO   RETALL.                             
                                                                                
           MOVE    '2001'              TO   CDFCONTROL                          
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (110-NXT3) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCDF                              
           MOVE    CDFAMT1             TO   M27300O                             
           MOVE    CDFAMT2             TO   M27400O                             
           MOVE    CDFAMT3             TO   M27600O                             
           MOVE    CDFAMT4             TO   M27700O                             
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M27300I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M27400I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M27600I.                            
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   M27700I.                            
       110-NXT3.                                                                
           IF      RETCDF              =    '00'                                
             MOVE  RETCDF              TO   RETALL.                             
                                                                                
           MOVE    '2002'              TO   CDFCONTROL                          
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (110-NXT4) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCDF                              
           MOVE    CDFAMT1             TO   M27800O                             
           MOVE    CDFAMT2             TO   M27900O                             
           MOVE    CDFAMT3             TO   M28100O                             
041006     MOVE    CDFAMT4             TO   M28200O                             
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M27800I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M27900I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M28100I.                            
041006     IF      CDFAMT4             =    ZEROS                               
041006       MOVE  '_________ '        TO   M28200I.                            
       110-NXT4.                                                                
           IF      RETCDF              =    '00'                                
             MOVE  RETCDF              TO   RETALL.                             
                                                                                
041006     MOVE    '2003'              TO   CDFCONTROL                          
041006     MOVE    '99'                TO   RETCDF                              
041006     EXEC    CICS HANDLE CONDITION    NOTFND  (110-NXT4B) END-EXEC        
041006     EXEC    CICS READ                DATASET (CDFFIL)                    
041006                                      INTO    (CDF)                       
041006                                      RIDFLD  (CDFKEY)                    
041006                                      LENGTH  (CDFLENR)  END-EXEC         
041006     MOVE    '00'                TO   RETCDF                              
041006     MOVE    CDFAMT1             TO   M26500O                             
041006     IF      CDFAMT1             =    ZEROS                               
041006       MOVE  '_________ '        TO   M26500I.                            
041006 110-NXT4B.                                                               
041006     IF      RETCDF              =    '00'                                
041006       MOVE  RETCDF              TO   RETALL.                             
                                                                                
           MOVE    '3000'              TO   CDFCONTROL                          
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (110-NXT5) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCDF                              
           MOVE    CDFAMT1             TO   M36100O                             
           MOVE    CDFAMT2             TO   M36200O                             
           MOVE    CDFAMT3             TO   M36300O                             
           MOVE    CDFAMT4             TO   M36400O                             
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M36100I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M36200I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M36300I.                            
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   M36400I.                            
       110-NXT5.                                                                
           IF      RETCDF              =    '00'                                
             MOVE  RETCDF              TO   RETALL.                             
                                                                                
           MOVE    '3001'              TO   CDFCONTROL                          
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (110-NXT6) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCDF                              
           MOVE    CDFAMT1             TO   M37100O                             
           MOVE    CDFAMT2             TO   M37200O                             
           MOVE    CDFAMT3             TO   M37400O                             
           MOVE    CDFAMT4             TO   M37500O                             
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M37100I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M37200I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M37400I.                            
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   M37500I.                            
       110-NXT6.                                                                
           IF      RETCDF              =    '00'                                
             MOVE  RETCDF              TO   RETALL.                             
                                                                                
           MOVE    '3002'              TO   CDFCONTROL                          
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (110-NXT7) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCDF                              
           MOVE    CDFAMT1             TO   M37600O                             
           MOVE    CDFAMT2             TO   M37700O                             
           MOVE    CDFAMT3             TO   M37800O                             
           MOVE    CDFAMT4             TO   M37900O                             
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M37600I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M37700I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M37800I.                            
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   M37900I.                            
       110-NXT7.                                                                
           IF      RETCDF              =    '00'                                
             MOVE  RETCDF              TO   RETALL.                             
                                                                                
           MOVE    '3003'              TO   CDFCONTROL                          
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (110-NXT8) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCDF                              
           MOVE    CDFAMT1             TO   M38100O                             
041006     MOVE    CDFAMT2             TO   M38200O                             
041006     MOVE    CDFAMT3             TO   M36500O                             
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M38100I.                            
041006     IF      CDFAMT2             =    ZEROS                               
041006       MOVE  '_________ '        TO   M38200I.                            
041006     IF      CDFAMT3             =    ZEROS                               
041006       MOVE  '_________ '        TO   M36500I.                            
       110-NXT8.                                                                
           IF      RETCDF              =    '00'                                
             MOVE  RETCDF              TO   RETALL.                             
                                                                                
           IF      RETALL              NOT  =  '00'                             
             GO                        TO   110-NEW.                            
                                                                                
           MOVE    -1                  TO   MTBLEL                              
           IF      WCMSOCURR           =    'U'                                 
             MOVE  MSG12               TO   MMSGO                               
           ELSE                                                                 
             MOVE  MSG22               TO   MMSGO                               
             MOVE  HIGH-VALUES         TO   OLDKEY.                             
           GO                          TO   015-SEND.                           
                                                                                
       110-NEW.                                                                 
           IF      WCMSOCURR           =    'U'                                 
             MOVE  -1                  TO   MSALL                               
             MOVE  MSG23               TO   MMSGO                               
           ELSE                                                                 
             MOVE  -1                  TO   MTBLEL                              
             MOVE  MSG21               TO   MMSGO                               
             MOVE  HIGH-VALUES         TO   OLDKEY.                             
           GO                          TO   015-SEND.                           
                                                                                
      ******************************************************************        
       300-UPDATE.                                                              
           IF      WCMSOCURR           NOT  =  'U'                              
             GO                        TO   100-DISPLAY.                        
           MOVE    +1                  TO   RETERR2                             
           MOVE    ZEROS               TO   MTBLEL                              
           MOVE    SPACES              TO   CDF                                 
           MOVE    WCMSODIST           TO   CDFDIST      CDFDIST2               
           MOVE    WCMSOFY             TO   CDFFY        CDFFY2                 
           MOVE    NEWFUND             TO   CDFFUND      CDFFUND2               
           MOVE    NEWTABLE            TO   CDFTABLE     CDFTABLE2              
           MOVE    '0000'              TO   CDFSCHL                             
                                                                                
           MOVE    ZEROS               TO   RETERR                              
           MOVE    '1000'              TO   CDFCONTROL   CDFCONTROL2            
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (310-NEW1) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           IF      EIBAID              =    DFHPF10                             
             EXEC  CICS READ   UPDATE       DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC         
             MOVE  ZEROS               TO   RETERR2                             
             GO                        TO   310-CONT1.                          
           MOVE    '00'                TO   RETCDF.                             
       310-NEW1.                                                                
           IF     (EIBAID              =    DFHPF10)                 AND        
                  (RETCDF              NOT  =   '00')                           
             IF    RETERR2             NOT  =  ZEROS                            
               MOVE  -1                TO   RETERR2                             
               GO                      TO   310-CONT1                           
             ELSE                                                               
               GO                      TO   310-CONT1.                          
           IF      RETCDF              NOT  =  '00'                             
             MOVE  SPACES              TO   CDFDATAC                            
             MOVE  ZEROS               TO   CDFAMT1   CDFAMT2   CDFAMT3         
                                            CDFAMT4   CDFAMT5   CDFAMT6         
                                            CDFTOTAL.                           
           MOVE    CDF                 TO   ODF                                 
           IF      MSALA               =    WABEOF                              
             MOVE  '_________ '        TO   MSALI                               
             MOVE  WABU                TO   MSALA                               
             MOVE  ZEROS               TO   MSALL                               
             MOVE  ZEROS               TO   CDFAMT1                             
           ELSE                                                                 
             IF      MSALL             >    ZEROS                               
               MOVE  ZEROS             TO   MSALL                               
               MOVE  MSALI             TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   MSALA                               
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   MSALO    CDFAMT1                    
               ELSE                                                             
                 MOVE  WNU90           TO   MSALO    CDFAMT1                    
             ELSE                                                               
               IF      MSALI           >    LOW-VALUES                          
                 MOVE  WABUN           TO   MSALA                               
                 MOVE  MSALI           TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   MSALO    CDFAMT1                    
                 ELSE                                                           
                   MOVE  WNU90         TO   MSALO    CDFAMT1.                   
           IF      MPCTA               =    WABEOF                              
             MOVE  ALL '_'             TO   MPCTO                               
             MOVE  WABUM               TO   MPCTA                               
             MOVE  ZEROS               TO   MPCTL                               
             MOVE  SPACES              TO   CDFPCT                              
           ELSE                                                                 
             IF      MPCTL             >    ZEROS                               
               MOVE  ZEROS             TO   MPCTL                               
               MOVE  MPCTI             TO   CDFPCT                              
               MOVE  WABU              TO   MPCTA                               
             ELSE                                                               
               IF      MPCTI           >    LOW-VALUES                          
                 MOVE  WABU            TO   MPCTA                               
                 MOVE  MPCTI           TO   CDFPCT.                             
           IF      MBENA               =    WABEOF                              
             MOVE  '_________ '        TO   MBENI                               
             MOVE  WABU                TO   MBENA                               
             MOVE  ZEROS               TO   MBENL                               
             MOVE  ZEROS               TO   CDFAMT2                             
           ELSE                                                                 
             IF      MBENL             >    ZEROS                               
               MOVE  ZEROS             TO   MBENL                               
               MOVE  MBENI             TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   MBENA                               
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   MBENO    CDFAMT2                    
               ELSE                                                             
                 MOVE  WNU90           TO   MBENO    CDFAMT2                    
             ELSE                                                               
               IF      MBENI           >    LOW-VALUES                          
                 MOVE  WABUN           TO   MBENA                               
                 MOVE  MBENI           TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   MBENO    CDFAMT2                    
                 ELSE                                                           
                   MOVE  WNU90         TO   MBENO    CDFAMT2.                   
           IF      MPURSRVA            =    WABEOF                              
             MOVE  '_________ '        TO   MPURSRVI                            
             MOVE  WABU                TO   MPURSRVA                            
             MOVE  ZEROS               TO   MPURSRVL                            
             MOVE  ZEROS               TO   CDFAMT3                             
           ELSE                                                                 
             IF      MPURSRVL          >    ZEROS                               
               MOVE  ZEROS             TO   MPURSRVL                            
               MOVE  MPURSRVI          TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   MPURSRVA                            
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   MPURSRVO    CDFAMT3                 
               ELSE                                                             
                 MOVE  WNU90           TO   MPURSRVO    CDFAMT3                 
             ELSE                                                               
               IF      MPURSRVI        >    LOW-VALUES                          
                 MOVE  WABUN           TO   MPURSRVA                            
                 MOVE  MPURSRVI        TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   MPURSRVO    CDFAMT3                 
                 ELSE                                                           
                   MOVE  WNU90         TO   MPURSRVO    CDFAMT3.                
           IF      MMTRLA              =    WABEOF                              
             MOVE  '_________ '        TO   MMTRLI                              
             MOVE  WABU                TO   MMTRLA                              
             MOVE  ZEROS               TO   MMTRLL                              
             MOVE  ZEROS               TO   CDFAMT4                             
           ELSE                                                                 
             IF      MMTRLL            >    ZEROS                               
               MOVE  ZEROS             TO   MMTRLL                              
               MOVE  MMTRLI            TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   MMTRLA                              
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   MMTRLO    CDFAMT4                   
               ELSE                                                             
                 MOVE  WNU90           TO   MMTRLO    CDFAMT4                   
             ELSE                                                               
               IF      MMTRLI          >    LOW-VALUES                          
                 MOVE  WABUN           TO   MMTRLA                              
                 MOVE  MMTRLI          TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   MMTRLO    CDFAMT4                   
                 ELSE                                                           
                   MOVE  WNU90         TO   MMTRLO    CDFAMT4.                  
           IF      MOTHRA              =    WABEOF                              
             MOVE  '_________ '        TO   MOTHRI                              
             MOVE  WABU                TO   MOTHRA                              
             MOVE  ZEROS               TO   MOTHRL                              
             MOVE  ZEROS               TO   CDFAMT5                             
           ELSE                                                                 
             IF      MOTHRL            >    ZEROS                               
               MOVE  ZEROS             TO   MOTHRL                              
               MOVE  MOTHRI            TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   MOTHRA                              
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   MOTHRO    CDFAMT5                   
               ELSE                                                             
                 MOVE  WNU90           TO   MOTHRO    CDFAMT5                   
             ELSE                                                               
               IF      MOTHRI          >    LOW-VALUES                          
                 MOVE  WABUN           TO   MOTHRA                              
                 MOVE  MOTHRI          TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   MOTHRO    CDFAMT5                   
                 ELSE                                                           
                   MOVE  WNU90         TO   MOTHRO    CDFAMT5.                  
           IF      MCAPA               =    WABEOF                              
             MOVE  '_________ '        TO   MCAPI                               
             MOVE  WABU                TO   MCAPA                               
             MOVE  ZEROS               TO   MCAPL                               
             MOVE  ZEROS               TO   CDFAMT6                             
           ELSE                                                                 
             IF      MCAPL             >    ZEROS                               
               MOVE  ZEROS             TO   MCAPL                               
               MOVE  MCAPI             TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   MCAPA                               
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   MCAPO     CDFAMT6                   
               ELSE                                                             
                 MOVE  WNU90           TO   MCAPO     CDFAMT6                   
             ELSE                                                               
               IF      MCAPI           >    LOW-VALUES                          
                 MOVE  WABUN           TO   MCAPA                               
                 MOVE  MCAPI           TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   MCAPO    CDFAMT6                    
                 ELSE                                                           
                   MOVE  WNU90         TO   MCAPO    CDFAMT6.                   
                                                                                
           SET     CDF1                TO   +1.                                 
       310-LOOP1.                                                               
           IF      CDFB         (CDF1) =    '_'                                 
             MOVE  ' '                 TO   CDFB         (CDF1).                
           IF      CDF1                <    +94                                 
             SET   CDF1                UP   BY  +1                              
             GO                        TO   310-LOOP1.                          
                                                                                
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   MSALI.                              
           IF      CDFPCT              =    SPACES                              
             MOVE  '_'                 TO   MPCTI.                              
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   MBENI.                              
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   MPURSRVI.                           
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   MMTRLI.                             
           IF      CDFAMT5             =    ZEROS                               
             MOVE  '_________ '        TO   MOTHRI.                             
           IF      CDFAMT6             =    ZEROS                               
             MOVE  '_________ '        TO   MCAPI.                              
                                                                                
           IF      CDFAMT1             <    ZEROS                               
             MOVE  WABUMB              TO   MSALA.                              
           IF      EDTSAL              >    CDFAMT1                             
             MOVE  WABUMB              TO   MSALA                               
             MOVE  -1                  TO   MSALL         RETERR.               
           IF     (EDTPCTCNT           NOT  =  ZERO)                AND         
                  (EDTSPCCNT           NOT  =  ZERO)                            
             MOVE  WABUMB              TO   MPCTA.                              
           IF     (CDFPCT              NOT  =  'P')                 AND         
                  (CDFPCT              NOT  =  SPACES)                          
             MOVE  WABUMB              TO   MPCTA                               
             MOVE  -1                  TO   MPCTL         RETERR.               
           IF      CDFAMT2             <    ZEROS                               
             MOVE  WABUMB              TO   MBENA.                              
           IF      EDTBEN              >    CDFAMT2                             
             MOVE  WABUMB              TO   MBENA                               
             MOVE  -1                  TO   MBENL         RETERR.               
           IF      CDFAMT3             <    ZEROS                               
             MOVE  WABUMB              TO   MPURSRVA.                           
           IF      EDTPURSRV           >    CDFAMT3                             
             MOVE  WABUMB              TO   MPURSRVA                            
             MOVE  -1                  TO   MPURSRVL      RETERR.               
           IF      CDFAMT4             <    ZEROS                               
             MOVE  WABUMB              TO   MMTRLA.                             
           IF      EDTMTRL             >    CDFAMT4                             
             MOVE  WABUMB              TO   MMTRLA                              
             MOVE  -1                  TO   MMTRLL        RETERR.               
           IF      CDFAMT5             <    ZEROS                               
             MOVE  WABUMB              TO   MOTHRA.                             
           IF      EDTOTHR             >    CDFAMT5                             
             MOVE  WABUMB              TO   MOTHRA                              
             MOVE  -1                  TO   MOTHRL        RETERR.               
           IF      CDFAMT6             <    ZEROS                               
             MOVE  WABUMB              TO   MCAPA.                              
           IF      EDTCAP              >    CDFAMT6                             
             MOVE  WABUMB              TO   MCAPA                               
             MOVE  -1                  TO   MCAPL         RETERR.               
                                                                                
           IF      RETERR              NOT  =   ZEROS                           
             MOVE  RETERR              TO   RETERR2                             
             GO                        TO   310-CONT1.                          
                                                                                
           IF      CDF                 =    ODF                                 
             GO                        TO   310-CONT1.                          
           IF      RETERR2             NOT  =  -1                               
             MOVE  ZEROS               TO   RETERR2.                            
           IF      RETCDF              =    '00'                                
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)                    
                                            INTO    (ODF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             EXEC  CICS REWRITE             DATASET (CDFFIL)                    
                                            FROM    (CDF)                       
                                            LENGTH  (CDFLENR)  END-EXEC         
           ELSE                                                                 
             EXEC  CICS WRITE               DATASET (CDFFIL)                    
                                            FROM    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC.        
       310-CONT1.                                                               
           MOVE    ZEROS               TO   RETERR                              
           MOVE    '2000'              TO   CDFCONTROL    CDFCONTROL2           
           MOVE    SPACES              TO   CDFDATA                             
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (310-NEW2) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           IF      EIBAID              =    DFHPF10                             
             EXEC  CICS READ   UPDATE       DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC         
             MOVE  ZEROS               TO   RETERR2                             
             GO                        TO   310-CONT2.                          
           MOVE    '00'                TO   RETCDF.                             
       310-NEW2.                                                                
           IF     (EIBAID              =    DFHPF10)                 AND        
                  (RETCDF              NOT  =   '00')                           
             IF    RETERR2             NOT  =  ZEROS                            
               MOVE  -1                TO   RETERR2                             
               GO                      TO   310-CONT2                           
             ELSE                                                               
               GO                      TO   310-CONT2.                          
                                                                                
           IF      RETCDF              NOT  =  '00'                             
             MOVE  SPACES              TO   CDFDATAC                            
             MOVE  ZEROS               TO   CDFAMT1   CDFAMT2   CDFAMT3         
                                            CDFAMT4   CDFAMT5   CDFAMT6         
                                            CDFTOTAL.                           
           MOVE    CDF                 TO   ODF                                 
           IF      M26100A             =    WABEOF                              
             MOVE  '_________ '        TO   M26100I                             
             MOVE  WABU                TO   M26100A                             
             MOVE  ZEROS               TO   M26100L                             
             MOVE  ZEROS               TO   CDFAMT1                             
           ELSE                                                                 
             IF      M26100L           >    ZEROS                               
               MOVE  ZEROS             TO   M26100L                             
               MOVE  M26100I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M26100A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M26100O  CDFAMT1                    
               ELSE                                                             
                 MOVE  WNU90           TO   M26100O  CDFAMT1                    
             ELSE                                                               
               IF      M26100I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M26100A                             
                 MOVE  M26100I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M26100O  CDFAMT1                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M26100O  CDFAMT1.                   
           IF      M26200A             =    WABEOF                              
             MOVE  '_________ '        TO   M26200I                             
             MOVE  WABU                TO   M26200A                             
             MOVE  ZEROS               TO   M26200L                             
             MOVE  ZEROS               TO   CDFAMT2                             
           ELSE                                                                 
             IF      M26200L           >    ZEROS                               
               MOVE  ZEROS             TO   M26200L                             
               MOVE  M26200I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M26200A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M26200O  CDFAMT2                    
               ELSE                                                             
                 MOVE  WNU90           TO   M26200O  CDFAMT2                    
             ELSE                                                               
               IF      M26200I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M26200A                             
                 MOVE  M26200I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M26200O  CDFAMT2                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M26200O  CDFAMT2.                   
           IF      M26300A             =    WABEOF                              
             MOVE  '_________ '        TO   M26300I                             
             MOVE  WABU                TO   M26300A                             
             MOVE  ZEROS               TO   M26300L                             
             MOVE  ZEROS               TO   CDFAMT3                             
           ELSE                                                                 
             IF      M26300L           >    ZEROS                               
               MOVE  ZEROS             TO   M26300L                             
               MOVE  M26300I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M26300A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M26300O  CDFAMT3                    
               ELSE                                                             
                 MOVE  WNU90           TO   M26300O  CDFAMT3                    
             ELSE                                                               
               IF      M26300I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M26300A                             
                 MOVE  M26300I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M26300O  CDFAMT3                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M26300O  CDFAMT3.                   
           IF      M26400A             =    WABEOF                              
             MOVE  '_________ '        TO   M26400I                             
             MOVE  WABU                TO   M26400A                             
             MOVE  ZEROS               TO   M26400L                             
             MOVE  ZEROS               TO   CDFAMT4                             
           ELSE                                                                 
             IF      M26400L           >    ZEROS                               
               MOVE  ZEROS             TO   M26400L                             
               MOVE  M26400I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M26400A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M26400O  CDFAMT4                    
               ELSE                                                             
                 MOVE  WNU90           TO   M26400O  CDFAMT4                    
             ELSE                                                               
               IF      M26400I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M26400A                             
                 MOVE  M26400I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M26400O  CDFAMT4                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M26400O  CDFAMT4.                   
                                                                                
                                                                                
           SET     CDF1                TO   +1.                                 
       310-LOOP2.                                                               
           IF      CDFB         (CDF1) =    '_'                                 
             MOVE  ' '                 TO   CDFB         (CDF1).                
           IF      CDF1                <    +94                                 
             SET   CDF1                UP   BY  +1                              
             GO                        TO   310-LOOP2.                          
                                                                                
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M26100I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M26200I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M26300I.                            
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   M26400I.                            
                                                                                
           IF      CDFAMT1             <    ZEROS                               
             MOVE  WABUMB              TO   M26100A.                            
           IF      CDFAMT2             <    ZEROS                               
             MOVE  WABUMB              TO   M26200A.                            
           IF      CDFAMT3             <    ZEROS                               
             MOVE  WABUMB              TO   M26300A.                            
           IF      CDFAMT4             <    ZEROS                               
             MOVE  WABUMB              TO   M26400A.                            
                                                                                
           IF      RETERR              NOT  =   ZEROS                           
             MOVE  RETERR              TO   RETERR2                             
             GO                        TO   310-CONT2.                          
                                                                                
           IF      CDF                 =    ODF                                 
             GO                        TO   310-CONT2.                          
           IF      RETERR2             NOT  =  -1                               
             MOVE  ZEROS               TO   RETERR2.                            
           IF      RETCDF              =    '00'                                
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)                    
                                            INTO    (ODF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             EXEC  CICS REWRITE             DATASET (CDFFIL)                    
                                            FROM    (CDF)                       
                                            LENGTH  (CDFLENR)  END-EXEC         
           ELSE                                                                 
             EXEC  CICS WRITE               DATASET (CDFFIL)                    
                                            FROM    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC.        
       310-CONT2.                                                               
           MOVE    ZEROS               TO   RETERR                              
           MOVE    '2001'              TO   CDFCONTROL    CDFCONTROL2           
           MOVE    SPACES              TO   CDFDATA                             
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (310-NEW3) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           IF      EIBAID              =    DFHPF10                             
             EXEC  CICS READ   UPDATE       DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC         
             MOVE  ZEROS               TO   RETERR2                             
             GO                        TO   310-CONT3.                          
           MOVE    '00'                TO   RETCDF.                             
       310-NEW3.                                                                
           IF     (EIBAID              =    DFHPF10)                 AND        
                  (RETCDF              NOT  =   '00')                           
             IF    RETERR2             NOT  =  ZEROS                            
               MOVE  -1                TO   RETERR2                             
               GO                      TO   310-CONT3                           
             ELSE                                                               
               GO                      TO   310-CONT3.                          
                                                                                
           IF      RETCDF              NOT  =  '00'                             
             MOVE  SPACES              TO   CDFDATAC                            
             MOVE  ZEROS               TO   CDFAMT1   CDFAMT2   CDFAMT3         
                                            CDFAMT4   CDFAMT5   CDFAMT6         
                                            CDFTOTAL.                           
           MOVE    CDF                 TO   ODF                                 
           IF      M27300A             =    WABEOF                              
             MOVE  '_________ '        TO   M27300I                             
             MOVE  WABU                TO   M27300A                             
             MOVE  ZEROS               TO   M27300L                             
             MOVE  ZEROS               TO   CDFAMT1                             
           ELSE                                                                 
             IF      M27300L           >    ZEROS                               
               MOVE  ZEROS             TO   M27300L                             
               MOVE  M27300I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M27300A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M27300O  CDFAMT1                    
               ELSE                                                             
                 MOVE  WNU90           TO   M27300O  CDFAMT1                    
             ELSE                                                               
               IF      M27300I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M27300A                             
                 MOVE  M27300I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M27300O  CDFAMT1                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M27300O  CDFAMT1.                   
           IF      M27400A             =    WABEOF                              
             MOVE  '_________ '        TO   M27400I                             
             MOVE  WABU                TO   M27400A                             
             MOVE  ZEROS               TO   M27400L                             
             MOVE  ZEROS               TO   CDFAMT2                             
           ELSE                                                                 
             IF      M27400L           >    ZEROS                               
               MOVE  ZEROS             TO   M27400L                             
               MOVE  M27400I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M27400A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M27400O  CDFAMT2                    
               ELSE                                                             
                 MOVE  WNU90           TO   M27400O  CDFAMT2                    
             ELSE                                                               
               IF      M27400I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M27400A                             
                 MOVE  M27400I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M27400O  CDFAMT2                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M27400O  CDFAMT2.                   
           IF      M27600A             =    WABEOF                              
             MOVE  '_________ '        TO   M27600I                             
             MOVE  WABU                TO   M27600A                             
             MOVE  ZEROS               TO   M27600L                             
             MOVE  ZEROS               TO   CDFAMT3                             
           ELSE                                                                 
             IF      M27600L           >    ZEROS                               
               MOVE  ZEROS             TO   M27600L                             
               MOVE  M27600I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M27600A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M27600O  CDFAMT3                    
               ELSE                                                             
                 MOVE  WNU90           TO   M27600O  CDFAMT3                    
             ELSE                                                               
               IF      M27600I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M27600A                             
                 MOVE  M27600I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M27600O  CDFAMT3                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M27600O  CDFAMT3.                   
           IF      M27700A             =    WABEOF                              
             MOVE  '_________ '        TO   M27700I                             
             MOVE  WABU                TO   M27700A                             
             MOVE  ZEROS               TO   M27700L                             
             MOVE  ZEROS               TO   CDFAMT4                             
           ELSE                                                                 
             IF      M27700L           >    ZEROS                               
               MOVE  ZEROS             TO   M27700L                             
               MOVE  M27700I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M27700A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M27700O  CDFAMT4                    
               ELSE                                                             
                 MOVE  WNU90           TO   M27700O  CDFAMT4                    
             ELSE                                                               
               IF      M27700I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M27700A                             
                 MOVE  M27700I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M27700O  CDFAMT4                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M27700O  CDFAMT4.                   
                                                                                
                                                                                
           SET     CDF1                TO   +1.                                 
       310-LOOP3.                                                               
           IF      CDFB         (CDF1) =    '_'                                 
             MOVE  ' '                 TO   CDFB         (CDF1).                
           IF      CDF1                <    +94                                 
             SET   CDF1                UP   BY  +1                              
             GO                        TO   310-LOOP3.                          
                                                                                
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M27300I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M27400I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M27600I.                            
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   M27700I.                            
                                                                                
           IF      CDFAMT1             <    ZEROS                               
             MOVE  WABUMB              TO   M27300A.                            
           IF      CDFAMT2             <    ZEROS                               
             MOVE  WABUMB              TO   M27400A.                            
           IF      CDFAMT3             <    ZEROS                               
             MOVE  WABUMB              TO   M27600A.                            
           IF      CDFAMT4             <    ZEROS                               
             MOVE  WABUMB              TO   M27700A.                            
                                                                                
           IF      RETERR              NOT  =   ZEROS                           
             MOVE  RETERR              TO   RETERR2                             
             GO                        TO   310-CONT3.                          
                                                                                
           IF      CDF                 =    ODF                                 
             GO                        TO   310-CONT3.                          
           IF      RETERR2             NOT  =  -1                               
             MOVE  ZEROS               TO   RETERR2.                            
           IF      RETCDF              =    '00'                                
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)                    
                                            INTO    (ODF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             EXEC  CICS REWRITE             DATASET (CDFFIL)                    
                                            FROM    (CDF)                       
                                            LENGTH  (CDFLENR)  END-EXEC         
           ELSE                                                                 
             EXEC  CICS WRITE               DATASET (CDFFIL)                    
                                            FROM    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC.        
       310-CONT3.                                                               
           MOVE    ZEROS               TO   RETERR                              
           MOVE    '2002'              TO   CDFCONTROL    CDFCONTROL2           
           MOVE    SPACES              TO   CDFDATA                             
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (310-NEW4) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           IF      EIBAID              =    DFHPF10                             
             EXEC  CICS READ   UPDATE       DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC         
             MOVE  ZEROS               TO   RETERR2                             
             GO                        TO   310-CONT4.                          
           MOVE    '00'                TO   RETCDF.                             
       310-NEW4.                                                                
           IF     (EIBAID              =    DFHPF10)                 AND        
                  (RETCDF              NOT  =   '00')                           
             IF    RETERR2             NOT  =  ZEROS                            
               MOVE  -1                TO   RETERR2                             
               GO                      TO   310-CONT4                           
             ELSE                                                               
               GO                      TO   310-CONT4.                          
                                                                                
           IF      RETCDF              NOT  =  '00'                             
             MOVE  SPACES              TO   CDFDATAC                            
             MOVE  ZEROS               TO   CDFAMT1   CDFAMT2   CDFAMT3         
                                            CDFAMT4   CDFAMT5   CDFAMT6         
                                            CDFTOTAL.                           
           MOVE    CDF                 TO   ODF                                 
           IF      M27800A             =    WABEOF                              
             MOVE  '_________ '        TO   M27800I                             
             MOVE  WABU                TO   M27800A                             
             MOVE  ZEROS               TO   M27800L                             
             MOVE  ZEROS               TO   CDFAMT1                             
           ELSE                                                                 
             IF      M27800L           >    ZEROS                               
               MOVE  ZEROS             TO   M27800L                             
               MOVE  M27800I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M27800A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M27800O  CDFAMT1                    
               ELSE                                                             
                 MOVE  WNU90           TO   M27800O  CDFAMT1                    
             ELSE                                                               
               IF      M27800I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M27800A                             
                 MOVE  M27800I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M27800O  CDFAMT1                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M27800O  CDFAMT1.                   
           IF      M27900A             =    WABEOF                              
             MOVE  '_________ '        TO   M27900I                             
             MOVE  WABU                TO   M27900A                             
             MOVE  ZEROS               TO   M27900L                             
             MOVE  ZEROS               TO   CDFAMT2                             
           ELSE                                                                 
             IF      M27900L           >    ZEROS                               
               MOVE  ZEROS             TO   M27900L                             
               MOVE  M27900I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M27900A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M27900O  CDFAMT2                    
               ELSE                                                             
                 MOVE  WNU90           TO   M27900O  CDFAMT2                    
             ELSE                                                               
               IF      M27900I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M27900A                             
                 MOVE  M27900I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M27900O  CDFAMT2                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M27900O  CDFAMT2.                   
           IF      M28100A             =    WABEOF                              
             MOVE  '_________ '        TO   M28100I                             
             MOVE  WABU                TO   M28100A                             
             MOVE  ZEROS               TO   M28100L                             
             MOVE  ZEROS               TO   CDFAMT3                             
           ELSE                                                                 
             IF      M28100L           >    ZEROS                               
               MOVE  ZEROS             TO   M28100L                             
               MOVE  M28100I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M28100A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M28100O  CDFAMT3                    
               ELSE                                                             
                 MOVE  WNU90           TO   M28100O  CDFAMT3                    
             ELSE                                                               
               IF      M28100I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M28100A                             
                 MOVE  M28100I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M28100O  CDFAMT3                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M28100O  CDFAMT3.                   
041006     IF      M28200A             =    WABEOF                              
041006       MOVE  '_________ '        TO   M28200I                             
041006       MOVE  WABU                TO   M28200A                             
041006       MOVE  ZEROS               TO   M28200L                             
041006       MOVE  ZEROS               TO   CDFAMT4                             
041006     ELSE                                                                 
041006       IF      M28200L           >    ZEROS                               
041006         MOVE  ZEROS             TO   M28200L                             
041006         MOVE  M28200I           TO   WNUIN                               
041006         PERFORM 700-CONVERT     THRU 700-EXIT                            
041006         MOVE  WABU              TO   M28200A                             
041006         IF    WNUSIGN           =    '-'                                 
041006           COMPUTE  WNU90        =    0 - WNU90                           
041006           MOVE  WNU90           TO   M28200O  CDFAMT4                    
041006         ELSE                                                             
041006           MOVE  WNU90           TO   M28200O  CDFAMT4                    
041006       ELSE                                                               
041006         IF      M28200I         >    LOW-VALUES                          
041006           MOVE  WABUN           TO   M28200A                             
041006           MOVE  M28200I         TO   WNUIN                               
041006           PERFORM 700-CONVERT   THRU 700-EXIT                            
041006           IF    WNUSIGN         =    '-'                                 
041006             COMPUTE  WNU90      =    0 - WNU90                           
041006             MOVE  WNU90         TO   M28200O  CDFAMT4                    
041006           ELSE                                                           
041006             MOVE  WNU90         TO   M28200O  CDFAMT4.                   
                                                                                
           SET     CDF1                TO   +1.                                 
       310-LOOP4.                                                               
           IF      CDFB         (CDF1) =    '_'                                 
             MOVE  ' '                 TO   CDFB         (CDF1).                
           IF      CDF1                <    +94                                 
             SET   CDF1                UP   BY  +1                              
             GO                        TO   310-LOOP4.                          
                                                                                
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M27800I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M27900I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M28100I.                            
041006     IF      CDFAMT4             =    ZEROS                               
041006       MOVE  '_________ '        TO   M28200I.                            
                                                                                
           IF      CDFAMT1             <    ZEROS                               
             MOVE  WABUMB              TO   M27800A.                            
           IF      CDFAMT2             <    ZEROS                               
             MOVE  WABUMB              TO   M27900A.                            
           IF      CDFAMT3             <    ZEROS                               
             MOVE  WABUMB              TO   M28100A.                            
041006     IF      CDFAMT4             <    ZEROS                               
041006       MOVE  WABUMB              TO   M28200A.                            
                                                                                
           IF      RETERR              NOT  =   ZEROS                           
             MOVE  RETERR              TO   RETERR2                             
             GO                        TO   310-CONT4.                          
                                                                                
           IF      CDF                 =    ODF                                 
             GO                        TO   310-CONT4.                          
           IF      RETERR2             NOT  =  -1                               
             MOVE  ZEROS               TO   RETERR2.                            
           IF      RETCDF              =    '00'                                
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)                    
                                            INTO    (ODF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             EXEC  CICS REWRITE             DATASET (CDFFIL)                    
                                            FROM    (CDF)                       
                                            LENGTH  (CDFLENR)  END-EXEC         
           ELSE                                                                 
             EXEC  CICS WRITE               DATASET (CDFFIL)                    
                                            FROM    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC.        
       310-CONT4.                                                               
041006     MOVE    ZEROS               TO   RETERR                              
041006     MOVE    '2003'              TO   CDFCONTROL    CDFCONTROL2           
041006     MOVE    SPACES              TO   CDFDATA                             
041006     MOVE    '99'                TO   RETCDF                              
041006     EXEC    CICS HANDLE CONDITION    NOTFND  (310-NEW4B) END-EXEC        
041006     EXEC    CICS READ                DATASET (CDFFIL)                    
041006                                      INTO    (CDF)                       
041006                                      RIDFLD  (CDFKEY)                    
041006                                      LENGTH  (CDFLENR)  END-EXEC         
041006     IF      EIBAID              =    DFHPF10                             
041006       EXEC  CICS READ   UPDATE       DATASET (CDFFIL)                    
041006                                      INTO    (CDF)                       
041006                                      RIDFLD  (CDFKEY)                    
041006                                      LENGTH  (CDFLENR)  END-EXEC         
041006       EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC         
041006       MOVE  ZEROS               TO   RETERR2                             
041006       GO                        TO   310-CONT4B.                         
041006     MOVE    '00'                TO   RETCDF.                             
041006 310-NEW4B.                                                               
041006     IF     (EIBAID              =    DFHPF10)                 AND        
041006            (RETCDF              NOT  =   '00')                           
041006       IF    RETERR2             NOT  =  ZEROS                            
041006         MOVE  -1                TO   RETERR2                             
041006         GO                      TO   310-CONT4B                          
041006       ELSE                                                               
041006         GO                      TO   310-CONT4B.                         
041006                                                                          
041006     IF      RETCDF              NOT  =  '00'                             
041006       MOVE  SPACES              TO   CDFDATAC                            
041006       MOVE  ZEROS               TO   CDFAMT1   CDFAMT2   CDFAMT3         
041006                                      CDFAMT4   CDFAMT5   CDFAMT6         
041006                                      CDFTOTAL.                           
041006     MOVE    CDF                 TO   ODF                                 
041006     IF      M26500A             =    WABEOF                              
041006       MOVE  '_________ '        TO   M26500I                             
041006       MOVE  WABU                TO   M26500A                             
041006       MOVE  ZEROS               TO   M26500L                             
041006       MOVE  ZEROS               TO   CDFAMT1                             
041006     ELSE                                                                 
041006       IF      M26500L           >    ZEROS                               
041006         MOVE  ZEROS             TO   M26500L                             
041006         MOVE  M26500I           TO   WNUIN                               
041006         PERFORM 700-CONVERT     THRU 700-EXIT                            
041006         MOVE  WABU              TO   M26500A                             
041006         IF    WNUSIGN           =    '-'                                 
041006           COMPUTE  WNU90        =    0 - WNU90                           
041006           MOVE  WNU90           TO   M26500O  CDFAMT1                    
041006         ELSE                                                             
041006           MOVE  WNU90           TO   M26500O  CDFAMT1                    
041006       ELSE                                                               
041006         IF      M26500I         >    LOW-VALUES                          
041006           MOVE  WABUN           TO   M26500A                             
041006           MOVE  M26500I         TO   WNUIN                               
041006           PERFORM 700-CONVERT   THRU 700-EXIT                            
041006           IF    WNUSIGN         =    '-'                                 
041006             COMPUTE  WNU90      =    0 - WNU90                           
041006             MOVE  WNU90         TO   M26500O  CDFAMT1                    
041006           ELSE                                                           
041006             MOVE  WNU90         TO   M26500O  CDFAMT1.                   
041006                                                                          
041006     SET     CDF1                TO   +1.                                 
041006 310-LOOP4B.                                                              
041006     IF      CDFB         (CDF1) =    '_'                                 
041006       MOVE  ' '                 TO   CDFB         (CDF1).                
041006     IF      CDF1                <    +94                                 
041006       SET   CDF1                UP   BY  +1                              
041006       GO                        TO   310-LOOP4B.                         
041006                                                                          
041006     IF      CDFAMT1             =    ZEROS                               
041006       MOVE  '_________ '        TO   M26500I.                            
041006                                                                          
041006     IF      CDFAMT1             <    ZEROS                               
041006       MOVE  WABUMB              TO   M26500A.                            
041006                                                                          
041006     IF      RETERR              NOT  =   ZEROS                           
041006       MOVE  RETERR              TO   RETERR2                             
041006       GO                        TO   310-CONT4B.                         
041006                                                                          
041006     IF      CDF                 =    ODF                                 
041006       GO                        TO   310-CONT4B.                         
041006     IF      RETERR2             NOT  =  -1                               
041006       MOVE  ZEROS               TO   RETERR2.                            
041006     IF      RETCDF              =    '00'                                
041006       EXEC  CICS READ UPDATE         DATASET (CDFFIL)                    
041006                                      INTO    (ODF)                       
041006                                      RIDFLD  (CDFKEY)                    
041006                                      LENGTH  (CDFLENR)  END-EXEC         
041006       EXEC  CICS REWRITE             DATASET (CDFFIL)                    
041006                                      FROM    (CDF)                       
041006                                      LENGTH  (CDFLENR)  END-EXEC         
041006     ELSE                                                                 
041006       EXEC  CICS WRITE               DATASET (CDFFIL)                    
041006                                      FROM    (CDF)                       
041006                                      RIDFLD  (CDFKEY)                    
041006                                      LENGTH  (CDFLENR)  END-EXEC.        
041006 310-CONT4B.                                                              
           MOVE    ZEROS               TO   RETERR                              
           MOVE    '3000'              TO   CDFCONTROL    CDFCONTROL2           
           MOVE    SPACES              TO   CDFDATA                             
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (310-NEW5) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           IF      EIBAID              =    DFHPF10                             
             EXEC  CICS READ   UPDATE       DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC         
             MOVE  ZEROS               TO   RETERR2                             
             GO                        TO   310-CONT5.                          
           MOVE    '00'                TO   RETCDF.                             
       310-NEW5.                                                                
           IF     (EIBAID              =    DFHPF10)                 AND        
                  (RETCDF              NOT  =   '00')                           
             IF    RETERR2             NOT  =  ZEROS                            
               MOVE  -1                TO   RETERR2                             
               GO                      TO   310-CONT5                           
             ELSE                                                               
               GO                      TO   310-CONT5.                          
                                                                                
           IF      RETCDF              NOT  =  '00'                             
             MOVE  SPACES              TO   CDFDATAC                            
             MOVE  ZEROS               TO   CDFAMT1   CDFAMT2   CDFAMT3         
                                            CDFAMT4   CDFAMT5   CDFAMT6         
                                            CDFTOTAL.                           
           MOVE    CDF                 TO   ODF                                 
           IF      M36100A             =    WABEOF                              
             MOVE  '_________ '        TO   M36100I                             
             MOVE  WABU                TO   M36100A                             
             MOVE  ZEROS               TO   M36100L                             
             MOVE  ZEROS               TO   CDFAMT1                             
           ELSE                                                                 
             IF      M36100L           >    ZEROS                               
               MOVE  ZEROS             TO   M36100L                             
               MOVE  M36100I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M36100A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M36100O  CDFAMT1                    
               ELSE                                                             
                 MOVE  WNU90           TO   M36100O  CDFAMT1                    
             ELSE                                                               
               IF      M36100I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M36100A                             
                 MOVE  M36100I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M36100O  CDFAMT1                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M36100O  CDFAMT1.                   
           IF      M36200A             =    WABEOF                              
             MOVE  '_________ '        TO   M36200I                             
             MOVE  WABU                TO   M36200A                             
             MOVE  ZEROS               TO   M36200L                             
             MOVE  ZEROS               TO   CDFAMT2                             
           ELSE                                                                 
             IF      M36200L           >    ZEROS                               
               MOVE  ZEROS             TO   M36200L                             
               MOVE  M36200I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M36200A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M36200O  CDFAMT2                    
               ELSE                                                             
                 MOVE  WNU90           TO   M36200O  CDFAMT2                    
             ELSE                                                               
               IF      M36200I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M36200A                             
                 MOVE  M36200I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M36200O  CDFAMT2                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M36200O  CDFAMT2.                   
           IF      M36300A             =    WABEOF                              
             MOVE  '_________ '        TO   M36300I                             
             MOVE  WABU                TO   M36300A                             
             MOVE  ZEROS               TO   M36300L                             
             MOVE  ZEROS               TO   CDFAMT3                             
           ELSE                                                                 
             IF      M36300L           >    ZEROS                               
               MOVE  ZEROS             TO   M36300L                             
               MOVE  M36300I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M36300A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M36300O  CDFAMT3                    
               ELSE                                                             
                 MOVE  WNU90           TO   M36300O  CDFAMT3                    
             ELSE                                                               
               IF      M36300I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M36300A                             
                 MOVE  M36300I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M36300O  CDFAMT3                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M36300O  CDFAMT3.                   
           IF      M36400A             =    WABEOF                              
             MOVE  '_________ '        TO   M36400I                             
             MOVE  WABU                TO   M36400A                             
             MOVE  ZEROS               TO   M36400L                             
             MOVE  ZEROS               TO   CDFAMT4                             
           ELSE                                                                 
             IF      M36400L           >    ZEROS                               
               MOVE  ZEROS             TO   M36400L                             
               MOVE  M36400I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M36400A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M36400O  CDFAMT4                    
               ELSE                                                             
                 MOVE  WNU90           TO   M36400O  CDFAMT4                    
             ELSE                                                               
               IF      M36400I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M36400A                             
                 MOVE  M36400I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M36400O  CDFAMT4                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M36400O  CDFAMT4.                   
                                                                                
                                                                                
           SET     CDF1                TO   +1.                                 
       310-LOOP5.                                                               
           IF      CDFB         (CDF1) =    '_'                                 
             MOVE  ' '                 TO   CDFB         (CDF1).                
           IF      CDF1                <    +94                                 
             SET   CDF1                UP   BY  +1                              
             GO                        TO   310-LOOP5.                          
                                                                                
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M36100I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M36200I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M36300I.                            
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   M36400I.                            
                                                                                
           IF      CDFAMT1             <    ZEROS                               
             MOVE  WABUMB              TO   M36100A.                            
           IF      CDFAMT2             <    ZEROS                               
             MOVE  WABUMB              TO   M36200A.                            
           IF      CDFAMT3             <    ZEROS                               
             MOVE  WABUMB              TO   M36300A.                            
           IF      CDFAMT4             <    ZEROS                               
             MOVE  WABUMB              TO   M36400A.                            
                                                                                
           IF      RETERR              NOT  =   ZEROS                           
             MOVE  RETERR              TO   RETERR2                             
             GO                        TO   310-CONT5.                          
                                                                                
           IF      CDF                 =    ODF                                 
             GO                        TO   310-CONT5.                          
           IF      RETERR2             NOT  =  -1                               
             MOVE  ZEROS               TO   RETERR2.                            
           IF      RETCDF              =    '00'                                
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)                    
                                            INTO    (ODF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             EXEC  CICS REWRITE             DATASET (CDFFIL)                    
                                            FROM    (CDF)                       
                                            LENGTH  (CDFLENR)  END-EXEC         
           ELSE                                                                 
             EXEC  CICS WRITE               DATASET (CDFFIL)                    
                                            FROM    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC.        
       310-CONT5.                                                               
           MOVE    ZEROS               TO   RETERR                              
           MOVE    '3001'              TO   CDFCONTROL    CDFCONTROL2           
           MOVE    SPACES              TO   CDFDATA                             
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (310-NEW6) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           IF      EIBAID              =    DFHPF10                             
             EXEC  CICS READ   UPDATE       DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC         
             MOVE  ZEROS               TO   RETERR2                             
             GO                        TO   310-CONT6.                          
           MOVE    '00'                TO   RETCDF.                             
       310-NEW6.                                                                
           IF     (EIBAID              =    DFHPF10)                 AND        
                  (RETCDF              NOT  =   '00')                           
             IF    RETERR2             NOT  =  ZEROS                            
               MOVE  -1                TO   RETERR2                             
               GO                      TO   310-CONT6                           
             ELSE                                                               
               GO                      TO   310-CONT6.                          
                                                                                
           IF      RETCDF              NOT  =  '00'                             
             MOVE  SPACES              TO   CDFDATAC                            
             MOVE  ZEROS               TO   CDFAMT1   CDFAMT2   CDFAMT3         
                                            CDFAMT4   CDFAMT5   CDFAMT6         
                                            CDFTOTAL.                           
           MOVE    CDF                 TO   ODF                                 
           IF      M37100A             =    WABEOF                              
             MOVE  '_________ '        TO   M37100I                             
             MOVE  WABU                TO   M37100A                             
             MOVE  ZEROS               TO   M37100L                             
             MOVE  ZEROS               TO   CDFAMT1                             
           ELSE                                                                 
             IF      M37100L           >    ZEROS                               
               MOVE  ZEROS             TO   M37100L                             
               MOVE  M37100I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M37100A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M37100O  CDFAMT1                    
               ELSE                                                             
                 MOVE  WNU90           TO   M37100O  CDFAMT1                    
             ELSE                                                               
               IF      M37100I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M37100A                             
                 MOVE  M37100I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M37100O  CDFAMT1                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M37100O  CDFAMT1.                   
           IF      M37200A             =    WABEOF                              
             MOVE  '_________ '        TO   M37200I                             
             MOVE  WABU                TO   M37200A                             
             MOVE  ZEROS               TO   M37200L                             
             MOVE  ZEROS               TO   CDFAMT2                             
           ELSE                                                                 
             IF      M37200L           >    ZEROS                               
               MOVE  ZEROS             TO   M37200L                             
               MOVE  M37200I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M37200A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M37200O  CDFAMT2                    
               ELSE                                                             
                 MOVE  WNU90           TO   M37200O  CDFAMT2                    
             ELSE                                                               
               IF      M37200I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M37200A                             
                 MOVE  M37200I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M37200O  CDFAMT2                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M37200O  CDFAMT2.                   
           IF      M37400A             =    WABEOF                              
             MOVE  '_________ '        TO   M37400I                             
             MOVE  WABU                TO   M37400A                             
             MOVE  ZEROS               TO   M37400L                             
             MOVE  ZEROS               TO   CDFAMT3                             
           ELSE                                                                 
             IF      M37400L           >    ZEROS                               
               MOVE  ZEROS             TO   M37400L                             
               MOVE  M37400I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M37400A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M37400O  CDFAMT3                    
               ELSE                                                             
                 MOVE  WNU90           TO   M37400O  CDFAMT3                    
             ELSE                                                               
               IF      M37400I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M37400A                             
                 MOVE  M37400I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M37400O  CDFAMT3                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M37400O  CDFAMT3.                   
           IF      M37500A             =    WABEOF                              
             MOVE  '_________ '        TO   M37500I                             
             MOVE  WABU                TO   M37500A                             
             MOVE  ZEROS               TO   M37500L                             
             MOVE  ZEROS               TO   CDFAMT4                             
           ELSE                                                                 
             IF      M37500L           >    ZEROS                               
               MOVE  ZEROS             TO   M37500L                             
               MOVE  M37500I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M37500A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M37500O  CDFAMT4                    
               ELSE                                                             
                 MOVE  WNU90           TO   M37500O  CDFAMT4                    
             ELSE                                                               
               IF      M37500I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M37500A                             
                 MOVE  M37500I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M37500O  CDFAMT4                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M37500O  CDFAMT4.                   
                                                                                
                                                                                
           SET     CDF1                TO   +1.                                 
       310-LOOP6.                                                               
           IF      CDFB         (CDF1) =    '_'                                 
             MOVE  ' '                 TO   CDFB         (CDF1).                
           IF      CDF1                <    +94                                 
             SET   CDF1                UP   BY  +1                              
             GO                        TO   310-LOOP6.                          
                                                                                
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M37100I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M37200I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M37400I.                            
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   M37500I.                            
                                                                                
           IF      CDFAMT1             <    ZEROS                               
             MOVE  WABUMB              TO   M37100A.                            
           IF      CDFAMT2             <    ZEROS                               
             MOVE  WABUMB              TO   M37200A.                            
           IF      CDFAMT3             <    ZEROS                               
             MOVE  WABUMB              TO   M37400A.                            
           IF      CDFAMT4             <    ZEROS                               
             MOVE  WABUMB              TO   M37500A.                            
                                                                                
           IF      RETERR              NOT  =   ZEROS                           
             MOVE  RETERR              TO   RETERR2                             
             GO                        TO   310-CONT6.                          
                                                                                
           IF      CDF                 =    ODF                                 
             GO                        TO   310-CONT6.                          
           IF      RETERR2             NOT  =  -1                               
             MOVE  ZEROS               TO   RETERR2.                            
           IF      RETCDF              =    '00'                                
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)                    
                                            INTO    (ODF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             EXEC  CICS REWRITE             DATASET (CDFFIL)                    
                                            FROM    (CDF)                       
                                            LENGTH  (CDFLENR)  END-EXEC         
           ELSE                                                                 
             EXEC  CICS WRITE               DATASET (CDFFIL)                    
                                            FROM    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC.        
       310-CONT6.                                                               
           MOVE    ZEROS               TO   RETERR                              
           MOVE    '3002'              TO   CDFCONTROL    CDFCONTROL2           
           MOVE    SPACES              TO   CDFDATA                             
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (310-NEW7) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           IF      EIBAID              =    DFHPF10                             
             EXEC  CICS READ   UPDATE       DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC         
             MOVE  ZEROS               TO   RETERR2                             
             GO                        TO   310-CONT7.                          
           MOVE    '00'                TO   RETCDF.                             
       310-NEW7.                                                                
           IF     (EIBAID              =    DFHPF10)                 AND        
                  (RETCDF              NOT  =   '00')                           
             IF    RETERR2             NOT  =  ZEROS                            
               MOVE  -1                TO   RETERR2                             
               GO                      TO   310-CONT7                           
             ELSE                                                               
               GO                      TO   310-CONT7.                          
                                                                                
           IF      RETCDF              NOT  =  '00'                             
             MOVE  SPACES              TO   CDFDATAC                            
             MOVE  ZEROS               TO   CDFAMT1   CDFAMT2   CDFAMT3         
                                            CDFAMT4   CDFAMT5   CDFAMT6         
                                            CDFTOTAL.                           
           MOVE    CDF                 TO   ODF                                 
           IF      M37600A             =    WABEOF                              
             MOVE  '_________ '        TO   M37600I                             
             MOVE  WABU                TO   M37600A                             
             MOVE  ZEROS               TO   M37600L                             
             MOVE  ZEROS               TO   CDFAMT1                             
           ELSE                                                                 
             IF      M37600L           >    ZEROS                               
               MOVE  ZEROS             TO   M37600L                             
               MOVE  M37600I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M37600A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M37600O  CDFAMT1                    
               ELSE                                                             
                 MOVE  WNU90           TO   M37600O  CDFAMT1                    
             ELSE                                                               
               IF      M37600I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M37600A                             
                 MOVE  M37600I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M37600O  CDFAMT1                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M37600O  CDFAMT1.                   
           IF      M37700A             =    WABEOF                              
             MOVE  '_________ '        TO   M37700I                             
             MOVE  WABU                TO   M37700A                             
             MOVE  ZEROS               TO   M37700L                             
             MOVE  ZEROS               TO   CDFAMT2                             
           ELSE                                                                 
             IF      M37700L           >    ZEROS                               
               MOVE  ZEROS             TO   M37700L                             
               MOVE  M37700I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M37700A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M37700O  CDFAMT2                    
               ELSE                                                             
                 MOVE  WNU90           TO   M37700O  CDFAMT2                    
             ELSE                                                               
               IF      M37700I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M37700A                             
                 MOVE  M37700I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M37700O  CDFAMT2                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M37700O  CDFAMT2.                   
           IF      M37800A             =    WABEOF                              
             MOVE  '_________ '        TO   M37800I                             
             MOVE  WABU                TO   M37800A                             
             MOVE  ZEROS               TO   M37800L                             
             MOVE  ZEROS               TO   CDFAMT3                             
           ELSE                                                                 
             IF      M37800L           >    ZEROS                               
               MOVE  ZEROS             TO   M37800L                             
               MOVE  M37800I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M37800A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M37800O  CDFAMT3                    
               ELSE                                                             
                 MOVE  WNU90           TO   M37800O  CDFAMT3                    
             ELSE                                                               
               IF      M37800I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M37800A                             
                 MOVE  M37800I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M37800O  CDFAMT3                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M37800O  CDFAMT3.                   
           IF      M37900A             =    WABEOF                              
             MOVE  '_________ '        TO   M37900I                             
             MOVE  WABU                TO   M37900A                             
             MOVE  ZEROS               TO   M37900L                             
             MOVE  ZEROS               TO   CDFAMT4                             
           ELSE                                                                 
             IF      M37900L           >    ZEROS                               
               MOVE  ZEROS             TO   M37900L                             
               MOVE  M37900I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M37900A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M37900O  CDFAMT4                    
               ELSE                                                             
                 MOVE  WNU90           TO   M37900O  CDFAMT4                    
             ELSE                                                               
               IF      M37900I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M37900A                             
                 MOVE  M37900I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M37900O  CDFAMT4                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M37900O  CDFAMT4.                   
                                                                                
                                                                                
           SET     CDF1                TO   +1.                                 
       310-LOOP7.                                                               
           IF      CDFB         (CDF1) =    '_'                                 
             MOVE  ' '                 TO   CDFB         (CDF1).                
           IF      CDF1                <    +94                                 
             SET   CDF1                UP   BY  +1                              
             GO                        TO   310-LOOP7.                          
                                                                                
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M37600I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M37700I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M37800I.                            
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   M37900I.                            
                                                                                
           IF      CDFAMT1             <    ZEROS                               
             MOVE  WABUMB              TO   M37600A.                            
           IF      CDFAMT2             <    ZEROS                               
             MOVE  WABUMB              TO   M37700A.                            
           IF      CDFAMT3             <    ZEROS                               
             MOVE  WABUMB              TO   M37800A.                            
           IF      CDFAMT4             <    ZEROS                               
             MOVE  WABUMB              TO   M37900A.                            
                                                                                
           IF      RETERR              NOT  =   ZEROS                           
             MOVE  RETERR              TO   RETERR2                             
             GO                        TO   310-CONT6.                          
                                                                                
           IF      CDF                 =    ODF                                 
             GO                        TO   310-CONT7.                          
           IF      RETERR2             NOT  =  -1                               
             MOVE  ZEROS               TO   RETERR2.                            
           IF      RETCDF              =    '00'                                
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)                    
                                            INTO    (ODF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             EXEC  CICS REWRITE             DATASET (CDFFIL)                    
                                            FROM    (CDF)                       
                                            LENGTH  (CDFLENR)  END-EXEC         
           ELSE                                                                 
             EXEC  CICS WRITE               DATASET (CDFFIL)                    
                                            FROM    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC.        
       310-CONT7.                                                               
           MOVE    ZEROS               TO   RETERR                              
           MOVE    '3003'              TO   CDFCONTROL    CDFCONTROL2           
           MOVE    SPACES              TO   CDFDATA                             
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (310-NEW8) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           IF      EIBAID              =    DFHPF10                             
             EXEC  CICS READ   UPDATE       DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC         
             MOVE  ZEROS               TO   RETERR2                             
             GO                        TO   310-CONT8.                          
           MOVE    '00'                TO   RETCDF.                             
       310-NEW8.                                                                
           IF     (EIBAID              =    DFHPF10)                 AND        
                  (RETCDF              NOT  =   '00')                           
             IF    RETERR2             NOT  =  ZEROS                            
               MOVE  -1                TO   RETERR2                             
               GO                      TO   310-CONT8                           
             ELSE                                                               
               GO                      TO   310-CONT8.                          
                                                                                
           IF      RETCDF              NOT  =  '00'                             
             MOVE  SPACES              TO   CDFDATAC                            
             MOVE  ZEROS               TO   CDFAMT1   CDFAMT2   CDFAMT3         
                                            CDFAMT4   CDFAMT5   CDFAMT6         
                                            CDFTOTAL.                           
           MOVE    CDF                 TO   ODF                                 
           IF      M38100A             =    WABEOF                              
             MOVE  '_________ '        TO   M38100I                             
             MOVE  WABU                TO   M38100A                             
             MOVE  ZEROS               TO   M38100L                             
             MOVE  ZEROS               TO   CDFAMT1                             
           ELSE                                                                 
             IF      M38100L           >    ZEROS                               
               MOVE  ZEROS             TO   M38100L                             
               MOVE  M38100I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M38100A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M38100O  CDFAMT1                    
               ELSE                                                             
                 MOVE  WNU90           TO   M38100O  CDFAMT1                    
             ELSE                                                               
               IF      M38100I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M38100A                             
                 MOVE  M38100I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M38100O  CDFAMT1                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M38100O  CDFAMT1.                   
041006     IF      M38200A             =    WABEOF                              
041006       MOVE  '_________ '        TO   M38200I                             
041006       MOVE  WABU                TO   M38200A                             
041006       MOVE  ZEROS               TO   M38200L                             
041006       MOVE  ZEROS               TO   CDFAMT2                             
041006     ELSE                                                                 
041006       IF      M38200L           >    ZEROS                               
041006         MOVE  ZEROS             TO   M38200L                             
041006         MOVE  M38200I           TO   WNUIN                               
041006         PERFORM 700-CONVERT     THRU 700-EXIT                            
041006         MOVE  WABU              TO   M38200A                             
041006         IF    WNUSIGN           =    '-'                                 
041006           COMPUTE  WNU90        =    0 - WNU90                           
041006           MOVE  WNU90           TO   M38200O  CDFAMT2                    
041006         ELSE                                                             
041006           MOVE  WNU90           TO   M38200O  CDFAMT2                    
041006       ELSE                                                               
041006         IF      M38200I         >    LOW-VALUES                          
041006           MOVE  WABUN           TO   M38200A                             
041006           MOVE  M38200I         TO   WNUIN                               
041006           PERFORM 700-CONVERT   THRU 700-EXIT                            
041006           IF    WNUSIGN         =    '-'                                 
041006             COMPUTE  WNU90      =    0 - WNU90                           
041006             MOVE  WNU90         TO   M38200O  CDFAMT2                    
041006           ELSE                                                           
041006             MOVE  WNU90         TO   M38200O  CDFAMT2.                   
041006     IF      M36500A             =    WABEOF                              
041006       MOVE  '_________ '        TO   M36500I                             
041006       MOVE  WABU                TO   M36500A                             
041006       MOVE  ZEROS               TO   M36500L                             
041006       MOVE  ZEROS               TO   CDFAMT3                             
041006     ELSE                                                                 
041006       IF      M36500L           >    ZEROS                               
041006         MOVE  ZEROS             TO   M36500L                             
041006         MOVE  M36500I           TO   WNUIN                               
041006         PERFORM 700-CONVERT     THRU 700-EXIT                            
041006         MOVE  WABU              TO   M36500A                             
041006         IF    WNUSIGN           =    '-'                                 
041006           COMPUTE  WNU90        =    0 - WNU90                           
041006           MOVE  WNU90           TO   M36500O  CDFAMT3                    
041006         ELSE                                                             
041006           MOVE  WNU90           TO   M36500O  CDFAMT3                    
041006       ELSE                                                               
041006         IF      M36500I         >    LOW-VALUES                          
041006           MOVE  WABUN           TO   M36500A                             
041006           MOVE  M36500I         TO   WNUIN                               
041006           PERFORM 700-CONVERT   THRU 700-EXIT                            
041006           IF    WNUSIGN         =    '-'                                 
041006             COMPUTE  WNU90      =    0 - WNU90                           
041006             MOVE  WNU90         TO   M36500O  CDFAMT3                    
041006           ELSE                                                           
041006             MOVE  WNU90         TO   M36500O  CDFAMT3.                   
                                                                                
           SET     CDF1                TO   +1.                                 
       310-LOOP8.                                                               
           IF      CDFB         (CDF1) =    '_'                                 
             MOVE  ' '                 TO   CDFB         (CDF1).                
           IF      CDF1                <    +94                                 
             SET   CDF1                UP   BY  +1                              
             GO                        TO   310-LOOP8.                          
                                                                                
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M38100I.                            
041006     IF      CDFAMT2             =    ZEROS                               
041006       MOVE  '_________ '        TO   M38200I.                            
041006     IF      CDFAMT3             =    ZEROS                               
041006       MOVE  '_________ '        TO   M36500I.                            
                                                                                
           IF      CDFAMT1             <    ZEROS                               
             MOVE  WABUMB              TO   M38100A.                            
041006     IF      CDFAMT2             <    ZEROS                               
041006       MOVE  WABUMB              TO   M38200A.                            
041006     IF      CDFAMT3             <    ZEROS                               
041006       MOVE  WABUMB              TO   M36500A.                            
                                                                                
           IF      RETERR              NOT  =   ZEROS                           
             MOVE  RETERR              TO   RETERR2                             
             GO                        TO   310-CONT8.                          
                                                                                
           IF      CDF                 =    ODF                                 
             GO                        TO   310-CONT8.                          
           IF      RETERR2             NOT  =  -1                               
             MOVE  ZEROS               TO   RETERR2.                            
           IF      RETCDF              =    '00'                                
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)                    
                                            INTO    (ODF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             EXEC  CICS REWRITE             DATASET (CDFFIL)                    
                                            FROM    (CDF)                       
                                            LENGTH  (CDFLENR)  END-EXEC         
           ELSE                                                                 
             EXEC  CICS WRITE               DATASET (CDFFIL)                    
                                            FROM    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC.        
       310-CONT8.                                                               
           IF      RETERR2             <    ZEROS                               
             IF    EIBAID              =    DFHPF10                             
               MOVE  MSG29             TO   MMSGO                               
             ELSE                                                               
               MOVE  MSG03             TO   MMSGO                               
           ELSE                                                                 
             MOVE  -1                  TO   MTBLEL                              
             IF    RETERR2             =    +1                                  
               MOVE  MSG15             TO   MMSGO                               
             ELSE                                                               
               IF    EIBAID            =    DFHPF10                             
                 MOVE  MSG20           TO   MMSGO                               
               ELSE                                                             
                 MOVE  MSG17           TO   MMSGO.                              
           GO                          TO   015-SEND.                           
                                                                                
      ******************************************************************        
           COPY                             EWNUMBP.                            
      ******************************************************************        
       800-XCTL.                                                                
           IF     (EIBAID              =    DFHCLEAR)                OR         
                  (EIBAID              =    DFHPA1)                  OR         
                  (EIBAID              =    DFHPA2)                             
             MOVE  QWRMAP              TO   MPEW43O                             
             MOVE  -1                  TO   MPANELL                             
             MOVE  +10                 TO   EIBCALEN                            
             GO                        TO   015-SEND.                           
           MOVE    QWRWCM              TO   WCM                                 
           PERFORM 010-RECEIVE         THRU 010-EXIT                            
                                                                                
           IF      EIBAID              =    DFHPF1                              
             MOVE  WCMXFFR             TO   WCMXFHLD                            
             MOVE  EIBCPOSN            TO   WCMXFCRS9     WCMXFPOS9             
             MOVE  'CZ02'              TO   WCMXFTO                             
             GO                        TO   805-XCTL.                           
           IF      EIBAID              =    DFHPF4                              
             MOVE  WCMXFFR             TO   WCMXFHLD                            
             MOVE  'B03'               TO   WCMXFPROM                           
             MOVE  EIBCPOSN            TO   WCMXFCRS9     WCMXFPOS9             
             MOVE  'CZ03'              TO   WCMXFTO                             
             GO                        TO   805-XCTL.                           
           IF     (EIBAID              =    DFHPF7)                  OR         
                  (EIBAID              =    DFHPF8)                             
             GO                        TO   820-PAGE.                           
           IF      EIBAID              =    DFHPF10                             
             GO                        TO   300-UPDATE.                         
           IF      EIBAID              =    DFHPF12                             
             MOVE  SPACES              TO   WCMXFHLD                            
             MOVE  'C   '              TO   WCMXFTO                             
           ELSE                                                                 
             IF      EIBAID            =    DFHPF3                              
               MOVE  SPACES            TO   WCMXFHLD                            
               IF      WCMXFFR         =    'CB02'                              
                 MOVE  'CB02'          TO   WCMXFTO                             
               ELSE                                                             
                 MOVE  'CB  '          TO   WCMXFTO                             
             ELSE                                                               
               MOVE  QWRMAP            TO   MPEW43O                             
               MOVE  +10               TO   EIBCALEN                            
               MOVE  -1                TO   MTBLEL                              
               GO                      TO   015-SEND.                           
       805-XCTL.                                                                
           MOVE    'C'                 TO   WCMXFTS                             
           MOVE    WCM                 TO   QWRWCM                              
           EXEC    CICS HANDLE CONDITION    DUPREC  (810-END)  END-EXEC         
           IF      RETQWR              NOT  =   '00'                            
             EXEC  CICS WRITE               DATASET (QWRFIL)                    
                                            FROM    (QWR)                       
                                            RIDFLD  (QWRKEY)                    
                                            LENGTH  (QWRLENR)  END-EXEC         
           ELSE                                                                 
             EXEC  CICS READ UPDATE         DATASET (QWRFIL)                    
                                            INTO    (QWRI)                      
                                            RIDFLD  (QWRKEY)                    
                                            LENGTH  (QWRLENR)  END-EXEC         
             EXEC  CICS REWRITE             DATASET (QWRFIL)                    
                                            FROM    (QWR)                       
                                            LENGTH  (QWRLENR)  END-EXEC.        
       810-END.                                                                 
           MOVE    'CB03'              TO   WCMXFFR                             
           EXEC    CICS XCTL                PROGRAM ('EW02')                    
                                            COMMAREA(WCM)                       
                                            LENGTH  (220)      END-EXEC.        
                                                                                
      ******************************************************************        
       820-PAGE.                                                                
           MOVE    SPACES              TO   CDF                                 
           MOVE    WCMSODIST           TO   CDFDIST                             
           MOVE    WCMSOFY             TO   CDFFY                               
           MOVE    NEWFUND             TO   CDFFUND                             
           MOVE    NEWTABLE            TO   CDFTABLE.                           
       825-RETRY.                                                               
           EXEC    CICS HANDLE CONDITION    NOTFND  (840-NONE)                  
                                            INVREQ  (840-NONE)                  
                                            ENDFILE (840-NONE) END-EXEC         
           IF      EIBAID              =    DFHPF7                              
             MOVE  '0000'              TO   CDFCONTROL   CDFSCHL                
             MOVE  CDFKEY              TO   ODFKEY                              
             EXEC  CICS STARTBR             DATASET (CDFFIL)                    
                                            RIDFLD  (CDFKEY)   GTEQ             
                                            KEYLENGTH(CDFLENK) END-EXEC         
             EXEC  CICS HANDLE CONDITION    NOTFND  (845-NONE) END-EXEC         
             EXEC  CICS READPREV            DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           ELSE                                                                 
             MOVE  '9999'              TO   CDFCONTROL   CDFSCHL                
             MOVE  CDFKEY              TO   ODFKEY                              
             EXEC  CICS STARTBR             DATASET (CDFFIL)                    
                                            RIDFLD  (CDFKEY)   GTEQ             
                                            KEYLENGTH(CDFLENK) END-EXEC         
             EXEC  CICS READNEXT            DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC.        
           EXEC    CICS HANDLE CONDITION    ENDFILE (840-NONE) END-EXEC         
           IF      CDFKEY              =    ODFKEY                              
             IF      EIBAID            =    DFHPF7                              
               EXEC  CICS READPREV          DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
             ELSE                                                               
               EXEC  CICS READNEXT          DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC.        
       830-PF7M.                                                                
           EXEC    CICS ENDBR               DATASET (CDFFIL)   END-EXEC         
           IF     (CDFDIST             NOT  =   WCMSODIST)           OR         
                  (CDFFY               NOT  =   WCMSOFY)                        
             GO                        TO   840-NONE.                           
           MOVE    CDFFUND             TO   NEWFUND                             
           MOVE    CDFTABLE            TO   NEWTABLE                            
           GO                          TO   100-DISPLAY.                        
       840-NONE.                                                                
           MOVE    -1                  TO   MTBLEL                              
           IF      EIBAID              =    DFHPF7                              
             MOVE  MSG13               TO   MMSGO                               
           ELSE                                                                 
             MOVE  MSG14               TO   MMSGO.                              
           GO                          TO   015-SEND.                           
       845-NONE.                                                                
           EXEC    CICS READNEXT            DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           EXEC    CICS READPREV            DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           EXEC    CICS READPREV            DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           GO                          TO   830-PF7M.                           
                                                                                
      ******************************************************************        
       850-CALLED.                                                              
           MOVE    DFHCOMMAREA         TO   WCM                                 
           IF      WCMXFFR             =    'CZ02'                              
             MOVE  WCMXFHLD            TO   WCMXFFR                             
             MOVE  WCMXFCRS9           TO   EIBCPOSN                            
             MOVE  1234                TO   EIBCALEN                            
             MOVE  QWRMAP              TO   MPEW43O                             
             GO                        TO   015-SEND.                           
           IF      WCMXFFR             =    'CZ04'                    OR        
                   WCMXFFR             =    'CZ03'                              
             MOVE  WCMXFHLD            TO   WCMXFFR                             
             MOVE  WCMXFCRS9           TO   EIBCPOSN                            
             MOVE  1234                TO   EIBCALEN                            
             MOVE  QWRMAP              TO   MPEW43O                             
             IF      WCMXFPROM         NOT  =   SPACES                          
               MOVE  WCMXFPROM         TO   MTBLEO                              
               GO                      TO   015-SEND                            
             ELSE                                                               
               GO                      TO   015-SEND.                           
           IF      WCMRETCD            NOT  =   'G'                             
             GO                        TO   900-SECURITY.                       
           IF      WCMXFFR             =    'CB02'                              
             MOVE  WCMXFPROM           TO   NEWKEY                              
           ELSE                                                                 
             MOVE  SPACES              TO   NEWKEY.                             
           GO                          TO   100-DISPLAY.                        
                                                                                
      ******************************************************************        
       900-SECURITY.                                                            
           MOVE    ZEROS               TO   EIBCALEN                            
           MOVE    WCMXFHLD            TO   WCMXFFR                             
           MOVE    WCMXFCRS9           TO   EIBCPOSN                            
           MOVE    +14                 TO   EIBCALEN                            
           MOVE    QWRMAP              TO   MPEW43O                             
           MOVE    WCMXFTPNL           TO   MPANELO                             
           MOVE    WABUMB              TO   MPANELA                             
           IF      WCMRETCD            =    'S'                                 
             MOVE  MSG90               TO   MMSGO                               
           ELSE                                                                 
             IF      WCMRETCD          =    'T'                                 
               MOVE  MSG91             TO   MMSGO                               
             ELSE                                                               
               IF     (WCMRETCD        =    'U')                     OR         
                      (WCMRETCD        =    'N')                                
                 MOVE  MSG92           TO   MMSGO                               
               ELSE                                                             
                 IF      WCMRETCD      =    'D'                                 
                   MOVE  MSG93         TO   MMSGO.                              
           GO                          TO   015-SEND.                           
       901-ERROR.                                                               
           MOVE    -1                  TO   MPANELL                             
           MOVE    MSG94               TO   MMSGO                               
           GO                          TO   015-SEND.                           
       902-NOSPACE.                                                             
           MOVE    MSG95               TO   MMSGO                               
           MOVE    -1                  TO   MPANELL                             
           GO                          TO   015-SEND.                           
       903-INVREQ.                                                              
           MOVE    MSG96               TO   MMSGO                               
           MOVE    -1                  TO   MPANELL                             
           GO                          TO   015-SEND.                           
       904-NOTOPEN.                                                             
           MOVE    MSG97               TO   MMSGO                               
           MOVE    -1                  TO   MPANELL                             
           GO                          TO   015-SEND.                           
       905-DSIDERR.                                                             
           MOVE    MSG97               TO   MMSGO                               
           MOVE    -1                  TO   MPANELL                             
           GO                          TO   015-SEND.                           
           GOBACK.                                                              
