       IDENTIFICATION DIVISION.                                         00001000
       PROGRAM-ID.    EW52.                                             00002000
       AUTHOR.        DOE.                                              00003000
      ******************************************************************00004000
      *                        B07. FORM 11                            *00005000
      ******************************************************************00006000
      * DATE CREATED:  04/28/99                                        *00007000
      ******************************************************************00008000
      * CALL #  - MMDDYY - PURPOSE                                     *00009000
      * jca       090999 - mod to correct map alignment problem        *00010000
      * 2006001 - 041306 - ADD FUNCTIONS 6500 & 8200                   *00010000
      ******************************************************************00011000
                                                                        00012000
       ENVIRONMENT DIVISION.                                            00013000
       CONFIGURATION SECTION.                                           00014000
       DATA DIVISION.                                                   00015000
                                                                        00016000
       WORKING-STORAGE SECTION.                                         00017000
                                                                        00018000
       01            WSC.                                               00019000
041306*    05        WSCMAPLEN         PIC S9(04) COMP SYNC VALUE +0894.00020000
041306     05        WSCMAPLEN         PIC S9(04) COMP SYNC VALUE +0922.00020000
           05        WSCMAXRD          PIC S9(04) COMP SYNC VALUE +300. 00021000
           05        WSCRDCNT          PIC S9(04) COMP SYNC VALUE +0.   00022000
           05        WSCLNCNT          PIC S9(02) COMP.                 00023000
           05        WSCLNINC          PIC S9(02) COMP.                 00024000
           05        WSCLNMAX          PIC S9(02) COMP.                 00025000
           05        WSCFIRST          PIC  X(01)  VALUE  SPACES.       00026000
           05        WSCACT            PIC  X(01)  VALUE  SPACES.       00027000
           05        HGH.                                               00028000
             10      HGHDIST           PIC  X(02).                      00029000
             10      HGHFY             PIC  X(02).                      00030000
             10      HGHFUND           PIC  X(01).                      00031000
             10      HGHTABLE          PIC  X(05).                      00032000
             10      HGHSCHL           PIC  X(04).                      00033000
             10      HGHCONTROL        PIC  X(04).                      00034000
                                                                        00035000
       01            WSK.                                               00048000
           05        NEWKEY.                                            00049000
             10      NEWFUND           PIC  X(01).                      00052000
             10      NEWSCHL           PIC  X(04).                      00053000
           05        NEWPANEL.                                          00054000
             10      NEWPANEL1         PIC  X(01).                      00055000
             10      NEWPANEL2         PIC  X(02).                      00056000
           05        OLDKEY            PIC  X(05).                      00057000
       01            NEWR       REDEFINES   WSK.                        00058000
           05        NEWB       OCCURS 008  TIMES  INDEXED BY NEW1      00059000
                                       PIC  X(01).                      00060000
                                                                        00061000
       01            RET.                                               00062000
           05        RETQWR            PIC  X(02).                      00063000
           05        RETCDF            PIC  X(02).                      00066000
           05        RETCRF            PIC  X(02).                      00067000
           05        RETALL            PIC  X(02).                      00068000
           05        RETERR            PIC S9(01).                      00069000
           05        RETERR2           PIC S9(01).                      00070000
                                                                        00071000
       01            MSG.                                               00072000
           05        MSG01             PIC  X(35) VALUE                 00073000
                     'District is not authorized.  EXIT.'.              00074000
           05        MSG03             PIC  X(37) VALUE                 00075000
                     'Highlighted elements in error. Retry.'.           00076000
           05        MSG13             PIC  X(28) VALUE                 00077000
                     'No previous records.  Next ?'.                    00078000
           05        MSG14             PIC  X(30) VALUE                 00079000
                     'No additional records.  Next ?'.                  00080000
           05        MSG15             PIC  X(28) VALUE                 00081000
                     'Record(s) unchanged.  Next ?'.                    00082000
           05        MSG17             PIC  X(26) VALUE                 00083000
                     'Record(s) updated.  Next ?'.                      00084000
           05        MSG18             PIC  X(40) VALUE                 00085000
                     'Please type key element(s).  Then ENTER.'.        00086000
           05        MSG20             PIC  X(17) VALUE                 00087000
                     'Records deleted. '.                               00088000
           05        MSG21             PIC  X(35) VALUE                 00089000
                     'Not on file. Not update authorized.'.             00090000
           05        MSG22             PIC  X(38) VALUE                 00091000
                     'Records displayed for inquiry.  Next ?'.          00092000
           05        MSG23             PIC  X(40) VALUE                 00093000
                     'Not on file.  Type data to add or retry.'.        00094000
           05        MSG25             PIC  X(22) VALUE                 00095000
                     'Page full.  Continue ?'.                          00096000
           05        MSG26             PIC  X(25) VALUE                 00097000
                     'No records found.  Next ?'.                       00098000
           05        MSG27             PIC  X(29) VALUE                 00099000
                     'Record limit met.  Continue ?'.                   00100000
           05        MSG28             PIC  X(35) VALUE                 00101000
                     'No record on line selected.  Next ?'.             00102000
           05        MSG29             PIC  X(28) VALUE                 00103000
                     'No record to delete.  Next ?'.                    00104000
           05        MSG33             PIC  X(37) VALUE                 00105000
                     'Panel cleared.  Enter new records.'.              00106000
           05        MSG90             PIC  X(35) VALUE                 00107000
                     'Not authorized for panel requested.'.             00108000
           05        MSG91             PIC  X(32) VALUE                 00109000
                     'Not authorized at this terminal.'.                00110000
           05        MSG92             PIC  X(35) VALUE                 00111000
                     'Panel unknown/not installed. Retry.'.             00112000
           05        MSG93             PIC  X(39) VALUE                 00113000
                     'Panel temporarily disabled.  Try later.'.         00114000
           05        MSG94             PIC  X(41) VALUE                 00115000
                     'Unknown system error. Request assistance.'.       00116000
           05        MSG95             PIC  X(35) VALUE                 00117000
                     'Database error. Request assistance.'.             00118000
           05        MSG96             PIC  X(42) VALUE                 00119000
                     'Program error(INVREQ). Request assistance.'.      00120000
           05        MSG97             PIC  X(30) VALUE                 00121000
                     'Database closed.  Retry later.'.                  00122000
                                                                        00123000
           COPY                             EWQWRC.                     00124000
           COPY                             EWCDFC.                     00126000
           COPY                             EWCRFC.                     00127000
                                                                        00128000
           COPY                             EWQWR.                      00129000
           05        QWRMAPR     REDEFINES  QWRMAP.                     00130000
             10      FILLER            PIC  X(0211).                    00131000
             10      QWRLINES          PIC  X(1283).                    00132000
                                                                        00137000
           COPY                             EWQWRI.                     00138000
           COPY                             EWNUMBW.                    00139000
           COPY                             EWCDF.                      00141000
           COPY                             EWTBL.                      00142000
           COPY                             EWSCL.                      00143000
                                                                        00144000
       01            ODF.                                               00145000
           05        ODFALT.                                            00146000
             10      FILLER                 PIC  X(14).                 00147000
             10      ODFKEY                 PIC  X(18).                 00148000
           05        ODFDATA.                                           00149000
             10      FILLER                 PIC  X(11).                 00150000
             10      ODFAMT1                PIC S9(09)       COMP-3.    00151000
             10      ODFAMT2                PIC S9(09)       COMP-3.    00152000
             10      ODFAMT3                PIC S9(09)       COMP-3.    00153000
             10      ODFAMT4                PIC S9(09)       COMP-3.    00154000
             10      ODFAMT5                PIC S9(09)       COMP-3.    00155000
             10      ODFAMT6                PIC S9(09)       COMP-3.    00156000
             10      ODFTOTAL               PIC S9(11)       COMP-3.    00157000
             10      ODFAMT7                PIC S9(09)       COMP-3.    00156000
             10      FILLER                 PIC  X(10).                 00158000
                                                                        00159000
           COPY                             EWWCM.                      00160000
           COPY                             DFHAID.                     00161000
           COPY                             EWWAB.                      00162000
                                                                        00163000
           COPY                             MPEW52.                     00164000
       01            MPEW52R     REDEFINES  MPEW52I.                    00165000
041306*    05        MAPBYTE        OCCURS  0894  TIMES INDEXED BY MAP1.00166000
041306     05        MAPBYTE        OCCURS  0922  TIMES INDEXED BY MAP1.00166000
             10      FILLER            PIC  X(01).                      00167000
       01            MPEW52L     REDEFINES  MPEW52I.                    00168000
ja0999*    05        FILLER            PIC  X(211).                     00169000
041306*    05        FILLER            PIC  X(226).                     00169000
041306     05        FILLER            PIC  X(254).                     00169000
           05        MPSLINES.                                          00170000
             10      MPSLINE        OCCURS  007   TIMES INDEXED BY MPS2.00171000
               15    MPSPGML           PIC S9(04)       COMP.           00172000
               15    MPSPGMA           PIC  X(01).                      00173000
               15    MPSPGM            PIC  X(03).                      00174000
               15    MPSAMT1L          PIC S9(04)       COMP.           00175000
               15    MPSAMT1A          PIC  X(01).                      00176000
               15    MPSAMT1.                                           00177000
                 20  MPSAMT19          PIC  ZZZZZZZZ-.                  00178000
               15    MPSAMT2L          PIC S9(04)       COMP.           00179000
               15    MPSAMT2A          PIC  X(01).                      00180000
               15    MPSAMT2.                                           00181000
                 20  MPSAMT29          PIC  ZZZZZZZZ-.                  00182000
               15    MPSAMT3L          PIC S9(04)       COMP.           00183000
               15    MPSAMT3A          PIC  X(01).                      00184000
               15    MPSAMT3.                                           00185000
                 20  MPSAMT39          PIC  ZZZZZZZZ-.                  00186000
               15    MPSAMT4L          PIC S9(04)       COMP.           00187000
               15    MPSAMT4A          PIC  X(01).                      00188000
               15    MPSAMT4.                                           00189000
                 20  MPSAMT49          PIC  ZZZZZZZZ-.                  00190000
               15    MPSAMT5L          PIC S9(04)       COMP.           00191000
               15    MPSAMT5A          PIC  X(01).                      00192000
               15    MPSAMT5.                                           00193000
                 20  MPSAMT59          PIC  ZZZZZZZZ-.                  00194000
               15    MPSAMT6L          PIC S9(04)       COMP.           00195000
               15    MPSAMT6A          PIC  X(01).                      00196000
               15    MPSAMT6.                                           00197000
                 20  MPSAMT69          PIC  ZZZZZZZZ-.                  00198000
               15    MPSAMT7L          PIC S9(04)       COMP.           00195000
               15    MPSAMT7A          PIC  X(01).                      00196000
               15    MPSAMT7.                                           00197000
                 20  MPSAMT79          PIC  ZZZZZZZZ-.                  00198000
           05        FILLER            PIC  X(53).                      00199000
                                                                        00200000
       LINKAGE SECTION.                                                 00201000
                                                                        00202000
       01  DFHCOMMAREA                 PIC  X(220).                     00203000
                                                                        00204000
       PROCEDURE DIVISION.                                              00205000
      ******************************************************************00206000
                                                                        00207000
       000-CONTROL.                                                     00208000
           MOVE    SPACES              TO   WSK           WCM           00209000
           MOVE    LOW-VALUES          TO   MPEW52O                     00210000
           MOVE    '99'                TO   RETQWR                      00233000
           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                    00231000
           MOVE    'EW52'              TO   QWRPGM                      00232000
           EXEC    CICS HANDLE CONDITION    NOTFND  (005-NEW)  END-EXEC 00234000
           EXEC    CICS READ                DATASET (QWRFIL)            00235000
                                            INTO    (QWR)               00236000
                                            RIDFLD  (QWRKEY)            00237000
                                            LENGTH  (QWRLENR)  END-EXEC 00238000
           MOVE    '00'                TO   RETQWR.                     00239000
       005-NEW.                                                         00240000
           IF      RETQWR              NOT  =   '00'                    00241000
             MOVE  QWRKEY              TO   QWRIKEY                     00242000
             MOVE  QWRI                TO   QWR                         00243000
             MOVE  DFHCOMMAREA         TO   WCM                         00244000
             MOVE  ZEROS               TO   WCMXFCRS9     WCMXFPOS9     00245000
             MOVE  HIGH-VALUES         TO   OLDKEY                      00246000
           ELSE                                                         00247000
             MOVE  QWRWCM              TO   WCM                         00248000
             MOVE  QWROLD              TO   OLDKEY.                     00249000
                                                                        00250000
           MOVE    WCMSODISTA          TO   CRFFILDS      CDFFILDS      00251000
           MOVE    QWROLD              TO   NEWKEY                      00253000
                                                                        00254000
           IF      EIBCALEN            >    ZEROS                       00255000
             GO                        TO   850-CALLED.                 00256000
           IF      EIBAID              NOT  =   DFHENTER                00257000
             GO                        TO   800-XCTL.                   00258000
                                                                        00259000
           PERFORM 010-RECEIVE         THRU 010-EXIT                    00260000
           IF      NEWPANEL            NOT  =   SPACES                  00261000
             MOVE  NEWPANEL            TO   WCMXFTPNL                   00262000
             GO                        TO   805-XCTL.                   00263000
           IF      NEWKEY              NOT  =   OLDKEY                  00264000
             GO                        TO   100-DISPLAY                 00265000
           ELSE                                                         00266000
             GO                        TO   300-UPDATE.                 00267000
                                                                        00268000
      ******************************************************************00269000
       010-RECEIVE.                                                     00270000
           EXEC    CICS RECEIVE             MAP    ('MPEW52')  END-EXEC 00271000
           MOVE    EIBCPOSN            TO   WCMXFCRS9                   00272000
           SET     MAP1  QWR1          TO   +1.                         00273000
       010-LOOP1.                                                       00274000
           IF     (MAPBYTE      (MAP1) NOT  =   LOW-VALUES)          AND00275000
                  (MAPBYTE      (MAP1) NOT  =   HIGH-VALUES)            00276000
             MOVE  MAPBYTE      (MAP1) TO   QWRBYTE      (QWR1).        00277000
           IF      MAP1                <    WSCMAPLEN                   00278000
             SET   MAP1  QWR1          UP   BY  +1                      00279000
             GO                        TO   010-LOOP1.                  00280000
           MOVE    QWRMAP              TO   MPEW52O                     00281000
                                                                        00282000
           MOVE    SPACES              TO   NEWKEY                      00283000
           IF      MPANELA             =    WABEOF                      00284000
             MOVE  WABUM               TO   MPANELA                     00285000
             MOVE  ALL '_'             TO   MPANELO       NEWPANEL      00286000
           ELSE                                                         00287000
             IF      MPANELL           >    ZEROS                       00288000
               MOVE  MPANELI           TO   NEWPANEL                    00289000
               MOVE  WABUM             TO   MPANELA                     00290000
             ELSE                                                       00291000
               IF      MPANELI         >    LOW-VALUES                  00292000
                 MOVE  MPANELI         TO   NEWPANEL.                   00293000
           IF      MFUNDA              =    WABEOF                      00303000
             MOVE  WABUM               TO   MFUNDA                      00304000
             MOVE  ALL '_'             TO   MFUNDO       NEWFUND        00305000
           ELSE                                                         00306000
             IF      MFUNDL            >    ZEROS                       00307000
               MOVE  ZEROS             TO   MFUNDL                      00308000
               MOVE  MFUNDI            TO   NEWFUND                     00309000
               MOVE  WABUM             TO   MFUNDA                      00310000
             ELSE                                                       00311000
               IF      MFUNDI          >    LOW-VALUES                  00312000
                 MOVE  MFUNDI          TO   NEWFUND.                    00313000
           IF      MSCHLA              =    WABEOF                      00314000
             MOVE  WABUM               TO   MSCHLA                      00315000
             MOVE  ALL '_'             TO   MSCHLO                      00316000
           ELSE                                                         00317000
             IF      MSCHLL            >    ZEROS                       00318000
               MOVE  ZEROS             TO   MSCHLL                      00319000
               MOVE  MSCHLI            TO   NEWSCHL                     00320000
               MOVE  WABUM             TO   MSCHLA                      00321000
             ELSE                                                       00322000
               IF      MSCHLI          >    LOW-VALUES                  00323000
                 MOVE  WABUM           TO   MSCHLA                      00324000
                 MOVE  MSCHLI          TO   NEWSCHL.                    00325000
                                                                        00326000
           SET     NEW1                TO   +1.                         00327000
       010-LOOP2.                                                       00328000
           IF      NEWB         (NEW1) =    '_'                         00329000
             MOVE  ' '                 TO   NEWB         (NEW1).        00330000
           IF      NEW1                <    +8                          00331000
             SET   NEW1                UP   BY  +1                      00332000
             GO                        TO   010-LOOP2.                  00333000
       010-EXIT.                                                        00334000
           EXIT.                                                        00335000
                                                                        00336000
      ******************************************************************00337000
       015-SEND.                                                        00338000
           MOVE    EIBTRMID            TO   QWRTRMID                    00339000
           MOVE    'EW52'              TO   QWRPGM                      00340000
           MOVE    OLDKEY              TO   QWROLD                      00341000
           MOVE    WCM                 TO   QWRWCM                      00342000
           MOVE    MPEW52O             TO   QWRMAP                      00343000
           EXEC    CICS HANDLE CONDITION    DUPREC  (015-ERR1) END-EXEC 00344000
           IF      RETQWR              NOT  =   '00'                    00345000
             EXEC  CICS WRITE               DATASET (QWRFIL)            00346000
                                            FROM    (QWR)               00347000
                                            RIDFLD  (QWRKEY)            00348000
                                            LENGTH  (QWRLENR)  END-EXEC 00349000
           ELSE                                                         00350000
             EXEC  CICS READ UPDATE         DATASET (QWRFIL)            00351000
                                            INTO    (QWRI)              00352000
                                            RIDFLD  (QWRKEY)            00353000
                                            LENGTH  (QWRLENR)  END-EXEC 00354000
             EXEC  CICS REWRITE             DATASET (QWRFIL)            00355000
                                            FROM    (QWR)               00356000
                                            LENGTH  (QWRLENR)  END-EXEC.00357000
       015-ERR1.                                                        00358000
           IF      EIBCALEN            =    ZEROS                       00377000
             EXEC  CICS SEND                MAP     ('MPEW52') DATAONLY 00378000
                                            CURSOR             END-EXEC 00379000
           ELSE                                                         00380000
             IF      EIBCALEN          NOT  =   1234                    00381000
               EXEC  CICS SEND              MAP     ('MPEW52') ERASE    00382000
                                            CURSOR             END-EXEC 00383000
             ELSE                                                       00384000
               EXEC  CICS SEND              MAP     ('MPEW52') ERASE    00385000
                                            CURSOR  (EIBCPOSN) END-EXEC.00386000
           EXEC CICS RETURN                 TRANSID ('EW52')   END-EXEC.00387000
                                                                        00388000
      ******************************************************************00389000
       100-DISPLAY.                                                     00390000
           MOVE    SPACES              TO   RETALL                      00395000
           MOVE    HIGH-VALUES         TO   OLDKEY                      00396000
           MOVE    LOW-VALUES          TO   MPEW52O       QWRMAP        00397000
           MOVE    +10                 TO   EIBCALEN                    00398000
           MOVE    +1                  TO   RETERR2                     00399000
           MOVE    ZEROS               TO   RETERR                      00400000
           SET     NEW1                TO   +1.                         00401000
       100-LOOP1.                                                       00402000
           IF      NEWB         (NEW1) =    ' '                         00403000
             MOVE  '_'                 TO   NEWB         (NEW1).        00404000
           IF      NEW1                <    +8                          00405000
             SET   NEW1                UP   BY  +1                      00406000
             GO                        TO   100-LOOP1.                  00407000
           MOVE    NEWPANEL            TO   MPANELO                     00408000
           MOVE    NEWFUND             TO   MFUNDO                      00410000
           MOVE    NEWSCHL             TO   MSCHLO                      00411000
           SET     NEW1                TO   +1.                         00412000
       100-LOOP2.                                                       00413000
           IF      NEWB         (NEW1) =    '_'                         00414000
             MOVE  ' '                 TO   NEWB         (NEW1).        00415000
           IF      NEW1                <    +8                          00416000
             SET   NEW1                UP   BY  +1                      00417000
             GO                        TO   100-LOOP2.                  00418000
                                                                        00419000
           IF     (NEWFUND             =    SPACES)                 OR  00420000
                  (NEWSCHL             =    SPACES)                     00422000
             MOVE  -1                  TO   MFUNDL                      00423000
             MOVE  MSG18               TO   MMSGO                       00424000
             GO                        TO   015-SEND.                   00425000
                                                                        00426000
           IF      NEWFUND             NOT  =   '1'                 AND 00445000
                   NEWFUND             NOT  =   '4'                     00445000
             MOVE  WABUMB              TO   MFUNDA                      00446000
             MOVE  -1                  TO   MFUNDL        RETERR.       00447000
                                                                        00448000
           MOVE    WCMSODIST           TO   SCLKEY                      00449000
           MOVE    WCMSOFY             TO   SCLFY                       00450000
           MOVE    'SCL'               TO   SCLPREF                     00451000
           MOVE    NEWSCHL             TO   SCLSCL                      00452000
           MOVE    '99'                TO   RETCRF                      00453000
           EXEC    CICS HANDLE CONDITION    NOTFND  (105-ERR2) END-EXEC 00454000
           EXEC    CICS READ                DATASET (CRFFIL)            00455000
                                            INTO    (SCL)               00456000
                                            RIDFLD  (SCLKEY)            00457000
                                            LENGTH  (CRFLENR)  END-EXEC 00458000
           MOVE    '00'                TO   RETCRF.                     00459000
       105-ERR2.                                                        00460000
           IF      RETCRF              NOT  =   '00'                OR  00461000
                   SCLCHRTR            NOT  =   'Y'                     00461000
             MOVE  WABUMB              TO   MSCHLA                      00462000
             MOVE  -1                  TO   MSCHLL        RETERR.       00463000
                                                                        00464000
           IF      RETERR              NOT  =   ZEROS                   00496000
             MOVE  MSG03               TO   MMSGO                       00497000
             GO                        TO   015-SEND.                   00498000
                                                                        00499000
           MOVE    NEWKEY              TO   OLDKEY                      00500000
           MOVE    SPACES              TO   CDF                         00501000
           MOVE    WCMSODIST           TO   CDFDIST                     00502000
           MOVE    WCMSOFY             TO   CDFFY                       00503000
           MOVE    NEWFUND             TO   CDFFUND                     00504000
           MOVE    '99998'             TO   CDFTABLE                    00505000
           MOVE    NEWSCHL             TO   CDFSCHL                     00506000
           MOVE    '4000'              TO   CDFCONTROL                  00507000
           MOVE    '99'                TO   RETCDF                      00508000
           EXEC    CICS HANDLE CONDITION    NOTFND  (110-NXT1) END-EXEC 00509000
           EXEC    CICS READ                DATASET (CDFFIL)            00510000
                                            INTO    (CDF)               00511000
                                            RIDFLD  (CDFKEY)            00512000
                                            LENGTH  (CDFLENR)  END-EXEC 00513000
           MOVE    '00'                TO   RETCDF                      00514000
           MOVE    CDFAMT1             TO   M46100O                             
           MOVE    CDFAMT2             TO   M46200O                     00516000
           MOVE    CDFAMT3             TO   M46300O                     00517000
           MOVE    CDFAMT4             TO   M46400O                     00518000
           IF      CDFAMT1             =    ZEROS                       00519000
             MOVE  '_________ '        TO   M46100I.                    00520000
           IF      CDFAMT2             =    ZEROS                       00521000
             MOVE  '_________ '        TO   M46200I.                    00522000
           IF      CDFAMT3             =    ZEROS                       00523000
             MOVE  '_________ '        TO   M46300I.                    00524000
           IF      CDFAMT4             =    ZEROS                       00525000
             MOVE  '_________ '        TO   M46400I.                    00526000
       110-NXT1.                                                        00527000
           IF      RETCDF              =    '00'                        00528000
             MOVE  RETCDF              TO   RETALL.                     00529000
                                                                        00530000
           MOVE    '4001'              TO   CDFCONTROL                  00531000
           MOVE    '99'                TO   RETCDF                      00532000
           EXEC    CICS HANDLE CONDITION    NOTFND  (110-NXT2) END-EXEC 00533000
           EXEC    CICS READ                DATASET (CDFFIL)            00534000
                                            INTO    (CDF)               00535000
                                            RIDFLD  (CDFKEY)            00536000
                                            LENGTH  (CDFLENR)  END-EXEC 00537000
           MOVE    '00'                TO   RETCDF                      00538000
           MOVE    CDFAMT1             TO   M47100O                     00539000
           MOVE    CDFAMT2             TO   M47200O                     00540000
           MOVE    CDFAMT3             TO   M47300O                     00541000
           MOVE    CDFAMT4             TO   M47400O                     00542000
           IF      CDFAMT1             =    ZEROS                       00543000
             MOVE  '_________ '        TO   M47100I.                    00544000
           IF      CDFAMT2             =    ZEROS                       00545000
             MOVE  '_________ '        TO   M47200I.                    00546000
           IF      CDFAMT3             =    ZEROS                       00547000
             MOVE  '_________ '        TO   M47300I.                    00548000
           IF      CDFAMT4             =    ZEROS                       00549000
             MOVE  '_________ '        TO   M47400I.                    00550000
       110-NXT2.                                                        00551000
           IF      RETCDF              =    '00'                        00552000
             MOVE  RETCDF              TO   RETALL.                     00553000
                                                                        00554000
           MOVE    '4002'              TO   CDFCONTROL                  00555000
           MOVE    '99'                TO   RETCDF                      00556000
           EXEC    CICS HANDLE CONDITION    NOTFND  (110-NXT3) END-EXEC 00557000
           EXEC    CICS READ                DATASET (CDFFIL)            00558000
                                            INTO    (CDF)               00559000
                                            RIDFLD  (CDFKEY)            00560000
                                            LENGTH  (CDFLENR)  END-EXEC 00561000
           MOVE    '00'                TO   RETCDF                      00562000
           MOVE    CDFAMT1             TO   M47500O                     00563000
           MOVE    CDFAMT2             TO   M47600O                     00564000
           MOVE    CDFAMT3             TO   M47700O                     00565000
           MOVE    CDFAMT4             TO   M47800O                     00565000
           IF      CDFAMT1             =    ZEROS                       00566000
             MOVE  '_________ '        TO   M47500I.                    00567000
           IF      CDFAMT2             =    ZEROS                       00568000
             MOVE  '_________ '        TO   M47600I.                    00569000
           IF      CDFAMT3             =    ZEROS                       00570000
             MOVE  '_________ '        TO   M47700I.                    00571000
           IF      CDFAMT4             =    ZEROS                       00570000
             MOVE  '_________ '        TO   M47800I.                    00571000
       110-NXT3.                                                        00572000
           IF      RETCDF              =    '00'                        00573000
             MOVE  RETCDF              TO   RETALL.                     00574000
                                                                        00575000
           MOVE    '4003'              TO   CDFCONTROL                  00555000
           MOVE    '99'                TO   RETCDF                      00556000
           EXEC    CICS HANDLE CONDITION    NOTFND  (110-NXT4) END-EXEC 00557000
           EXEC    CICS READ                DATASET (CDFFIL)            00558000
                                            INTO    (CDF)               00559000
                                            RIDFLD  (CDFKEY)            00560000
                                            LENGTH  (CDFLENR)  END-EXEC 00561000
           MOVE    '00'                TO   RETCDF                      00562000
           MOVE    CDFAMT1             TO   M47900O                     00563000
           MOVE    CDFAMT2             TO   M48100O                     00564000
041306     MOVE    CDFAMT3             TO   M48200O                     00564000
041306     MOVE    CDFAMT4             TO   M46500O                     00564000
           IF      CDFAMT1             =    ZEROS                       00566000
             MOVE  '_________ '        TO   M47900I.                    00567000
           IF      CDFAMT2             =    ZEROS                       00568000
             MOVE  '_________ '        TO   M48100I.                    00569000
041306     IF      CDFAMT3             =    ZEROS                       00568000
041306       MOVE  '_________ '        TO   M48200I.                    00569000
041306     IF      CDFAMT4             =    ZEROS                       00568000
041306       MOVE  '_________ '        TO   M46500I.                    00569000
       110-NXT4.                                                        00572000
           IF      RETCDF              =    '00'                        00573000
             MOVE  RETCDF              TO   RETALL.                     00574000
                                                                        00575000
           IF      RETALL              =    '00'                        00609000
             MOVE  -1                  TO   MFUNDL                      00610000
             MOVE  ZEROS               TO   M46100L                     00611000
             MOVE  MSG14               TO   MMSGO                       00612000
           ELSE                                                         00613000
             MOVE  ZEROS               TO   MFUNDL                      00614000
             MOVE  -1                  TO   M46100L                     00615000
             MOVE  MSG23               TO   MMSGO.                      00616000
           MOVE    SPACES              TO   QWRPF7        QWRPF8        00617000
           MOVE    SPACES              TO   QWRFRST                     00618000
           MOVE    'Y'                 TO   WSCFIRST                    00619000
           MOVE    +0                  TO   WSCLNCNT                    00620000
           MOVE    +1                  TO   WSCLNINC                    00621000
           MOVE    +8                  TO   WSCLNMAX                    00622000
           MOVE    WCMSODIST           TO   CDFKEY                      00623000
           MOVE    WCMSOFY             TO   CDFFY                       00624000
           MOVE    NEWFUND             TO   CDFFUND                     00625000
           MOVE    '99998'             TO   CDFTABLE                    00626000
           MOVE    NEWSCHL             TO   CDFSCHL                     00627000
           MOVE    '5001'              TO   CDFCONTROL                  00628000
           EXEC    CICS HANDLE CONDITION    NOTFND  (140-END)           00629332
                                            END-EXEC                    00630000
           EXEC    CICS STARTBR             DATASET (CDFFIL)            00631000
                                            RIDFLD  (CDFKEY)   GTEQ     00632000
                                            KEYLENGTH (CDFLENK)         00633000
                                            END-EXEC.                   00634000
       110-OLD.                                                         00635000
           MOVE    -1                  TO   MFUNDL                      00636000
           MOVE    LOW-VALUES          TO   MPSLINES                    00637000
           MOVE    WCMSODIST           TO   HGHDIST                     00638000
           MOVE    WCMSOFY             TO   HGHFY                       00639000
           MOVE    NEWFUND             TO   HGHFUND                     00640000
           MOVE    '99998'             TO   HGHTABLE                    00641000
           MOVE    NEWSCHL             TO   HGHSCHL                     00642000
           MOVE    HIGH-VALUES         TO   HGHCONTROL                  00643000
           MOVE    +0                  TO   WSCRDCNT                    00644000
           MOVE    WSCLNINC            TO   QWRLNINC                    00645000
           SET     MPS2                TO   WSCLNCNT                    00646000
           SET     MPS2                UP   BY   WSCLNINC.              00647000
           EXEC    CICS HANDLE CONDITION    INVREQ  (120-MISS)          00648000
                                            NOTFND  (120-MISS)          00649000
                                            ENDFILE (120-MISS) END-EXEC.00650000
       115-LOOP.                                                        00651000
           IF      MPS2                =    WSCLNMAX                    00652000
             GO                        TO   130-FULL.                   00653000
           IF      WSCRDCNT            >    WSCMAXRD                    00654000
             GO                        TO   135-MAXRCD.                 00655000
           MOVE    '99'                TO   RETCDF                      00656000
           IF      WSCLNINC            =    -1                          00657000
             EXEC  CICS READPREV            DATASET (CDFFIL)            00658000
                                            INTO    (CDF)               00659000
                                            RIDFLD  (CDFKEY)            00660000
                                            LENGTH  (CDFLENR)  END-EXEC 00661000
           ELSE                                                         00662000
             EXEC  CICS READNEXT            DATASET (CDFFIL)            00663000
                                            INTO    (CDF)               00664000
                                            RIDFLD  (CDFKEY)            00665000
                                            LENGTH  (CDFLENR)  END-EXEC.00666000
           MOVE    '00'                TO   RETCDF.                     00667000
       120-MISS.                                                        00668000
           IF      RETCDF              NOT  =   '00'                    00669000
             GO                        TO   130-LAST.                   00670000
           ADD     +1                  TO   WSCRDCNT                    00671000
           IF     (WSCLNINC            =    +1)                     AND 00672000
                  (CDFKEY              >    HGH)                        00673000
             GO                        TO   130-LAST.                   00674000
           IF     (WSCLNINC            =    -1)                      AND00675000
                  (MPS2                =    +7)                         00676000
             MOVE  CDFKEY              TO   QWRPF8                      00677000
           ELSE                                                         00678000
             IF      MPS2              =    +1                          00679000
               MOVE  CDFKEY            TO   QWRPF7                      00680000
               IF      QWRFRST         =    SPACES                      00681000
                 MOVE  CDFKEY          TO   QWRFRST.                    00682000
           IF      RETCDF              =    '00'                        00683000
             MOVE  RETCDF              TO   RETALL.                     00684000
                                                                        00685000
           MOVE    WABPS               TO   MPSPGMA      (MPS2)         00686000
           MOVE    CDFPGM              TO   MPSPGM       (MPS2)         00687000
           MOVE    CDFAMT1             TO   MPSAMT19     (MPS2)         00688000
           MOVE    CDFAMT2             TO   MPSAMT29     (MPS2)         00689000
           MOVE    CDFAMT3             TO   MPSAMT39     (MPS2)         00690000
           MOVE    CDFAMT4             TO   MPSAMT49     (MPS2)         00691000
           MOVE    CDFAMT5             TO   MPSAMT59     (MPS2)         00692000
           MOVE    CDFAMT6             TO   MPSAMT69     (MPS2)         00693000
           MOVE    CDFAMT7             TO   MPSAMT79     (MPS2)         00693000
           IF      CDFAMT1             =    ZEROS                       00694000
             MOVE  '_________ '        TO   MPSAMT1      (MPS2).        00695000
           IF      CDFAMT2             =    ZEROS                       00696000
             MOVE  '_________ '        TO   MPSAMT2      (MPS2).        00697000
           IF      CDFAMT3             =    ZEROS                       00698000
             MOVE  '_________ '        TO   MPSAMT3      (MPS2).        00699000
           IF      CDFAMT4             =    ZEROS                       00700000
             MOVE  '_________ '        TO   MPSAMT4      (MPS2).        00701000
           IF      CDFAMT5             =    ZEROS                       00702000
             MOVE  '_________ '        TO   MPSAMT5      (MPS2).        00703000
           IF      CDFAMT6             =    ZEROS                       00704000
             MOVE  '_________ '        TO   MPSAMT6      (MPS2).        00705000
           IF      CDFAMT7             =    ZEROS                       00704000
             MOVE  '_________ '        TO   MPSAMT7      (MPS2).        00705000
                                                                        00706000
           SET     MPS2                UP   BY  WSCLNINC                00715000
           ADD     WSCLNINC            TO   WSCLNCNT                    00716000
           GO                          TO   115-LOOP.                   00717000
                                                                        00718000
       130-FULL.                                                        00719000
           IF      WSCLNINC            =    +1                          00720000
             PERFORM 210-CDF-RDNXT     THRU 210-EXIT                    00721000
             IF     (CDFKEY            >    HGH)                     OR 00722000
                    (RETCDF            NOT  =   '00')                   00723000
               GO                      TO   130-LAST                    00724000
             ELSE                                                       00725000
               PERFORM 205-CDF-RDPRV   THRU 205-EXIT                    00726000
               PERFORM 205-CDF-RDPRV   THRU 205-EXIT.                   00727000
           MOVE    MSG25               TO   MMSGO                       00728000
           IF      WSCLNINC            =    +1                          00729000
             MOVE  +0                  TO   QWRLNXT                     00730000
             MOVE  +8                  TO   QWRLNMAX                    00731000
             MOVE  CDFKEY              TO   QWRPF8                      00732000
           ELSE                                                         00733000
             MOVE  +8                  TO   QWRLNXT                     00734000
             MOVE  +0                  TO   QWRLNMAX.                   00735000
           GO                          TO   140-END.                    00736000
                                                                        00737000
       130-LAST.                                                        00738000
           MOVE    +0                  TO   QWRLNMAX      QWRLNXT       00739000
           MOVE    -1                  TO   MFUNDL                      00740000
           IF      QWRFRST             =    SPACES                      00741000
             IF    RETALL              =    '00'                        00742000
               MOVE  ZEROS             TO   M46100L                     00743000
               MOVE  MSG14             TO   MMSGO                       00744000
             ELSE                                                       00745000
               MOVE  ZEROS             TO   MFUNDL                      00746000
               MOVE  -1                TO   M46100L                     00747000
               MOVE  MSG23             TO   MMSGO                       00748000
           ELSE                                                         00749000
             IF      WSCLNINC          =    -1                          00750000
               MOVE  MSG13             TO   MMSGO                       00751000
               MOVE  SPACES            TO   QWRPF7                      00752000
             ELSE                                                       00753000
               MOVE  MSG14             TO   MMSGO                       00754000
               MOVE  SPACES            TO   QWRPF8.                     00755000
           GO                          TO   140-END.                    00756000
                                                                        00757000
       135-MAXRCD.                                                      00758000
           MOVE    WSCLNCNT            TO   QWRLNXT                     00759000
           MOVE    WSCLNMAX            TO   QWRLNMAX                    00760000
           IF      WSCLNINC            =    +1                          00761000
             MOVE  CDFKEY              TO   QWRPF8                      00762000
           ELSE                                                         00763000
             MOVE  CDFKEY              TO   QWRPF7.                     00764000
           MOVE    MSG27               TO   MMSGO                       00765000
           GO                          TO   140-END.                    00766000
                                                                        00767000
       140-END.                                                         00768000
           EXEC    CICS HANDLE CONDITION    INVREQ  (015-SEND) END-EXEC 00771000
           EXEC    CICS ENDBR               DATASET (CDFFIL)   END-EXEC 00772000
           GO                          TO   015-SEND.                   00773000
                                                                        00774000
      ******************************************************************00775000
       205-CDF-RDPRV.                                                   00879000
           MOVE    '99'                TO   RETCDF                      00880000
           EXEC    CICS HANDLE CONDITION    INVREQ  (205-EXIT)          00881000
                                            NOTFND  (205-EXIT)          00882000
                                            ENDFILE (205-EXIT) END-EXEC 00883000
           EXEC    CICS READPREV            DATASET (CDFFIL)            00884000
                                            INTO    (CDF)               00885000
                                            RIDFLD  (CDFKEY)            00886000
                                            LENGTH  (CDFLENR)  END-EXEC 00887000
           MOVE    '00'                TO   RETCDF.                     00888000
       205-EXIT.                                                        00889000
           EXIT.                                                        00890000
                                                                        00891000
      ******************************************************************00892000
       210-CDF-RDNXT.                                                   00893000
           MOVE    '99'                TO   RETCDF                      00894000
           EXEC    CICS HANDLE CONDITION    INVREQ  (210-EXIT)          00895000
                                            NOTFND  (210-EXIT)          00896000
                                            ENDFILE (210-EXIT) END-EXEC 00897000
           EXEC    CICS READNEXT            DATASET (CDFFIL)            00898000
                                            INTO    (CDF)               00899000
                                            RIDFLD  (CDFKEY)            00900000
                                            LENGTH  (CDFLENR)  END-EXEC 00901000
           MOVE    '00'                TO   RETCDF.                     00902000
       210-EXIT.                                                        00903000
           EXIT.                                                        00904000
                                                                        00905000
      ******************************************************************00906000
       300-UPDATE.                                                      00907000
           IF      WCMSOCURR           NOT  =  'U'                      00908000
             GO                        TO   100-DISPLAY.                00909000
                                                                        00910000
           MOVE    +1                  TO   RETERR2                     00911000
           MOVE    ZEROS               TO   MFUNDL       M46100L        00912000
           MOVE    SPACES              TO   CDF                         00913000
           MOVE    WCMSODIST           TO   CDFDIST      CDFDIST2       00914000
           MOVE    WCMSOFY             TO   CDFFY        CDFFY2         00915000
           MOVE    NEWFUND             TO   CDFFUND      CDFFUND2       00916000
           MOVE    '99998'             TO   CDFTABLE     CDFTABLE2      00917000
           MOVE    NEWSCHL             TO   CDFSCHL                     00918000
                                                                        00919000
           MOVE    ZEROS               TO   RETERR                      00920000
           MOVE    '4000'              TO   CDFCONTROL    CDFCONTROL2   00921000
           MOVE    SPACES              TO   CDFDATA                     00922000
           MOVE    '99'                TO   RETCDF                      00923000
           EXEC    CICS HANDLE CONDITION    NOTFND  (300-NEW1) END-EXEC 00924000
           EXEC    CICS READ                DATASET (CDFFIL)            00925000
                                            INTO    (CDF)               00926000
                                            RIDFLD  (CDFKEY)            00927000
                                            LENGTH  (CDFLENR)  END-EXEC 00928000
           MOVE    '00'                TO   RETCDF.                     00929000
       300-NEW1.                                                        00930000
           IF      RETCDF              NOT  =  '00'                     00931000
             MOVE  SPACES              TO   CDFDATAC                    00932000
             MOVE  ZEROS               TO   CDFAMT1   CDFAMT2   CDFAMT3 00933000
                                            CDFAMT4   CDFAMT5   CDFAMT6 00934000
                                            CDFAMT7   CDFTOTAL.         00935000
           MOVE    CDF                 TO   ODF                         00936000
           IF      M46100A             =    WABEOF                      00937000
             MOVE  '_________ '        TO   M46100I                     00938000
             MOVE  WABU                TO   M46100A                     00939000
             MOVE  ZEROS               TO   M46100L                     00940000
             MOVE  ZEROS               TO   CDFAMT1                     00941000
           ELSE                                                         00942000
             IF      M46100L           >    ZEROS                       00943000
               MOVE  ZEROS             TO   M46100L                     00944000
               MOVE  M46100I           TO   WNUIN                       00945000
               PERFORM 700-CONVERT     THRU 700-EXIT                    00946000
               MOVE  WABU              TO   M46100A                     00947000
               IF    WNUSIGN           =    '-'                         00948000
                 COMPUTE  WNU90        =    0 - WNU90                   00949000
                 MOVE  WNU90           TO   M46100O  CDFAMT1            00950000
               ELSE                                                     00951000
                 MOVE  WNU90           TO   M46100O  CDFAMT1            00952000
             ELSE                                                       00953000
               IF      M46100I         >    LOW-VALUES                  00954000
                 MOVE  WABUN           TO   M46100A                     00955000
                 MOVE  M46100I         TO   WNUIN                       00956000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    00957000
                 IF    WNUSIGN         =    '-'                         00958000
                   COMPUTE  WNU90      =    0 - WNU90                   00959000
                   MOVE  WNU90         TO   M46100O  CDFAMT1            00960000
                 ELSE                                                   00961000
                   MOVE  WNU90         TO   M46100O  CDFAMT1.           00962000
           IF      M46200A             =    WABEOF                      00963000
             MOVE  '_________ '        TO   M46200I                     00964000
             MOVE  WABU                TO   M46200A                     00965000
             MOVE  ZEROS               TO   M46200L                     00966000
             MOVE  ZEROS               TO   CDFAMT2                     00967000
           ELSE                                                         00968000
             IF      M46200L           >    ZEROS                       00969000
               MOVE  ZEROS             TO   M46200L                     00970000
               MOVE  M46200I           TO   WNUIN                       00971000
               PERFORM 700-CONVERT     THRU 700-EXIT                    00972000
               MOVE  WABU              TO   M46200A                     00973000
               IF    WNUSIGN           =    '-'                         00974000
                 COMPUTE  WNU90        =    0 - WNU90                   00975000
                 MOVE  WNU90           TO   M46200O  CDFAMT2            00976000
               ELSE                                                     00977000
                 MOVE  WNU90           TO   M46200O  CDFAMT2            00978000
             ELSE                                                       00979000
               IF      M46200I         >    LOW-VALUES                  00980000
                 MOVE  WABUN           TO   M46200A                     00981000
                 MOVE  M46200I         TO   WNUIN                       00982000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    00983000
                 IF    WNUSIGN         =    '-'                         00984000
                   COMPUTE  WNU90      =    0 - WNU90                   00985000
                   MOVE  WNU90         TO   M46200O  CDFAMT2            00986000
                 ELSE                                                   00987000
                   MOVE  WNU90         TO   M46200O  CDFAMT2.           00988000
           IF      M46300A             =    WABEOF                      00989000
             MOVE  '_________ '        TO   M46300I                     00990000
             MOVE  WABU                TO   M46300A                     00991000
             MOVE  ZEROS               TO   M46300L                     00992000
             MOVE  ZEROS               TO   CDFAMT3                     00993000
           ELSE                                                         00994000
             IF      M46300L           >    ZEROS                       00995000
               MOVE  ZEROS             TO   M46300L                     00996000
               MOVE  M46300I           TO   WNUIN                       00997000
               PERFORM 700-CONVERT     THRU 700-EXIT                    00998000
               MOVE  WABU              TO   M46300A                     00999000
               IF    WNUSIGN           =    '-'                         01000000
                 COMPUTE  WNU90        =    0 - WNU90                   01001000
                 MOVE  WNU90           TO   M46300O  CDFAMT3            01002000
               ELSE                                                     01003000
                 MOVE  WNU90           TO   M46300O  CDFAMT3            01004000
             ELSE                                                       01005000
               IF      M46300I         >    LOW-VALUES                  01006000
                 MOVE  WABUN           TO   M46300A                     01007000
                 MOVE  M46300I         TO   WNUIN                       01008000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01009000
                 IF    WNUSIGN         =    '-'                         01010000
                   COMPUTE  WNU90      =    0 - WNU90                   01011000
                   MOVE  WNU90         TO   M46300O  CDFAMT3            01012000
                 ELSE                                                   01013000
                   MOVE  WNU90         TO   M46300O  CDFAMT3.           01014000
           IF      M46400A             =    WABEOF                      01015000
             MOVE  '_________ '        TO   M46400I                     01016000
             MOVE  WABU                TO   M46400A                     01017000
             MOVE  ZEROS               TO   M46400L                     01018000
             MOVE  ZEROS               TO   CDFAMT4                     01019000
           ELSE                                                         01020000
             IF      M46400L           >    ZEROS                       01021000
               MOVE  ZEROS             TO   M46400L                     01022000
               MOVE  M46400I           TO   WNUIN                       01023000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01024000
               MOVE  WABU              TO   M46400A                     01025000
               IF    WNUSIGN           =    '-'                         01026000
                 COMPUTE  WNU90        =    0 - WNU90                   01027000
                 MOVE  WNU90           TO   M46400O  CDFAMT4            01028000
               ELSE                                                     01029000
                 MOVE  WNU90           TO   M46400O  CDFAMT4            01030000
             ELSE                                                       01031000
               IF      M46400I         >    LOW-VALUES                  01032000
                 MOVE  WABUN           TO   M46400A                     01033000
                 MOVE  M46400I         TO   WNUIN                       01034000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01035000
                 IF    WNUSIGN         =    '-'                         01036000
                   COMPUTE  WNU90      =    0 - WNU90                   01037000
                   MOVE  WNU90         TO   M46400O  CDFAMT4            01038000
                 ELSE                                                   01039000
                   MOVE  WNU90         TO   M46400O  CDFAMT4.           01040000
                                                                        01041000
           SET     CDF1                TO   +1.                         01042000
       300-LOOP1.                                                       01043000
           IF      CDFB         (CDF1) =    '_'                         01044000
             MOVE  ' '                 TO   CDFB         (CDF1).        01045000
           IF      CDF1                <    +94                         01046000
             SET   CDF1                UP   BY  +1                      01047000
             GO                        TO   300-LOOP1.                  01048000
                                                                        01049000
           IF      CDFAMT1             =    ZEROS                       01050000
             MOVE  '_________ '        TO   M46100I.                    01051000
           IF      CDFAMT2             =    ZEROS                       01052000
             MOVE  '_________ '        TO   M46200I.                    01053000
           IF      CDFAMT3             =    ZEROS                       01054000
             MOVE  '_________ '        TO   M46300I.                    01055000
           IF      CDFAMT4             =    ZEROS                       01056000
             MOVE  '_________ '        TO   M46400I.                    01057000
           IF     (RETCDF              =    ZEROS)                  AND 01058000
                  (CDFAMT1             =    ZEROS)                  AND 01059000
                  (CDFAMT2             =    ZEROS)                  AND 01060000
                  (CDFAMT3             =    ZEROS)                  AND 01061000
                  (CDFAMT4             =    ZEROS)                      01062000
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)            01063000
                                            INTO    (CDF)               01064000
                                            RIDFLD  (CDFKEY)            01065000
                                            LENGTH  (CDFLENR)  END-EXEC 01066000
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC 01067000
             MOVE  '_________ '        TO   M46100I                     01068000
             MOVE  '_________ '        TO   M46200I                     01069000
             MOVE  '_________ '        TO   M46300I                     01070000
             MOVE  '_________ '        TO   M46400I                     01071000
             MOVE  WABU                TO   M46100A                     01072000
             MOVE  WABU                TO   M46200A                     01073000
             MOVE  WABU                TO   M46300A                     01074000
             MOVE  WABU                TO   M46400A                     01075000
             MOVE  ZEROS               TO   M46100L                     01076000
             MOVE  ZEROS               TO   M46200L                     01077000
             MOVE  ZEROS               TO   M46300L                     01078000
             MOVE  ZEROS               TO   M46400L                     01079000
             IF    RETERR2             NOT  =  -1                       01080000
               MOVE  ZEROS             TO   RETERR2                     01081000
               GO                      TO   300-CONT1                   01082000
             ELSE                                                       01083000
               GO                      TO   300-CONT1.                  01084000
                                                                        01085000
           IF      CDFAMT1             <    ZEROS                       01086000
             MOVE  WABUMB              TO   M46100A.                    01087000
           IF      CDFAMT2             <    ZEROS                       01088000
             MOVE  WABUMB              TO   M46200A.                    01089000
           IF      CDFAMT3             <    ZEROS                       01090000
             MOVE  WABUMB              TO   M46300A.                    01091000
           IF      CDFAMT4             <    ZEROS                       01092000
             MOVE  WABUMB              TO   M46400A.                    01093000
                                                                        01094000
           IF      RETERR              NOT  =   ZEROS                   01095000
             MOVE  RETERR              TO   RETERR2                     01096000
             GO                        TO   300-CONT1.                  01097000
                                                                        01098000
           IF      CDF                 =    ODF                         01099000
             GO                        TO   300-CONT1.                  01100000
           IF      RETERR2             NOT  =  -1                       01101000
             MOVE  ZEROS               TO   RETERR2.                    01102000
           IF      RETCDF              =    '00'                        01103000
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)            01104000
                                            INTO    (ODF)               01105000
                                            RIDFLD  (CDFKEY)            01106000
                                            LENGTH  (CDFLENR)  END-EXEC 01107000
             EXEC  CICS REWRITE             DATASET (CDFFIL)            01108000
                                            FROM    (CDF)               01109000
                                            LENGTH  (CDFLENR)  END-EXEC 01110000
           ELSE                                                         01111000
             EXEC  CICS WRITE               DATASET (CDFFIL)            01112000
                                            FROM    (CDF)               01113000
                                            RIDFLD  (CDFKEY)            01114000
                                            LENGTH  (CDFLENR)  END-EXEC.01115000
       300-CONT1.                                                       01116000
           MOVE    ZEROS               TO   RETERR                      01117000
           MOVE    '4001'              TO   CDFCONTROL    CDFCONTROL2   01118000
           MOVE    SPACES              TO   CDFDATA                     01119000
           MOVE    '99'                TO   RETCDF                      01120000
           EXEC    CICS HANDLE CONDITION    NOTFND  (300-NEW2) END-EXEC 01121000
           EXEC    CICS READ                DATASET (CDFFIL)            01122000
                                            INTO    (CDF)               01123000
                                            RIDFLD  (CDFKEY)            01124000
                                            LENGTH  (CDFLENR)  END-EXEC 01125000
           MOVE    '00'                TO   RETCDF.                     01126000
       300-NEW2.                                                        01127000
           IF      RETCDF              NOT  =  '00'                     01128000
             MOVE  SPACES              TO   CDFDATAC                    01129000
             MOVE  ZEROS               TO   CDFAMT1   CDFAMT2   CDFAMT3 01130000
                                            CDFAMT4   CDFAMT5   CDFAMT6 01131000
                                            CDFAMT7   CDFTOTAL.         01132000
           MOVE    CDF                 TO   ODF                         01133000
           IF      M47100A             =    WABEOF                      01134000
             MOVE  '_________ '        TO   M47100I                     01135000
             MOVE  WABU                TO   M47100A                     01136000
             MOVE  ZEROS               TO   M47100L                     01137000
             MOVE  ZEROS               TO   CDFAMT1                     01138000
           ELSE                                                         01139000
             IF      M47100L           >    ZEROS                       01140000
               MOVE  ZEROS             TO   M47100L                     01141000
               MOVE  M47100I           TO   WNUIN                       01142000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01143000
               MOVE  WABU              TO   M47100A                     01144000
               IF    WNUSIGN           =    '-'                         01145000
                 COMPUTE  WNU90        =    0 - WNU90                   01146000
                 MOVE  WNU90           TO   M47100O  CDFAMT1            01147000
               ELSE                                                     01148000
                 MOVE  WNU90           TO   M47100O  CDFAMT1            01149000
             ELSE                                                       01150000
               IF      M47100I         >    LOW-VALUES                  01151000
                 MOVE  WABUN           TO   M47100A                     01152000
                 MOVE  M47100I         TO   WNUIN                       01153000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01154000
                 IF    WNUSIGN         =    '-'                         01155000
                   COMPUTE  WNU90      =    0 - WNU90                   01156000
                   MOVE  WNU90         TO   M47100O  CDFAMT1            01157000
                 ELSE                                                   01158000
                   MOVE  WNU90         TO   M47100O  CDFAMT1.           01159000
           IF      M47200A             =    WABEOF                      01160000
             MOVE  '_________ '        TO   M47200I                     01161000
             MOVE  WABU                TO   M47200A                     01162000
             MOVE  ZEROS               TO   M47200L                     01163000
             MOVE  ZEROS               TO   CDFAMT2                     01164000
           ELSE                                                         01165000
             IF      M47200L           >    ZEROS                       01166000
               MOVE  ZEROS             TO   M47200L                     01167000
               MOVE  M47200I           TO   WNUIN                       01168000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01169000
               MOVE  WABU              TO   M47200A                     01170000
               IF    WNUSIGN           =    '-'                         01171000
                 COMPUTE  WNU90        =    0 - WNU90                   01172000
                 MOVE  WNU90           TO   M47200O  CDFAMT2            01173000
               ELSE                                                     01174000
                 MOVE  WNU90           TO   M47200O  CDFAMT2            01175000
             ELSE                                                       01176000
               IF      M47200I         >    LOW-VALUES                  01177000
                 MOVE  WABUN           TO   M47200A                     01178000
                 MOVE  M47200I         TO   WNUIN                       01179000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01180000
                 IF    WNUSIGN         =    '-'                         01181000
                   COMPUTE  WNU90      =    0 - WNU90                   01182000
                   MOVE  WNU90         TO   M47200O  CDFAMT2            01183000
                 ELSE                                                   01184000
                   MOVE  WNU90         TO   M47200O  CDFAMT2.           01185000
           IF      M47300A             =    WABEOF                      01186000
             MOVE  '_________ '        TO   M47300I                     01187000
             MOVE  WABU                TO   M47300A                     01188000
             MOVE  ZEROS               TO   M47300L                     01189000
             MOVE  ZEROS               TO   CDFAMT3                     01190000
           ELSE                                                         01191000
             IF      M47300L           >    ZEROS                       01192000
               MOVE  ZEROS             TO   M47300L                     01193000
               MOVE  M47300I           TO   WNUIN                       01194000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01195000
               MOVE  WABU              TO   M47300A                     01196000
               IF    WNUSIGN           =    '-'                         01197000
                 COMPUTE  WNU90        =    0 - WNU90                   01198000
                 MOVE  WNU90           TO   M47300O  CDFAMT3            01199000
               ELSE                                                     01200000
                 MOVE  WNU90           TO   M47300O  CDFAMT3            01201000
             ELSE                                                       01202000
               IF      M47300I         >    LOW-VALUES                  01203000
                 MOVE  WABUN           TO   M47300A                     01204000
                 MOVE  M47300I         TO   WNUIN                       01205000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01206000
                 IF    WNUSIGN         =    '-'                         01207000
                   COMPUTE  WNU90      =    0 - WNU90                   01208000
                   MOVE  WNU90         TO   M47300O  CDFAMT3            01209000
                 ELSE                                                   01210000
                   MOVE  WNU90         TO   M47300O  CDFAMT3.           01211000
           IF      M47400A             =    WABEOF                      01212000
             MOVE  '_________ '        TO   M47400I                     01213000
             MOVE  WABU                TO   M47400A                     01214000
             MOVE  ZEROS               TO   M47400L                     01215000
             MOVE  ZEROS               TO   CDFAMT4                     01216000
           ELSE                                                         01217000
             IF      M47400L           >    ZEROS                       01218000
               MOVE  ZEROS             TO   M47400L                     01219000
               MOVE  M47400I           TO   WNUIN                       01220000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01221000
               MOVE  WABU              TO   M47400A                     01222000
               IF    WNUSIGN           =    '-'                         01223000
                 COMPUTE  WNU90        =    0 - WNU90                   01224000
                 MOVE  WNU90           TO   M47400O  CDFAMT4            01225000
               ELSE                                                     01226000
                 MOVE  WNU90           TO   M47400O  CDFAMT4            01227000
             ELSE                                                       01228000
               IF      M47400I         >    LOW-VALUES                  01229000
                 MOVE  WABUN           TO   M47400A                     01230000
                 MOVE  M47400I         TO   WNUIN                       01231000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01232000
                 IF    WNUSIGN         =    '-'                         01233000
                   COMPUTE  WNU90      =    0 - WNU90                   01234000
                   MOVE  WNU90         TO   M47400O  CDFAMT4            01235000
                 ELSE                                                   01236000
                   MOVE  WNU90         TO   M47400O  CDFAMT4.           01237000
                                                                        01238000
           SET     CDF1                TO   +1.                         01239000
       300-LOOP2.                                                       01240000
           IF      CDFB         (CDF1) =    '_'                         01241000
             MOVE  ' '                 TO   CDFB         (CDF1).        01242000
           IF      CDF1                <    +94                         01243000
             SET   CDF1                UP   BY  +1                      01244000
             GO                        TO   300-LOOP2.                  01245000
                                                                        01246000
           IF      CDFAMT1             =    ZEROS                       01247000
             MOVE  '_________ '        TO   M47100I.                    01248000
           IF      CDFAMT2             =    ZEROS                       01249000
             MOVE  '_________ '        TO   M47200I.                    01250000
           IF      CDFAMT3             =    ZEROS                       01251000
             MOVE  '_________ '        TO   M47300I.                    01252000
           IF      CDFAMT4             =    ZEROS                       01253000
             MOVE  '_________ '        TO   M47400I.                    01254000
                                                                        01255000
           IF      CDFAMT1             <    ZEROS                       01256000
             MOVE  WABUMB              TO   M47100A.                    01257000
           IF      CDFAMT2             <    ZEROS                       01258000
             MOVE  WABUMB              TO   M47200A.                    01259000
           IF      CDFAMT3             <    ZEROS                       01260000
             MOVE  WABUMB              TO   M47300A.                    01261000
           IF      CDFAMT4             <    ZEROS                       01262000
             MOVE  WABUMB              TO   M47400A.                    01263000
           IF     (RETCDF              =    ZEROS)                  AND 01264000
                  (CDFAMT1             =    ZEROS)                  AND 01265000
                  (CDFAMT2             =    ZEROS)                  AND 01266000
                  (CDFAMT3             =    ZEROS)                  AND 01267000
                  (CDFAMT4             =    ZEROS)                      01268000
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)            01269000
                                            INTO    (CDF)               01270000
                                            RIDFLD  (CDFKEY)            01271000
                                            LENGTH  (CDFLENR)  END-EXEC 01272000
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC 01273000
             MOVE  '_________ '        TO   M47100I                     01274000
             MOVE  '_________ '        TO   M47200I                     01275000
             MOVE  '_________ '        TO   M47300I                     01276000
             MOVE  '_________ '        TO   M47400I                     01277000
             MOVE  WABU                TO   M47100A                     01278000
             MOVE  WABU                TO   M47200A                     01279000
             MOVE  WABU                TO   M47300A                     01280000
             MOVE  WABU                TO   M47400A                     01281000
             MOVE  ZEROS               TO   M47100L                     01282000
             MOVE  ZEROS               TO   M47200L                     01283000
             MOVE  ZEROS               TO   M47300L                     01284000
             MOVE  ZEROS               TO   M47400L                     01285000
             IF    RETERR2             NOT  =  -1                       01286000
               MOVE  ZEROS             TO   RETERR2                     01287000
               GO                      TO   300-CONT2                   01288000
             ELSE                                                       01289000
               GO                      TO   300-CONT2.                  01290000
                                                                        01291000
           IF      RETERR              NOT  =   ZEROS                   01292000
             MOVE  RETERR              TO   RETERR2                     01293000
             GO                        TO   300-CONT2.                  01294000
                                                                        01295000
           IF      CDF                 =    ODF                         01296000
             GO                        TO   300-CONT2.                  01297000
           IF      RETERR2             NOT  =  -1                       01298000
             MOVE  ZEROS               TO   RETERR2.                    01299000
           IF      RETCDF              =    '00'                        01300000
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)            01301000
                                            INTO    (ODF)               01302000
                                            RIDFLD  (CDFKEY)            01303000
                                            LENGTH  (CDFLENR)  END-EXEC 01304000
             EXEC  CICS REWRITE             DATASET (CDFFIL)            01305000
                                            FROM    (CDF)               01306000
                                            LENGTH  (CDFLENR)  END-EXEC 01307000
           ELSE                                                         01308000
             EXEC  CICS WRITE               DATASET (CDFFIL)            01309000
                                            FROM    (CDF)               01310000
                                            RIDFLD  (CDFKEY)            01311000
                                            LENGTH  (CDFLENR)  END-EXEC.01312000
       300-CONT2.                                                       01313000
           MOVE    ZEROS               TO   RETERR                      01314000
           MOVE    '4002'              TO   CDFCONTROL    CDFCONTROL2   01315000
           MOVE    SPACES              TO   CDFDATA                     01316000
           MOVE    '99'                TO   RETCDF                      01317000
           EXEC    CICS HANDLE CONDITION    NOTFND  (300-NEW3) END-EXEC 01318000
           EXEC    CICS READ                DATASET (CDFFIL)            01319000
                                            INTO    (CDF)               01320000
                                            RIDFLD  (CDFKEY)            01321000
                                            LENGTH  (CDFLENR)  END-EXEC 01322000
           MOVE    '00'                TO   RETCDF.                     01323000
       300-NEW3.                                                        01324000
           IF      RETCDF              NOT  =  '00'                     01325000
             MOVE  SPACES              TO   CDFDATAC                    01326000
             MOVE  ZEROS               TO   CDFAMT1   CDFAMT2   CDFAMT3 01327000
                                            CDFAMT4   CDFAMT5   CDFAMT6 01328000
                                            CDFAMT7   CDFTOTAL.         01329000
           MOVE    CDF                 TO   ODF                         01330000
           IF      M47500A             =    WABEOF                      01331000
             MOVE  '_________ '        TO   M47500I                     01332000
             MOVE  WABU                TO   M47500A                     01333000
             MOVE  ZEROS               TO   M47500L                     01334000
             MOVE  ZEROS               TO   CDFAMT1                     01335000
           ELSE                                                         01336000
             IF      M47500L           >    ZEROS                       01337000
               MOVE  ZEROS             TO   M47500L                     01338000
               MOVE  M47500I           TO   WNUIN                       01339000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01340000
               MOVE  WABU              TO   M47500A                     01341000
               IF    WNUSIGN           =    '-'                         01342000
                 COMPUTE  WNU90        =    0 - WNU90                   01343000
                 MOVE  WNU90           TO   M47500O  CDFAMT1            01344000
               ELSE                                                     01345000
                 MOVE  WNU90           TO   M47500O  CDFAMT1            01346000
             ELSE                                                       01347000
               IF      M47500I         >    LOW-VALUES                  01348000
                 MOVE  WABUN           TO   M47500A                     01349000
                 MOVE  M47500I         TO   WNUIN                       01350000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01351000
                 IF    WNUSIGN         =    '-'                         01352000
                   COMPUTE  WNU90      =    0 - WNU90                   01353000
                   MOVE  WNU90         TO   M47500O  CDFAMT1            01354000
                 ELSE                                                   01355000
                   MOVE  WNU90         TO   M47500O  CDFAMT1.           01356000
           IF      M47600A             =    WABEOF                      01357000
             MOVE  '_________ '        TO   M47600I                     01358000
             MOVE  WABU                TO   M47600A                     01359000
             MOVE  ZEROS               TO   M47600L                     01360000
             MOVE  ZEROS               TO   CDFAMT2                     01361000
           ELSE                                                         01362000
             IF      M47600L           >    ZEROS                       01363000
               MOVE  ZEROS             TO   M47600L                     01364000
               MOVE  M47600I           TO   WNUIN                       01365000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01366000
               MOVE  WABU              TO   M47600A                     01367000
               IF    WNUSIGN           =    '-'                         01368000
                 COMPUTE  WNU90        =    0 - WNU90                   01369000
                 MOVE  WNU90           TO   M47600O  CDFAMT2            01370000
               ELSE                                                     01371000
                 MOVE  WNU90           TO   M47600O  CDFAMT2            01372000
             ELSE                                                       01373000
               IF      M47600I         >    LOW-VALUES                  01374000
                 MOVE  WABUN           TO   M47600A                     01375000
                 MOVE  M47600I         TO   WNUIN                       01376000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01377000
                 IF    WNUSIGN         =    '-'                         01378000
                   COMPUTE  WNU90      =    0 - WNU90                   01379000
                   MOVE  WNU90         TO   M47600O  CDFAMT2            01380000
                 ELSE                                                   01381000
                   MOVE  WNU90         TO   M47600O  CDFAMT2.           01382000
           IF      M47700A             =    WABEOF                      01383000
             MOVE  '_________ '        TO   M47700I                     01384000
             MOVE  WABU                TO   M47700A                     01385000
             MOVE  ZEROS               TO   M47700L                     01386000
             MOVE  ZEROS               TO   CDFAMT3                     01387000
           ELSE                                                         01388000
             IF      M47700L           >    ZEROS                       01389000
               MOVE  ZEROS             TO   M47700L                     01390000
               MOVE  M47700I           TO   WNUIN                       01391000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01392000
               MOVE  WABU              TO   M47700A                     01393000
               IF    WNUSIGN           =    '-'                         01394000
                 COMPUTE  WNU90        =    0 - WNU90                   01395000
                 MOVE  WNU90           TO   M47700O  CDFAMT3            01396000
               ELSE                                                     01397000
                 MOVE  WNU90           TO   M47700O  CDFAMT3            01398000
             ELSE                                                       01399000
               IF      M47700I         >    LOW-VALUES                  01400000
                 MOVE  WABUN           TO   M47700A                     01401000
                 MOVE  M47700I         TO   WNUIN                       01402000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01403000
                 IF    WNUSIGN         =    '-'                         01404000
                   COMPUTE  WNU90      =    0 - WNU90                   01405000
                   MOVE  WNU90         TO   M47700O  CDFAMT3            01406000
                 ELSE                                                   01407000
                   MOVE  WNU90         TO   M47700O  CDFAMT3.           01408000
           IF      M47800A             =    WABEOF                      01383000
             MOVE  '_________ '        TO   M47800I                     01384000
             MOVE  WABU                TO   M47800A                     01385000
             MOVE  ZEROS               TO   M47800L                     01386000
             MOVE  ZEROS               TO   CDFAMT4                     01387000
           ELSE                                                         01388000
             IF      M47800L           >    ZEROS                       01389000
               MOVE  ZEROS             TO   M47800L                     01390000
               MOVE  M47800I           TO   WNUIN                       01391000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01392000
               MOVE  WABU              TO   M47800A                     01393000
               IF    WNUSIGN           =    '-'                         01394000
                 COMPUTE  WNU90        =    0 - WNU90                   01395000
                 MOVE  WNU90           TO   M47800O  CDFAMT4            01396000
               ELSE                                                     01397000
                 MOVE  WNU90           TO   M47800O  CDFAMT4            01398000
             ELSE                                                       01399000
               IF      M47800I         >    LOW-VALUES                  01400000
                 MOVE  WABUN           TO   M47800A                     01401000
                 MOVE  M47800I         TO   WNUIN                       01402000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01403000
                 IF    WNUSIGN         =    '-'                         01404000
                   COMPUTE  WNU90      =    0 - WNU90                   01405000
                   MOVE  WNU90         TO   M47800O  CDFAMT4            01406000
                 ELSE                                                   01407000
                   MOVE  WNU90         TO   M47800O  CDFAMT4.           01408000
                                                                        01409000
           SET     CDF1                TO   +1.                         01410000
       300-LOOP3.                                                       01411000
           IF      CDFB         (CDF1) =    '_'                         01412000
             MOVE  ' '                 TO   CDFB         (CDF1).        01413000
           IF      CDF1                <    +94                         01414000
             SET   CDF1                UP   BY  +1                      01415000
             GO                        TO   300-LOOP3.                  01416000
                                                                        01417000
           IF      CDFAMT1             =    ZEROS                       01418000
             MOVE  '_________ '        TO   M47500I.                    01419000
           IF      CDFAMT2             =    ZEROS                       01420000
             MOVE  '_________ '        TO   M47600I.                    01421000
           IF      CDFAMT3             =    ZEROS                       01422000
             MOVE  '_________ '        TO   M47700I.                    01423000
           IF      CDFAMT4             =    ZEROS                       01422000
             MOVE  '_________ '        TO   M47800I.                    01423000
           IF     (RETCDF              =    ZEROS)                  AND 01424000
                  (CDFAMT1             =    ZEROS)                  AND 01425000
                  (CDFAMT2             =    ZEROS)                  AND 01426000
                  (CDFAMT3             =    ZEROS)                  AND 01426000
                  (CDFAMT4             =    ZEROS)                      01427000
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)            01428000
                                            INTO    (CDF)               01429000
                                            RIDFLD  (CDFKEY)            01430000
                                            LENGTH  (CDFLENR)  END-EXEC 01431000
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC 01432000
             MOVE  '_________ '        TO   M47500I                     01433000
             MOVE  '_________ '        TO   M47600I                     01434000
             MOVE  '_________ '        TO   M47700I                     01435000
             MOVE  '_________ '        TO   M47800I                     01435000
             MOVE  WABU                TO   M47500A                     01436000
             MOVE  WABU                TO   M47600A                     01437000
             MOVE  WABU                TO   M47700A                     01438000
             MOVE  WABU                TO   M47800A                     01438000
             MOVE  ZEROS               TO   M47500L                     01439000
             MOVE  ZEROS               TO   M47600L                     01440000
             MOVE  ZEROS               TO   M47700L                     01441000
             MOVE  ZEROS               TO   M47800L                     01441000
             IF    RETERR2             NOT  =  -1                       01442000
               MOVE  ZEROS             TO   RETERR2                     01443000
               GO                      TO   300-CONT3                   01444000
             ELSE                                                       01445000
               GO                      TO   300-CONT3.                  01446000
                                                                        01447000
           IF      CDFAMT1             <    ZEROS                       01448000
             MOVE  WABUMB              TO   M47500A.                    01449000
           IF      CDFAMT2             <    ZEROS                               
             MOVE  WABUMB              TO   M47600A.                    01451000
           IF      CDFAMT3             <    ZEROS                       01452000
             MOVE  WABUMB              TO   M47700A.                    01453000
           IF      CDFAMT4             <    ZEROS                       01452000
             MOVE  WABUMB              TO   M47800A.                    01453000
                                                                                
           IF      RETERR              NOT  =   ZEROS                   01455000
             MOVE  RETERR              TO   RETERR2                     01456000
             GO                        TO   300-CONT3.                  01457000
                                                                                
           IF      CDF                 =    ODF                         01459000
             GO                        TO   300-CONT3.                  01460000
           IF      RETERR2             NOT  =  -1                       01461000
             MOVE  ZEROS               TO   RETERR2.                    01462000
           IF      RETCDF              =    '00'                        01463000
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)            01464000
                                            INTO    (ODF)               01465000
                                            RIDFLD  (CDFKEY)            01466000
                                            LENGTH  (CDFLENR)  END-EXEC 01467000
             EXEC  CICS REWRITE             DATASET (CDFFIL)            01468000
                                            FROM    (CDF)               01469000
                                            LENGTH  (CDFLENR)  END-EXEC 01470000
           ELSE                                                         01471000
             EXEC  CICS WRITE               DATASET (CDFFIL)            01472000
                                            FROM    (CDF)               01473000
                                            RIDFLD  (CDFKEY)            01474000
                                            LENGTH  (CDFLENR)  END-EXEC.01475000
       300-CONT3.                                                       01313000
           MOVE    ZEROS               TO   RETERR                      01314000
           MOVE    '4003'              TO   CDFCONTROL    CDFCONTROL2   01315000
           MOVE    SPACES              TO   CDFDATA                     01316000
           MOVE    '99'                TO   RETCDF                      01317000
           EXEC    CICS HANDLE CONDITION    NOTFND  (300-NEW4) END-EXEC 01318000
           EXEC    CICS READ                DATASET (CDFFIL)            01319000
                                            INTO    (CDF)               01320000
                                            RIDFLD  (CDFKEY)            01321000
                                            LENGTH  (CDFLENR)  END-EXEC 01322000
           MOVE    '00'                TO   RETCDF.                     01323000
       300-NEW4.                                                        01324000
           IF      RETCDF              NOT  =  '00'                     01325000
             MOVE  SPACES              TO   CDFDATAC                    01326000
             MOVE  ZEROS               TO   CDFAMT1   CDFAMT2   CDFAMT3 01327000
                                            CDFAMT4   CDFAMT5   CDFAMT6 01328000
                                            CDFAMT7   CDFTOTAL.         01329000
           MOVE    CDF                 TO   ODF                         01330000
           IF      M47900A             =    WABEOF                      01331000
             MOVE  '_________ '        TO   M47900I                     01332000
             MOVE  WABU                TO   M47900A                     01333000
             MOVE  ZEROS               TO   M47900L                     01334000
             MOVE  ZEROS               TO   CDFAMT1                     01335000
           ELSE                                                         01336000
             IF      M47900L           >    ZEROS                       01337000
               MOVE  ZEROS             TO   M47900L                     01338000
               MOVE  M47900I           TO   WNUIN                       01339000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01340000
               MOVE  WABU              TO   M47900A                     01341000
               IF    WNUSIGN           =    '-'                         01342000
                 COMPUTE  WNU90        =    0 - WNU90                   01343000
                 MOVE  WNU90           TO   M47900O  CDFAMT1            01344000
               ELSE                                                     01345000
                 MOVE  WNU90           TO   M47900O  CDFAMT1            01346000
             ELSE                                                       01347000
               IF      M47900I         >    LOW-VALUES                  01348000
                 MOVE  WABUN           TO   M47900A                     01349000
                 MOVE  M47900I         TO   WNUIN                       01350000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01351000
                 IF    WNUSIGN         =    '-'                         01352000
                   COMPUTE  WNU90      =    0 - WNU90                   01353000
                   MOVE  WNU90         TO   M47900O  CDFAMT1            01354000
                 ELSE                                                   01355000
                   MOVE  WNU90         TO   M47900O  CDFAMT1.           01356000
           IF      M48100A             =    WABEOF                      01357000
             MOVE  '_________ '        TO   M48100I                     01358000
             MOVE  WABU                TO   M48100A                     01359000
             MOVE  ZEROS               TO   M48100L                     01360000
             MOVE  ZEROS               TO   CDFAMT2                     01361000
           ELSE                                                         01362000
             IF      M48100L           >    ZEROS                       01363000
               MOVE  ZEROS             TO   M48100L                     01364000
               MOVE  M48100I           TO   WNUIN                       01365000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01366000
               MOVE  WABU              TO   M48100A                     01367000
               IF    WNUSIGN           =    '-'                         01368000
                 COMPUTE  WNU90        =    0 - WNU90                   01369000
                 MOVE  WNU90           TO   M48100O  CDFAMT2            01370000
               ELSE                                                     01371000
                 MOVE  WNU90           TO   M48100O  CDFAMT2            01372000
             ELSE                                                       01373000
               IF      M48100I         >    LOW-VALUES                  01374000
                 MOVE  WABUN           TO   M48100A                     01375000
                 MOVE  M48100I         TO   WNUIN                       01376000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01377000
                 IF    WNUSIGN         =    '-'                         01378000
                   COMPUTE  WNU90      =    0 - WNU90                   01379000
                   MOVE  WNU90         TO   M48100O  CDFAMT2            01380000
                 ELSE                                                   01381000
                   MOVE  WNU90         TO   M48100O  CDFAMT2.           01382000
041306     IF      M48200A             =    WABEOF                      01357000
041306       MOVE  '_________ '        TO   M48200I                     01358000
041306       MOVE  WABU                TO   M48200A                     01359000
041306       MOVE  ZEROS               TO   M48200L                     01360000
041306       MOVE  ZEROS               TO   CDFAMT3                     01361000
041306     ELSE                                                         01362000
041306       IF      M48200L           >    ZEROS                       01363000
041306         MOVE  ZEROS             TO   M48200L                     01364000
041306         MOVE  M48200I           TO   WNUIN                       01365000
041306         PERFORM 700-CONVERT     THRU 700-EXIT                    01366000
041306         MOVE  WABU              TO   M48200A                     01367000
041306         IF    WNUSIGN           =    '-'                         01368000
041306           COMPUTE  WNU90        =    0 - WNU90                   01369000
041306           MOVE  WNU90           TO   M48200O  CDFAMT3            01370000
041306         ELSE                                                     01371000
041306           MOVE  WNU90           TO   M48200O  CDFAMT3            01372000
041306       ELSE                                                       01373000
041306         IF      M48200I         >    LOW-VALUES                  01374000
041306           MOVE  WABUN           TO   M48200A                     01375000
041306           MOVE  M48200I         TO   WNUIN                       01376000
041306           PERFORM 700-CONVERT   THRU 700-EXIT                    01377000
041306           IF    WNUSIGN         =    '-'                         01378000
041306             COMPUTE  WNU90      =    0 - WNU90                   01379000
041306             MOVE  WNU90         TO   M48200O  CDFAMT3            01380000
041306           ELSE                                                   01381000
041306             MOVE  WNU90         TO   M48200O  CDFAMT3.           01382000
041306     IF      M46500A             =    WABEOF                      01357000
041306       MOVE  '_________ '        TO   M46500I                     01358000
041306       MOVE  WABU                TO   M46500A                     01359000
041306       MOVE  ZEROS               TO   M46500L                     01360000
041306       MOVE  ZEROS               TO   CDFAMT4                     01361000
041306     ELSE                                                         01362000
041306       IF      M46500L           >    ZEROS                       01363000
041306         MOVE  ZEROS             TO   M46500L                     01364000
041306         MOVE  M46500I           TO   WNUIN                       01365000
041306         PERFORM 700-CONVERT     THRU 700-EXIT                    01366000
041306         MOVE  WABU              TO   M46500A                     01367000
041306         IF    WNUSIGN           =    '-'                         01368000
041306           COMPUTE  WNU90        =    0 - WNU90                   01369000
041306           MOVE  WNU90           TO   M46500O  CDFAMT4            01370000
041306         ELSE                                                     01371000
041306           MOVE  WNU90           TO   M46500O  CDFAMT4            01372000
041306       ELSE                                                       01373000
041306         IF      M46500I         >    LOW-VALUES                  01374000
041306           MOVE  WABUN           TO   M46500A                     01375000
041306           MOVE  M46500I         TO   WNUIN                       01376000
041306           PERFORM 700-CONVERT   THRU 700-EXIT                    01377000
041306           IF    WNUSIGN         =    '-'                         01378000
041306             COMPUTE  WNU90      =    0 - WNU90                   01379000
041306             MOVE  WNU90         TO   M46500O  CDFAMT4            01380000
041306           ELSE                                                   01381000
041306             MOVE  WNU90         TO   M46500O  CDFAMT4.           01382000
                                                                        01409000
           SET     CDF1                TO   +1.                         01410000
       300-LOOP4.                                                       01411000
           IF      CDFB         (CDF1) =    '_'                         01412000
             MOVE  ' '                 TO   CDFB         (CDF1).        01413000
           IF      CDF1                <    +94                         01414000
             SET   CDF1                UP   BY  +1                      01415000
             GO                        TO   300-LOOP4.                  01416000
                                                                        01417000
           IF      CDFAMT1             =    ZEROS                       01418000
             MOVE  '_________ '        TO   M47900I.                    01419000
           IF      CDFAMT2             =    ZEROS                       01420000
             MOVE  '_________ '        TO   M48100I.                    01421000
041306     IF      CDFAMT3             =    ZEROS                       01420000
041306       MOVE  '_________ '        TO   M48200I.                    01421000
041306     IF      CDFAMT4             =    ZEROS                       01420000
041306       MOVE  '_________ '        TO   M46500I.                    01421000
           IF     (RETCDF              =    ZEROS)                  AND 01424000
                  (CDFAMT1             =    ZEROS)                  AND 01425000
041306            (CDFAMT3             =    ZEROS)                  AND 01425000
041306            (CDFAMT4             =    ZEROS)                  AND 01425000
                  (CDFAMT2             =    ZEROS)                      01426000
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)            01428000
                                            INTO    (CDF)               01429000
                                            RIDFLD  (CDFKEY)            01430000
                                            LENGTH  (CDFLENR)  END-EXEC 01431000
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC 01432000
             MOVE  '_________ '        TO   M47900I                     01433000
             MOVE  '_________ '        TO   M48100I                     01434000
             MOVE  WABU                TO   M47900A                     01436000
             MOVE  WABU                TO   M48100A                     01437000
             MOVE  ZEROS               TO   M47900L                     01439000
             MOVE  ZEROS               TO   M48100L                     01440000
             IF    RETERR2             NOT  =  -1                       01442000
               MOVE  ZEROS             TO   RETERR2                     01443000
               GO                      TO   300-DETAIL                  01444000
             ELSE                                                       01445000
               GO                      TO   300-DETAIL.                 01446000
                                                                        01447000
           IF      CDFAMT1             <    ZEROS                       01448000
             MOVE  WABUMB              TO   M47900A.                    01449000
           IF      CDFAMT2             <    ZEROS                       01450000
             MOVE  WABUMB              TO   M48100A.                    01451000
041306     IF      CDFAMT3             <    ZEROS                       01450000
041306       MOVE  WABUMB              TO   M48200A.                    01451000
041306     IF      CDFAMT4             <    ZEROS                       01450000
041306       MOVE  WABUMB              TO   M46500A.                    01451000
                                                                                
           IF      RETERR              NOT  =   ZEROS                   01455000
             MOVE  RETERR              TO   RETERR2                     01456000
             GO                        TO   300-DETAIL.                 01457000
                                                                                
           IF      CDF                 =    ODF                         01459000
             GO                        TO   300-DETAIL.                 01460000
           IF      RETERR2             NOT  =  -1                       01461000
             MOVE  ZEROS               TO   RETERR2.                    01462000
           IF      RETCDF              =    '00'                        01463000
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)            01464000
                                            INTO    (ODF)               01465000
                                            RIDFLD  (CDFKEY)            01466000
                                            LENGTH  (CDFLENR)  END-EXEC 01467000
             EXEC  CICS REWRITE             DATASET (CDFFIL)            01468000
                                            FROM    (CDF)               01469000
                                            LENGTH  (CDFLENR)  END-EXEC 01470000
           ELSE                                                         01471000
             EXEC  CICS WRITE               DATASET (CDFFIL)            01472000
                                            FROM    (CDF)               01473000
                                            RIDFLD  (CDFKEY)            01474000
                                            LENGTH  (CDFLENR)  END-EXEC.01475000
       300-DETAIL.                                                      01476000
           SET     MPS2                TO   +1.                         01477000
       305-LOOP.                                                        01478000
           IF      MPS2                >    +7                          01479000
             GO                        TO   315-CONT.                   01480000
                                                                        01481000
           IF     (MPSPGML    (MPS2)   =    ZEROS)                   AND01482000
                  (MPSPGMA    (MPS2)   NOT  =  WABEOF)               AND01483000
                  (MPSPGM     (MPS2)   NOT  >  SPACES)               AND01484000
                  (MPSAMT1L   (MPS2)   =    ZEROS)                   AND01485000
                  (MPSAMT1A   (MPS2)   NOT  =  WABEOF)               AND01486000
                  (MPSAMT2L   (MPS2)   =    ZEROS)                   AND01487000
                  (MPSAMT2A   (MPS2)   NOT  =  WABEOF)               AND01488000
                  (MPSAMT3L   (MPS2)   =    ZEROS)                   AND01489000
                  (MPSAMT3A   (MPS2)   NOT  =  WABEOF)               AND01490000
                  (MPSAMT4L   (MPS2)   =    ZEROS)                   AND01491000
                  (MPSAMT4A   (MPS2)   NOT  =  WABEOF)               AND01492000
                  (MPSAMT5L   (MPS2)   =    ZEROS)                   AND01493000
                  (MPSAMT5A   (MPS2)   NOT  =  WABEOF)               AND01494000
                  (MPSAMT6L   (MPS2)   =    ZEROS)                   AND01495000
                  (MPSAMT6A   (MPS2)   NOT  =  WABEOF)               AND01496000
                  (MPSAMT7L   (MPS2)   =    ZEROS)                   AND01495000
                  (MPSAMT7A   (MPS2)   NOT  =  WABEOF)                  01496000
             SET   MPS2                UP   BY  +1                      01497000
             GO                        TO   305-LOOP.                   01498000
           MOVE    ZEROS               TO   RETERR                      01499000
           MOVE    WCMSODIST           TO   CDFKEY                      01500000
           MOVE    WCMSOFY             TO   CDFFY                       01501000
           MOVE    NEWFUND             TO   CDFFUND                     01502000
           MOVE    '99998'             TO   CDFTABLE                    01503000
           MOVE    NEWSCHL             TO   CDFSCHL                     01504000
           MOVE    '5'                 TO   CDFCNBR       CDFCNBR2      01505000
           MOVE    MPSPGM       (MPS2) TO   CDFPGM        CDFPGM2       01506000
                                                                        01507000
           SET     CDF1                TO   +15.                        01508000
       305-LOOP2.                                                       01509000
           IF      CDFB         (CDF1) =    '_'                         01510000
             MOVE  ' '                 TO   CDFB         (CDF1).        01511000
           IF      CDF1                <    +33                         01512000
             SET   CDF1                UP   BY  +1                      01513000
             GO                        TO   305-LOOP2.                  01514000
                                                                        01515000
           IF      CDFPGM              NOT  >   SPACES                  01516000
             MOVE  ALL '_'             TO   MPSPGM       (MPS2)         01517000
             MOVE  '_________ '        TO   MPSAMT1      (MPS2)         01518000
             MOVE  '_________ '        TO   MPSAMT2      (MPS2)         01519000
             MOVE  '_________ '        TO   MPSAMT3      (MPS2)         01520000
             MOVE  '_________ '        TO   MPSAMT4      (MPS2)         01521000
             MOVE  '_________ '        TO   MPSAMT5      (MPS2)         01522000
             MOVE  '_________ '        TO   MPSAMT6      (MPS2)         01523000
             MOVE  '_________ '        TO   MPSAMT7      (MPS2)         01523000
             MOVE  WABU                TO   MPSPGMA      (MPS2)         01524000
             MOVE  WABU                TO   MPSAMT1A     (MPS2)         01525000
             MOVE  WABU                TO   MPSAMT2A     (MPS2)         01526000
             MOVE  WABU                TO   MPSAMT3A     (MPS2)         01527000
             MOVE  WABU                TO   MPSAMT4A     (MPS2)         01528000
             MOVE  WABU                TO   MPSAMT5A     (MPS2)         01529000
             MOVE  WABU                TO   MPSAMT6A     (MPS2)         01530000
             MOVE  WABU                TO   MPSAMT7A     (MPS2)         01530000
             MOVE  ZEROS               TO   MPSPGML      (MPS2)         01531000
             MOVE  ZEROS               TO   MPSAMT1L     (MPS2)         01532000
             MOVE  ZEROS               TO   MPSAMT2L     (MPS2)         01533000
             MOVE  ZEROS               TO   MPSAMT3L     (MPS2)         01534000
             MOVE  ZEROS               TO   MPSAMT4L     (MPS2)         01535000
             MOVE  ZEROS               TO   MPSAMT5L     (MPS2)         01536000
             MOVE  ZEROS               TO   MPSAMT6L     (MPS2)         01537000
             MOVE  ZEROS               TO   MPSAMT7L     (MPS2)         01537000
             SET   MPS2                UP   BY  +1                      01538000
             GO                        TO   305-LOOP.                   01539000
                                                                        01540000
           MOVE    '99'                TO   RETCDF                      01541000
           MOVE    WABU                TO   MPSPGMA      (MPS2)         01542000
           EXEC    CICS HANDLE CONDITION    NOTFND  (310-NEW)  END-EXEC 01543000
           EXEC    CICS READ                DATASET (CDFFIL)            01544000
                                            INTO    (CDF)               01545000
                                            RIDFLD  (CDFKEY)            01546000
                                            LENGTH  (CDFLENR)  END-EXEC 01547000
           MOVE    WABPS               TO   MPSPGMA      (MPS2)         01548000
           MOVE    '00'                TO   RETCDF.                     01549000
       310-NEW.                                                         01550000
           IF      RETCDF              NOT  =  '00'                     01551000
             MOVE  SPACES              TO   CDFDATA                     01552000
             MOVE  ZEROS               TO   CDFAMT1  CDFAMT2  CDFAMT3   01553000
                                            CDFAMT4  CDFAMT5  CDFAMT6   01554000
                                            CDFAMT7  CDFTOTAL.          01555000
           MOVE    CDF                 TO   ODF                         01556000
           IF      MPSAMT1A    (MPS2)  =    WABEOF                      01557000
             MOVE  '_________ '        TO   MPSAMT1        (MPS2)       01558000
             MOVE  WABU                TO   MPSAMT1A       (MPS2)       01559000
             MOVE  ZEROS               TO   MPSAMT1L       (MPS2)       01560000
             MOVE  ZEROS               TO   CDFAMT1                     01561000
           ELSE                                                         01562000
             IF      MPSAMT1L  (MPS2)  >    ZEROS                       01563000
               MOVE  ZEROS             TO   MPSAMT1L       (MPS2)       01564000
               MOVE  MPSAMT1   (MPS2)  TO   WNUIN                       01565000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01566000
               MOVE  WABU              TO   MPSAMT1A       (MPS2)       01567000
               IF    WNUSIGN           =    '-'                         01568000
                 COMPUTE  WNU90        =    0 - WNU90                   01569000
                 MOVE  WNU90           TO   MPSAMT19       (MPS2)       01570000
                                            CDFAMT1                     01571000
               ELSE                                                     01572000
                 MOVE  WNU90           TO   MPSAMT19       (MPS2)       01573000
                                            CDFAMT1                     01574000
             ELSE                                                       01575000
               IF      MPSAMT1 (MPS2)  >    LOW-VALUES                  01576000
                 MOVE  WABUN           TO   MPSAMT1A       (MPS2)       01577000
                 MOVE  MPSAMT1 (MPS2)  TO   WNUIN                       01578000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01579000
                 IF    WNUSIGN         =    '-'                         01580000
                   COMPUTE  WNU90      =    0 - WNU90                   01581000
                   MOVE  WNU90         TO   MPSAMT19       (MPS2)       01582000
                                            CDFAMT1                     01583000
                 ELSE                                                   01584000
                   MOVE  WNU90         TO   MPSAMT19       (MPS2)       01585000
                                            CDFAMT1.                    01586000
           IF      MPSAMT2A    (MPS2)  =    WABEOF                      01587000
             MOVE  '_________ '        TO   MPSAMT2        (MPS2)       01588000
             MOVE  WABU                TO   MPSAMT2A       (MPS2)       01589000
             MOVE  ZEROS               TO   MPSAMT2L       (MPS2)       01590000
             MOVE  ZEROS               TO   CDFAMT2                     01591000
           ELSE                                                         01592000
             IF      MPSAMT2L  (MPS2)  >    ZEROS                       01593000
               MOVE  ZEROS             TO   MPSAMT2L       (MPS2)       01594000
               MOVE  MPSAMT2   (MPS2)  TO   WNUIN                       01595000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01596000
               MOVE  WABU              TO   MPSAMT2A       (MPS2)       01597000
               IF    WNUSIGN           =    '-'                         01598000
                 COMPUTE  WNU90        =    0 - WNU90                   01599000
                 MOVE  WNU90           TO   MPSAMT29       (MPS2)       01600000
                                            CDFAMT2                     01601000
               ELSE                                                     01602000
                 MOVE  WNU90           TO   MPSAMT29       (MPS2)       01603000
                                            CDFAMT2                     01604000
             ELSE                                                       01605000
               IF      MPSAMT2 (MPS2)  >    LOW-VALUES                  01606000
                 MOVE  WABUN           TO   MPSAMT2A       (MPS2)       01607000
                 MOVE  MPSAMT2 (MPS2)  TO   WNUIN                       01608000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01609000
                 IF    WNUSIGN         =    '-'                         01610000
                   COMPUTE  WNU90      =    0 - WNU90                   01611000
                   MOVE  WNU90         TO   MPSAMT29       (MPS2)       01612000
                                            CDFAMT2                     01613000
                 ELSE                                                   01614000
                   MOVE  WNU90         TO   MPSAMT29       (MPS2)       01615000
                                            CDFAMT2.                    01616000
           IF      MPSAMT3A    (MPS2)  =    WABEOF                      01617000
             MOVE  '_________ '        TO   MPSAMT3        (MPS2)       01618000
             MOVE  WABU                TO   MPSAMT3A       (MPS2)       01619000
             MOVE  ZEROS               TO   MPSAMT3L       (MPS2)       01620000
             MOVE  ZEROS               TO   CDFAMT3                     01621000
           ELSE                                                         01622000
             IF      MPSAMT3L  (MPS2)  >    ZEROS                       01623000
               MOVE  ZEROS             TO   MPSAMT3L       (MPS2)       01624000
               MOVE  MPSAMT3   (MPS2)  TO   WNUIN                       01625000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01626000
               MOVE  WABU              TO   MPSAMT3A       (MPS2)       01627000
               IF    WNUSIGN           =    '-'                         01628000
                 COMPUTE  WNU90        =    0 - WNU90                   01629000
                 MOVE  WNU90           TO   MPSAMT39       (MPS2)       01630000
                                            CDFAMT3                     01631000
               ELSE                                                     01632000
                 MOVE  WNU90           TO   MPSAMT39       (MPS2)       01633000
                                            CDFAMT3                     01634000
             ELSE                                                       01635000
               IF      MPSAMT3 (MPS2)  >    LOW-VALUES                  01636000
                 MOVE  WABUN           TO   MPSAMT3A       (MPS2)       01637000
                 MOVE  MPSAMT3 (MPS2)  TO   WNUIN                       01638000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01639000
                 IF    WNUSIGN         =    '-'                         01640000
                   COMPUTE  WNU90      =    0 - WNU90                   01641000
                   MOVE  WNU90         TO   MPSAMT39       (MPS2)       01642000
                                            CDFAMT3                     01643000
                 ELSE                                                   01644000
                   MOVE  WNU90         TO   MPSAMT39       (MPS2)       01645000
                                            CDFAMT3.                    01646000
           IF      MPSAMT4A    (MPS2)  =    WABEOF                      01647000
             MOVE  '_________ '        TO   MPSAMT4        (MPS2)       01648000
             MOVE  WABU                TO   MPSAMT4A       (MPS2)       01649000
             MOVE  ZEROS               TO   MPSAMT4L       (MPS2)       01650000
             MOVE  ZEROS               TO   CDFAMT1                     01651000
           ELSE                                                         01652000
             IF      MPSAMT4L  (MPS2)  >    ZEROS                       01653000
               MOVE  ZEROS             TO   MPSAMT4L       (MPS2)       01654000
               MOVE  MPSAMT4   (MPS2)  TO   WNUIN                       01655000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01656000
               MOVE  WABU              TO   MPSAMT4A       (MPS2)       01657000
               IF    WNUSIGN           =    '-'                         01658000
                 COMPUTE  WNU90        =    0 - WNU90                   01659000
                 MOVE  WNU90           TO   MPSAMT49       (MPS2)       01660000
                                            CDFAMT4                     01661000
               ELSE                                                     01662000
                 MOVE  WNU90           TO   MPSAMT49       (MPS2)       01663000
                                            CDFAMT4                     01664000
             ELSE                                                       01665000
               IF      MPSAMT4 (MPS2)  >    LOW-VALUES                  01666000
                 MOVE  WABUN           TO   MPSAMT4A       (MPS2)       01667000
                 MOVE  MPSAMT4 (MPS2)  TO   WNUIN                       01668000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01669000
                 IF    WNUSIGN         =    '-'                         01670000
                   COMPUTE  WNU90      =    0 - WNU90                   01671000
                   MOVE  WNU90         TO   MPSAMT49       (MPS2)       01672000
                                            CDFAMT4                     01673000
                 ELSE                                                   01674000
                   MOVE  WNU90         TO   MPSAMT49       (MPS2)       01675000
                                            CDFAMT4.                    01676000
           IF      MPSAMT5A    (MPS2)  =    WABEOF                      01677000
             MOVE  '_________ '        TO   MPSAMT5        (MPS2)       01678000
             MOVE  WABU                TO   MPSAMT5A       (MPS2)       01679000
             MOVE  ZEROS               TO   MPSAMT5L       (MPS2)       01680000
             MOVE  ZEROS               TO   CDFAMT5                     01681000
           ELSE                                                         01682000
             IF      MPSAMT5L  (MPS2)  >    ZEROS                       01683000
               MOVE  ZEROS             TO   MPSAMT5L       (MPS2)       01684000
               MOVE  MPSAMT5   (MPS2)  TO   WNUIN                       01685000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01686000
               MOVE  WABU              TO   MPSAMT5A       (MPS2)       01687000
               IF    WNUSIGN           =    '-'                         01688000
                 COMPUTE  WNU90        =    0 - WNU90                   01689000
                 MOVE  WNU90           TO   MPSAMT59       (MPS2)       01690000
                                            CDFAMT5                     01691000
               ELSE                                                     01692000
                 MOVE  WNU90           TO   MPSAMT59       (MPS2)       01693000
                                            CDFAMT5                     01694000
             ELSE                                                       01695000
               IF      MPSAMT5 (MPS2)  >    LOW-VALUES                  01696000
                 MOVE  WABUN           TO   MPSAMT5A       (MPS2)       01697000
                 MOVE  MPSAMT5 (MPS2)  TO   WNUIN                       01698000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01699000
                 IF    WNUSIGN         =    '-'                         01700000
                   COMPUTE  WNU90      =    0 - WNU90                   01701000
                   MOVE  WNU90         TO   MPSAMT59       (MPS2)       01702000
                                            CDFAMT5                     01703000
                 ELSE                                                   01704000
                   MOVE  WNU90         TO   MPSAMT59       (MPS2)       01705000
                                            CDFAMT5.                    01706000
           IF      MPSAMT6A    (MPS2)  =    WABEOF                      01707000
             MOVE  '_________ '        TO   MPSAMT6        (MPS2)       01708000
             MOVE  WABU                TO   MPSAMT6A       (MPS2)       01709000
             MOVE  ZEROS               TO   MPSAMT6L       (MPS2)       01710000
             MOVE  ZEROS               TO   CDFAMT6                     01711000
           ELSE                                                         01712000
             IF      MPSAMT6L  (MPS2)  >    ZEROS                       01713000
               MOVE  ZEROS             TO   MPSAMT6L       (MPS2)       01714000
               MOVE  MPSAMT6   (MPS2)  TO   WNUIN                       01715000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01716000
               MOVE  WABU              TO   MPSAMT6A       (MPS2)       01717000
               IF    WNUSIGN           =    '-'                         01718000
                 COMPUTE  WNU90        =    0 - WNU90                   01719000
                 MOVE  WNU90           TO   MPSAMT69       (MPS2)       01720000
                                            CDFAMT6                     01721000
               ELSE                                                     01722000
                 MOVE  WNU90           TO   MPSAMT69       (MPS2)       01723000
                                            CDFAMT6                     01724000
             ELSE                                                       01725000
               IF      MPSAMT6 (MPS2)  >    LOW-VALUES                  01726000
                 MOVE  WABUN           TO   MPSAMT6A       (MPS2)       01727000
                 MOVE  MPSAMT6 (MPS2)  TO   WNUIN                       01728000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01729000
                 IF    WNUSIGN         =    '-'                         01730000
                   COMPUTE  WNU90      =    0 - WNU90                   01731000
                   MOVE  WNU90         TO   MPSAMT69       (MPS2)       01732000
                                            CDFAMT6                     01733000
                 ELSE                                                   01734000
                   MOVE  WNU90         TO   MPSAMT69       (MPS2)       01735000
                                            CDFAMT6.                    01736000
           IF      MPSAMT7A    (MPS2)  =    WABEOF                      01707000
             MOVE  '_________ '        TO   MPSAMT7        (MPS2)       01708000
             MOVE  WABU                TO   MPSAMT7A       (MPS2)       01709000
             MOVE  ZEROS               TO   MPSAMT7L       (MPS2)       01710000
             MOVE  ZEROS               TO   CDFAMT7                     01711000
           ELSE                                                         01712000
             IF      MPSAMT7L  (MPS2)  >    ZEROS                       01713000
               MOVE  ZEROS             TO   MPSAMT7L       (MPS2)       01714000
               MOVE  MPSAMT7   (MPS2)  TO   WNUIN                       01715000
               PERFORM 700-CONVERT     THRU 700-EXIT                    01716000
               MOVE  WABU              TO   MPSAMT7A       (MPS2)       01717000
               IF    WNUSIGN           =    '-'                         01718000
                 COMPUTE  WNU90        =    0 - WNU90                   01719000
                 MOVE  WNU90           TO   MPSAMT79       (MPS2)       01720000
                                            CDFAMT7                     01721000
               ELSE                                                     01722000
                 MOVE  WNU90           TO   MPSAMT79       (MPS2)       01723000
                                            CDFAMT7                     01724000
             ELSE                                                       01725000
               IF      MPSAMT7 (MPS2)  >    LOW-VALUES                  01726000
                 MOVE  WABUN           TO   MPSAMT7A       (MPS2)       01727000
                 MOVE  MPSAMT7 (MPS2)  TO   WNUIN                       01728000
                 PERFORM 700-CONVERT   THRU 700-EXIT                    01729000
                 IF    WNUSIGN         =    '-'                         01730000
                   COMPUTE  WNU90      =    0 - WNU90                   01731000
                   MOVE  WNU90         TO   MPSAMT79       (MPS2)       01732000
                                            CDFAMT7                     01733000
                 ELSE                                                   01734000
                   MOVE  WNU90         TO   MPSAMT79       (MPS2)       01735000
                                            CDFAMT7.                    01736000
                                                                        01737000
           IF      CDFAMT1             =    ZEROS                       01738000
             MOVE  '_________ '        TO   MPSAMT1        (MPS2).      01739000
           IF      CDFAMT2             =    ZEROS                       01740000
             MOVE  '_________ '        TO   MPSAMT2        (MPS2).      01741000
           IF      CDFAMT3             =    ZEROS                       01742000
             MOVE  '_________ '        TO   MPSAMT3        (MPS2).      01743000
           IF      CDFAMT4             =    ZEROS                       01744000
             MOVE  '_________ '        TO   MPSAMT4        (MPS2).      01745000
           IF      CDFAMT5             =    ZEROS                       01746000
             MOVE  '_________ '        TO   MPSAMT5        (MPS2).      01747000
           IF      CDFAMT6             =    ZEROS                       01748000
             MOVE  '_________ '        TO   MPSAMT6        (MPS2).      01749000
           IF      CDFAMT7             =    ZEROS                       01748000
             MOVE  '_________ '        TO   MPSAMT7        (MPS2).      01749000
                                                                        01750000
           IF      RETCDF              NOT  =  '00'                     01751000
             MOVE  'A'                 TO   WSCACT                      01752000
           ELSE                                                         01753000
             IF    CDFAMT1             >    ZEROS                   OR  01754000
                   CDFAMT2             >    ZEROS                   OR  01755000
                   CDFAMT3             >    ZEROS                   OR  01756000
                   CDFAMT4             >    ZEROS                   OR  01757000
                   CDFAMT5             >    ZEROS                   OR  01758000
                   CDFAMT6             >    ZEROS                   OR  01759000
                   CDFAMT7             >    ZEROS                       01759000
               MOVE  'C'               TO   WSCACT                      01760000
             ELSE                                                       01761000
               MOVE  'D'               TO   WSCACT                      01762000
               GO                      TO   310-UPDATE.                 01763000
                                                                        01764000
           IF      CDFAMT1             <    ZEROS                       01786000
             MOVE  WABUMB              TO   MPSAMT1A       (MPS2).      01787000
           IF      CDFAMT2             <    ZEROS                       01793000
             MOVE  WABUMB              TO   MPSAMT2A       (MPS2).      01794000
           IF      CDFAMT3             <    ZEROS                       01800000
             MOVE  WABUMB              TO   MPSAMT3A       (MPS2).      01801000
           IF      CDFAMT4             <    ZEROS                       01807000
             MOVE  WABUMB              TO   MPSAMT4A       (MPS2).      01808000
           IF      CDFAMT5             <    ZEROS                       01814000
             MOVE  WABUMB              TO   MPSAMT5A       (MPS2).      01815000
           IF      CDFAMT6             <    ZEROS                       01821000
             MOVE  WABUMB              TO   MPSAMT6A       (MPS2).      01822000
           IF      CDFAMT7             <    ZEROS                       01821000
             MOVE  WABUMB              TO   MPSAMT7A       (MPS2).      01822000
                                                                        01828000
           IF      RETERR              NOT  =  ZEROS                    01829000
             MOVE  RETERR              TO   RETERR2                     01830000
             SET   MPS2                UP   BY  +1                      01831000
             GO                        TO   305-LOOP.                   01832000
                                                                        01833000
       310-UPDATE.                                                      01834000
           IF      WSCACT              =    'D'                         01848000
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)            01849000
                                            INTO    (CDF)               01850000
                                            RIDFLD  (CDFKEY)            01851000
                                            LENGTH  (CDFLENR)  END-EXEC 01852000
             EXEC  CICS DELETE              DATASET (CDFFIL)   END-EXEC 01853000
             MOVE  '_________ '        TO   MPSAMT1      (MPS2)         01854000
             MOVE  '_________ '        TO   MPSAMT2      (MPS2)         01855000
             MOVE  '_________ '        TO   MPSAMT3      (MPS2)         01856000
             MOVE  '_________ '        TO   MPSAMT4      (MPS2)         01857000
             MOVE  '_________ '        TO   MPSAMT5      (MPS2)         01858000
             MOVE  '_________ '        TO   MPSAMT6      (MPS2)         01859000
             MOVE  '_________ '        TO   MPSAMT7      (MPS2)         01859000
             MOVE  WABU                TO   MPSAMT1A     (MPS2)         01860000
             MOVE  WABU                TO   MPSAMT2A     (MPS2)         01861000
             MOVE  WABU                TO   MPSAMT3A     (MPS2)         01862000
             MOVE  WABU                TO   MPSAMT4A     (MPS2)         01863000
             MOVE  WABU                TO   MPSAMT5A     (MPS2)         01864000
             MOVE  WABU                TO   MPSAMT6A     (MPS2)         01865000
             MOVE  WABU                TO   MPSAMT7A     (MPS2)         01865000
             MOVE  ZEROS               TO   MPSAMT1L     (MPS2)         01866000
             MOVE  ZEROS               TO   MPSAMT2L     (MPS2)         01867000
             MOVE  ZEROS               TO   MPSAMT3L     (MPS2)         01868000
             MOVE  ZEROS               TO   MPSAMT4L     (MPS2)         01869000
             MOVE  ZEROS               TO   MPSAMT5L     (MPS2)         01870000
             MOVE  ZEROS               TO   MPSAMT6L     (MPS2)         01871000
             MOVE  ZEROS               TO   MPSAMT7L     (MPS2)         01871000
             SET   MPS2                UP   BY  +1                      01872000
             IF    RETERR2             NOT  =  -1                       01873000
               MOVE  ZEROS             TO   RETERR2                     01874000
               GO                      TO   305-LOOP                    01875000
             ELSE                                                       01876000
               GO                      TO   305-LOOP.                   01877000
                                                                        01878000
           IF      CDF                 =    ODF                         01879000
             SET   MPS2                UP   BY  +1                      01880000
             GO                        TO   305-LOOP.                   01881000
           IF      RETERR2             NOT  =   -1                      01882000
             MOVE  ZEROS               TO   RETERR2.                    01883000
                                                                        01887000
           IF      RETCDF              =    '00'                        01888000
             EXEC  CICS READ UPDATE         DATASET (CDFFIL)            01889000
                                            INTO    (ODF)               01890000
                                            RIDFLD  (CDFKEY)            01891000
                                            LENGTH  (CDFLENR)  END-EXEC 01892000
             EXEC  CICS REWRITE             DATASET (CDFFIL)            01893000
                                            FROM    (CDF)               01894000
                                            LENGTH  (CDFLENR)  END-EXEC 01895000
           ELSE                                                         01896000
             EXEC  CICS WRITE               DATASET (CDFFIL)            01897000
                                            FROM    (CDF)               01898000
                                            RIDFLD  (CDFKEY)            01899000
                                            LENGTH  (CDFLENR)  END-EXEC.01900000
           SET     MPS2                UP   BY  +1                      01901000
           GO                          TO   305-LOOP.                   01902000
                                                                        01903000
       315-CONT.                                                        01904000
           MOVE    ZEROS               TO   RETERR                      01905000
           MOVE    SPACES              TO   CDF                         01906000
           MOVE    WCMSODIST           TO   CDFDIST      CDFDIST2       01907000
           MOVE    WCMSOFY             TO   CDFFY        CDFFY2         01908000
           MOVE    NEWFUND             TO   CDFFUND      CDFFUND2       01909000
           MOVE    '99998'             TO   CDFTABLE     CDFTABLE2      01910000
           MOVE    NEWSCHL             TO   CDFSCHL                     01911000
           IF      RETERR2             <    ZEROS                       02236000
             MOVE  MSG03               TO   MMSGO                       02237000
             GO                        TO   015-SEND                    02238000
           ELSE                                                         02239000
             MOVE    -1                TO   MFUNDL                      02240000
             IF      RETERR2           =    +1                          02241000
               MOVE  MSG15             TO   MMSGO                       02242000
               GO                      TO   015-SEND                    02243000
             ELSE                                                       02244000
               MOVE  MSG17             TO   MMSGO                       02245000
               GO                      TO   015-SEND.                   02246000
      ******************************************************************02247000
                                                                        02248000
           COPY                             EWNUMBP.                    02249000
                                                                        02250000
      ******************************************************************02251000
       800-XCTL.                                                        02252000
           IF     (EIBAID              =    DFHCLEAR)                OR 02253000
                  (EIBAID              =    DFHPA1)                  OR 02254000
                  (EIBAID              =    DFHPA2)                     02255000
             MOVE  QWRMAP              TO   MPEW52O                     02256000
             MOVE  -1                  TO   MPANELL                     02257000
             MOVE  +10                 TO   EIBCALEN                    02258000
             GO                        TO   015-SEND.                   02259000
           MOVE    QWRWCM              TO   WCM                         02260000
           PERFORM 010-RECEIVE         THRU 010-EXIT                    02261000
                                                                        02262000
           IF      EIBAID              =    DFHPF1                      02263000
             MOVE  WCMXFFR             TO   WCMXFHLD                    02264000
             MOVE  EIBCPOSN            TO   WCMXFCRS9     WCMXFPOS9     02265000
             MOVE  'CZ02'              TO   WCMXFTO                     02266000
             GO                        TO   805-XCTL.                   02267000
           IF      EIBAID              =    DFHPF4                      02268000
             MOVE  WCMXFFR             TO   WCMXFHLD                    02269000
             MOVE  EIBCPOSN            TO   WCMXFCRS9     WCMXFPOS9     02270000
             MOVE  'CZ03'              TO   WCMXFTO                     02271000
             GO                        TO   805-XCTL.                   02272000
                                                                        02273000
           IF      EIBAID              =    DFHPF5                      02274000
             IF      MPSLINE      (07) =    LOW-VALUES                  02275000
               GO                      TO   100-DISPLAY                 02276000
             ELSE                                                       02277000
               IF      WCMSOCURR       NOT  =  'U'                      02278000
                 GO                    TO   300-UPDATE                  02279000
               ELSE                                                     02280000
                 MOVE  LOW-VALUES      TO   MPSLINES      QWRLINES      02281000
                 MOVE  +10             TO   EIBCALEN                    02282000
                 MOVE  ZEROS           TO   MFUNDL        M46100L       02283000
                 MOVE  -1              TO   M1PGML                      02284000
                 MOVE  MSG33           TO   MMSGO                       02285000
                 GO                    TO   015-SEND.                   02286000
           IF      EIBAID              =    DFHPF7                      02287000
             GO                        TO   815-PF7.                    02288000
           IF      EIBAID              =    DFHPF8                      02289000
             GO                        TO   820-PF8.                    02290000
           IF      EIBAID              =    DFHPF10                     02291000
             GO                        TO   830-PF10.                   02292000
                                                                        02293000
           MOVE    QWRWCM              TO   WCM                         02294000
           IF      EIBAID              =    DFHPF12                     02295000
             MOVE  SPACES              TO   WCMXFHLD                    02296000
             MOVE  'C   '              TO   WCMXFTO                     02297000
           ELSE                                                         02298000
             IF      EIBAID            =    DFHPF3                      02299000
               MOVE  SPACES            TO   WCMXFHLD                    02300000
               IF    (WCMXFFR          =    'CB02')                     02301000
                 MOVE  WCMXFFR         TO   WCMXFTO                     02302000
               ELSE                                                     02303000
                 MOVE  'CB  '          TO   WCMXFTO                     02304000
             ELSE                                                       02305000
               MOVE  QWRMAP            TO   MPEW52O                     02306000
               MOVE  +10               TO   EIBCALEN                    02307000
               MOVE  -1                TO   MFUNDL                      02308000
               GO                      TO   015-SEND.                   02309000
                                                                        02310000
       805-XCTL.                                                        02311000
           MOVE    'C'                 TO   WCMXFTS                     02312000
           MOVE    WCM                 TO   QWRWCM                      02313000
           IF     (EIBCPOSN            >    +879)                    AND02314000
                  (EIBCPOSN            <    +1600)                      02315000
             COMPUTE WCMXFPOS9         =    EIBCPOSN -                  02316000
                                         (((EIBCPOSN / 80) - 11) * 80)  02317000
           ELSE                                                         02318000
             COMPUTE WCMXFPOS9         =    EIBCPOSN.                   02319000
           EXEC    CICS HANDLE CONDITION    DUPREC  (810-END)  END-EXEC 02320000
           IF      RETQWR              NOT  =   '00'                    02321000
             EXEC  CICS WRITE               DATASET (QWRFIL)            02322000
                                            FROM    (QWR)               02323000
                                            RIDFLD  (QWRKEY)            02324000
                                            LENGTH  (QWRLENR)  END-EXEC 02325000
           ELSE                                                         02326000
             EXEC  CICS READ UPDATE         DATASET (QWRFIL)            02327000
                                            INTO    (QWRI)              02328000
                                            RIDFLD  (QWRKEY)            02329000
                                            LENGTH  (QWRLENR)  END-EXEC 02330000
             EXEC  CICS REWRITE             DATASET (QWRFIL)            02331000
                                            FROM    (QWR)               02332000
                                            LENGTH  (QWRLENR)  END-EXEC.02333000
       810-END.                                                         02334000
           MOVE    'CB11'              TO   WCMXFFR                     02335000
           EXEC    CICS XCTL                PROGRAM ('EW02')            02336000
                                            COMMAREA(WCM)               02337000
                                            LENGTH  (220)      END-EXEC.02338000
                                                                        02339000
      ******************************************************************02340000
       815-PF7.                                                         02341000
           MOVE    QWRLNMAX            TO   WSCLNMAX                    02342000
           MOVE    QWRLNXT             TO   WSCLNCNT                    02343000
           IF     (QWRLNXT             >    +7)                      OR 02344000
                  (QWRLNINC            =    +1)                         02345000
             MOVE  LOW-VALUES          TO   QWRLINES                    02346000
             MOVE  +10                 TO   EIBCALEN.                   02347000
           MOVE    -1                  TO   WSCLNINC      MFUNDL        02348000
           MOVE    MSG13               TO   MMSGO                       02349000
           IF     (QWRPF7              =    SPACES)                  OR 02350000
                  (QWRPF7              NOT  >   QWRFRST)                02351000
             GO                        TO   015-SEND.                   02352000
           MOVE    QWRPF7              TO   CDFKEY                      02353000
           EXEC    CICS HANDLE CONDITION    NOTFND  (015-SEND)          02354000
                                            ENDFILE (015-SEND) END-EXEC 02355000
           EXEC    CICS STARTBR             DATASET (CDFFIL)            02356000
                                            RIDFLD  (CDFKEY)   GTEQ     02357000
                                            KEYLENGTH (CDFLENK)         02358000
                                            END-EXEC                    02359000
           EXEC    CICS READPREV            DATASET (CDFFIL)            02360000
                                            INTO    (CDF)               02361000
                                            RIDFLD  (CDFKEY)            02362000
                                            LENGTH  (CDFLENR)  END-EXEC 02363000
           IF      QWRLNINC            =    +1                          02364000
             MOVE  +8                  TO   WSCLNCNT                    02365000
             MOVE  ZEROS               TO   WSCLNMAX.                   02366000
           GO                          TO   110-OLD.                    02367000
                                                                        02368000
      ******************************************************************02369000
       820-PF8.                                                         02370000
           MOVE    QWRLNXT             TO   WSCLNCNT                    02371000
           MOVE    QWRLNMAX            TO   WSCLNMAX                    02372000
           IF     (QWRLNXT             =    ZEROS)                   OR 02373000
                  (QWRLNINC            =    -1)                         02374000
             MOVE  LOW-VALUES          TO   QWRLINES                    02375000
             MOVE  +10                 TO   EIBCALEN.                   02376000
           MOVE    +1                  TO   WSCLNINC                    02377000
           MOVE    -1                  TO   MFUNDL                      02378000
           MOVE    MSG14               TO   MMSGO                       02379000
           IF      QWRPF8              =    SPACES                      02380000
             GO                        TO   015-SEND.                   02381000
           MOVE    QWRPF8              TO   CDFKEY                      02382000
           EXEC    CICS HANDLE CONDITION    NOTFND  (015-SEND)          02383000
                                            ENDFILE (015-SEND) END-EXEC 02384000
           EXEC    CICS STARTBR             DATASET (CDFFIL)            02385000
                                            RIDFLD  (CDFKEY)   GTEQ     02386000
                                            KEYLENGTH (CDFLENK)         02387000
                                            END-EXEC                    02388000
           EXEC    CICS READNEXT            DATASET (CDFFIL)            02389000
                                            INTO    (CDF)               02390000
                                            RIDFLD  (CDFKEY)            02391000
                                            LENGTH  (CDFLENR)  END-EXEC 02392000
           IF      QWRLNINC            =    -1                          02393000
             MOVE  ZEROS               TO   WSCLNCNT                    02394000
             MOVE  +8                  TO   WSCLNMAX.                   02395000
           GO                          TO   110-OLD.                    02396000
                                                                        02397000
      ******************************************************************02398000
       830-PF10.                                                        02399000
           IF      WCMSOCURR           NOT  =  'U'                      02400000
             GO                        TO   100-DISPLAY.                02401000
           MOVE    '99'                TO   RETALL                      02402000
           MOVE    SPACES              TO   CDF                         02403000
           MOVE    WCMSODIST           TO   CDFDIST                     02404000
           MOVE    WCMSOFY             TO   CDFFY                       02405000
           MOVE    NEWFUND             TO   CDFFUND                     02406000
           MOVE    '99998'             TO   CDFTABLE                    02407000
           MOVE    NEWSCHL             TO   CDFSCHL                     02408000
           MOVE    '4'                 TO   CDFCONTROL                  02409000
           MOVE    '99'                TO   RETCDF                      02410000
           EXEC    CICS HANDLE CONDITION    NOTFND  (830-ERR1) END-EXEC 02411000
           EXEC    CICS DELETE              DATASET (CDFFIL)            02412000
                                            RIDFLD  (CDFKEY)            02413000
                                            KEYLENGTH (15)              02414000
                                            GENERIC            END-EXEC 02415000
           MOVE    '00'                TO   RETCDF.                     02416000
       830-ERR1.                                                        02417000
           IF      RETCDF              =    '00'                        02418000
             MOVE  RETCDF              TO   RETALL.                     02419000
                                                                        02420000
           MOVE    '5'                 TO   CDFCONTROL                  02421000
           MOVE    '99'                TO   RETCDF                      02422000
           EXEC    CICS HANDLE CONDITION    NOTFND  (830-ERR2) END-EXEC 02423000
           EXEC    CICS DELETE              DATASET (CDFFIL)            02424000
                                            RIDFLD  (CDFKEY)            02425000
                                            KEYLENGTH (15)              02426000
                                            GENERIC            END-EXEC 02427000
           MOVE    '00'                TO   RETCDF.                     02428000
       830-ERR2.                                                        02429000
           IF      RETCDF              =    '00'                        02430000
             MOVE  RETCDF              TO   RETALL.                     02431000
                                                                        02432000
           IF      RETALL              NOT  =  '00'                     02433000
             MOVE  -1                  TO   MFUNDL                      02434000
             MOVE  MSG29               TO   MMSGO                       02435000
             GO                        TO   015-SEND.                   02436000
                                                                        02437000
           MOVE    LOW-VALUES          TO   MPEW52O     QWRMAP          02438000
           MOVE    +10                 TO   EIBCALEN                    02439000
           MOVE    -1                  TO   MFUNDL                      02440000
           MOVE    MSG20               TO   MMSGO                       02441000
           GO                          TO   015-SEND.                   02442000
                                                                        02443000
      ******************************************************************02444000
       850-CALLED.                                                      02445000
           MOVE    WCMXFCRS9           TO   EIBCPOSN                    02446000
           MOVE    DFHCOMMAREA         TO   WCM                         02447000
           IF      WCMRETCD            NOT  =   'G'                     02448000
             GO                        TO   900-SECURITY.               02449000
           IF      WCMXFFR             =    'CZ02'                      02450000
             MOVE  WCMXFHLD            TO   WCMXFFR                     02451000
             MOVE  WCMXFCRS9           TO   EIBCPOSN                    02452000
             MOVE  1234                TO   EIBCALEN                    02453000
             MOVE  QWRMAP              TO   MPEW52O                     02454000
             GO                        TO   015-SEND.                   02455000
           IF     (WCMXFFR             =    'CZ04')                  OR 02456000
                  (WCMXFFR             =    'CZ03')                     02457000
             MOVE  WCMXFHLD            TO   WCMXFFR                     02458000
             MOVE  WCMXFCRS9           TO   EIBCPOSN                    02459000
             MOVE  1234                TO   EIBCALEN                    02460000
             MOVE  QWRMAP              TO   MPEW52O                     02461000
             IF      WCMXFPROM         NOT  =   SPACES                  02462000
               IF      WCMXFPNL5       =    'SCHL '                     02463000
                 MOVE  WCMXFPROM       TO   MSCHLO                      02464000
                 GO                    TO   015-SEND                    02465000
               ELSE                                                     02466000
                   COMPUTE WSCLNCNT    =   (EIBCPOSN / 80) - 12         02471000
                   IF     (WSCLNCNT    >    +0)                      AND02472000
                          (WSCLNCNT    <    +8)                         02473000
                     SET   MPS2        TO   WSCLNCNT                    02474000
                     IF   (WCMXFPNL5   =    'PGM ')                  AND02475000
                          (MPSPGMA (MPS2)   NOT  =  WABPS)           AND02476000
                          (MPSPGMA (MPS2)   NOT  =  WABPSB)             02477000
                       MOVE  WCMXFPROM TO   MPSPGM       (MPS2)         02478000
                       GO              TO   015-SEND                    02479000
                     ELSE                                               02480000
                       GO              TO   015-SEND                    02481000
                   ELSE                                                 02482000
                     GO                TO   015-SEND                    02483000
             ELSE                                                       02484000
               GO                      TO   015-SEND.                   02485000
           IF      WCMXFFR             =    'CB02'                      02486000
             MOVE  WCMXFPROM           TO   NEWKEY                      02487000
             GO                        TO   100-DISPLAY.                02488000
           MOVE    LOW-VALUES          TO   MPEW52O       QWRMAP        02489000
           MOVE    HIGH-VALUES         TO   QWRPF7        OLDKEY        02490000
           MOVE    SPACES              TO   NEWKEY                      02491000
           MOVE    -1                  TO   MFUNDL                      02492000
           MOVE    MSG18               TO   MMSGO                       02493000
           GO                          TO   015-SEND.                   02494000
                                                                        02495000
      ******************************************************************02496000
       900-SECURITY.                                                    02497000
           MOVE    ZEROS               TO   EIBCALEN                    02498000
           MOVE    WCMXFHLD            TO   WCMXFFR                     02499000
           MOVE    1234                TO   EIBCALEN                    02500000
           MOVE    +14                 TO   EIBCPOSN                    02501000
           MOVE    QWRMAP              TO   MPEW52O                     02502000
           MOVE    WCMXFTPNL           TO   MPANELO                     02503000
           MOVE    WABUMB              TO   MPANELA                     02504000
           IF      WCMRETCD            =    'S'                         02505000
             MOVE  MSG90               TO   MMSGO                       02506000
           ELSE                                                         02507000
             IF      WCMRETCD          =    'T'                         02508000
               MOVE  MSG91             TO   MMSGO                       02509000
             ELSE                                                       02510000
               IF     (WCMRETCD        =    'U')                     OR 02511000
                      (WCMRETCD        =    'N')                        02512000
                 MOVE  MSG92           TO   MMSGO                       02513000
               ELSE                                                     02514000
                 IF      WCMRETCD      =    'D'                         02515000
                   MOVE  MSG93         TO   MMSGO.                      02516000
           GO                          TO   015-SEND.                   02517000
       901-ERROR.                                                       02518000
           MOVE    -1                  TO   MPANELL                     02519000
           MOVE    MSG94               TO   MMSGO                       02520000
           GO                          TO   015-SEND.                   02521000
       902-NOSPACE.                                                     02522000
           MOVE    MSG95               TO   MMSGO                       02523000
           MOVE    -1                  TO   MPANELL                     02524000
           GO                          TO   015-SEND.                   02525000
       903-INVREQ.                                                      02526000
           MOVE    MSG96               TO   MMSGO                       02527000
           MOVE    -1                  TO   MPANELL                     02528000
           GO                          TO   015-SEND.                   02529000
       904-NOTOPEN.                                                     02530000
           MOVE    MSG97               TO   MMSGO                       02531000
           MOVE    -1                  TO   MPANELL                     02532000
           GO                          TO   015-SEND.                   02533000
       905-DSIDERR.                                                     02534000
           MOVE    MSG97               TO   MMSGO                       02535000
           MOVE    -1                  TO   MPANELL                     02536000
           GO                          TO   015-SEND.                   02537000
           GOBACK.                                                      02538000
