00001  IDENTIFICATION DIVISION.                                         02/09/04
00002  PROGRAM-ID.             EFTBD110.                                EFTBD110
00003  AUTHOR.                 NORTHROP GRUMMAN.                           LV223
00004  DATE-WRITTEN.           APRIL 2003.                                 CL129
00005  DATE-COMPILED.                                                      CL146
00006      SKIP3                                                           CL146
00007 *****                                                                CL146
00008 *                                                                    CL146
00009 *    FUNCTION:  PROCESS  DAILY ENROLLMENT FILE FROM GOVONE AND       CL201
00010 *               UPDATES THE TAX DATABASE. IT MODIFIES THE ENROLL-    CL125
00011 *               MENT INDICATOR ON THR MPRF RECORD AND THE MOPO       CL125
00012 *               RECORDS THAT CONTAIN CONTACT NAMES AND SET THE       CL125
00013 *               MOPO-TYPR-EFT-VENDOR-88 TO TRUE.                     CL125
00014 *                                                                    CL146
00015 *    MODIFICATION LOG:                                               CL146
00016 *                                                                    CL146
00017 *    04/22/03  INITIAL DEVELOPMENT                                   CL129
00018 *              WORK ORDER:                      PROGRAMMER: RW1      CL**3
00019 *                                                                    CL**3
00020 *    02/04/04  NOTE**** OPO RECORD IS NOT DELETED WHEN EMPLOYER      CL221
00021 *                       UNENROLL FROM EFT       PROGRAMMER: ZL1      CL221
00022 *                                                                    CL221
00023 *    02/04/04  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL221
00024 *              XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**3
00025 *              WORK ORDER:                      PROGRAMMER: XXX      CL**3
00026 *                                                                    CL146
00027 *  DESCRIPTION:                                                      CL146
00028 *                                                                    CL146
00029 *    INITIATION:                                                     CL146
00030 *      NONE                                                          CL*91
00031 *                                                                    CL146
00032 *    PARAMETERS INPUT:                                               CL*50
00033 *      NONE                                                          CL*91
00034 *                                                                    CL*50
00035 *    PROCESSING:                                                     CL146
00036 *      READ THE ENROLLMENT FILE SEQUENTIALLY FROM GOVONE             CL125
00037 *      AND COMPARES THE EMP-NO WITH THE MPRF MASTER FILE.            CL125
00038 *                                                                    CL125
00039 *    TERMINATION:                                                    CL146
00040 *      OUTPUT STATISTICAL RECORDS COUNT.                             CL*50
00041 *                                                                    CL146
00042 *    RECORDS UPDATED:                                                CL125
00043 *      MASTER:                                                       CL**3
00044 *        MPRF AND MOPO FILES                                         CL125
00045 *                                                                    CL**3
00046 *      ALTERNATE INDEX:                                              CL146
00047 *        NONE.                                                       CL146
00048 *                                                                    CL146
00049 *      REFERENCE:                                                    CL146
00050 *        NONE.                                                       CL146
00051 *                                                                    CL146
00052 *    REPORT RECORDS WRITTEN:                                         CL146
00053 *        NONE                                                        CL125
00054 *                                                                    CL*50
00055 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                   CL241
00056 *        NONE                                                        CL125
00057 *                                                                    CL146
00058 *    MODULES CALLED:                                                 CL146
00059 *        DTSBU001  DATE CONVERSION/EDIT.                             CL146
00060 *        DTSBU004  QUARERLY SUMMARY REPORT REC.                      CL*47
00061 *        DTSBU910  VSAM MASTER FILES I/O.                            CL*74
00062 *        DTSBU927  VARIABLE LENGTH RECORDS BTC OUTPUT.               CL166
00063 *                                                                    CL166
00064 *                                                                    CL146
00065 *****                                                                CL146
00066      SKIP3                                                           CL*13
00067  ENVIRONMENT DIVISION.                                               CL146
00068                                                                      CL*58
00069  INPUT-OUTPUT SECTION.                                               CL*58
00070                                                                      CL*58
00071  DATA DIVISION.                                                      CL*13
00072                                                                      CL*58
00073  WORKING-STORAGE SECTION.                                            CL146
000735 77  PAN-VALET PICTURE X(24) VALUE '223EFTBD110  02/09/04'.          CL146
00074                                                                      CL*40
00075  01  WRK-AREA.                                                       CL146
00076      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +110.   CL179
00077      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'EFTBD110'.   CL179
00078      05  WRK-ABEND-MSG               PIC  X(60).                     CL*83
00079      05  WRK-TRACE-IND               PIC  X(01)  VALUE SPACES.       CL126
00080                                                                      CL*69
00081      05  EFT-STATUS                  PIC  X(02).                     CL*58
00082          88 EFT-STATUS-OK-88          VALUE '00'.                    CL*58
00083          88 EFT-STATUS-EOF-88         VALUE '10'.                    CL149
00084                                                                      CL126
00085      05  EMP-FOUND-IND                PIC  X(01).                    CL197
00086      05  WRK-MPRF-IND                 PIC  X(01).                    CL197
00087          88 WRK-MPRF-OK-88          VALUE '0'.                       CL151
00088          88 WRK-MPRF-EOF-88         VALUE '1'.                       CL151
00089                                                                      CL126
00090      05  EFT-CHAR-CNT                PIC S9(04)  COMP.               CL151
00091      05  WRK-NUMBER-ONE              PIC S9(03)  COMP-3 VALUE +0.    CL*59
00092      05  WRK-SUM-SSN-WAGES-AMT       PIC S9(07)V99      VALUE +0.    CL*59
00093      05  WRK-TOTAL-WAGES-AMT         PIC S9(09)V99      VALUE +0.    CL*59
00094      05  WRK-SSN-HOLD                PIC S9(09)  COMP-3 VALUE +0.    CL*58
00095      05  WRK-MOPO-ID-NO              PIC S9(03)  COMP-3 VALUE +0.    CL140
00096                                                                      CL101
00097      05  WRK-PRIMARY-NAME.                                           CL*98
00098          10  WRK-FIRST4-NAME         PIC  X(04).                     CL101
00099          10  WRK-REST-NAME           PIC  X(36).                     CL101
00100                                                                      CL*98
00101      05  WS-CONTACT-NAME.                                            CL204
00102          10  WS-FIRST1-NAME         PIC  X(01)   VALUE SPACES.       CL204
00103          10  WS-REST-NAME           PIC  X(25)   VALUE SPACES.       CL204
00104                                                                      CL204
00105      05  WS-FIRST-NAME               PIC  X(15)  VALUE SPACES.       CL204
00106      05  WS-LAST-NAME                PIC  X(20)  VALUE SPACES.       CL204
00107      05  WS-MIDDLE-I                 PIC  X(01)  VALUE SPACES.       CL204
00108                                                                      CL204
00109      05  DISP-DATE                   PIC  X(10)  VALUE SPACES.       CL204
00110      05  DISP-TIME                   PIC  X(08)  VALUE SPACES.       CL*92
00111      05  DISP-ABSTIME                PIC  X(16)  VALUE SPACES.       CL132
00112                                                                      CL132
00113      05  WRK-CURR-TIME               PIC  S9(07) COMP-3 VALUE +0.    CL133
00114      05  WRK-CURR-DATE               PIC  S9(09) COMP-3 VALUE +0.    CL132
00115      05  WRK-CURR-YR                 PIC  9(04)  VALUE ZEROS.        CL*92
00116      05  WRK-ABSTIME                 PIC  S9(15) COMP-3 VALUE +0.    CL132
00117                                                                      CL132
00118      05  WRK-EMP-NO                  PIC  9(06)  VALUE 0.            CL*77
00119      05  WRK-EFT-READ-CNT            PIC S9(07)  COMP-3 VALUE +0.    CL136
00120      05  WRK-MPRF-READ-CNT           PIC S9(07)  COMP-3 VALUE +0.    CL101
00121      05  WRK-MPRF-REWRITE-CNT        PIC S9(07)  COMP-3 VALUE +0.    CL136
00122      05  WRK-MOPO-FIND-CNT           PIC S9(07)  COMP-3 VALUE +0.    CL136
00123      05  WRK-MOPO-DELETE-CNT         PIC S9(07)  COMP-3 VALUE +0.    CL136
00124      05  WRK-MOPO-REWRITE-CNT        PIC S9(07)  COMP-3 VALUE +0.    CL136
00125      05  WRK-MOPO-WRITE-CNT          PIC S9(07)  COMP-3 VALUE +0.    CL142
00126      05  WRK-MATCHED-CNT             PIC S9(07)  COMP-3 VALUE +0.    CL142
00127      05  WRK-ERROR-WRITE-CNT         PIC S9(07)  COMP-3 VALUE +0.    CL*78
00128      05  WRK-BTC-WRITE-CNT           PIC S9(07)  COMP-3 VALUE +0.    CL168
00129      05  WRK-T001-DELETE-CNT         PIC S9(07)  COMP-3 VALUE +0.    CL177
00130      05  WRK-T001-ADD-CNT            PIC S9(07)  COMP-3 VALUE +0.    CL177
00131      05  WRK-T001-WRITE-CNT          PIC S9(07)  COMP-3 VALUE +0.    CL177
00132      05  WRK-T002-WRITE-CNT          PIC S9(07)  COMP-3 VALUE +0.    CL172
00133                                                                      CL168
00134      05  WRK-ERROR-IND               PIC  X(01).                     CL168
00135          88 WRK-ERROR-YES-88                VALUE 'Y'.               CL*37
00136          88 WRK-ERROR-NO-88                 VALUE 'N'.               CL*37
00137                                                                      CL125
00138      05  FENR-CONTACT-NAME-IND       PIC  X(01).                     CL211
00139          88 FENR-CONTACT-NAME-YES-88        VALUE 'Y'.               CL211
00140          88 FENR-CONTACT-NAME-NO-88         VALUE 'N'.               CL211
00141                                                                      CL141
00142      05  WRK-MOPO-IND                PIC  X(01).                     CL141
00143          88 WRK-MOPO-FOUND-YES-88           VALUE 'Y'.               CL149
00144          88 WRK-MOPO-FOUND-NO-88            VALUE 'N'.               CL149
00145                                                                      CL*74
00146  01  FENR-REC.                                                       CL125
00147  ++INCLUDE EFTIFENR                                                  CL125
00148      SKIP3                                                           CL*58
00149  01  TSKL-REC.                                                       CL190
00150  ++INCLUDE DTSITSKL                                                  CL190
00151      SKIP3                                                           CL190
00152  01  L001-LINK-AREA.                                                 CL146
00153  ++INCLUDE DTSIL001                                                  CL146
00154      EJECT                                                           CL146
00155  01  L004-LINK-AREA.                                                 CL*24
00156  ++INCLUDE DTSIL004                                                  CL*24
00157      EJECT                                                           CL*24
00158  01  L005-COMM-AREA.                                                 CL*61
00159  ++INCLUDE DTSIL005                                                  CL*61
00160      EJECT                                                           CL100
00161  01  L076-LINK-AREA.                                                 CL222
00162  ++INCLUDE DTSIL076                                                  CL222
00163      EJECT                                                           CL204
00164  01  L910-LINK-AREA.                                                 CL*94
00165  ++INCLUDE DTSIL910                                                  CL*94
00166      EJECT                                                           CL162
00167  01  L927-LINK-AREA.                                                 CL189
00168  ++INCLUDE DTSIL927                                                  CL189
00169      EJECT                                                           CL189
00170  01  EFTE-REC.                                                       CL205
00171  ++INCLUDE EFTERMSG                                                  CL205
00172     SKIP3                                                            CL205
00173  01  F907-REC.                                                       CL205
00174  ++INCLUDE EFTIF907                                                  CL205
00175     SKIP3                                                            CL205
00176 *01  MOPO-REC.                                                       CL180
00177 ***INCLUDE DTSIMOPO                                                  CL180
00178 *    EJECT                                                           CL180
00179  01  MSKL-REC.                                                       CL*70
00180  ++INCLUDE DTSIMSKL                                                  CL*70
00181      EJECT                                                           CL*70
00182  01  MPRF-REC.                                                       CL*70
00183  ++INCLUDE DTSIMPRF                                                  CL*70
00184      EJECT                                                           CL*70
00185  01  ISKL-REC.                                                       CL157
00186  ++INCLUDE DTSIISKL                                                  CL157
00187      EJECT                                                           CL157
00188  01  T001-REC.                                                       CL189
00189  ++INCLUDE DTSIT001                                                  CL188
00190  01  T002-REC.                                                       CL188
00191  ++INCLUDE DTSIT002                                                  CL188
00192  01  R907-REC.                                                       CL188
00193  ++INCLUDE DTSIR907                                                  CL188
00194      EJECT                                                           CL188
00195                                                                      CL188
00196  LINKAGE SECTION.                                                    CL180
00197  01  EFT-REC-TYPE-LINK-AREA.                                         CL180
00198  ++INCLUDE EFTIL100                                                  CL180
00199                                                                      CL180
00200  01  RSKL-REC.                                                       CL180
00201  ++INCLUDE EFTIRSKL                                                  CL180
00202                                                                      CL189
00203  PROCEDURE DIVISION USING                                            CL180
00204                     EFT-REC-TYPE-LINK-AREA                           CL180
00205                     RSKL-REC.                                        CL188
00206                                                                      CL187
00207       MOVE RSKL-REC TO FENR-REC.                                     CL187
00208                                                                      CL187
00209       MOVE ZEROS TO EMP-FOUND-IND.                                   CL196
00210                                                                      CL200
00211       IF EFT-L100-CMD-INIT-88                                        CL180
00212          PERFORM I0000-INITIALIZE THRU I0000-EXIT                    CL180
00213       ELSE                                                           CL180
00214         IF EFT-L100-CMD-PROCESS-88                                   CL180
00215            ADD +1     TO WRK-EFT-READ-CNT                            CL201
00216            PERFORM P0000-PROCESS THRU P0000-EXIT  UNTIL              CL196
00217            EMP-FOUND-IND = 1                                         CL196
00218         ELSE                                                         CL180
00219           IF EFT-L100-CMD-TERMINATE-88                               CL192
00220              PERFORM T0000-TERMINATE THRU T0000-EXIT                 CL180
00221           ELSE                                                       CL180
00222              DISPLAY 'INVLAID CALL FROM BD100 '                      CL180
00223              PERFORM S999-ABEND THRU S999-EXIT.                      CL180
00224                                                                      CL180
00225                                                                      CL*62
00226      GOBACK.                                                         CL146
00227      EJECT                                                           CL146
00228  I0000-INITIALIZE.                                                   CL146
00229                                                                      CL*72
00230      MOVE ZERO                 TO  WRK-EFT-READ-CNT.                 CL*74
00231      SET WRK-MPRF-OK-88        TO TRUE.                              CL151
00232                                                                      CL*72
00233      PERFORM I1000-SYS-DATE    THRU I1000-EXIT.                      CL*74
00234      PERFORM I2000-OPEN-FILES  THRU I2000-EXIT.                      CL*74
00235      PERFORM I3000-START-BROW  THRU I3000-EXIT.                      CL196
00236                                                                      CL*63
00237  I0000-EXIT.                                                         CL146
00238      EXIT.                                                           CL146
00239                                                                      CL107
00240  I1000-SYS-DATE.                                                     CL*72
00241      SET L005-FROM-SYS      TO TRUE.                                 CL*72
00242      PERFORM S005-SYS-DATE  THRU S005-EXIT.                          CL*72
00243      MOVE L005-DATE         TO DISP-DATE WRK-CURR-DATE.              CL132
00244      MOVE L005-TIME         TO DISP-TIME WRK-CURR-TIME.              CL132
00245      MOVE L005-ABSTIME      TO DISP-ABSTIME WRK-ABSTIME.             CL132
00246                                                                      CL132
00247 *    DISPLAY '    '.                                                 CL199
00248 *    DISPLAY 'L005-DATE ' DISP-DATE  ' L005-TIME ' DISP-TIME         CL199
00249 *            ' L005-ABSTIME ' DISP-ABSTIME.                          CL199
00250  I1000-EXIT.                                                         CL*72
00251      EXIT.                                                           CL*72
00252                                                                      CL**1
00253  I2000-OPEN-FILES.                                                   CL*72
00254                                                                      CL166
00255      MOVE LENGTH OF T001-REC TO T001-LENGTH.                         CL191
00256      MOVE LENGTH OF T002-REC TO T002-LENGTH.                         CL191
00257      MOVE LENGTH OF F907-REC TO F907-LENGTH.                         CL212
00258      MOVE WRK-MOD-NAME TO F907-MODULE-NAME.                          CL215
00259                                                                      CL215
00260  I2000-EXIT.                                                         CL*72
00261      EXIT.                                                           CL*58
00262                                                                      CL*58
00263  I3000-START-BROW.                                                   CL196
00264                                                                      CL196
00265                                                                      CL196
00266      MOVE +0 TO WRK-MPRF-READ-CNT.                                   CL196
00267                                                                      CL196
00268      MOVE LOW-VALUES TO MSKL-KEY-AREA.                               CL196
00269                                                                      CL196
00270      MOVE +0 TO MSKL-EMP-NO.                                         CL196
00271      SET MSKL-PRF-88 TO TRUE.                                        CL196
00272                                                                      CL196
00273      PERFORM S910-START-BROWSE THRU S910-EXIT.                       CL196
00274      IF L910-OK-88                                                   CL196
00275         MOVE MSKL-REC TO MPRF-REC                                    CL196
00276         ADD +1 TO WRK-MPRF-READ-CNT                                  CL196
00277      ELSE                                                            CL196
00278         DISPLAY 'BAD FIRST READ ON MPRF ' L910-RESULT-IND            CL196
00279         PERFORM S999-ABEND THRU S999-EXIT.                           CL196
00280                                                                      CL196
00281  I3000-EXIT.                                                         CL196
00282      EXIT.                                                           CL196
00283 **************************************************************       CL146
00284 *  READ THE ELECTRONIC ENROLLMENT FILE FROM GOVONE AND       *       CL135
00285 *  COMPARES THE EMPLOYER NNUMBER WITH THE MPRF MASTER.       *       CL135
00286 **************************************************************       CL146
00287                                                                      CL146
00288  P0000-PROCESS.                                                      CL146
00289                                                                      CL130
00290      IF RSKL-TYPE-ENROLL-88                                          CL186
00291         NEXT SENTENCE                                                CL200
00292      ELSE                                                            CL185
00293         MOVE 'THE WRONG RECORD TYPE SEND FROM PGM EFTBD100 ' TO      CL185
00294                WRK-ABEND-MSG                                         CL185
00295         PERFORM S999-ABEND THRU S999-EXIT                            CL186
00296      END-IF.                                                         CL186
00297                                                                      CL185
00298                                                                      CL196
00299      IF MPRF-EMP-NO < FENR-EMP-NO                                    CL130
00300         PERFORM P1000-MPRF-LESS-FENR      THRU P1000-EXIT            CL196
00301      ELSE                                                            CL196
00302         IF MPRF-EMP-NO = FENR-EMP-NO                                 CL196
00303            PERFORM P1100-MPRF-EQUAL-FENR  THRU P1100-EXIT            CL196
00304            MOVE 1 TO EMP-FOUND-IND                                   CL196
00305         ELSE                                                         CL196
00306            MOVE 1 TO EMP-FOUND-IND.                                  CL196
00307                                                                      CL196
00308      PERFORM S2000-READ-MPRF        THRU S2000-EXIT.                 CL196
00309                                                                      CL130
00310  P0000-EXIT.                                                         CL146
00311      EXIT.                                                           CL146
00312                                                                      CL135
00313  P1000-MPRF-LESS-FENR.                                               CL149
00314                                                                      CL168
00315      IF MPRF-EFT-ENROLLED-YES-88                                     CL196
00316         SET T001-EFT-ENROLLMENT    TO TRUE                           CL168
00317         SET T001-EFT-ENROLL-DEL-88 TO TRUE                           CL173
00318         PERFORM P2000-WRITE-T001   THRU P2000-EXIT                   CL168
00319         ADD 1                      TO WRK-T001-DELETE-CNT            CL177
00320      END-IF.                                                         CL149
00321                                                                      CL149
00322  P1000-EXIT.                                                         CL149
00323      EXIT.                                                           CL149
00324                                                                      CL149
00325  P1100-MPRF-EQUAL-FENR.                                              CL149
00326      ADD +1  TO WRK-MATCHED-CNT.                                     CL150
00327      IF MPRF-EFT-ENROLLED-YES-88                                     CL149
00328       DISPLAY ' EMP FOUND ON MPRF/UPD T002 ' MPRF-EMP-NO             CL218
00329         SET T002-UPD-CONTACT-88        TO TRUE                       CL197
00330         SET T002-CONTACT-EFT-VENDOR-88 TO TRUE                       CL220
00331         PERFORM P3000-WRITE-T002   THRU P3000-EXIT                   CL170
00332      ELSE                                                            CL149
00333       DISPLAY ' EMP NOT ON MPRF/ADD T001/T002 ' MPRF-EMP-NO          CL218
00334         SET T002-ADD-CONTACT-88        TO TRUE                       CL196
00335         SET T002-CONTACT-EFT-VENDOR-88 TO TRUE                       CL220
00336         SET T001-EFT-ENROLLMENT        TO TRUE                       CL199
00337         SET T001-EFT-ENROLL-ADD-88     TO TRUE                       CL199
00338         ADD 1                          TO WRK-T001-ADD-CNT           CL199
00339         PERFORM P2000-WRITE-T001   THRU P2000-EXIT                   CL168
00340         PERFORM P3000-WRITE-T002   THRU P3000-EXIT                   CL168
00341      END-IF.                                                         CL149
00342                                                                      CL149
00343  P1100-EXIT.                                                         CL149
00344      EXIT.                                                           CL149
00345                                                                      CL149
00346 **************************************************************       CL*37
00347 *  FORMAT AND WRITE THE T001 RECORDS                         *       CL168
00348 **************************************************************       CL*37
00349                                                                      CL*37
00350  P2000-WRITE-T001.                                                   CL174
00351                                                                      CL213
00352      MOVE SPACES                    TO TSKL-REC.                     CL213
00353                                                                      CL213
00354      MOVE MPRF-EMP-NO               TO T001-EMP-NO.                  CL169
00355      MOVE 'IVRENRMT'                TO T001-ORIGIN.                  CL170
00356      MOVE L005-DATE                 TO T001-SYS-DATE.                CL169
00357      MOVE L005-TIME                 TO T001-SYS-TIME.                CL169
00358      MOVE SPACES                    TO T001-RESP-OP-ID.              CL169
00359      MOVE SPACE                     TO T001-NOT-LIABLE-LTR-TYPE.     CL169
00360      MOVE SPACE                     TO T001-WELCOME-LTR-IND.         CL169
00361      MOVE ZEROS                     TO T001-HH-START-YRQ.            CL169
00362      MOVE T001-REC                  TO TSKL-REC.                     CL188
00363                                                                      CL188
00364      PERFORM S927-WRITE             THRU S927-EXIT.                  CL188
00365                                                                      CL181
00366      ADD 1                          TO WRK-T001-WRITE-CNT.           CL172
00367      ADD 1                          TO WRK-BTC-WRITE-CNT.            CL168
00368                                                                      CL*72
00369  P2000-EXIT.                                                         CL168
00370      EXIT.                                                           CL*72
00371                                                                      CL168
00372 **************************************************************       CL168
00373 *  FORMAT AND WRITE THE T002 RECORDS                         *       CL168
00374 **************************************************************       CL168
00375                                                                      CL168
00376  P3000-WRITE-T002.                                                   CL173
00377                                                                      CL168
00378      MOVE SPACES                    TO TSKL-REC.                     CL213
00379                                                                      CL213
00380      SET FENR-CONTACT-NAME-YES-88   TO TRUE.                         CL211
00381      PERFORM P3001-EDIT-CONT-NAME THRU P3001-EXIT.                   CL211
00382                                                                      CL202
00383      IF FENR-CONTACT-NAME-NO-88                                      CL211
00384 *     DISPLAY ' T002 NOT ADDED NO NAME ' MPRF-EMP-NO                 CL220
00385         GO TO P3000-EXIT.                                            CL211
00386                                                                      CL211
00387      MOVE MPRF-EMP-NO               TO T002-EMP-NO.                  CL169
00388      MOVE 'IVRENRMT'                TO T002-ORIGIN.                  CL170
00389      MOVE L005-DATE                 TO T002-SYS-DATE.                CL169
00390      MOVE L005-TIME                 TO T002-SYS-TIME.                CL169
00391      MOVE FENR-VOICE-1-AREA-CD      TO T002-C-VOICE-AREA-CD.         CL172
00392      MOVE FENR-VOICE-1-PREFIX       TO T002-C-VOICE-PREFIX.          CL172
00393      MOVE FENR-VOICE-1-SUFFIX       TO T002-C-VOICE-SUFFIX.          CL172
00394      MOVE FENR-VOICE-1-EXT          TO T002-C-VOICE-EXT.             CL172
00395      MOVE ZEROS                     TO T002-CONTACT-SSN.             CL172
00396      MOVE SPACES                    TO T002-CONTACT-TITLE.           CL172
00397      MOVE SPACES                    TO T002-CONTACT-FAX.             CL172
00398      MOVE SPACES                    TO T002-CONTACT-EMAIL.           CL172
00399                                                                      CL172
00400      MOVE T002-REC                  TO TSKL-REC.                     CL188
00401                                                                      CL188
00402      PERFORM S927-WRITE             THRU S927-EXIT.                  CL188
00403                                                                      CL168
00404                                                                      CL181
00405      ADD 1                          TO WRK-T002-WRITE-CNT.           CL172
00406      ADD 1                          TO WRK-BTC-WRITE-CNT.            CL172
00407                                                                      CL168
00408  P3000-EXIT.                                                         CL168
00409      EXIT.                                                           CL168
00410                                                                      CL136
00411  P3001-EDIT-CONT-NAME.                                               CL202
00412        MOVE FENR-CONTACT-NAME TO WS-CONTACT-NAME                     CL207
00413                                                                      CL204
00414 *      IF WS-FIRST1-NAME < 'A' OR > 'Z' OR = ' '                     CL214
00415        IF WS-CONTACT-NAME = SPACES OR LOW-VALUES                     CL219
00416           SET FENR-CONTACT-NAME-NO-88   TO TRUE                      CL217
00417           MOVE FENR-EMP-NO   TO F907-EMP-NO                          CL217
00418           MOVE '061'         TO F907-MSG-ID                          CL217
00419           MOVE EFT061        TO F907-MSG-TEXT                        CL217
00420           MOVE RSKL-REC-TYPE TO F907-GOV1-RECID                      CL217
00421           PERFORM S946-WRITE-R907 THRU S946-EXIT                     CL217
00422         GO TO P3001-EXIT.                                            CL217
00423                                                                      CL204
00424        UNSTRING WS-CONTACT-NAME                                      CL204
00425           DELIMITED BY ' ' INTO                                      CL204
00426           WS-FIRST-NAME                                              CL204
00427           WS-LAST-NAME                                               CL204
00428           WS-MIDDLE-I.                                               CL204
00429                                                                      CL204
00430        MOVE WS-FIRST-NAME TO L076-NAMEF                              CL222
00431        MOVE WS-LAST-NAME  TO L076-NAMEL                              CL222
00432        MOVE WS-MIDDLE-I   TO L076-NAMEI                              CL222
00433        PERFORM S076-NAME  THRU S076-EXIT.                            CL222
00434        IF L076-NAME-INVALID                                          CL222
00435           SET FENR-CONTACT-NAME-NO-88   TO TRUE                      CL211
00436           MOVE FENR-EMP-NO   TO F907-EMP-NO                          CL203
00437           MOVE '037'         TO F907-MSG-ID                          CL206
00438           MOVE EFT037        TO F907-MSG-TEXT                        CL203
00439           MOVE RSKL-REC-TYPE TO F907-GOV1-RECID                      CL203
00440           MOVE WS-CONTACT-NAME TO F907-GOV1-DATA                     CL216
00441           PERFORM S946-WRITE-R907 THRU S946-EXIT                     CL204
00442        ELSE                                                          CL204
00443         MOVE L076-NAM  TO T002-CONTACT-NAME.                         CL222
00444                                                                      CL207
00445                                                                      CL203
00446  P3001-EXIT.                                                         CL202
00447      EXIT.                                                           CL202
00448                                                                      CL202
00449  T0000-TERMINATE.                                                    CL146
00450                                                                      CL*59
00451      DISPLAY ' '.                                                    CL221
00452      DISPLAY ' '.                                                    CL221
00453                                                                      CL*71
00454      DISPLAY '*** EFTBD110 TERMINATION STATISTICS ***'.              CL179
00455                                                                      CL*71
00456      DISPLAY '  '.                                                   CL237
00457      DISPLAY ' NO. OF FENR RECORDS RECEIVED FROM BD100....  :'       CL199
00458              WRK-EFT-READ-CNT.                                       CL*98
00459                                                                      CL*98
00460      DISPLAY ' NO. OF MPRF RECORDS READ...................  :'       CL199
00461              WRK-MPRF-READ-CNT.                                      CL144
00462                                                                      CL144
00463      DISPLAY ' NO.OF MPRF RECORD FOUND ...................  :'       CL199
00464              WRK-MATCHED-CNT.                                        CL142
00465                                                                      CL144
00466      DISPLAY ' NO. OF T001 RECORDS DELETED................  :'       CL199
00467              WRK-T001-DELETE-CNT.                                    CL177
00468                                                                      CL177
00469      DISPLAY ' NO. OF TOO1 RECORDS ADDED..................  :'       CL199
00470              WRK-T001-ADD-CNT.                                       CL177
00471                                                                      CL177
00472      DISPLAY ' NO. OF T001 RECORDS WRITTEN................  :'       CL199
00473              WRK-T001-WRITE-CNT.                                     CL177
00474                                                                      CL172
00475      DISPLAY ' NO. OF T002 RECORDS WRITTEN................  :'       CL199
00476              WRK-T002-WRITE-CNT.                                     CL172
00477                                                                      CL172
00478      DISPLAY '  '.                                                   CL172
00479      DISPLAY ' NO. OF BTC RECORDS  WRITTEN................  :'       CL199
00480              WRK-BTC-WRITE-CNT.                                      CL172
00481                                                                      CL**5
00482                                                                      CL157
00483  T0000-EXIT.                                                         CL146
00484      EXIT.                                                           CL146
00485      EJECT                                                           CL146
00486                                                                      CL*59
00487                                                                      CL149
00488 **************************************************************       CL149
00489 *  READ THE MPRF MASTER SEQUENTIALLY.                        *       CL149
00490 **************************************************************       CL149
00491  S2000-READ-MPRF.                                                    CL151
00492      MOVE MPRF-REC                     TO MSKL-REC.                  CL151
00493      PERFORM S910-READ-NEXT            THRU S910-EXIT.               CL151
00494      IF L910-OK-88                                                   CL151
00495         ADD +1                         TO WRK-MPRF-READ-CNT          CL153
00496         MOVE MSKL-REC                  TO MPRF-REC                   CL151
00497      ELSE                                                            CL151
00498         SET WRK-MPRF-EOF-88            TO TRUE.                      CL151
00499                                                                      CL151
00500  S2000-EXIT.                                                         CL151
00501      EXIT.                                                           CL151
00502                                                                      CL149
00503                                                                      CL195
00504  S001-FROM-FED-8.                                                    CL108
00505      SET L001-FROM-FED-8 TO TRUE.                                    CL108
00506      GO TO S001-DATE.                                                CL108
00507                                                                      CL108
00508  S001-FROM-ABS-DAY.                                                  CL108
00509      SET L001-FROM-ABS-DAY TO TRUE.                                  CL108
00510      GO TO S001-DATE.                                                CL108
00511                                                                      CL108
00512  S001-FROM-CAL-6.                                                    CL108
00513      SET L001-FROM-CAL-6 TO TRUE.                                    CL108
00514      GO TO S001-DATE.                                                CL108
00515                                                                      CL108
00516  S001-DATE.                                                          CL108
00517      CALL 'DTSBU001' USING L001-LINK-AREA.                           CL108
00518  S001-EXIT.                                                          CL108
00519      EXIT.                                                           CL108
00520                                                                      CL*15
00521                                                                      CL204
00522  S076-NAME.                                                          CL222
00523      CALL 'DTSBU076' USING L076-LINK-AREA.                           CL223
00524  S076-EXIT.                                                          CL222
00525      EXIT.                                                           CL204
00526  S004-FROM-3.                                                        CL*24
00527      SET L004-FROM-3        TO TRUE.                                 CL*24
00528      GO TO S004-YRQ.                                                 CL*24
00529                                                                      CL*24
00530  S004-YRQ.                                                           CL*24
00531      CALL 'DTSBU004' USING L004-LINK-AREA.                           CL*24
00532                                                                      CL*24
00533  S004-EXIT.                                                          CL*24
00534      EXIT.                                                           CL*24
00535                                                                      CL*24
00536  S005-SYS-DATE.                                                      CL*61
00537      CALL 'DTSBU005' USING L005-COMM-AREA.                           CL*61
00538                                                                      CL*61
00539  S005-EXIT.                                                          CL*61
00540      EXIT.                                                           CL*61
00541                                                                      CL*78
00542  S910-READ.                                                          CL*70
00543      SET L910-READ-88 TO TRUE.                                       CL*70
00544      GO TO S910-MSTR-IO.                                             CL*70
00545                                                                      CL*70
00546  S910-START-BROWSE.                                                  CL*70
00547      SET L910-START-BROWSE-88 TO TRUE.                               CL*70
00548      GO TO S910-MSTR-IO.                                             CL*70
00549                                                                      CL*13
00550  S910-READ-NEXT.                                                     CL*70
00551      SET L910-READ-NEXT-88 TO TRUE.                                  CL*70
00552      GO TO S910-MSTR-IO.                                             CL*70
00553                                                                      CL*70
00554  S910-MSTR-IO.                                                       CL*70
00555      CALL 'DTSBU910' USING L910-LINK-AREA                            CL*70
00556                            MSKL-REC.                                 CL*70
00557  S910-EXIT.                                                          CL*70
00558      EXIT.                                                           CL*70
00559                                                                      CL*80
00560  S927-WRITE.                                                         CL188
00561      SET L927-WRITE-88 TO TRUE.                                      CL188
00562      CALL 'DTSBU927' USING L927-LINK-AREA                            CL188
00563                            TSKL-REC.                                 CL188
00564  S927-EXIT.                                                          CL188
00565      EXIT.                                                           CL188
00566                                                                      CL166
00567  S946-WRITE-R907.                                                    CL205
00568      CALL 'DTSBU946' USING F907-REC.                                 CL205
00569  S946-EXIT.                                                          CL205
00570      EXIT.                                                           CL205
00571                                                                      CL205
00572  S999-ABEND.                                                         CL146
00573      DISPLAY '*** EFTBD110 ABENDING : '                              CL179
00574              WRK-ABEND-MSG.                                          CL*83
00575                                                                      CL146
00576      CALL 'DTSBU999' USING WRK-ABEND-CD.                             CL146
00577  S999-EXIT.                                                          CL146
00578      EXIT.                                                           CL146
