       IDENTIFICATION DIVISION.                                                 
       PROGRAM-ID.    EW44.                                                     
       AUTHOR.        DOE.                                                      
      ******************************************************************        
      *                             FORM 5                             *        
      ******************************************************************        
      * DATE CREATED:  06/27/95                                        *    0011
      ******************************************************************        
      * CALL #  - MMDDYY - PURPOSE                                     *        
      * 9512048 - 121495 - WHEN RECORD IS BEYOND EOF GO TO 140-END     *        
      * 002     - 051596 - CORRECT MAP ALIGNMENT PROBLEM.          MBA *        
      * 2003001 - 041803 - MODIFY EDIT ON PURCHASED SERVICES,          *        
      *                    MATERIALS & SUPPLIES, AND CAPITAL OUTLAY TO *        
      *                    LOOK AT STAFF UNITS RATHER THAN FTE.        *        
      * 2006001 - 041206 - ADD FUNCTIONS 6500 & 8200.                  *        
      ******************************************************************        
                                                                                
       ENVIRONMENT DIVISION.                                                    
       CONFIGURATION SECTION.                                                   
       DATA DIVISION.                                                           
                                                                                
       WORKING-STORAGE SECTION.                                                 
                                                                                
       01            WSC.                                                       
041206*    05        WSCMAPLEN         PIC S9(04) COMP SYNC VALUE +0903.        
041206     05        WSCMAPLEN         PIC S9(04) COMP SYNC VALUE +0931.        
           05        WSCMAXRD          PIC S9(04) COMP SYNC VALUE +300.         
           05        WSCRDCNT          PIC S9(04) COMP SYNC VALUE +0.           
           05        WSCLNCNT          PIC S9(02) COMP.                         
           05        WSCLNINC          PIC S9(02) COMP.                         
           05        WSCLNMAX          PIC S9(02) COMP.                         
           05        WSCFIRST          PIC  X(01)  VALUE  SPACES.               
           05        WSCACT            PIC  X(01)  VALUE  SPACES.               
           05        HGH.                                                       
             10      HGHDIST           PIC  X(02).                              
             10      HGHFY             PIC  X(02).                              
             10      HGHFUND           PIC  X(01).                              
             10      HGHTABLE          PIC  X(05).                              
             10      HGHSCHL           PIC  X(04).                              
             10      HGHCONTROL        PIC  X(04).                              
                                                                                
       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        EDT1000PCT        PIC  X(01).                              
           05        EDTSTAFF          PIC  X(01).                              
           05        EDTSPACE          PIC  X(01).                              
           05        EDTFTE            PIC  X(01).                              
                                                                                
       01            WSK.                                                       
           05        NEWKEY.                                                    
             10      NEWTABLE.                                                  
               15    NEWTABLE9         PIC  9(05).                              
             10      NEWFUND           PIC  X(01).                              
             10      NEWSCHL           PIC  X(04).                              
           05        NEWPANEL.                                                  
             10      NEWPANEL1         PIC  X(01).                              
             10      NEWPANEL2         PIC  X(02).                              
           05        OLDKEY            PIC  X(10).                              
       01            NEWR       REDEFINES   WSK.                                
           05        NEWB       OCCURS 013  TIMES  INDEXED BY NEW1              
                                       PIC  X(01).                              
                                                                                
       01            RET.                                                       
           05        RETQWR            PIC  X(02).                              
           05        RETQWRT1          PIC  X(02).                              
           05        RETSPT            PIC  X(02).                              
           05        RETCDF            PIC  X(02).                              
           05        RETCRF            PIC  X(02).                              
           05        RETALL            PIC  X(02).                              
           05        RETERR            PIC S9(01).                              
           05        RETERR2           PIC S9(01).                              
                                                                                
       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        MSG13             PIC  X(28) VALUE                         
                     'No previous records.  Next ?'.                            
           05        MSG14             PIC  X(30) VALUE                         
                     'No additional records.  Next ?'.                          
           05        MSG15             PIC  X(28) VALUE                         
                     'Record(s) unchanged.  Next ?'.                            
           05        MSG17             PIC  X(26) VALUE                         
                     'Record(s) updated.  Next ?'.                              
           05        MSG18             PIC  X(40) VALUE                         
                     'Please type key element(s).  Then ENTER.'.                
           05        MSG20             PIC  X(17) VALUE                         
                     'Records deleted. '.                                       
           05        MSG21             PIC  X(35) VALUE                         
                     'Not on file. Not update authorized.'.                     
           05        MSG22             PIC  X(38) VALUE                         
                     'Records displayed for inquiry.  Next ?'.                  
           05        MSG23             PIC  X(40) VALUE                         
                     'Not on file.  Type data to add or retry.'.                
           05        MSG25             PIC  X(22) VALUE                         
                     'Page full.  Continue ?'.                                  
           05        MSG26             PIC  X(25) VALUE                         
                     'No records found.  Next ?'.                               
           05        MSG27             PIC  X(29) VALUE                         
                     'Record limit met.  Continue ?'.                           
           05        MSG28             PIC  X(35) VALUE                         
                     'No record on line selected.  Next ?'.                     
           05        MSG29             PIC  X(28) VALUE                         
                     'No record to delete.  Next ?'.                            
           05        MSG33             PIC  X(37) VALUE                         
                     'Panel cleared.  Enter new records.'.                      
           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 error. Request assistance.'.                     
           05        MSG96             PIC  X(42) VALUE                         
                     'Program error(INVREQ). Request assistance.'.              
           05        MSG97             PIC  X(30) VALUE                         
                     'Database closed.  Retry later.'.                          
                                                                                
           COPY                             EWQWRC.                             
           COPY                             EWSPTC.                             
           COPY                             EWCDFC.                             
           COPY                             EWCRFC.                             
                                                                                
           COPY                             EWQWR.                              
           05        QWRMAPR     REDEFINES  QWRMAP.                             
             10      FILLER            PIC  X(0262).                            
             10      QWRLINES          PIC  X(1283).                            
       01            QWREDTTBL   REDEFINES  QWR.                                
           05        FILLER            PIC  X(008).                             
           05        QWRTBL            PIC  X(040).                             
           05        FILLER            PIC  X(2000).                            
                                                                                
           COPY                             EWQWRI.                             
           COPY                             EWNUMBW.                            
           COPY                             EWSPT.                              
           COPY                             EWCDF.                              
           COPY                             EWTBL.                              
           COPY                             EWSCL.                              
                                                                                
       01            ODF.                                                       
           05        ODFALT.                                                    
             10      FILLER                 PIC  X(14).                         
             10      ODFKEY                 PIC  X(18).                         
           05        ODFDATA.                                                   
             10      FILLER                 PIC  X(11).                         
             10      ODFAMT1                PIC S9(09)       COMP-3.            
             10      ODFAMT2                PIC S9(09)       COMP-3.            
             10      ODFAMT3                PIC S9(09)       COMP-3.            
             10      ODFAMT4                PIC S9(09)       COMP-3.            
             10      ODFAMT5                PIC S9(09)       COMP-3.            
             10      ODFAMT6                PIC S9(09)       COMP-3.            
             10      ODFTOTAL               PIC S9(11)       COMP-3.            
             10      FILLER                 PIC  X(15).                         
                                                                                
           COPY                             EWWCM.                              
           COPY                             DFHAID.                             
           COPY                             EWWAB.                              
                                                                                
           COPY                             MPEW44.                             
       01            MPEW44R     REDEFINES  MPEW44I.                            
041206*    05        MAPBYTE        OCCURS  0903  TIMES INDEXED BY MAP1.        
041206     05        MAPBYTE        OCCURS  0931  TIMES INDEXED BY MAP1.        
             10      FILLER            PIC  X(01).                              
       01            MPEW44L     REDEFINES  MPEW44I.                            
051596*    05        FILLER            PIC  X(262).                             
041206*    05        FILLER            PIC  X(280).                             
041206     05        FILLER            PIC  X(308).                             
           05        MPSLINES.                                                  
             10      MPSLINE        OCCURS  007   TIMES INDEXED BY MPS2.        
               15    MPSPGML           PIC S9(04)       COMP.                   
               15    MPSPGMA           PIC  X(01).                              
               15    MPSPGM            PIC  X(03).                              
               15    MPSAMT1L          PIC S9(04)       COMP.                   
               15    MPSAMT1A          PIC  X(01).                              
               15    MPSAMT1.                                                   
                 20  MPSAMT19          PIC  ZZZZZZZZZ-.                         
051596         15    FILLER            PIC  X(01).                              
               15    MPSAMT2L          PIC S9(04)       COMP.                   
               15    MPSAMT2A          PIC  X(01).                              
               15    MPSAMT2.                                                   
                 20  MPSAMT29          PIC  ZZZZZZZZZ-.                         
051596         15    FILLER            PIC  X(01).                              
               15    MPSAMT3L          PIC S9(04)       COMP.                   
               15    MPSAMT3A          PIC  X(01).                              
               15    MPSAMT3.                                                   
                 20  MPSAMT39          PIC  ZZZZZZZZZ-.                         
051596         15    FILLER            PIC  X(01).                              
               15    MPSAMT4L          PIC S9(04)       COMP.                   
               15    MPSAMT4A          PIC  X(01).                              
               15    MPSAMT4.                                                   
                 20  MPSAMT49          PIC  ZZZZZZZZZ-.                         
051596         15    FILLER            PIC  X(01).                              
               15    MPSAMT5L          PIC S9(04)       COMP.                   
               15    MPSAMT5A          PIC  X(01).                              
               15    MPSAMT5.                                                   
                 20  MPSAMT59          PIC  ZZZZZZZZZ-.                         
051596         15    FILLER            PIC  X(01).                              
               15    MPSAMT6L          PIC S9(04)       COMP.                   
               15    MPSAMT6A          PIC  X(01).                              
               15    MPSAMT6.                                                   
                 20  MPSAMT69          PIC  ZZZZZZZZZ-.                         
051596         15    FILLER            PIC  X(01).                              
           05        FILLER            PIC  X(53).                              
                                                                                
       LINKAGE SECTION.                                                         
                                                                                
       01  DFHCOMMAREA                 PIC  X(220).                             
                                                                                
       PROCEDURE DIVISION.                                                      
      ******************************************************************        
                                                                                
       000-CONTROL.                                                             
           MOVE    SPACES              TO   WSK           WCM                   
           MOVE    LOW-VALUES          TO   MPEW44O                             
           MOVE    ZEROS               TO   EDTSAL    EDTBEN   EDTPURSRV        
                                            EDTMTRL   EDTOTHR  EDTCAP           
           MOVE    SPACES              TO   EDT1000PCT   EDTSTAFF               
                                            EDTSPACE     EDTFTE                 
           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    'EW44'              TO   QWRPGM                              
           MOVE    '99'                TO   RETQWR                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (005-NEW2) END-EXEC         
           EXEC    CICS READ                DATASET (QWRFIL)                    
                                            INTO    (QWR)                       
                                            RIDFLD  (QWRKEY)                    
                                            LENGTH  (QWRLENR)  END-EXEC         
           MOVE    '00'                TO   RETQWR.                             
       005-NEW2.                                                                
           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   CRFFILDS      CDFFILDS              
                                            SPTFILDS                            
           MOVE    QWROLD              TO   NEWKEY                              
                                                                                
           IF      EIBCALEN            >    ZEROS                               
             GO                        TO   850-CALLED.                         
           IF      EIBAID              NOT  =   DFHENTER                        
             GO                        TO   800-XCTL.                           
                                                                                
           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    ('MPEW44')  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   MPEW44O                             
                                                                                
           MOVE    SPACES              TO   NEWKEY                              
           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.                            
           IF      MSCHLA              =    WABEOF                              
             MOVE  WABUM               TO   MSCHLA                              
             MOVE  ALL '_'             TO   MSCHLO                              
           ELSE                                                                 
             IF      MSCHLL            >    ZEROS                               
               MOVE  ZEROS             TO   MSCHLL                              
               MOVE  MSCHLI            TO   NEWSCHL                             
               MOVE  WABUM             TO   MSCHLA                              
             ELSE                                                               
               IF      MSCHLI          >    LOW-VALUES                          
                 MOVE  WABUM           TO   MSCHLA                              
                 MOVE  MSCHLI          TO   NEWSCHL.                            
                                                                                
           SET     NEW1                TO   +1.                                 
       010-LOOP2.                                                               
           IF      NEWB         (NEW1) =    '_'                                 
             MOVE  ' '                 TO   NEWB         (NEW1).                
           IF      NEW1                <    +13                                 
             SET   NEW1                UP   BY  +1                              
             GO                        TO   010-LOOP2.                          
       010-EXIT.                                                                
           EXIT.                                                                
                                                                                
      ******************************************************************        
       015-SEND.                                                                
           MOVE    EIBTRMID            TO   QWRTRMID                            
           MOVE    'EW44'              TO   QWRPGM                              
           MOVE    OLDKEY              TO   QWROLD                              
           MOVE    WCM                 TO   QWRWCM                              
           MOVE    MPEW44O             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     ('MPEW44') DATAONLY         
                                            CURSOR             END-EXEC         
           ELSE                                                                 
             IF      EIBCALEN          NOT  =   1234                            
               EXEC  CICS SEND              MAP     ('MPEW44') ERASE            
                                            CURSOR             END-EXEC         
             ELSE                                                               
               EXEC  CICS SEND              MAP     ('MPEW44') ERASE            
                                            CURSOR  (EIBCPOSN) END-EXEC.        
           EXEC CICS RETURN                 TRANSID ('EW44')   END-EXEC.        
                                                                                
      ******************************************************************        
       100-DISPLAY.                                                             
           MOVE    ZEROS               TO   EDTSAL    EDTBEN   EDTPURSRV        
                                            EDTMTRL   EDTOTHR  EDTCAP           
           MOVE    SPACES              TO   EDT1000PCT   EDTSTAFF               
                                            EDTSPACE     EDTFTE                 
           MOVE    SPACES              TO   RETALL                              
           MOVE    HIGH-VALUES         TO   OLDKEY                              
           MOVE    LOW-VALUES          TO   MPEW44O       QWRMAP                
           MOVE    +10                 TO   EIBCALEN                            
           MOVE    +1                  TO   RETERR2                             
           MOVE    ZEROS               TO   RETERR                              
           SET     NEW1                TO   +1.                                 
       100-LOOP1.                                                               
           IF      NEWB         (NEW1) =    ' '                                 
             MOVE  '_'                 TO   NEWB         (NEW1).                
           IF      NEW1                <    +13                                 
             SET   NEW1                UP   BY  +1                              
             GO                        TO   100-LOOP1.                          
           MOVE    NEWPANEL            TO   MPANELO                             
           MOVE    NEWTABLE            TO   MTBLEO                              
           MOVE    NEWFUND             TO   MFUNDO                              
           MOVE    NEWSCHL             TO   MSCHLO                              
           SET     NEW1                TO   +1.                                 
       100-LOOP2.                                                               
           IF      NEWB         (NEW1) =    '_'                                 
             MOVE  ' '                 TO   NEWB         (NEW1).                
           IF      NEW1                <    +13                                 
             SET   NEW1                UP   BY  +1                              
             GO                        TO   100-LOOP2.                          
                                                                                
           IF     (NEWTABLE            =    SPACES)                 OR          
                  (NEWTABLE            =    '00000')                OR          
                  (NEWSCHL             =    SPACES)                             
             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-ERR1) END-EXEC         
           EXEC    CICS READ                DATASET (CRFFIL)                    
                                            INTO    (TBL)                       
                                            RIDFLD  (TBLKEY)                    
                                            LENGTH  (CRFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCRF.                             
       105-ERR1.                                                                
           IF      RETCRF              NOT  =   '00'                            
             MOVE  SPACES              TO   TBLDATA                             
             MOVE  WABUMB              TO   MTBLEA                              
             MOVE  -1                  TO   MTBLEL        RETERR.               
           IF      NEWFUND             =    SPACES                              
             MOVE  TBLFTYPE            TO   NEWFUND       MFUNDO.               
           IF      NEWFUND             NOT  =   TBLFTYPE                        
             MOVE  WABUMB              TO   MFUNDA                              
             MOVE  -1                  TO   MFUNDL        RETERR.               
                                                                                
           MOVE    WCMSODIST           TO   SCLKEY                              
           MOVE    WCMSOFY             TO   SCLFY                               
           MOVE    'SCL'               TO   SCLPREF                             
           MOVE    NEWSCHL             TO   SCLSCL                              
           MOVE    '99'                TO   RETCRF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (105-ERR2) END-EXEC         
           EXEC    CICS READ                DATASET (CRFFIL)                    
                                            INTO    (SCL)                       
                                            RIDFLD  (SCLKEY)                    
                                            LENGTH  (CRFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCRF.                             
       105-ERR2.                                                                
           IF      RETCRF              NOT  =   '00'                            
             MOVE  WABUMB              TO   MSCHLA                              
             MOVE  -1                  TO   MSCHLL        RETERR.               
                                                                                
           MOVE    WCMSODIST           TO   SPTKEY                              
           MOVE    WCMSOFY             TO   SPTFY                               
           MOVE    NEWFUND             TO   SPTFUND                             
           MOVE    NEWTABLE            TO   SPTTABLE                            
           MOVE    NEWSCHL             TO   SPTSCHL                             
           MOVE    LOW-VALUES          TO   SPTPGM                              
           EXEC    CICS HANDLE CONDITION    INVREQ  (105-ERR3)                  
                                            NOTFND  (105-ERR3)                  
                                            ENDFILE (105-ERR3) 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-ERR3) END-EXEC         
           EXEC    CICS ENDBR               DATASET (SPTFIL)   END-EXEC.        
       105-ERR3.                                                                
           IF     (RETSPT              NOT  =  '00')                 OR         
                  (SPTDIST             NOT  =  WCMSODIST)            OR         
                  (SPTFY               NOT  =  WCMSOFY)              OR         
                  (SPTFUND             NOT  =  NEWFUND)              OR         
                  (SPTTABLE            NOT  =  NEWTABLE)             OR         
                  (SPTSCHL             NOT  =  NEWSCHL)                         
             MOVE  WABUMB              TO   MSCHLA                              
             MOVE  -1                  TO   MSCHLL        RETERR.               
                                                                                
           IF      RETERR              NOT  =   ZEROS                           
             MOVE  MSG03               TO   MMSGO                               
             GO                        TO   015-SEND.                           
                                                                                
           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    NEWSCHL             TO   CDFSCHL                             
           MOVE    '6000'              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   M66100O                             
           MOVE    CDFAMT2             TO   M66200O                             
           MOVE    CDFAMT3             TO   M66300O                             
           MOVE    CDFAMT4             TO   M66400O                             
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M66100I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M66200I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M66300I.                            
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   M66400I.                            
       110-NXT1.                                                                
           IF      RETCDF              =    '00'                                
             MOVE  RETCDF              TO   RETALL.                             
                                                                                
           MOVE    '6001'              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   M67300O                             
           MOVE    CDFAMT2             TO   M67400O                             
           MOVE    CDFAMT3             TO   M67600O                             
           MOVE    CDFAMT4             TO   M67700O                             
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M67300I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M67400I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M67600I.                            
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   M67700I.                            
       110-NXT2.                                                                
           IF      RETCDF              =    '00'                                
             MOVE  RETCDF              TO   RETALL.                             
                                                                                
           MOVE    '6002'              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   M67800O                             
           MOVE    CDFAMT2             TO   M67900O                             
           MOVE    CDFAMT3             TO   M68100O                             
041206     MOVE    CDFAMT4             TO   M68200O                             
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M67800I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M67900I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M68100I.                            
041206     IF      CDFAMT4             =    ZEROS                               
041206       MOVE  '_________ '        TO   M68200I.                            
       110-NXT3.                                                                
           IF      RETCDF              =    '00'                                
             MOVE  RETCDF              TO   RETALL.                             
                                                                                
041206     MOVE    '6003'              TO   CDFCONTROL                          
041206     MOVE    '99'                TO   RETCDF                              
041206     EXEC    CICS HANDLE CONDITION    NOTFND (110-NXT3B) END-EXEC         
041206     EXEC    CICS READ                DATASET (CDFFIL)                    
041206                                      INTO    (CDF)                       
041206                                      RIDFLD  (CDFKEY)                    
041206                                      LENGTH  (CDFLENR)  END-EXEC         
041206     MOVE    '00'                TO   RETCDF                              
041206     MOVE    CDFAMT1             TO   M66500O                             
041206     IF      CDFAMT1             =    ZEROS                               
041206       MOVE  '_________ '        TO   M66500I.                            
041206 110-NXT3B.                                                               
041206     IF      RETCDF              =    '00'                                
041206       MOVE  RETCDF              TO   RETALL.                             
041206                                                                          
           MOVE    '7000'              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   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-NXT4.                                                                
           IF      RETCDF              =    '00'                                
             MOVE  RETCDF              TO   RETALL.                             
                                                                                
           IF      RETALL              =    '00'                                
             MOVE  -1                  TO   MTBLEL                              
             MOVE  ZEROS               TO   M66100L                             
             MOVE  MSG14               TO   MMSGO                               
           ELSE                                                                 
             MOVE  ZEROS               TO   MTBLEL                              
             MOVE  -1                  TO   M66100L                             
             MOVE  MSG23               TO   MMSGO.                              
           MOVE    SPACES              TO   QWRPF7        QWRPF8                
           MOVE    SPACES              TO   QWRFRST                             
           MOVE    'Y'                 TO   WSCFIRST                            
           MOVE    +0                  TO   WSCLNCNT                            
           MOVE    +1                  TO   WSCLNINC                            
           MOVE    +8                  TO   WSCLNMAX                            
           MOVE    WCMSODIST           TO   CDFKEY                              
           MOVE    WCMSOFY             TO   CDFFY                               
           MOVE    NEWFUND             TO   CDFFUND                             
           MOVE    NEWTABLE            TO   CDFTABLE                            
           MOVE    NEWSCHL             TO   CDFSCHL                             
           MOVE    '7001'              TO   CDFCONTROL                          
121495*    EXEC    CICS HANDLE CONDITION    NOTFND  (015-SEND)                  
121495     EXEC    CICS HANDLE CONDITION    NOTFND  (140-END)                   
                                            END-EXEC                            
           EXEC    CICS STARTBR             DATASET (CDFFIL)                    
                                            RIDFLD  (CDFKEY)   GTEQ             
                                            KEYLENGTH (CDFLENK)                 
                                            END-EXEC.                           
       110-OLD.                                                                 
           MOVE    -1                  TO   MTBLEL                              
           MOVE    LOW-VALUES          TO   MPSLINES                            
           MOVE    WCMSODIST           TO   HGHDIST                             
           MOVE    WCMSOFY             TO   HGHFY                               
           MOVE    NEWFUND             TO   HGHFUND                             
           MOVE    NEWTABLE            TO   HGHTABLE                            
           MOVE    NEWSCHL             TO   HGHSCHL                             
           MOVE    HIGH-VALUES         TO   HGHCONTROL                          
           MOVE    +0                  TO   WSCRDCNT                            
           MOVE    WSCLNINC            TO   QWRLNINC                            
           SET     MPS2                TO   WSCLNCNT                            
           SET     MPS2                UP   BY   WSCLNINC.                      
           EXEC    CICS HANDLE CONDITION    INVREQ  (120-MISS)                  
                                            NOTFND  (120-MISS)                  
                                            ENDFILE (120-MISS) END-EXEC.        
       115-LOOP.                                                                
           IF      MPS2                =    WSCLNMAX                            
             GO                        TO   130-FULL.                           
           IF      WSCRDCNT            >    WSCMAXRD                            
             GO                        TO   135-MAXRCD.                         
           MOVE    '99'                TO   RETCDF                              
           IF      WSCLNINC            =    -1                                  
             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.        
           MOVE    '00'                TO   RETCDF.                             
       120-MISS.                                                                
           IF      RETCDF              NOT  =   '00'                            
             GO                        TO   130-LAST.                           
           ADD     +1                  TO   WSCRDCNT                            
           IF     (WSCLNINC            =    +1)                     AND         
                  (CDFKEY              >    HGH)                                
             GO                        TO   130-LAST.                           
           IF     (WSCLNINC            =    -1)                      AND        
                  (MPS2                =    +7)                                 
             MOVE  CDFKEY              TO   QWRPF8                              
           ELSE                                                                 
             IF      MPS2              =    +1                                  
               MOVE  CDFKEY            TO   QWRPF7                              
               IF      QWRFRST         =    SPACES                              
                 MOVE  CDFKEY          TO   QWRFRST.                            
           IF      RETCDF              =    '00'                                
             MOVE  RETCDF              TO   RETALL.                             
                                                                                
           MOVE    WABPS               TO   MPSPGMA      (MPS2)                 
           MOVE    CDFPGM              TO   MPSPGM       (MPS2)                 
           MOVE    CDFAMT1             TO   MPSAMT19     (MPS2)                 
           MOVE    CDFAMT2             TO   MPSAMT29     (MPS2)                 
           MOVE    CDFAMT3             TO   MPSAMT39     (MPS2)                 
           MOVE    CDFAMT4             TO   MPSAMT49     (MPS2)                 
           MOVE    CDFAMT5             TO   MPSAMT59     (MPS2)                 
           MOVE    CDFAMT6             TO   MPSAMT69     (MPS2)                 
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   MPSAMT1      (MPS2).                
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   MPSAMT2      (MPS2).                
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   MPSAMT3      (MPS2).                
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   MPSAMT4      (MPS2).                
           IF      CDFAMT5             =    ZEROS                               
             MOVE  '_________ '        TO   MPSAMT5      (MPS2).                
           IF      CDFAMT6             =    ZEROS                               
             MOVE  '_________ '        TO   MPSAMT6      (MPS2).                
                                                                                
           IF      WSCFIRST            =    'Y'                                 
             ADD   CDFAMT1             TO   EDTSAL                              
             ADD   CDFAMT2             TO   EDTBEN                              
             ADD   CDFAMT3             TO   EDTPURSRV                           
             ADD   CDFAMT4             TO   EDTMTRL                             
             ADD   CDFAMT5             TO   EDTOTHR                             
             ADD   CDFAMT6             TO   EDTCAP.                             
                                                                                
           SET     MPS2                UP   BY  WSCLNINC                        
           ADD     WSCLNINC            TO   WSCLNCNT                            
           GO                          TO   115-LOOP.                           
                                                                                
       130-FULL.                                                                
           IF      WSCLNINC            =    +1                                  
             PERFORM 210-CDF-RDNXT     THRU 210-EXIT                            
             IF     (CDFKEY            >    HGH)                     OR         
                    (RETCDF            NOT  =   '00')                           
               GO                      TO   130-LAST                            
             ELSE                                                               
               PERFORM 205-CDF-RDPRV   THRU 205-EXIT                            
               PERFORM 205-CDF-RDPRV   THRU 205-EXIT.                           
           MOVE    MSG25               TO   MMSGO                               
           IF      WSCLNINC            =    +1                                  
             MOVE  +0                  TO   QWRLNXT                             
             MOVE  +8                  TO   QWRLNMAX                            
             MOVE  CDFKEY              TO   QWRPF8                              
           ELSE                                                                 
             MOVE  +8                  TO   QWRLNXT                             
             MOVE  +0                  TO   QWRLNMAX.                           
           GO                          TO   140-END.                            
                                                                                
       130-LAST.                                                                
           MOVE    +0                  TO   QWRLNMAX      QWRLNXT               
           MOVE    -1                  TO   MTBLEL                              
           IF      QWRFRST             =    SPACES                              
             IF    RETALL              =    '00'                                
               MOVE  ZEROS             TO   M66100L                             
               MOVE  MSG14             TO   MMSGO                               
             ELSE                                                               
               MOVE  ZEROS             TO   MTBLEL                              
               MOVE  -1                TO   M66100L                             
               MOVE  MSG23             TO   MMSGO                               
           ELSE                                                                 
             IF      WSCLNINC          =    -1                                  
               MOVE  MSG13             TO   MMSGO                               
               MOVE  SPACES            TO   QWRPF7                              
             ELSE                                                               
               MOVE  MSG14             TO   MMSGO                               
               MOVE  SPACES            TO   QWRPF8.                             
           GO                          TO   140-END.                            
                                                                                
       135-MAXRCD.                                                              
           MOVE    WSCLNCNT            TO   QWRLNXT                             
           MOVE    WSCLNMAX            TO   QWRLNMAX                            
           IF      WSCLNINC            =    +1                                  
             MOVE  CDFKEY              TO   QWRPF8                              
           ELSE                                                                 
             MOVE  CDFKEY              TO   QWRPF7.                             
           MOVE    MSG27               TO   MMSGO                               
           GO                          TO   140-END.                            
                                                                                
       140-END.                                                                 
           IF      WSCFIRST            =    'Y'                                 
             PERFORM  160-BUILD-EDIT   THRU 160-EXIT.                           
           EXEC    CICS HANDLE CONDITION    INVREQ  (015-SEND) END-EXEC         
           EXEC    CICS ENDBR               DATASET (CDFFIL)   END-EXEC         
           GO                          TO   015-SEND.                           
                                                                                
      ******************************************************************        
       160-BUILD-EDIT.                                                          
      ******************************************************************        
      ***  THIS PROCEDURE WILL SCAN THE SPT FILE AND DETERMINE IF IT ***        
      ***  CONTAINS STAFF, SPACE, AND FTE FOR THE CURRENT FUND/      ***        
      ***  TABLE/SCHOOL.  IT WILL SCAN THE CDF 7XXX RECORDS AND      ***        
      ***  TOTAL THE DIRECT COSTS FOR THIS SCHOOL.  AND READ THE     ***        
      ***  CONTROL 1000 RECORD FOR THIS TABLE.                       ***        
      ******************************************************************        
           IF      QWRPF8              =    SPACES                              
             GO                        TO   160-LOOP1.                          
           MOVE    QWRPF8              TO   CDFKEY.                             
       160-LOOP1.                                                               
           EXEC    CICS HANDLE CONDITION    INVREQ  (160-MISS)                  
                                            NOTFND  (160-MISS)                  
                                            ENDFILE (160-MISS) END-EXEC.        
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS READNEXT            DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC.        
           MOVE    '00'                TO   RETCDF.                             
       160-MISS.                                                                
           IF     (RETCDF              NOT  =   '00')               OR          
                  (CDFKEY              >    HGH)                                
             EXEC  CICS HANDLE CONDITION    INVREQ  (160-CONT) END-EXEC         
             EXEC  CICS ENDBR               DATASET (CDFFIL)   END-EXEC         
             GO                        TO   160-CONT.                           
           IF      CDFKEY              =    QWRPF8                              
             GO                        TO   160-LOOP1.                          
                                                                                
           ADD     CDFAMT1             TO   EDTSAL                              
           ADD     CDFAMT2             TO   EDTBEN                              
           ADD     CDFAMT3             TO   EDTPURSRV                           
           ADD     CDFAMT4             TO   EDTMTRL                             
           ADD     CDFAMT5             TO   EDTOTHR                             
           ADD     CDFAMT6             TO   EDTCAP                              
           GO                          TO   160-LOOP1.                          
       160-CONT.                                                                
           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  (160-NXT1) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCDF                              
           MOVE    CDFPCT              TO   EDT1000PCT.                         
       160-NXT1.                                                                
           IF      RETCDF              NOT  =  '00'                             
             MOVE  SPACES              TO   EDT1000PCT.                         
                                                                                
           MOVE    WCMSODIST           TO   SPTKEY                              
           MOVE    WCMSOFY             TO   SPTFY                               
           MOVE    NEWFUND             TO   SPTFUND                             
           MOVE    NEWTABLE            TO   SPTTABLE                            
           MOVE    NEWSCHL             TO   SPTSCHL                             
           MOVE    LOW-VALUES          TO   SPTPGM                              
           MOVE    '99'                TO   RETSPT                              
                                                                                
           EXEC    CICS HANDLE CONDITION    INVREQ  (160-MISS2)                 
                                            NOTFND  (160-MISS2)                 
                                            ENDFILE (160-MISS2) END-EXEC        
           EXEC    CICS STARTBR             DATASET (SPTFIL)                    
                                            RIDFLD  (SPTKEY)   GTEQ             
                                            KEYLENGTH (SPTLENK)                 
                                            END-EXEC.                           
       160-LOOP2.                                                               
           MOVE    '99'                TO   RETSPT                              
           EXEC    CICS READNEXT            DATASET (SPTFIL)                    
                                            INTO    (SPT)                       
                                            RIDFLD  (SPTKEY)                    
                                            LENGTH  (SPTLENR)  END-EXEC         
           MOVE    '00'                TO   RETSPT.                             
       160-MISS2.                                                               
           IF     (RETSPT              NOT  =  '00')                 OR         
                  (SPTDIST             NOT  =  WCMSODIST)            OR         
                  (SPTFY               NOT  =  WCMSOFY)              OR         
                  (SPTFUND             NOT  =  NEWFUND)              OR         
                  (SPTTABLE            NOT  =  NEWTABLE)             OR         
                  (SPTSCHL             NOT  =  NEWSCHL)              OR         
                  (EDTSTAFF            NOT  =  SPACES             AND           
                   EDTSPACE            NOT  =  SPACES             AND           
                   EDTFTE              NOT  =  SPACES)                          
             GO                        TO   160-END.                            
           IF      SPTPGMSTF           >    ZERO                                
             MOVE  'Y'                 TO   EDTSTAFF.                           
           IF      SPTPGMSPC           >    ZERO                                
             MOVE  'Y'                 TO   EDTSPACE.                           
           IF      SPTPGMFTE           >    ZERO                                
             MOVE  'Y'                 TO   EDTFTE.                             
           GO                          TO   160-LOOP2.                          
       160-END.                                                                 
           EXEC    CICS HANDLE CONDITION    INVREQ  (160-EXIT) END-EXEC         
           EXEC    CICS ENDBR               DATASET (SPTFIL)   END-EXEC.        
       160-EXIT.                                                                
           EXIT.                                                                
                                                                                
      ******************************************************************        
       205-CDF-RDPRV.                                                           
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    INVREQ  (205-EXIT)                  
                                            NOTFND  (205-EXIT)                  
                                            ENDFILE (205-EXIT) END-EXEC         
           EXEC    CICS READPREV            DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCDF.                             
       205-EXIT.                                                                
           EXIT.                                                                
                                                                                
      ******************************************************************        
       210-CDF-RDNXT.                                                           
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    INVREQ  (210-EXIT)                  
                                            NOTFND  (210-EXIT)                  
                                            ENDFILE (210-EXIT) END-EXEC         
           EXEC    CICS READNEXT            DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCDF.                             
       210-EXIT.                                                                
           EXIT.                                                                
                                                                                
      ******************************************************************        
       300-UPDATE.                                                              
           IF      WCMSOCURR           NOT  =  'U'                              
             GO                        TO   100-DISPLAY.                        
                                                                                
           MOVE    +1                  TO   RETERR2                     06040001
           MOVE    ZEROS               TO   MTBLEL       M66100L        06041001
           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    NEWSCHL             TO   CDFSCHL                             
                                                                                
           MOVE    ZEROS               TO   RETERR                              
           MOVE    '6000'              TO   CDFCONTROL    CDFCONTROL2           
           MOVE    SPACES              TO   CDFDATA                             
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (300-NEW1) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCDF.                             
       300-NEW1.                                                                
           IF      RETCDF              NOT  =  '00'                             
             MOVE  SPACES              TO   CDFDATAC                            
             MOVE  ZEROS               TO   CDFAMT1   CDFAMT2   CDFAMT3         
                                            CDFAMT4   CDFAMT5   CDFAMT6         
                                            CDFTOTAL.                           
           MOVE    CDF                 TO   ODF                                 
           IF      M66100A             =    WABEOF                              
             MOVE  '_________ '        TO   M66100I                             
             MOVE  WABU                TO   M66100A                             
             MOVE  ZEROS               TO   M66100L                             
             MOVE  ZEROS               TO   CDFAMT1                             
           ELSE                                                                 
             IF      M66100L           >    ZEROS                               
               MOVE  ZEROS             TO   M66100L                             
               MOVE  M66100I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M66100A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M66100O  CDFAMT1                    
               ELSE                                                             
                 MOVE  WNU90           TO   M66100O  CDFAMT1                    
             ELSE                                                               
               IF      M66100I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M66100A                             
                 MOVE  M66100I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M66100O  CDFAMT1                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M66100O  CDFAMT1.                   
           IF      M66200A             =    WABEOF                              
             MOVE  '_________ '        TO   M66200I                             
             MOVE  WABU                TO   M66200A                             
             MOVE  ZEROS               TO   M66200L                             
             MOVE  ZEROS               TO   CDFAMT2                             
           ELSE                                                                 
             IF      M66200L           >    ZEROS                               
               MOVE  ZEROS             TO   M66200L                             
               MOVE  M66200I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M66200A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M66200O  CDFAMT2                    
               ELSE                                                             
                 MOVE  WNU90           TO   M66200O  CDFAMT2                    
             ELSE                                                               
               IF      M66200I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M66200A                             
                 MOVE  M66200I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M66200O  CDFAMT2                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M66200O  CDFAMT2.                   
           IF      M66300A             =    WABEOF                              
             MOVE  '_________ '        TO   M66300I                             
             MOVE  WABU                TO   M66300A                             
             MOVE  ZEROS               TO   M66300L                             
             MOVE  ZEROS               TO   CDFAMT3                             
           ELSE                                                                 
             IF      M66300L           >    ZEROS                               
               MOVE  ZEROS             TO   M66300L                             
               MOVE  M66300I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M66300A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M66300O  CDFAMT3                    
               ELSE                                                             
                 MOVE  WNU90           TO   M66300O  CDFAMT3                    
             ELSE                                                               
               IF      M66300I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M66300A                             
                 MOVE  M66300I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M66300O  CDFAMT3                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M66300O  CDFAMT3.                   
           IF      M66400A             =    WABEOF                              
             MOVE  '_________ '        TO   M66400I                             
             MOVE  WABU                TO   M66400A                             
             MOVE  ZEROS               TO   M66400L                             
             MOVE  ZEROS               TO   CDFAMT4                             
           ELSE                                                                 
             IF      M66400L           >    ZEROS                               
               MOVE  ZEROS             TO   M66400L                             
               MOVE  M66400I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M66400A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M66400O  CDFAMT4                    
               ELSE                                                             
                 MOVE  WNU90           TO   M66400O  CDFAMT4                    
             ELSE                                                               
               IF      M66400I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M66400A                             
                 MOVE  M66400I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M66400O  CDFAMT4                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M66400O  CDFAMT4.                   
                                                                                
           SET     CDF1                TO   +1.                                 
       300-LOOP1.                                                               
           IF      CDFB         (CDF1) =    '_'                                 
             MOVE  ' '                 TO   CDFB         (CDF1).                
           IF      CDF1                <    +94                                 
             SET   CDF1                UP   BY  +1                              
             GO                        TO   300-LOOP1.                          
                                                                                
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M66100I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M66200I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M66300I.                            
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   M66400I.                            
           IF     (RETCDF              =    ZEROS)                  AND         
                  (CDFAMT1             =    ZEROS)                  AND         
                  (CDFAMT2             =    ZEROS)                  AND         
                  (CDFAMT3             =    ZEROS)                  AND         
                  (CDFAMT4             =    ZEROS)                              
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)            10960101
                                            INTO    (CDF)               10960201
                                            RIDFLD  (CDFKEY)            10960301
                                            LENGTH  (CDFLENR)  END-EXEC 10960401
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC 11010000
             MOVE  '_________ '        TO   M66100I                     06450000
             MOVE  '_________ '        TO   M66200I                     06450000
             MOVE  '_________ '        TO   M66300I                     06450000
             MOVE  '_________ '        TO   M66400I                     06450000
             MOVE  WABU                TO   M66100A                     06450000
             MOVE  WABU                TO   M66200A                     06450000
             MOVE  WABU                TO   M66300A                     06450000
             MOVE  WABU                TO   M66400A                     06450000
             MOVE  ZEROS               TO   M66100L                     06450000
             MOVE  ZEROS               TO   M66200L                     06450000
             MOVE  ZEROS               TO   M66300L                     06450000
             MOVE  ZEROS               TO   M66400L                     06450000
             IF    RETERR2             NOT  =  -1                               
               MOVE  ZEROS             TO   RETERR2                             
               GO                      TO   300-CONT1                   06370000
             ELSE                                                               
               GO                      TO   300-CONT1.                  06370000
                                                                                
           IF      CDFAMT1             <    ZEROS                               
             MOVE  WABUMB              TO   M66100A.                            
           IF      CDFAMT2             <    ZEROS                               
             MOVE  WABUMB              TO   M66200A.                            
           IF      CDFAMT3             <    ZEROS                               
             MOVE  WABUMB              TO   M66300A.                            
           IF      CDFAMT4             <    ZEROS                               
             MOVE  WABUMB              TO   M66400A.                            
                                                                                
           IF      RETERR              NOT  =   ZEROS                           
             MOVE  RETERR              TO   RETERR2                             
             GO                        TO   300-CONT1.                          
                                                                                
           IF      CDF                 =    ODF                                 
             GO                        TO   300-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.        
       300-CONT1.                                                               
           MOVE    ZEROS               TO   RETERR                              
           MOVE    '6001'              TO   CDFCONTROL    CDFCONTROL2           
           MOVE    SPACES              TO   CDFDATA                             
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (300-NEW2) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCDF.                             
       300-NEW2.                                                                
           IF      RETCDF              NOT  =  '00'                             
             MOVE  SPACES              TO   CDFDATAC                            
             MOVE  ZEROS               TO   CDFAMT1   CDFAMT2   CDFAMT3         
                                            CDFAMT4   CDFAMT5   CDFAMT6         
                                            CDFTOTAL.                           
           MOVE    CDF                 TO   ODF                                 
           IF      M67300A             =    WABEOF                              
             MOVE  '_________ '        TO   M67300I                             
             MOVE  WABU                TO   M67300A                             
             MOVE  ZEROS               TO   M67300L                             
             MOVE  ZEROS               TO   CDFAMT1                             
           ELSE                                                                 
             IF      M67300L           >    ZEROS                               
               MOVE  ZEROS             TO   M67300L                             
               MOVE  M67300I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M67300A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M67300O  CDFAMT1                    
               ELSE                                                             
                 MOVE  WNU90           TO   M67300O  CDFAMT1                    
             ELSE                                                               
               IF      M67300I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M67300A                             
                 MOVE  M67300I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M67300O  CDFAMT1                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M67300O  CDFAMT1.                   
           IF      M67400A             =    WABEOF                              
             MOVE  '_________ '        TO   M67400I                             
             MOVE  WABU                TO   M67400A                             
             MOVE  ZEROS               TO   M67400L                             
             MOVE  ZEROS               TO   CDFAMT2                             
           ELSE                                                                 
             IF      M67400L           >    ZEROS                               
               MOVE  ZEROS             TO   M67400L                             
               MOVE  M67400I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M67400A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M67400O  CDFAMT2                    
               ELSE                                                             
                 MOVE  WNU90           TO   M67400O  CDFAMT2                    
             ELSE                                                               
               IF      M67400I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M67400A                             
                 MOVE  M67400I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M67400O  CDFAMT2                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M67400O  CDFAMT2.                   
           IF      M67600A             =    WABEOF                              
             MOVE  '_________ '        TO   M67600I                             
             MOVE  WABU                TO   M67600A                             
             MOVE  ZEROS               TO   M67600L                             
             MOVE  ZEROS               TO   CDFAMT3                             
           ELSE                                                                 
             IF      M67600L           >    ZEROS                               
               MOVE  ZEROS             TO   M67600L                             
               MOVE  M67600I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M67600A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M67600O  CDFAMT3                    
               ELSE                                                             
                 MOVE  WNU90           TO   M67600O  CDFAMT3                    
             ELSE                                                               
               IF      M67600I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M67600A                             
                 MOVE  M67600I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M67600O  CDFAMT3                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M67600O  CDFAMT3.                   
           IF      M67700A             =    WABEOF                              
             MOVE  '_________ '        TO   M67700I                             
             MOVE  WABU                TO   M67700A                             
             MOVE  ZEROS               TO   M67700L                             
             MOVE  ZEROS               TO   CDFAMT4                             
           ELSE                                                                 
             IF      M67700L           >    ZEROS                               
               MOVE  ZEROS             TO   M67700L                             
               MOVE  M67700I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M67700A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M67700O  CDFAMT4                    
               ELSE                                                             
                 MOVE  WNU90           TO   M67700O  CDFAMT4                    
             ELSE                                                               
               IF      M67700I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M67700A                             
                 MOVE  M67700I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M67700O  CDFAMT4                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M67700O  CDFAMT4.                   
                                                                                
           SET     CDF1                TO   +1.                                 
       300-LOOP2.                                                               
           IF      CDFB         (CDF1) =    '_'                                 
             MOVE  ' '                 TO   CDFB         (CDF1).                
           IF      CDF1                <    +94                                 
             SET   CDF1                UP   BY  +1                              
             GO                        TO   300-LOOP2.                          
                                                                                
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M67300I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M67400I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M67600I.                            
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   M67700I.                            
                                                                                
           IF      CDFAMT1             <    ZEROS                               
             MOVE  WABUMB              TO   M67300A.                            
           IF      CDFAMT2             <    ZEROS                               
             MOVE  WABUMB              TO   M67400A.                            
           IF      CDFAMT3             <    ZEROS                               
             MOVE  WABUMB              TO   M67600A.                            
           IF      CDFAMT4             <    ZEROS                               
             MOVE  WABUMB              TO   M67700A.                            
           IF     (RETCDF              =    ZEROS)                  AND         
                  (CDFAMT1             =    ZEROS)                  AND         
                  (CDFAMT2             =    ZEROS)                  AND         
                  (CDFAMT3             =    ZEROS)                  AND         
                  (CDFAMT4             =    ZEROS)                              
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)            10960101
                                            INTO    (CDF)               10960201
                                            RIDFLD  (CDFKEY)            10960301
                                            LENGTH  (CDFLENR)  END-EXEC 10960401
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC 11010000
             MOVE  '_________ '        TO   M67300I                     06450000
             MOVE  '_________ '        TO   M67400I                     06450000
             MOVE  '_________ '        TO   M67600I                     06450000
             MOVE  '_________ '        TO   M67700I                     06450000
             MOVE  WABU                TO   M67300A                     06450000
             MOVE  WABU                TO   M67400A                     06450000
             MOVE  WABU                TO   M67600A                     06450000
             MOVE  WABU                TO   M67700A                     06450000
             MOVE  ZEROS               TO   M67300L                     06450000
             MOVE  ZEROS               TO   M67400L                     06450000
             MOVE  ZEROS               TO   M67600L                     06450000
             MOVE  ZEROS               TO   M67700L                     06450000
             IF    RETERR2             NOT  =  -1                               
               MOVE  ZEROS             TO   RETERR2                             
               GO                      TO   300-CONT2                   06370000
             ELSE                                                               
               GO                      TO   300-CONT2.                  06370000
                                                                                
           IF      RETERR              NOT  =   ZEROS                           
             MOVE  RETERR              TO   RETERR2                             
             GO                        TO   300-CONT2.                          
                                                                                
           IF      CDF                 =    ODF                                 
             GO                        TO   300-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.        
       300-CONT2.                                                               
           MOVE    ZEROS               TO   RETERR                              
           MOVE    '6002'              TO   CDFCONTROL    CDFCONTROL2           
           MOVE    SPACES              TO   CDFDATA                             
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (300-NEW3) END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCDF.                             
       300-NEW3.                                                                
           IF      RETCDF              NOT  =  '00'                             
             MOVE  SPACES              TO   CDFDATAC                            
             MOVE  ZEROS               TO   CDFAMT1   CDFAMT2   CDFAMT3         
                                            CDFAMT4   CDFAMT5   CDFAMT6         
                                            CDFTOTAL.                           
           MOVE    CDF                 TO   ODF                                 
           IF      M67800A             =    WABEOF                              
             MOVE  '_________ '        TO   M67800I                             
             MOVE  WABU                TO   M67800A                             
             MOVE  ZEROS               TO   M67800L                             
             MOVE  ZEROS               TO   CDFAMT1                             
           ELSE                                                                 
             IF      M67800L           >    ZEROS                               
               MOVE  ZEROS             TO   M67800L                             
               MOVE  M67800I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M67800A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M67800O  CDFAMT1                    
               ELSE                                                             
                 MOVE  WNU90           TO   M67800O  CDFAMT1                    
             ELSE                                                               
               IF      M67800I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M67800A                             
                 MOVE  M67800I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M67800O  CDFAMT1                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M67800O  CDFAMT1.                   
           IF      M67900A             =    WABEOF                              
             MOVE  '_________ '        TO   M67900I                             
             MOVE  WABU                TO   M67900A                             
             MOVE  ZEROS               TO   M67900L                             
             MOVE  ZEROS               TO   CDFAMT2                             
           ELSE                                                                 
             IF      M67900L           >    ZEROS                               
               MOVE  ZEROS             TO   M67900L                             
               MOVE  M67900I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M67900A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M67900O  CDFAMT2                    
               ELSE                                                             
                 MOVE  WNU90           TO   M67900O  CDFAMT2                    
             ELSE                                                               
               IF      M67900I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M67900A                             
                 MOVE  M67900I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M67900O  CDFAMT2                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M67900O  CDFAMT2.                   
           IF      M68100A             =    WABEOF                              
             MOVE  '_________ '        TO   M68100I                             
             MOVE  WABU                TO   M68100A                             
             MOVE  ZEROS               TO   M68100L                             
             MOVE  ZEROS               TO   CDFAMT3                             
           ELSE                                                                 
             IF      M68100L           >    ZEROS                               
               MOVE  ZEROS             TO   M68100L                             
               MOVE  M68100I           TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   M68100A                             
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   M68100O  CDFAMT3                    
               ELSE                                                             
                 MOVE  WNU90           TO   M68100O  CDFAMT3                    
             ELSE                                                               
               IF      M68100I         >    LOW-VALUES                          
                 MOVE  WABUN           TO   M68100A                             
                 MOVE  M68100I         TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   M68100O  CDFAMT3                    
                 ELSE                                                           
                   MOVE  WNU90         TO   M68100O  CDFAMT3.                   
041206     IF      M68200A             =    WABEOF                              
041206       MOVE  '_________ '        TO   M68200I                             
041206       MOVE  WABU                TO   M68200A                             
041206       MOVE  ZEROS               TO   M68200L                             
041206       MOVE  ZEROS               TO   CDFAMT4                             
041206     ELSE                                                                 
041206       IF      M68200L           >    ZEROS                               
041206         MOVE  ZEROS             TO   M68200L                             
041206         MOVE  M68200I           TO   WNUIN                               
041206         PERFORM 700-CONVERT     THRU 700-EXIT                            
041206         MOVE  WABU              TO   M68200A                             
041206         IF    WNUSIGN           =    '-'                                 
041206           COMPUTE  WNU90        =    0 - WNU90                           
041206           MOVE  WNU90           TO   M68200O  CDFAMT4                    
041206         ELSE                                                             
041206           MOVE  WNU90           TO   M68200O  CDFAMT4                    
041206       ELSE                                                               
041206         IF      M68200I         >    LOW-VALUES                          
041206           MOVE  WABUN           TO   M68200A                             
041206           MOVE  M68200I         TO   WNUIN                               
041206           PERFORM 700-CONVERT   THRU 700-EXIT                            
041206           IF    WNUSIGN         =    '-'                                 
041206             COMPUTE  WNU90      =    0 - WNU90                           
041206             MOVE  WNU90         TO   M68200O  CDFAMT4                    
041206           ELSE                                                           
041206             MOVE  WNU90         TO   M68200O  CDFAMT4.                   
                                                                                
           SET     CDF1                TO   +1.                                 
       300-LOOP3.                                                               
           IF      CDFB         (CDF1) =    '_'                                 
             MOVE  ' '                 TO   CDFB         (CDF1).                
           IF      CDF1                <    +94                                 
             SET   CDF1                UP   BY  +1                              
             GO                        TO   300-LOOP3.                          
                                                                                
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   M67800I.                            
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   M67900I.                            
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   M68100I.                            
041206     IF      CDFAMT4             =    ZEROS                               
041206       MOVE  '_________ '        TO   M68200I.                            
           IF     (RETCDF              =    ZEROS)                  AND         
                  (CDFAMT1             =    ZEROS)                  AND         
                  (CDFAMT2             =    ZEROS)                  AND         
041206            (CDFAMT4             =    ZEROS)                  AND         
                  (CDFAMT3             =    ZEROS)                              
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)            10960101
                                            INTO    (CDF)               10960201
                                            RIDFLD  (CDFKEY)            10960301
                                            LENGTH  (CDFLENR)  END-EXEC 10960401
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC 11010000
             MOVE  '_________ '        TO   M67800I                     06450000
             MOVE  '_________ '        TO   M67900I                     06450000
             MOVE  '_________ '        TO   M68100I                     06450000
041206       MOVE  '_________ '        TO   M68200I                     06450000
             MOVE  WABU                TO   M67800A                     06450000
             MOVE  WABU                TO   M67900A                     06450000
             MOVE  WABU                TO   M68100A                     06450000
041206       MOVE  WABU                TO   M68200A                     06450000
             MOVE  ZEROS               TO   M67800L                     06450000
             MOVE  ZEROS               TO   M67900L                     06450000
             MOVE  ZEROS               TO   M68100L                     06450000
041206       MOVE  ZEROS               TO   M68200L                     06450000
             IF    RETERR2             NOT  =  -1                               
               MOVE  ZEROS             TO   RETERR2                             
041206*        GO                      TO   300-DETAIL                  06370000
041206         GO                      TO   300-CONT4                   06370000
             ELSE                                                               
041206*        GO                      TO   300-DETAIL.                 06370000
041206         GO                      TO   300-CONT4.                  06370000
                                                                                
           IF      CDFAMT1             <    ZEROS                               
             MOVE  WABUMB              TO   M67800A.                            
           IF      CDFAMT2             <    ZEROS                               
             MOVE  WABUMB              TO   M67900A.                            
           IF      CDFAMT3             <    ZEROS                               
             MOVE  WABUMB              TO   M68100A.                            
041206     IF      CDFAMT4             <    ZEROS                               
041206       MOVE  WABUMB              TO   M68200A.                            
                                                                                
           IF      RETERR              NOT  =   ZEROS                           
             MOVE  RETERR              TO   RETERR2                             
041206*      GO                        TO   300-DETAIL.                         
041206       GO                        TO   300-CONT4.                          
                                                                                
           IF      CDF                 =    ODF                                 
041206*      GO                        TO   300-DETAIL.                         
041206       GO                        TO   300-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.        
041206 300-CONT4.                                                               
041206     MOVE    ZEROS               TO   RETERR                              
041206     MOVE    '6003'              TO   CDFCONTROL    CDFCONTROL2           
041206     MOVE    SPACES              TO   CDFDATA                             
041206     MOVE    '99'                TO   RETCDF                              
041206     EXEC    CICS HANDLE CONDITION    NOTFND  (300-NEW4) END-EXEC         
041206     EXEC    CICS READ                DATASET (CDFFIL)                    
041206                                      INTO    (CDF)                       
041206                                      RIDFLD  (CDFKEY)                    
041206                                      LENGTH  (CDFLENR)  END-EXEC         
041206     MOVE    '00'                TO   RETCDF.                             
041206 300-NEW4.                                                                
041206     IF      RETCDF              NOT  =  '00'                             
041206       MOVE  SPACES              TO   CDFDATAC                            
041206       MOVE  ZEROS               TO   CDFAMT1   CDFAMT2   CDFAMT3         
041206                                      CDFAMT4   CDFAMT5   CDFAMT6         
041206                                      CDFTOTAL.                           
041206     MOVE    CDF                 TO   ODF                                 
041206     IF      M66500A             =    WABEOF                              
041206       MOVE  '_________ '        TO   M66500I                             
041206       MOVE  WABU                TO   M66500A                             
041206       MOVE  ZEROS               TO   M66500L                             
041206       MOVE  ZEROS               TO   CDFAMT1                             
041206     ELSE                                                                 
041206       IF      M66500L           >    ZEROS                               
041206         MOVE  ZEROS             TO   M66500L                             
041206         MOVE  M66500I           TO   WNUIN                               
041206         PERFORM 700-CONVERT     THRU 700-EXIT                            
041206         MOVE  WABU              TO   M66500A                             
041206         IF    WNUSIGN           =    '-'                                 
041206           COMPUTE  WNU90        =    0 - WNU90                           
041206           MOVE  WNU90           TO   M66500O  CDFAMT1                    
041206         ELSE                                                             
041206           MOVE  WNU90           TO   M66500O  CDFAMT1                    
041206       ELSE                                                               
041206         IF      M66500I         >    LOW-VALUES                          
041206           MOVE  WABUN           TO   M66500A                             
041206           MOVE  M66500I         TO   WNUIN                               
041206           PERFORM 700-CONVERT   THRU 700-EXIT                            
041206           IF    WNUSIGN         =    '-'                                 
041206             COMPUTE  WNU90      =    0 - WNU90                           
041206             MOVE  WNU90         TO   M66500O  CDFAMT1                    
041206           ELSE                                                           
041206             MOVE  WNU90         TO   M66500O  CDFAMT1.                   
041206                                                                          
041206     SET     CDF1                TO   +1.                                 
041206 300-LOOP4.                                                               
041206     IF      CDFB         (CDF1) =    '_'                                 
041206       MOVE  ' '                 TO   CDFB         (CDF1).                
041206     IF      CDF1                <    +94                                 
041206       SET   CDF1                UP   BY  +1                              
041206       GO                        TO   300-LOOP4.                          
041206                                                                          
041206     IF      CDFAMT1             =    ZEROS                               
041206       MOVE  '_________ '        TO   M66500I.                            
041206     IF     (RETCDF              =    ZEROS)                  AND         
041206            (CDFAMT1             =    ZEROS)                  AND         
041206            (CDFAMT2             =    ZEROS)                  AND         
041206            (CDFAMT3             =    ZEROS)                  AND         
041206            (CDFAMT4             =    ZEROS)                              
041206       EXEC  CICS READ UPDATE         DATASET (CDFFIL)            10960101
041206                                      INTO    (CDF)               10960201
041206                                      RIDFLD  (CDFKEY)            10960301
041206                                      LENGTH  (CDFLENR)  END-EXEC 10960401
041206       EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC 11010000
041206       MOVE  '_________ '        TO   M66500I                     06450000
041206       MOVE  WABU                TO   M66500A                     06450000
041206       MOVE  ZEROS               TO   M66500L                     06450000
041206       IF    RETERR2             NOT  =  -1                               
041206         MOVE  ZEROS             TO   RETERR2                             
041206         GO                      TO   300-DETAIL                  06370000
041206       ELSE                                                               
041206         GO                      TO   300-DETAIL.                 06370000
041206                                                                          
041206     IF      CDFAMT1             <    ZEROS                               
041206       MOVE  WABUMB              TO   M66500A.                            
041206                                                                          
041206     IF      RETERR              NOT  =   ZEROS                           
041206       MOVE  RETERR              TO   RETERR2                             
041206       GO                        TO   300-DETAIL.                         
041206                                                                          
041206     IF      CDF                 =    ODF                                 
041206       GO                        TO   300-DETAIL.                         
041206     IF      RETERR2             NOT  =  -1                               
041206       MOVE  ZEROS               TO   RETERR2.                            
041206     IF      RETCDF              =    '00'                                
041206       EXEC  CICS READ UPDATE         DATASET (CDFFIL)                    
041206                                      INTO    (ODF)                       
041206                                      RIDFLD  (CDFKEY)                    
041206                                      LENGTH  (CDFLENR)  END-EXEC         
041206       EXEC  CICS REWRITE             DATASET (CDFFIL)                    
041206                                      FROM    (CDF)                       
041206                                      LENGTH  (CDFLENR)  END-EXEC         
041206     ELSE                                                                 
041206       EXEC  CICS WRITE               DATASET (CDFFIL)                    
041206                                      FROM    (CDF)                       
041206                                      RIDFLD  (CDFKEY)                    
041206                                      LENGTH  (CDFLENR)  END-EXEC.        
       300-DETAIL.                                                              
           SET     MPS2                TO   +1.                         06050000
       305-LOOP.                                                        06060000
           IF      MPS2                >    +7                          06070000
             GO                        TO   315-CONT.                           
                                                                                
           IF     (MPSPGML    (MPS2)   =    ZEROS)                   AND06190000
                  (MPSPGMA    (MPS2)   NOT  =  WABEOF)               AND06190000
                  (MPSPGM     (MPS2)   NOT  >  SPACES)               AND06190000
                  (MPSAMT1L   (MPS2)   =    ZEROS)                   AND06210000
                  (MPSAMT1A   (MPS2)   NOT  =  WABEOF)               AND06210000
                  (MPSAMT2L   (MPS2)   =    ZEROS)                   AND06210000
                  (MPSAMT2A   (MPS2)   NOT  =  WABEOF)               AND06210000
                  (MPSAMT3L   (MPS2)   =    ZEROS)                   AND06210000
                  (MPSAMT3A   (MPS2)   NOT  =  WABEOF)               AND06210000
                  (MPSAMT4L   (MPS2)   =    ZEROS)                   AND06210000
                  (MPSAMT4A   (MPS2)   NOT  =  WABEOF)               AND06210000
                  (MPSAMT5L   (MPS2)   =    ZEROS)                   AND06210000
                  (MPSAMT5A   (MPS2)   NOT  =  WABEOF)               AND06210000
                  (MPSAMT6L   (MPS2)   =    ZEROS)                   AND06210000
                  (MPSAMT6A   (MPS2)   NOT  =  WABEOF)                  06210000
             SET   MPS2                UP   BY  +1                      06360000
             GO                        TO   305-LOOP.                   06370000
           MOVE    ZEROS               TO   RETERR                              
           MOVE    WCMSODIST           TO   CDFKEY                              
           MOVE    WCMSOFY             TO   CDFFY                               
           MOVE    NEWFUND             TO   CDFFUND                             
           MOVE    NEWTABLE            TO   CDFTABLE                            
           MOVE    NEWSCHL             TO   CDFSCHL                             
           MOVE    '7'                 TO   CDFCNBR       CDFCNBR2              
           MOVE    MPSPGM       (MPS2) TO   CDFPGM        CDFPGM2               
                                                                                
           SET     CDF1                TO   +15.                                
       305-LOOP2.                                                               
           IF      CDFB         (CDF1) =    '_'                                 
             MOVE  ' '                 TO   CDFB         (CDF1).                
           IF      CDF1                <    +33                                 
             SET   CDF1                UP   BY  +1                              
             GO                        TO   305-LOOP2.                          
                                                                                
           IF      CDFPGM              NOT  >   SPACES                  06430000
             MOVE  ALL '_'             TO   MPSPGM       (MPS2)         06450000
             MOVE  '_________ '        TO   MPSAMT1      (MPS2)         06450000
             MOVE  '_________ '        TO   MPSAMT2      (MPS2)         06450000
             MOVE  '_________ '        TO   MPSAMT3      (MPS2)         06450000
             MOVE  '_________ '        TO   MPSAMT4      (MPS2)         06450000
             MOVE  '_________ '        TO   MPSAMT5      (MPS2)         06450000
             MOVE  '_________ '        TO   MPSAMT6      (MPS2)         06450000
             MOVE  WABU                TO   MPSPGMA      (MPS2)         06450000
             MOVE  WABU                TO   MPSAMT1A     (MPS2)         06450000
             MOVE  WABU                TO   MPSAMT2A     (MPS2)         06450000
             MOVE  WABU                TO   MPSAMT3A     (MPS2)         06450000
             MOVE  WABU                TO   MPSAMT4A     (MPS2)         06450000
             MOVE  WABU                TO   MPSAMT5A     (MPS2)         06450000
             MOVE  WABU                TO   MPSAMT6A     (MPS2)         06450000
             MOVE  ZEROS               TO   MPSPGML      (MPS2)         06450000
             MOVE  ZEROS               TO   MPSAMT1L     (MPS2)         06450000
             MOVE  ZEROS               TO   MPSAMT2L     (MPS2)         06450000
             MOVE  ZEROS               TO   MPSAMT3L     (MPS2)         06450000
             MOVE  ZEROS               TO   MPSAMT4L     (MPS2)         06450000
             MOVE  ZEROS               TO   MPSAMT5L     (MPS2)         06450000
             MOVE  ZEROS               TO   MPSAMT6L     (MPS2)         06450000
             SET   MPS2                UP   BY  +1                      06360000
             GO                        TO   305-LOOP.                   06370000
                                                                                
           MOVE    '99'                TO   RETCDF                      06810000
           MOVE    WABU                TO   MPSPGMA      (MPS2)         06820000
           EXEC    CICS HANDLE CONDITION    NOTFND  (310-NEW)  END-EXEC 06830000
           EXEC    CICS READ                DATASET (CDFFIL)            06840000
                                            INTO    (CDF)               06850000
                                            RIDFLD  (CDFKEY)            06860000
                                            LENGTH  (CDFLENR)  END-EXEC 06870000
           MOVE    WABPS               TO   MPSPGMA      (MPS2)         07340000
           MOVE    '00'                TO   RETCDF.                     07350000
       310-NEW.                                                         07360000
           IF      RETCDF              NOT  =  '00'                             
             MOVE  SPACES              TO   CDFDATA                             
             MOVE  ZEROS               TO   CDFAMT1  CDFAMT2  CDFAMT3           
                                            CDFAMT4  CDFAMT5  CDFAMT6           
                                            CDFTOTAL.                           
           MOVE    CDF                 TO   ODF                         07450000
           IF      MPSAMT1A    (MPS2)  =    WABEOF                              
             MOVE  '_________ '        TO   MPSAMT1        (MPS2)               
             MOVE  WABU                TO   MPSAMT1A       (MPS2)               
             MOVE  ZEROS               TO   MPSAMT1L       (MPS2)               
             MOVE  ZEROS               TO   CDFAMT1                             
           ELSE                                                                 
             IF      MPSAMT1L  (MPS2)  >    ZEROS                               
               MOVE  ZEROS             TO   MPSAMT1L       (MPS2)               
               MOVE  MPSAMT1   (MPS2)  TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   MPSAMT1A       (MPS2)               
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   MPSAMT19       (MPS2)               
                                            CDFAMT1                             
               ELSE                                                             
                 MOVE  WNU90           TO   MPSAMT19       (MPS2)               
                                            CDFAMT1                             
             ELSE                                                               
               IF      MPSAMT1 (MPS2)  >    LOW-VALUES                          
                 MOVE  WABUN           TO   MPSAMT1A       (MPS2)               
                 MOVE  MPSAMT1 (MPS2)  TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   MPSAMT19       (MPS2)               
                                            CDFAMT1                             
                 ELSE                                                           
                   MOVE  WNU90         TO   MPSAMT19       (MPS2)               
                                            CDFAMT1.                            
           IF      MPSAMT2A    (MPS2)  =    WABEOF                              
             MOVE  '_________ '        TO   MPSAMT2        (MPS2)               
             MOVE  WABU                TO   MPSAMT2A       (MPS2)               
             MOVE  ZEROS               TO   MPSAMT2L       (MPS2)               
             MOVE  ZEROS               TO   CDFAMT2                             
           ELSE                                                                 
             IF      MPSAMT2L  (MPS2)  >    ZEROS                               
               MOVE  ZEROS             TO   MPSAMT2L       (MPS2)               
               MOVE  MPSAMT2   (MPS2)  TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   MPSAMT2A       (MPS2)               
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   MPSAMT29       (MPS2)               
                                            CDFAMT2                             
               ELSE                                                             
                 MOVE  WNU90           TO   MPSAMT29       (MPS2)               
                                            CDFAMT2                             
             ELSE                                                               
               IF      MPSAMT2 (MPS2)  >    LOW-VALUES                          
                 MOVE  WABUN           TO   MPSAMT2A       (MPS2)               
                 MOVE  MPSAMT2 (MPS2)  TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   MPSAMT29       (MPS2)               
                                            CDFAMT2                             
                 ELSE                                                           
                   MOVE  WNU90         TO   MPSAMT29       (MPS2)               
                                            CDFAMT2.                            
           IF      MPSAMT3A    (MPS2)  =    WABEOF                              
             MOVE  '_________ '        TO   MPSAMT3        (MPS2)               
             MOVE  WABU                TO   MPSAMT3A       (MPS2)               
             MOVE  ZEROS               TO   MPSAMT3L       (MPS2)               
             MOVE  ZEROS               TO   CDFAMT3                             
           ELSE                                                                 
             IF      MPSAMT3L  (MPS2)  >    ZEROS                               
               MOVE  ZEROS             TO   MPSAMT3L       (MPS2)               
               MOVE  MPSAMT3   (MPS2)  TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   MPSAMT3A       (MPS2)               
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   MPSAMT39       (MPS2)               
                                            CDFAMT3                             
               ELSE                                                             
                 MOVE  WNU90           TO   MPSAMT39       (MPS2)               
                                            CDFAMT3                             
             ELSE                                                               
               IF      MPSAMT3 (MPS2)  >    LOW-VALUES                          
                 MOVE  WABUN           TO   MPSAMT3A       (MPS2)               
                 MOVE  MPSAMT3 (MPS2)  TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   MPSAMT39       (MPS2)               
                                            CDFAMT3                             
                 ELSE                                                           
                   MOVE  WNU90         TO   MPSAMT39       (MPS2)               
                                            CDFAMT3.                            
           IF      MPSAMT4A    (MPS2)  =    WABEOF                              
             MOVE  '_________ '        TO   MPSAMT4        (MPS2)               
             MOVE  WABU                TO   MPSAMT4A       (MPS2)               
             MOVE  ZEROS               TO   MPSAMT4L       (MPS2)               
             MOVE  ZEROS               TO   CDFAMT1                             
           ELSE                                                                 
             IF      MPSAMT4L  (MPS2)  >    ZEROS                               
               MOVE  ZEROS             TO   MPSAMT4L       (MPS2)               
               MOVE  MPSAMT4   (MPS2)  TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   MPSAMT4A       (MPS2)               
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   MPSAMT49       (MPS2)               
                                            CDFAMT4                             
               ELSE                                                             
                 MOVE  WNU90           TO   MPSAMT49       (MPS2)               
                                            CDFAMT4                             
             ELSE                                                               
               IF      MPSAMT4 (MPS2)  >    LOW-VALUES                          
                 MOVE  WABUN           TO   MPSAMT4A       (MPS2)               
                 MOVE  MPSAMT4 (MPS2)  TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   MPSAMT49       (MPS2)               
                                            CDFAMT4                             
                 ELSE                                                           
                   MOVE  WNU90         TO   MPSAMT49       (MPS2)               
                                            CDFAMT4.                            
           IF      MPSAMT5A    (MPS2)  =    WABEOF                              
             MOVE  '_________ '        TO   MPSAMT5        (MPS2)               
             MOVE  WABU                TO   MPSAMT5A       (MPS2)               
             MOVE  ZEROS               TO   MPSAMT5L       (MPS2)               
             MOVE  ZEROS               TO   CDFAMT5                             
           ELSE                                                                 
             IF      MPSAMT5L  (MPS2)  >    ZEROS                               
               MOVE  ZEROS             TO   MPSAMT5L       (MPS2)               
               MOVE  MPSAMT5   (MPS2)  TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   MPSAMT5A       (MPS2)               
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   MPSAMT59       (MPS2)               
                                            CDFAMT5                             
               ELSE                                                             
                 MOVE  WNU90           TO   MPSAMT59       (MPS2)               
                                            CDFAMT5                             
             ELSE                                                               
               IF      MPSAMT5 (MPS2)  >    LOW-VALUES                          
                 MOVE  WABUN           TO   MPSAMT5A       (MPS2)               
                 MOVE  MPSAMT5 (MPS2)  TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   MPSAMT59       (MPS2)               
                                            CDFAMT5                             
                 ELSE                                                           
                   MOVE  WNU90         TO   MPSAMT59       (MPS2)               
                                            CDFAMT5.                            
           IF      MPSAMT6A    (MPS2)  =    WABEOF                              
             MOVE  '_________ '        TO   MPSAMT6        (MPS2)               
             MOVE  WABU                TO   MPSAMT6A       (MPS2)               
             MOVE  ZEROS               TO   MPSAMT6L       (MPS2)               
             MOVE  ZEROS               TO   CDFAMT6                             
           ELSE                                                                 
             IF      MPSAMT6L  (MPS2)  >    ZEROS                               
               MOVE  ZEROS             TO   MPSAMT6L       (MPS2)               
               MOVE  MPSAMT6   (MPS2)  TO   WNUIN                               
               PERFORM 700-CONVERT     THRU 700-EXIT                            
               MOVE  WABU              TO   MPSAMT6A       (MPS2)               
               IF    WNUSIGN           =    '-'                                 
                 COMPUTE  WNU90        =    0 - WNU90                           
                 MOVE  WNU90           TO   MPSAMT69       (MPS2)               
                                            CDFAMT6                             
               ELSE                                                             
                 MOVE  WNU90           TO   MPSAMT69       (MPS2)               
                                            CDFAMT6                             
             ELSE                                                               
               IF      MPSAMT6 (MPS2)  >    LOW-VALUES                          
                 MOVE  WABUN           TO   MPSAMT6A       (MPS2)               
                 MOVE  MPSAMT6 (MPS2)  TO   WNUIN                               
                 PERFORM 700-CONVERT   THRU 700-EXIT                            
                 IF    WNUSIGN         =    '-'                                 
                   COMPUTE  WNU90      =    0 - WNU90                           
                   MOVE  WNU90         TO   MPSAMT69       (MPS2)               
                                            CDFAMT6                             
                 ELSE                                                           
                   MOVE  WNU90         TO   MPSAMT69       (MPS2)               
                                            CDFAMT6.                            
                                                                                
           IF      CDFAMT1             =    ZEROS                               
             MOVE  '_________ '        TO   MPSAMT1        (MPS2).              
           IF      CDFAMT2             =    ZEROS                               
             MOVE  '_________ '        TO   MPSAMT2        (MPS2).              
           IF      CDFAMT3             =    ZEROS                               
             MOVE  '_________ '        TO   MPSAMT3        (MPS2).              
           IF      CDFAMT4             =    ZEROS                               
             MOVE  '_________ '        TO   MPSAMT4        (MPS2).              
           IF      CDFAMT5             =    ZEROS                               
             MOVE  '_________ '        TO   MPSAMT5        (MPS2).              
           IF      CDFAMT6             =    ZEROS                               
             MOVE  '_________ '        TO   MPSAMT6        (MPS2).              
                                                                                
           IF      RETCDF              NOT  =  '00'                     09500000
             MOVE  'A'                 TO   WSCACT                      09510000
           ELSE                                                         09580000
             IF    CDFAMT1             >    ZEROS                   OR  09590000
                   CDFAMT2             >    ZEROS                   OR  09590000
                   CDFAMT3             >    ZEROS                   OR  09590000
                   CDFAMT4             >    ZEROS                   OR  09590000
                   CDFAMT5             >    ZEROS                   OR  09590000
                   CDFAMT6             >    ZEROS                       09600000
               MOVE  'C'               TO   WSCACT                      09610000
             ELSE                                                       09620000
               MOVE  'D'               TO   WSCACT                      09630000
               GO                      TO   310-UPDATE.                         
                                                                                
           MOVE    WCMSODIST           TO   SPTKEY                              
           MOVE    WCMSOFY             TO   SPTFY                               
           MOVE    NEWFUND             TO   SPTFUND                             
           MOVE    NEWTABLE            TO   SPTTABLE                            
           MOVE    NEWSCHL             TO   SPTSCHL                             
           MOVE    CDFPGM              TO   SPTPGM                              
           MOVE    '99'                TO   RETSPT                      06810000
           EXEC    CICS HANDLE CONDITION    NOTFND  (310-ERR1) END-EXEC 06830000
           EXEC    CICS READ                DATASET (SPTFIL)            06840000
                                            INTO    (SPT)               06850000
                                            RIDFLD  (SPTKEY)            06860000
                                            LENGTH  (SPTLENR)  END-EXEC 06870000
           MOVE    '00'                TO   RETSPT.                     07350000
       310-ERR1.                                                        07360000
           IF      RETSPT              NOT  =  '00'                             
             IF    RETCDF              =    '00'                                
               MOVE  WABPSB            TO   MPSPGMA        (MPS2)               
             ELSE                                                               
               MOVE  WABUMB            TO   MPSPGMA        (MPS2)               
               MOVE  -1                TO   MPSPGML        (MPS2)               
                                            RETERR.                             
           IF      CDFAMT1             <    ZEROS                               
             MOVE  WABUMB              TO   MPSAMT1A       (MPS2).              
           IF     (CDFAMT1             NOT  =  ZERO              AND            
                   EDTSTAFF            NOT  =  'Y')                             
             MOVE  WABUMB              TO   MPSAMT1A       (MPS2)               
             MOVE  -1                  TO   MPSAMT1L       (MPS2)               
                                            RETERR.                             
           IF      CDFAMT2             <    ZEROS                               
             MOVE  WABUMB              TO   MPSAMT2A       (MPS2).              
           IF     (CDFAMT2             NOT  =  ZERO              AND            
                   EDTSTAFF            NOT  =  'Y')                             
             MOVE  WABUMB              TO   MPSAMT2A       (MPS2)               
             MOVE  -1                  TO   MPSAMT2L       (MPS2)               
                                            RETERR.                             
           IF      CDFAMT3             <    ZEROS                               
             MOVE  WABUMB              TO   MPSAMT3A       (MPS2).              
           IF     (CDFAMT3             NOT  =  ZERO              AND            
041803             EDTSTAFF            NOT  =  'Y')                             
041803*            EDTFTE              NOT  =  'Y')                             
             MOVE  WABUMB              TO   MPSAMT3A       (MPS2)               
             MOVE  -1                  TO   MPSAMT3L       (MPS2)               
                                            RETERR.                             
           IF      CDFAMT4             <    ZEROS                               
             MOVE  WABUMB              TO   MPSAMT4A       (MPS2).              
           IF     (CDFAMT4             NOT  =  ZERO              AND            
041803             EDTSTAFF            NOT  =  'Y')                             
041803*            EDTFTE              NOT  =  'Y')                             
             MOVE  WABUMB              TO   MPSAMT4A       (MPS2)               
             MOVE  -1                  TO   MPSAMT4L       (MPS2)               
                                            RETERR.                             
           IF      CDFAMT5             <    ZEROS                               
             MOVE  WABUMB              TO   MPSAMT5A       (MPS2).              
           IF     (CDFAMT5             NOT  =  ZERO              AND            
                   EDTSTAFF            NOT  =  'Y')                             
             MOVE  WABUMB              TO   MPSAMT5A       (MPS2)               
             MOVE  -1                  TO   MPSAMT5L       (MPS2)               
                                            RETERR.                             
           IF      CDFAMT6             <    ZEROS                               
             MOVE  WABUMB              TO   MPSAMT6A       (MPS2).              
           IF     (CDFAMT6             NOT  =  ZERO              AND            
041803             EDTSTAFF            NOT  =  'Y')                             
041803*            EDTFTE              NOT  =  'Y')                             
             MOVE  WABUMB              TO   MPSAMT6A       (MPS2)               
             MOVE  -1                  TO   MPSAMT6L       (MPS2)               
                                            RETERR.                             
                                                                                
           IF      RETERR              NOT  =  ZEROS                            
             MOVE  RETERR              TO   RETERR2                             
             SET   MPS2                UP   BY  +1                              
             GO                        TO   305-LOOP.                           
                                                                                
       310-UPDATE.                                                      09650000
           COMPUTE EDTSAL              =    EDTSAL    - ODFAMT1                 
                                             + CDFAMT1                          
           COMPUTE EDTBEN              =    EDTBEN    - ODFAMT2                 
                                             + CDFAMT2                          
           COMPUTE EDTPURSRV           =    EDTPURSRV - ODFAMT3                 
                                             + CDFAMT3                          
           COMPUTE EDTMTRL             =    EDTMTRL   - ODFAMT4                 
                                             + CDFAMT4                          
           COMPUTE EDTOTHR             =    EDTOTHR   - ODFAMT5                 
                                             + CDFAMT5                          
           COMPUTE EDTCAP              =    EDTCAP    - ODFAMT6                 
                                             + CDFAMT6                          
                                                                                
           IF      WSCACT              =    'D'                                 
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)            10960101
                                            INTO    (CDF)               10960201
                                            RIDFLD  (CDFKEY)            10960301
                                            LENGTH  (CDFLENR)  END-EXEC 10960401
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC 11010000
             MOVE  '_________ '        TO   MPSAMT1      (MPS2)         06450000
             MOVE  '_________ '        TO   MPSAMT2      (MPS2)         06450000
             MOVE  '_________ '        TO   MPSAMT3      (MPS2)         06450000
             MOVE  '_________ '        TO   MPSAMT4      (MPS2)         06450000
             MOVE  '_________ '        TO   MPSAMT5      (MPS2)         06450000
             MOVE  '_________ '        TO   MPSAMT6      (MPS2)         06450000
             MOVE  WABU                TO   MPSAMT1A     (MPS2)         06450000
             MOVE  WABU                TO   MPSAMT2A     (MPS2)         06450000
             MOVE  WABU                TO   MPSAMT3A     (MPS2)         06450000
             MOVE  WABU                TO   MPSAMT4A     (MPS2)         06450000
             MOVE  WABU                TO   MPSAMT5A     (MPS2)         06450000
             MOVE  WABU                TO   MPSAMT6A     (MPS2)         06450000
             MOVE  ZEROS               TO   MPSAMT1L     (MPS2)         06450000
             MOVE  ZEROS               TO   MPSAMT2L     (MPS2)         06450000
             MOVE  ZEROS               TO   MPSAMT3L     (MPS2)         06450000
             MOVE  ZEROS               TO   MPSAMT4L     (MPS2)         06450000
             MOVE  ZEROS               TO   MPSAMT5L     (MPS2)         06450000
             MOVE  ZEROS               TO   MPSAMT6L     (MPS2)         06450000
             SET   MPS2                UP   BY  +1                      06360000
             IF    RETERR2             NOT  =  -1                               
               MOVE  ZEROS             TO   RETERR2                             
               GO                      TO   305-LOOP                    06370000
             ELSE                                                               
               GO                      TO   305-LOOP.                   06370000
                                                                                
           IF      CDF                 =    ODF                         10790000
             SET   MPS2                UP   BY  +1                      06360000
             GO                        TO   305-LOOP.                           
           IF      RETERR2             NOT  =   -1                      10910000
             MOVE  ZEROS               TO   RETERR2.                    10920000
           IF      RETSPT              =    '00'                                
             MOVE  WABPS               TO   MPSPGMA      (MPS2)         10930000
             MOVE  ZEROS               TO   MPSPGML      (MPS2).        10950000
                                                                                
           IF      RETCDF              =    '00'                        10960000
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)            10960101
                                            INTO    (ODF)               10960201
                                            RIDFLD  (CDFKEY)            10960301
                                            LENGTH  (CDFLENR)  END-EXEC 10960401
             EXEC  CICS REWRITE             DATASET (CDFFIL)            11010000
                                            FROM    (CDF)               11020000
                                            LENGTH  (CDFLENR)  END-EXEC 11030000
           ELSE                                                                 
             EXEC  CICS WRITE               DATASET (CDFFIL)            11051000
                                            FROM    (CDF)               11060000
                                            RIDFLD  (CDFKEY)            11070000
                                            LENGTH  (CDFLENR)  END-EXEC.11080000
           SET     MPS2                UP   BY  +1                              
           GO                          TO   305-LOOP.                   11100000
                                                                                
       315-CONT.                                                                
           MOVE    ZEROS               TO   RETERR                              
           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    NEWSCHL             TO   CDFSCHL                             
           MOVE    '7000'              TO   CDFCONTROL   CDFCONTROL2            
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (315-NEW)  END-EXEC         
           EXEC    CICS READ                DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           MOVE    '00'                TO   RETCDF.                             
       315-NEW.                                                                 
           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.                                 
       315-LOOP.                                                                
           IF      CDFB         (CDF1) =    '_'                                 
             MOVE  ' '                 TO   CDFB         (CDF1).                
           IF      CDF1                <    +94                                 
             SET   CDF1                UP   BY  +1                              
             GO                        TO   315-LOOP.                           
                                                                                
           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     (RETCDF              =    ZEROS)                  AND         
                  (CDFAMT1             =    ZEROS)                  AND         
                  (CDFPCT              =    SPACES)                 AND         
                  (CDFAMT2             =    ZEROS)                  AND         
                  (CDFAMT3             =    ZEROS)                  AND         
                  (CDFAMT4             =    ZEROS)                  AND         
                  (CDFAMT5             =    ZEROS)                  AND         
                  (CDFAMT6             =    ZEROS)                              
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)            10960101
                                            INTO    (CDF)               10960201
                                            RIDFLD  (CDFKEY)            10960301
                                            LENGTH  (CDFLENR)  END-EXEC 10960401
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC 11010000
             MOVE  '_________ '        TO   MSALI                       06450000
             MOVE  ALL '_'             TO   MPCTI                               
             MOVE  '_________ '        TO   MBENI                       06450000
             MOVE  '_________ '        TO   MPURSRVI                    06450000
             MOVE  '_________ '        TO   MMTRLI                      06450000
             MOVE  '_________ '        TO   MOTHRI                      06450000
             MOVE  '_________ '        TO   MCAPI                       06450000
             MOVE  WABU                TO   MSALA                       06450000
             MOVE  WABU                TO   MPCTA                       06450000
             MOVE  WABU                TO   MBENA                       06450000
             MOVE  WABU                TO   MPURSRVA                    06450000
             MOVE  WABU                TO   MMTRLA                      06450000
             MOVE  WABU                TO   MOTHRA                      06450000
             MOVE  WABU                TO   MCAPA                       06450000
             MOVE  ZEROS               TO   MSALL                       06450000
             MOVE  ZEROS               TO   MPCTL                       06450000
             MOVE  ZEROS               TO   MBENL                       06450000
             MOVE  ZEROS               TO   MPURSRVL                    06450000
             MOVE  ZEROS               TO   MMTRLL                      06450000
             MOVE  ZEROS               TO   MOTHRL                      06450000
             MOVE  ZEROS               TO   MCAPL                       06450000
             IF    RETERR2             NOT  =  -1                               
               MOVE  ZEROS             TO   RETERR2                             
               GO                      TO   315-END                     06370000
             ELSE                                                               
               GO                      TO   315-END.                    06370000
                                                                                
           IF      CDFAMT1             <    ZEROS                               
             MOVE  WABUMB              TO   MSALA.                              
           IF     (EDTSAL              >    CDFAMT1)                OR          
                  (CDFAMT1             NOT  =  ZERO              AND            
                   EDTSTAFF            NOT  =  'Y')                             
             MOVE  WABUMB              TO   MSALA                               
             MOVE  -1                  TO   MSALL         RETERR.               
           IF     (CDFPCT              NOT  =  'P'               AND            
                   CDFPCT              NOT  =  SPACES)              OR          
                  (EDT1000PCT          =    SPACES               AND            
                   CDFPCT              =    'P')                                
             MOVE  WABUMB              TO   MPCTA                               
             MOVE  -1                  TO   MPCTL         RETERR.               
           IF      CDFAMT2             <    ZEROS                               
             MOVE  WABUMB              TO   MBENA.                              
           IF     (EDTBEN              >    CDFAMT2)                OR          
                  (CDFAMT2             NOT  =  ZERO              AND            
                   EDTSTAFF            NOT  =  'Y')                 OR          
                  (CDFPCT              =    'P'                  AND            
                   CDFAMT2             =    ZERO)                               
             MOVE  WABUMB              TO   MBENA                               
             MOVE  -1                  TO   MBENL         RETERR.               
           IF      CDFAMT3             <    ZEROS                               
             MOVE  WABUMB              TO   MPURSRVA.                           
           IF     (EDTPURSRV           >    CDFAMT3)                OR          
                  (CDFAMT3             NOT  =  ZERO              AND            
041803             EDTSTAFF            NOT  =  'Y')                             
041803*            EDTFTE              NOT  =  'Y')                             
             MOVE  WABUMB              TO   MPURSRVA                            
             MOVE  -1                  TO   MPURSRVL      RETERR.               
           IF      CDFAMT4             <    ZEROS                               
             MOVE  WABUMB              TO   MMTRLA.                             
           IF     (EDTMTRL             >    CDFAMT4)                OR          
                  (CDFAMT4             NOT  =  ZERO              AND            
041803             EDTSTAFF            NOT  =  'Y')                             
041803*            EDTFTE              NOT  =  'Y')                             
             MOVE  WABUMB              TO   MMTRLA                              
             MOVE  -1                  TO   MMTRLL        RETERR.               
           IF      CDFAMT5             <    ZEROS                               
             MOVE  WABUMB              TO   MOTHRA.                             
           IF     (EDTOTHR             >    CDFAMT5)                OR          
                  (CDFAMT5             NOT  =  ZERO              AND            
                   EDTSTAFF            NOT  =  'Y')                             
             MOVE  WABUMB              TO   MOTHRA                              
             MOVE  -1                  TO   MOTHRL        RETERR.               
           IF      CDFAMT6             <    ZEROS                               
             MOVE  WABUMB              TO   MCAPA.                              
           IF     (EDTCAP              >    CDFAMT6)                OR          
                  (CDFAMT6             NOT  =  ZERO              AND            
041803             EDTSTAFF            NOT  =  'Y')                             
041803*            EDTFTE              NOT  =  'Y')                             
             MOVE  WABUMB              TO   MCAPA                               
             MOVE  -1                  TO   MCAPL         RETERR.               
                                                                                
           IF      RETERR              NOT  =   ZEROS                           
             MOVE  RETERR              TO   RETERR2                             
             GO                        TO   315-END.                            
                                                                                
           IF      CDF                 =    ODF                                 
             GO                        TO   315-END.                            
           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.        
       315-END.                                                                 
           IF      RETERR2             <    ZEROS                       06080000
             MOVE  MSG03               TO   MMSGO                       06090000
             GO                        TO   015-SEND                    06100000
           ELSE                                                         06110000
             MOVE    -1                TO   MTBLEL                      06120000
             IF      RETERR2           =    +1                          06130000
               MOVE  MSG15             TO   MMSGO                       06140000
               GO                      TO   015-SEND                    06150000
             ELSE                                                       06160000
               MOVE  MSG17             TO   MMSGO                       06170000
               GO                      TO   015-SEND.                   06180000
      ******************************************************************        
                                                                                
           COPY                             EWNUMBP.                            
                                                                                
      ******************************************************************        
       800-XCTL.                                                                
           IF     (EIBAID              =    DFHCLEAR)                OR         
                  (EIBAID              =    DFHPA1)                  OR         
                  (EIBAID              =    DFHPA2)                             
             MOVE  QWRMAP              TO   MPEW44O                             
             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  EIBCPOSN            TO   WCMXFCRS9     WCMXFPOS9             
             MOVE  'CZ03'              TO   WCMXFTO                             
             GO                        TO   805-XCTL.                           
                                                                                
           IF      EIBAID              =    DFHPF5                              
             IF      MPSLINE      (07) =    LOW-VALUES                  11320000
               GO                      TO   100-DISPLAY                 11330000
             ELSE                                                       11340000
               IF      WCMSOCURR       NOT  =  'U'                      11350000
                 GO                    TO   300-UPDATE                  11360000
               ELSE                                                     11370000
                 MOVE  LOW-VALUES      TO   MPSLINES      QWRLINES      11380000
                 MOVE  +10             TO   EIBCALEN                    11390000
                 MOVE  ZEROS           TO   MTBLEL        M66100L               
                 MOVE  -1              TO   M1PGML                      11400000
                 MOVE  MSG33           TO   MMSGO                       11410000
                 GO                    TO   015-SEND.                   11420000
           IF      EIBAID              =    DFHPF7                              
             GO                        TO   815-PF7.                            
           IF      EIBAID              =    DFHPF8                              
             GO                        TO   820-PF8.                            
           IF      EIBAID              =    DFHPF10                             
             GO                        TO   830-PF10.                           
                                                                                
           MOVE    QWRWCM              TO   WCM                                 
           IF      EIBAID              =    DFHPF12                             
             MOVE  SPACES              TO   WCMXFHLD                            
             MOVE  'C   '              TO   WCMXFTO                             
           ELSE                                                                 
             IF      EIBAID            =    DFHPF3                              
               MOVE  SPACES            TO   WCMXFHLD                            
               IF    (WCMXFFR          =    'CB02')                             
                 MOVE  WCMXFFR         TO   WCMXFTO                             
               ELSE                                                             
                 MOVE  'CB  '          TO   WCMXFTO                             
             ELSE                                                               
               MOVE  QWRMAP            TO   MPEW44O                             
               MOVE  +10               TO   EIBCALEN                            
               MOVE  -1                TO   MTBLEL                              
               GO                      TO   015-SEND.                           
                                                                                
       805-XCTL.                                                                
           MOVE    'C'                 TO   WCMXFTS                             
           MOVE    WCM                 TO   QWRWCM                              
           IF     (EIBCPOSN            >    +879)                    AND        
                  (EIBCPOSN            <    +1600)                              
             COMPUTE WCMXFPOS9         =    EIBCPOSN -                          
                                         (((EIBCPOSN / 80) - 11) * 80)          
           ELSE                                                                 
             COMPUTE WCMXFPOS9         =    EIBCPOSN.                           
           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    'CB04'              TO   WCMXFFR                             
           EXEC    CICS XCTL                PROGRAM ('EW02')                    
                                            COMMAREA(WCM)                       
                                            LENGTH  (220)      END-EXEC.        
                                                                                
      ******************************************************************        
       815-PF7.                                                                 
           MOVE    QWRLNMAX            TO   WSCLNMAX                            
           MOVE    QWRLNXT             TO   WSCLNCNT                            
           IF     (QWRLNXT             >    +7)                      OR         
                  (QWRLNINC            =    +1)                                 
             MOVE  LOW-VALUES          TO   QWRLINES                            
             MOVE  +10                 TO   EIBCALEN.                           
           MOVE    -1                  TO   WSCLNINC      MTBLEL                
           MOVE    MSG13               TO   MMSGO                               
           IF     (QWRPF7              =    SPACES)                  OR         
                  (QWRPF7              NOT  >   QWRFRST)                        
             GO                        TO   015-SEND.                           
           MOVE    QWRPF7              TO   CDFKEY                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (015-SEND)                  
                                            ENDFILE (015-SEND) END-EXEC         
           EXEC    CICS STARTBR             DATASET (CDFFIL)                    
                                            RIDFLD  (CDFKEY)   GTEQ             
                                            KEYLENGTH (CDFLENK)                 
                                            END-EXEC                            
           EXEC    CICS READPREV            DATASET (CDFFIL)                    
                                            INTO    (CDF)                       
                                            RIDFLD  (CDFKEY)                    
                                            LENGTH  (CDFLENR)  END-EXEC         
           IF      QWRLNINC            =    +1                                  
             MOVE  +8                  TO   WSCLNCNT                            
             MOVE  ZEROS               TO   WSCLNMAX.                           
           GO                          TO   110-OLD.                            
                                                                                
      ******************************************************************        
       820-PF8.                                                                 
           MOVE    QWRLNXT             TO   WSCLNCNT                            
           MOVE    QWRLNMAX            TO   WSCLNMAX                            
           IF     (QWRLNXT             =    ZEROS)                   OR         
                  (QWRLNINC            =    -1)                                 
             MOVE  LOW-VALUES          TO   QWRLINES                            
             MOVE  +10                 TO   EIBCALEN.                           
           MOVE    +1                  TO   WSCLNINC                            
           MOVE    -1                  TO   MTBLEL                              
           MOVE    MSG14               TO   MMSGO                               
           IF      QWRPF8              =    SPACES                              
             GO                        TO   015-SEND.                           
           MOVE    QWRPF8              TO   CDFKEY                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (015-SEND)                  
                                            ENDFILE (015-SEND) END-EXEC         
           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         
           IF      QWRLNINC            =    -1                                  
             MOVE  ZEROS               TO   WSCLNCNT                            
             MOVE  +8                  TO   WSCLNMAX.                           
           GO                          TO   110-OLD.                            
                                                                                
      ******************************************************************        
       830-PF10.                                                                
           IF      WCMSOCURR           NOT  =  'U'                      05920000
             GO                        TO   100-DISPLAY.                05970000
           MOVE    '99'                TO   RETALL                              
           MOVE    SPACES              TO   CDF                                 
           MOVE    WCMSODIST           TO   CDFDIST                             
           MOVE    WCMSOFY             TO   CDFFY                               
           MOVE    NEWFUND             TO   CDFFUND                             
           MOVE    NEWTABLE            TO   CDFTABLE                            
           MOVE    NEWSCHL             TO   CDFSCHL                             
           MOVE    '6'                 TO   CDFCONTROL                          
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (830-ERR1) END-EXEC         
           EXEC    CICS DELETE              DATASET (CDFFIL)                    
                                            RIDFLD  (CDFKEY)                    
                                            KEYLENGTH (15)                      
                                            GENERIC            END-EXEC         
           MOVE    '00'                TO   RETCDF.                             
       830-ERR1.                                                                
           IF      RETCDF              =    '00'                                
             MOVE  RETCDF              TO   RETALL.                             
                                                                                
           MOVE    '7'                 TO   CDFCONTROL                          
           MOVE    '99'                TO   RETCDF                              
           EXEC    CICS HANDLE CONDITION    NOTFND  (830-ERR2) END-EXEC         
           EXEC    CICS DELETE              DATASET (CDFFIL)                    
                                            RIDFLD  (CDFKEY)                    
                                            KEYLENGTH (15)                      
                                            GENERIC            END-EXEC         
           MOVE    '00'                TO   RETCDF.                             
       830-ERR2.                                                                
           IF      RETCDF              =    '00'                                
             MOVE  RETCDF              TO   RETALL.                             
                                                                                
           IF      RETALL              NOT  =  '00'                             
             MOVE  -1                  TO   MTBLEL                              
             MOVE  MSG29               TO   MMSGO                               
             GO                        TO   015-SEND.                           
                                                                                
           MOVE    LOW-VALUES          TO   MPEW44O     QWRMAP                  
           MOVE    +10                 TO   EIBCALEN                            
           MOVE    -1                  TO   MTBLEL                              
           MOVE    MSG20               TO   MMSGO                               
           GO                          TO   015-SEND.                           
                                                                                
      ******************************************************************        
       850-CALLED.                                                              
           MOVE    WCMXFCRS9           TO   EIBCPOSN                            
           MOVE    DFHCOMMAREA         TO   WCM                                 
           IF      WCMRETCD            NOT  =   'G'                             
             GO                        TO   900-SECURITY.                       
           IF      WCMXFFR             =    'CZ02'                              
             MOVE  WCMXFHLD            TO   WCMXFFR                             
             MOVE  WCMXFCRS9           TO   EIBCPOSN                            
             MOVE  1234                TO   EIBCALEN                            
             MOVE  QWRMAP              TO   MPEW44O                             
             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   MPEW44O                             
             IF      WCMXFPROM         NOT  =   SPACES                          
               IF      WCMXFPNL5       =    'SCHL '                             
                 MOVE  WCMXFPROM       TO   MSCHLO                              
                 GO                    TO   015-SEND                            
               ELSE                                                             
                 IF      WCMXFPNL5     =    'TBLE '                             
                   MOVE  WCMXFPROM     TO   MTBLEO                              
                   GO                  TO   015-SEND                            
                 ELSE                                                           
                   COMPUTE WSCLNCNT    =   (EIBCPOSN / 80) - 12                 
                   IF     (WSCLNCNT    >    +0)                      AND        
                          (WSCLNCNT    <    +8)                                 
                     SET   MPS2        TO   WSCLNCNT                            
                     IF   (WCMXFPNL5   =    'PGM ')                  AND        
                          (MPSPGMA (MPS2)   NOT  =  WABPS)           AND        
                          (MPSPGMA (MPS2)   NOT  =  WABPSB)                     
                       MOVE  WCMXFPROM TO   MPSPGM       (MPS2)                 
                       GO              TO   015-SEND                            
                     ELSE                                                       
                       GO              TO   015-SEND                            
                   ELSE                                                         
                     GO                TO   015-SEND                            
             ELSE                                                               
               GO                      TO   015-SEND.                           
           IF      WCMXFFR             =    'CB02'                              
             MOVE  WCMXFPROM           TO   NEWKEY                              
             GO                        TO   100-DISPLAY.                        
           MOVE    LOW-VALUES          TO   MPEW44O       QWRMAP                
           MOVE    HIGH-VALUES         TO   QWRPF7        OLDKEY                
           MOVE    SPACES              TO   NEWKEY                              
           MOVE    -1                  TO   MTBLEL                              
           MOVE    MSG18               TO   MMSGO                               
           GO                          TO   015-SEND.                           
                                                                                
      ******************************************************************        
       900-SECURITY.                                                            
           MOVE    ZEROS               TO   EIBCALEN                            
           MOVE    WCMXFHLD            TO   WCMXFFR                             
           MOVE    1234                TO   EIBCALEN                            
           MOVE    +14                 TO   EIBCPOSN                            
           MOVE    QWRMAP              TO   MPEW44O                             
           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.                                                              
