00001  IDENTIFICATION DIVISION.                                         03/08/04
00002  PROGRAM-ID.             EFTBI100.                                EFTBI100
00003  AUTHOR.                 TRW.                                        LV118
00004  DATE-WRITTEN.           APRIL 2002.                                 CL240
00005  DATE-COMPILED.                                                   EFTBI100
00006      SKIP3                                                        EFTBI100
00007 *****                                                             EFTBI100
00008 *                                                                 EFTBI100
00009 *    FUNCTION:  READ THE ELETRONIC PAYMENT FILE FROM GOVONE          CL*91
00010 *               AND VALIDATE THE FILE/DATA INTEGGRITY.               CL111
00011 *                                                                 EFTBI100
00012 *    MODIFICATION LOG:                                            EFTBI100
00013 *                                                                 EFTBI100
00014 *    04/22/03  INITIAL DEVELOPMENT                                   CL109
00015 *              WORK ORDER:                      PROGRAMMER: ZL1      CL109
00016 *                                                                    CL**3
00017 *    99/99/99  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**3
00018 *              XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**3
00019 *              WORK ORDER:                      PROGRAMMER: XXX      CL**3
00020 *                                                                 EFTBI100
00021 *  DESCRIPTION:                                                   EFTBI100
00022 *                                                                 EFTBI100
00023 *    INITIATION:                                                  EFTBI100
00024 *      NONE                                                          CL*91
00025 *                                                                 EFTBI100
00026 *    PARAMETERS INPUT:                                               CL*50
00027 *      NONE                                                          CL*91
00028 *                                                                    CL*50
00029 *    PROCESSING:                                                  EFTBI100
00030 *      EDIT FILE PAYMENT FILE FROM GOVONE                            CL217
00031 *                                                                 EFTBI100
00032 *    TERMINATION:                                                 EFTBI100
00033 *      OUTPUT STATISTICAL RECORDS COUNT.                             CL*50
00034 *                                                                 EFTBI100
00035 *    RECORDS READ:                                                EFTBI100
00036 *      MASTER:                                                       CL**3
00037 *        MPRF                                                        CL111
00038 *                                                                    CL**3
00039 *      ALTERNATE INDEX:                                           EFTBI100
00040 *        NONE.                                                    EFTBI100
00041 *                                                                 EFTBI100
00042 *      REFERENCE:                                                 EFTBI100
00043 *        NONE.                                                    EFTBI100
00044 *                                                                 EFTBI100
00045 *    RECORDS UPDATED:                                                CL**3
00046 *        NONE                                                        CL249
00047 *                                                                 EFTBI100
00048 *    REPORT RECORDS WRITTEN:                                      EFTBI100
00049 *        R907  ERROR PAYMENT RECORD FROM EDITING FOR REPORTING.      CL*91
00050 *                                                                    CL*50
00051 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                   CL241
00052 *        PAYMENT TRANSACTION FILE                                    CL109
00053 *        REOPRT  TRANSACTION FILE (WAGES AND PAYMENTS)               CL109
00054 *                                                                 EFTBI100
00055 *    MODULES CALLED:                                              EFTBI100
00056 *        DTSBU001  DATE CONVERSION/EDIT.                          EFTBI100
00057 *        DTSBU004  EDIT QTR                                          CL254
00058 *        DTSBU017  EDIT FEIN                                         CL254
00059 *        DTSBU020  EDIT SSN                                          CL254
00060 *        DTSBU021  EDIT TELEPHONE NO.                                CL254
00061 *        DTSBU910  VSAM MASTER FILES I/O.                            CL*74
00062 *        DTSBU927  VARIABLE LENGTH RECORDS BTC OUTPUT.               CL*96
00063 *        DTSBU947  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 2.      CL*91
00064 *                                                                 EFTBI100
00065 *                                                                 EFTBI100
00066 *****                                                             EFTBI100
00067      SKIP3                                                           CL*13
00068  ENVIRONMENT DIVISION.                                            EFTBI100
00069                                                                      CL*58
00070  INPUT-OUTPUT SECTION.                                               CL*58
00071                                                                      CL*58
00072  FILE-CONTROL.                                                       CL*58
00073                                                                      CL*58
00074      SELECT EFT-GOVONE-INPUT   ASSIGN TO GOVONEFT                    CL109
00075                                FILE STATUS IS EFT-STATUS.            CL109
00076                                                                      CL*70
00077      SELECT EFT-GOVONE-OUTPUT  ASSIGN TO EFTTRANS                    CL*36
00078                                FILE STATUS IS DPT-STATUS.            CL109
00079                                                                      CL109
00080 *    SELECT EFT-REPORTS-F907   ASSIGN TO DTSFVRO1                    CL*51
00081 *                              FILE STATUS IS F907-STATUS.           CL*51
00082                                                                      CL113
00083 *    SELECT EFT-REPORTS-R907   ASSIGN TO EFTIR907                    CL*52
00084 *                              FILE STATUS IS R907-STATUS.           CL*52
00085                                                                      CL125
00086      SELECT EFT-PROCESS-GDG    ASSIGN TO EFTIFGDG                    CL220
00087                                FILE STATUS IS RGDG-STATUS.           CL220
00088                                                                      CL219
00089  DATA DIVISION.                                                      CL*13
00090                                                                      CL*58
00091  FILE SECTION.                                                       CL*58
00092                                                                      CL*58
00093  FD  EFT-GOVONE-INPUT                                                CL109
00094      RECORDING MODE IS V                                             CL*35
00095      BLOCK CONTAINS 0 RECORDS.                                       CL109
00096  01  RVAR-REC.                                                       CL*32
00097  ++INCLUDE EFTIRVAR                                                  CL*32
00098  01  GOV1-REC                    PIC X(2396).                        CL*94
00099                                                                      CL109
00100  FD  EFT-GOVONE-OUTPUT                                               CL*36
00101      RECORDING MODE IS V                                             CL109
00102      BLOCK CONTAINS 0 RECORDS.                                       CL109
00103  01  EFT-TRANS-OUT.                                                  CL*90
00104      05  EFT-SORT-KEY.                                               CL*90
00105          10  EFT-SORT-TRACE-NO    PIC 9(13).                         CL*90
00106          10  EFT-SORT-TRAN        PIC 9(02).                         CL*90
00107      05  EFT-TRANS-REC            PIC X(4074).                       CL*90
00108                                                                      CL109
00109 *FD  EFT-REPORTS-R907                                                CL*52
00110 *    RECORDING MODE IS V                                             CL*52
00111 *    BLOCK CONTAINS 0 RECORDS.                                       CL*52
00112 *01  R907REC                       PIC X(4089).                      CL*52
00113                                                                      CL109
00114 *FD  EFT-REPORTS-F907                                                CL*51
00115 *    RECORDING MODE IS V                                             CL*51
00116 *    BLOCK CONTAINS 0 RECORDS.                                       CL*51
00117 *01  F907REC                       PIC X(4089).                      CL*51
00118                                                                      CL220
00119  FD  EFT-PROCESS-GDG                                                 CL220
00120      RECORDING MODE IS V                                             CL*35
00121      BLOCK CONTAINS 0 RECORDS.                                       CL125
00122  01  FGOV-REC.                                                       CL219
00123  ++INCLUDE EFTIFGOV                                                  CL219
00124                                                                      CL125
00125  WORKING-STORAGE SECTION.                                         EFTBI100
001255 77  PAN-VALET PICTURE X(24) VALUE '118EFTBI100  03/08/04'.       EFTBI100
00126                                                                      CL*40
00127  01  WRK-AREA.                                                    EFTBI100
00128      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +100.   CL104
00129      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'EFTBI100'.   CL109
00130      05  WRK-ABEND-MSG               PIC  X(60)  VALUE SPACES.       CL196
00131                                                                      CL*69
00132                                                                      CL109
00133      05  WRK-BTC-WRITE-CNT           PIC S9(04)  VALUE ZEROS.        CL126
00134      05  WRK-EFT-DATA-CNT            PIC  9(09)  VALUE ZEROS.        CL215
00135      05  WRK-DPT-DATA-CNT            PIC  9(07)  VALUE ZEROS.        CL**5
00136      05  WRK-EST-DATA-CNT            PIC  9(07)  VALUE ZEROS.        CL**5
00137      05  WRK-ENR-DATA-CNT            PIC  9(07)  VALUE ZEROS.        CL**5
00138      05  WRK-QTF-DATA-CNT            PIC  9(07)  VALUE ZEROS.        CL**5
00139      05  WRK-CQW-DATA-CNT            PIC  9(07)  VALUE ZEROS.        CL**5
00140      05  EFT-CHAR-CNT                PIC  9(04)  VALUE ZEROS.        CL**4
00141      05  WRK-TRANS-REC-CNT           PIC  9(09)  VALUE ZEROS.        CL133
00142      05  WRK-TRANS-CONT-NAME         PIC  X(26)  VALUE SPACES.       CL133
00143      05  WRK-TRANS-TRACE-NO          PIC  9(13)  VALUE ZEROS.        CL133
00144      05  WRK-TRANS-ACCT-NO           PIC  9(06)  VALUE ZEROS.        CL124
00145      05  WRK-TRANS-AMT               PIC S9(13)V99  VALUE ZEROS.     CL223
00146      05  WRK-TRANS-AMTX REDEFINES WRK-TRANS-AMT PIC X(15).           CL*48
00147      05  WRK-TOT-DATA-AMT            PIC S9(13)V99  VALUE ZEROS.     CL223
00148      05  WRK-FEST-REC-CNT            PIC  9(07)  VALUE ZEROS.        CL*13
00149      05  WRK-FCQW-REC-CNT            PIC  9(07)  VALUE ZEROS.        CL*12
00150      05  WRK-FQTF-REC-CNT            PIC  9(07)  VALUE ZEROS.        CL*12
00151      05  WRK-FHDR-REC-CNT            PIC  9(07)  VALUE ZEROS.        CL*12
00152      05  WRK-FTRL-REC-CNT            PIC  9(07)  VALUE ZEROS.        CL*12
00153      05  WRK-FDPT-REC-CNT            PIC  9(07)  VALUE ZEROS.        CL*12
00154      05  WRK-FENR-REC-CNT            PIC  9(07)  VALUE ZEROS.        CL*12
00155      05  WRK-REC-CNT                 PIC  9(07)  VALUE ZEROS.        CL*12
00156      05  PARM-REC-CNT                PIC  9(02)  VALUE ZEROS.        CL123
00157                                                                      CL123
00158      05  PARM-EOF-IND                PIC  X(01).                     CL123
00159                                                                      CL109
00160      05  EFT-STATUS                  PIC  X(02).                     CL*58
00161          88 EFT-STATUS-OK-88          VALUE '00'.                    CL109
00162          88 EFT-NO-REC-88             VALUE '10'.                    CL109
00163                                                                      CL*90
00164      05  DPT-STATUS                  PIC  X(02).                     CL109
00165          88 DPT-STATUS-OK-88          VALUE '00'.                    CL109
00166                                                                      CL**1
00167      05  EST-STATUS                  PIC  X(02).                     CL**1
00168          88 EST-STATUS-OK-88          VALUE '00'.                    CL**2
00169                                                                      CL**1
00170      05  CQW-STATUS                  PIC  X(02).                     CL**1
00171          88 CQW-STATUS-OK-88          VALUE '00'.                    CL**1
00172                                                                      CL**1
00173      05  QTF-STATUS                  PIC  X(02).                     CL**1
00174          88 QTF-STATUS-OK-88          VALUE '00'.                    CL**1
00175                                                                      CL126
00176      05  F907-STATUS                 PIC  X(02).                     CL128
00177          88 F907-STATUS-OK-88          VALUE '00'.                   CL128
00178                                                                      CL128
00179      05  R907-STATUS                 PIC  X(02).                     CL128
00180          88 R907-STATUS-OK-88          VALUE '00'.                   CL128
00181                                                                      CL219
00182      05  RGDG-STATUS                 PIC  X(02).                     CL220
00183          88 RGDG-STATUS-OK-88          VALUE '00'.                   CL220
00184                                                                      CL219
00185      05  ENR-STATUS                  PIC  X(02).                     CL129
00186          88 ENR-STATUS-OK-88          VALUE '00'.                    CL129
00187                                                                      CL219
00188      05  RPT-STATUS                  PIC  X(02).                     CL109
00189          88 RPT-STATUS-OK-88          VALUE '00'.                    CL109
00190                                                                      CL109
00191      05  WRK-EFT-EOF-IND             PIC  X(01)  VALUE SPACES.       CL196
00192      05  WRK-TRACE-IND               PIC  X(01)  VALUE SPACES.       CL*90
00193      05  HOLD-REC-TYPE               PIC  X(02)  VALUE SPACES.       CL163
00194      05  HOLD-FHDR-TYPE              PIC  X(02)  VALUE SPACES.       CL163
00195      05  HOLD-FTRL-TYPE              PIC  X(02)  VALUE SPACES.       CL187
00196                                                                      CL*58
00197      05  WRK-NUMBER-ONE              PIC S9(03)  COMP-3 VALUE +0.    CL*59
00198      05  WRK-SUM-SSN-WAGES-AMT       PIC S9(07)V99      VALUE +0.    CL*59
00199      05  WRK-TOTAL-WAGES-AMT         PIC S9(09)V99      VALUE +0.    CL*59
00200      05  WRK-SSN-HOLD                PIC S9(09)  COMP-3 VALUE +0.    CL*58
00201                                                                      CL*98
00202      05  DISP-DATE                   PIC  X(10)  VALUE SPACES.       CL*92
00203      05  DISP-TIME                   PIC  X(08)  VALUE SPACES.       CL*92
00204      05  WRK-SYS-TIME                PIC  X(06)  VALUE SPACES.       CL*92
00205      05  WRK-SYS-DATE                PIC  X(08)  VALUE SPACES.       CL*92
00206      05  WRK-CURR-YR                 PIC  9(04)  VALUE ZEROS.        CL*92
00207      05  WRK-EMAIL-CNT               PIC  9(04)  VALUE ZEROS.        CL249
00208                                                                      CL*89
00209      05  WRK-MSG-TEXT                PIC  X(80)  VALUE SPACES.       CL*81
00210      05  WRK-PREV-EMP-NO             PIC  9(06)  VALUE 0.            CL163
00211      05  WRK-TRANS-EMP-NO            PIC  9(06)  VALUE 0.            CL130
00212      05  WRK-TOT-EFT-READ-CNT        PIC S9(07)  COMP-3 VALUE +0.    CL187
00213      05  WRK-EFT-READ-CNT            PIC  9(09)  VALUE ZEROS.        CL215
00214      05  WRK-DPT-WRITE-CNT           PIC S9(07)  COMP-3 VALUE +0.    CL113
00215      05  WRK-ENR-WRITE-CNT           PIC S9(07)  COMP-3 VALUE +0.    CL129
00216      05  WRK-R907-REC-CNT            PIC S9(07)  COMP-3 VALUE +0.    CL*80
00217      05  WRK-F907-REC-CNT            PIC S9(07)  COMP-3 VALUE +0.    CL126
00218      05  WRK-PAYMENT-AMOUNT          PIC S9(07)V99      VALUE +0.    CL108
00219                                                                      CL*13
00220      05  VALID-TRANS-DATE-IND        PIC  X(01).                     CL122
00221          88 VALID-TRANS-DATE-YES-88         VALUE 'Y'.               CL122
00222          88 VALID-TRANS-DATE-NO-88          VALUE 'N'.               CL122
00223                                                                      CL*76
00224      05  VALID-TRANS-CONT-NAME-IND   PIC  X(01).                     CL131
00225          88 VALID-TRANS-CONT-NAME-YES-88    VALUE 'Y'.               CL132
00226          88 VALID-TRANS-CONT-NAME-NO-88     VALUE 'N'.               CL132
00227                                                                      CL131
00228      05  VALID-TRANS-CONT-FONE-IND   PIC  X(01).                     CL131
00229          88 VALID-TRANS-CONT-FONE-YES-88    VALUE 'Y'.               CL133
00230          88 VALID-TRANS-CONT-FONE-NO-88     VALUE 'N'.               CL133
00231                                                                      CL131
00232      05  VALID-TRANS-TIME-IND        PIC  X(01).                     CL122
00233          88 VALID-TRANS-TIME-YES-88         VALUE 'Y'.               CL122
00234          88 VALID-TRANS-TIME-NO-88          VALUE 'N'.               CL122
00235                                                                      CL122
00236      05  VALID-TRANS-AMT-IND        PIC  X(01).                      CL122
00237          88 VALID-TRANS-AMT-YES-88         VALUE 'Y'.                CL122
00238          88 VALID-TRANS-AMT-NO-88          VALUE 'N'.                CL122
00239                                                                      CL122
00240      05  VALID-TRANS-REC-CNT-IND     PIC  X(01).                     CL122
00241          88 VALID-TRANS-REC-CNT-YES-88      VALUE 'Y'.               CL122
00242          88 VALID-TRANS-REC-CNT-NO-88       VALUE 'N'.               CL122
00243                                                                      CL123
00244      05  VALID-TRANS-ACCOUNT-IND     PIC  X(01).                     CL123
00245          88 VALID-TRANS-ACCOUNT-YES-88      VALUE 'Y'.               CL123
00246          88 VALID-TRANS-ACCOUNT-NO-88       VALUE 'N'.               CL123
00247                                                                      CL123
00248      05  VALID-TRANS-TRACE-IND       PIC  X(01).                     CL123
00249          88 VALID-TRANS-TRACE-YES-88        VALUE 'Y'.               CL123
00250          88 VALID-TRANS-TRACE-NO-88         VALUE 'N'.               CL123
00251                                                                      CL123
00252      05  VALID-TRANS-EMAIL-IND       PIC  X(01).                     CL238
00253          88 VALID-TRANS-EMAIL-YES-88        VALUE 'Y'.               CL238
00254          88 VALID-TRANS-EMAIL-NO-88         VALUE 'N'.               CL238
00255                                                                      CL238
00256      05  VALID-TRANS-PHONE-IND       PIC  X(01).                     CL238
00257          88 VALID-TRANS-PHONE-YES-88        VALUE 'Y'.               CL238
00258          88 VALID-TRANS-PHONE-NO-88         VALUE 'N'.               CL238
00259                                                                      CL239
00260      05  VALID-TRANS-FAX-IND         PIC  X(01).                     CL249
00261          88 VALID-TRANS-FAX-YES-88        VALUE 'Y'.                 CL249
00262          88 VALID-TRANS-FAX-NO-88         VALUE 'N'.                 CL249
00263                                                                      CL249
00264      05  VALID-TRANS-RPT-IND         PIC  X(01).                     CL249
00265          88 VALID-TRANS-RPT-YES-88        VALUE 'Y'.                 CL249
00266          88 VALID-TRANS-RPT-NO-88         VALUE 'N'.                 CL249
00267                                                                      CL249
00268      05  VALID-TRANS-SSN-IND         PIC  X(01).                     CL249
00269          88 VALID-TRANS-SSN-YES-88        VALUE 'Y'.                 CL249
00270          88 VALID-TRANS-SSN-NO-88         VALUE 'N'.                 CL249
00271                                                                      CL249
00272      05  VALID-TRANS-QTR-IND         PIC  X(01).                     CL249
00273          88 VALID-TRANS-QTR-YES-88        VALUE 'Y'.                 CL249
00274          88 VALID-TRANS-QTR-NO-88         VALUE 'N'.                 CL249
00275                                                                      CL249
00276      05  VALID-TRANS-FEIN-IND       PIC  X(01).                      CL249
00277          88 VALID-TRANS-FEIN-YES-88        VALUE 'Y'.                CL249
00278          88 VALID-TRANS-FEIN-NO-88         VALUE 'N'.                CL249
00279                                                                      CL238
00280      05  VALID-FDPT-REC-IND          PIC  X(01).                     CL123
00281          88 VALID-FDPT-REC-YES-88           VALUE 'Y'.               CL123
00282          88 VALID-FDPT-REC-NO-88            VALUE 'N'.               CL123
00283                                                                      CL123
00284      05  VALID-FENR-REC-IND          PIC  X(01).                     CL131
00285          88 VALID-FENR-REC-YES-88           VALUE 'Y'.               CL131
00286          88 VALID-FENR-REC-NO-88            VALUE 'N'.               CL131
00287                                                                      CL131
00288      05  VALID-FHDR-REC-IND          PIC  X(01).                     CL123
00289          88 VALID-FHDR-REC-YES-88           VALUE 'Y'.               CL123
00290          88 VALID-FHDR-REC-NO-88            VALUE 'N'.               CL123
00291                                                                      CL123
00292                                                                      CL233
00293      05  VALID-FEST-REC-IND          PIC  X(01).                     CL233
00294          88 VALID-FEST-REC-YES-88           VALUE 'Y'.               CL233
00295          88 VALID-FEST-REC-NO-88            VALUE 'N'.               CL233
00296                                                                      CL233
00297      05  VALID-FCQW-REC-IND          PIC  X(01).                     CL233
00298          88 VALID-FCQW-REC-YES-88           VALUE 'Y'.               CL233
00299          88 VALID-FCQW-REC-NO-88            VALUE 'N'.               CL233
00300                                                                      CL233
00301      05  VALID-FQTF-REC-IND          PIC  X(01).                     CL249
00302          88 VALID-FQTF-REC-YES-88           VALUE 'Y'.               CL249
00303          88 VALID-FQTF-REC-NO-88            VALUE 'N'.               CL249
00304                                                                      CL233
00305      05  VALID-FTRL-REC-IND          PIC  X(01).                     CL123
00306          88 VALID-FTRL-REC-YES-88           VALUE 'Y'.               CL123
00307          88 VALID-FTRL-REC-NO-88            VALUE 'N'.               CL123
00308                                                                      CL130
00309  01  WRK-QTR                        PIC X(05).                       CL*75
00310  01  WRK-QTR-9        REDEFINES WRK-QTR                              CL*75
00311                                      PIC 9(05).                      CL*75
00312  01  WRK-QTR-CCYYQ      REDEFINES WRK-QTR-9.                         CL*75
00313      10 WRK-QTR-CCYY                 PIC  9(04).                     CL*75
00314      10 WRK-QTR-Q                    PIC  9(01).                     CL*75
00315                                                                      CL*75
00316  01  WRK-TRANS-DATE                 PIC X(08).                       CL116
00317  01  WRK-TRANS-DATE-9 REDEFINES WRK-TRANS-DATE                       CL116
00318                                      PIC 9(08).                      CL116
00319  01  WRK-TRANS-CCYYMMDD REDEFINES WRK-TRANS-DATE-9.                  CL116
00320      10 WRK-DATE-CCYY                PIC  9(04).                     CL116
00321      10 WRK-DATE-MM                  PIC  9(02).                     CL116
00322      10 WRK-DATE-DD                  PIC  9(02).                     CL116
00323                                                                      CL*84
00324  01  WRK-SYS-PARM-RUN-DATE           PIC X(08).                      CL116
00325  01  WRK-SYS-PARM-RUN-DATE-9 REDEFINES WRK-SYS-PARM-RUN-DATE         CL116
00326                                      PIC 9(08).                      CL116
00327  01  WRK-SYS-PARM-DATE REDEFINES WRK-SYS-PARM-RUN-DATE-9.            CL238
00328      10 WRK-SYS-PARM-DATE-CCYY       PIC  9(04).                     CL247
00329      10 WRK-SYS-PARM-DATE-MM         PIC  9(02).                     CL116
00330      10 WRK-SYS-PARM-DATE-DD         PIC  9(02).                     CL116
00331                                                                      CL116
00332  01  WRK-SYS-CURR-QTR               PIC  9(05).                      CL*73
00333 *    10 WRK-SYS-PARM-QTR1           PIC  9(04).                      CL*73
00334 *    10 WRK-SYS-PARM-QTR2           PIC  9(01).                      CL*73
00335                                                                      CL243
00336  01  WRK-EMPL-SSN.                                                   CL251
00337      10 WRK-EMPL-SSN1               PIC  X(03).                      CL251
00338      10 WRK-EMPL-SSN2               PIC  X(02).                      CL251
00339      10 WRK-EMPL-SSN3               PIC  X(04).                      CL251
00340                                                                      CL251
00341  01  WRK-HDR-TRANS-DATE              PIC X(08).                      CL220
00342  01  WRK-HDR-TRANS-DATE-9    REDEFINES WRK-HDR-TRANS-DATE            CL220
00343                                      PIC 9(08).                      CL220
00344  01  WRK-HDR-TRAN-CCYYMMDD REDEFINES WRK-HDR-TRANS-DATE-9.           CL220
00345      10 WRK-HDR-TRAN-DATE-CCYY       PIC  9(04).                     CL220
00346      10 WRK-HDR-TRAN-DATE-MM         PIC  9(02).                     CL220
00347      10 WRK-HDR-TRAN-DATE-DD         PIC  9(02).                     CL220
00348                                                                      CL220
00349  01  WRK-GOV-PARM-RUN-DATE           PIC X(08).                      CL220
00350  01  WRK-GOV-PARM-RUN-DATE-9 REDEFINES WRK-GOV-PARM-RUN-DATE         CL220
00351                                      PIC 9(08).                      CL220
00352  01  WRK-GOV-PARM-CCYYMMDD REDEFINES WRK-GOV-PARM-RUN-DATE-9.        CL220
00353      10 WRK-GOV-PARM-DATE-CCYY       PIC  9(04).                     CL220
00354      10 WRK-GOV-PARM-DATE-MM         PIC  9(02).                     CL220
00355      10 WRK-GOV-PARM-DATE-DD         PIC  9(02).                     CL220
00356                                                                      CL220
00357  01  WRK-TRANS-TIME                  PIC X(06).                      CL122
00358  01  WRK-TRANS-TIME-9 REDEFINES WRK-TRANS-TIME                       CL122
00359                                      PIC 9(06).                      CL*85
00360  01  WRK-TRANS-HHMMSS REDEFINES WRK-TRANS-TIME-9.                    CL122
00361      10 WRK-TRANS-TIME-HH            PIC  9(02).                     CL122
00362      10 WRK-TRANS-TIME-MM            PIC  9(02).                     CL122
00363      10 WRK-TRANS-TIME-SS            PIC  9(02).                     CL122
00364                                                                      CL113
00365  01  WS-FENR-REC.                                                    CL213
00366      10  WS-FENR-LENGTH              PIC  S9(04) COMP.               CL213
00367      10  WS-FENR-DATA                PIC  X(503).                    CL213
00368                                                                      CL113
00369  01  WS-FDPT-REC.                                                    CL230
00370      10  WS-FDPT-LENGTH              PIC  S9(04) COMP.               CL230
00371      10  WS-FDPT-DATA                PIC  X(503).                    CL230
00372                                                                      CL230
00373  01  WS-FEST-REC.                                                    CL251
00374      10  WS-FEST-LENGTH              PIC  S9(04) COMP.               CL251
00375      10  WS-FEST-DATA                PIC  X(503).                    CL251
00376                                                                      CL251
00377  01  WS-FQTF-REC.                                                    CL251
00378      10  WS-FQTF-LENGTH              PIC  S9(04) COMP.               CL251
00379      10  WS-FQTF-DATA                PIC  X(503).                    CL251
00380                                                                      CL251
00381  01  WS-FCQW-REC.                                                    CL251
00382      10  WS-FCQW-LENGTH              PIC  S9(04) COMP.               CL251
00383      10  WS-FCQW-DATA                PIC  X(503).                    CL251
00384                                                                      CL251
00385  01  WRK-AREA.                                                       CL236
00386      05  WRK-FEIN-X.                                                 CL236
00387          10  WRK-FEIN-1                      PIC  X(02).             CL236
00388          10  WRK-FEIN-2                      PIC  X(07).             CL236
00389      05  WRK-FEIN-9 REDEFINES WRK-FEIN-X     PIC  9(09).             CL236
00390                                                                      CL*91
00391  01  ZSKL-REC                           PIC  X(2396) VALUE SPACES.   CL*94
00392                                                                      CL*94
00393  01  RSKL-REC.                                                       CL*94
00394  ++INCLUDE EFTIRSKL                                                  CL*91
00395                                                                      CL113
00396  01  EFT-ERR-MSGS.                                                   CL163
00397  ++INCLUDE EFTERMSG                                                  CL123
00398                                                                      CL123
00399  01  FDPT-REC.                                                       CL103
00400  ++INCLUDE EFTIFDPT                                                  CL103
00401      SKIP3                                                           CL*58
00402  01  FENR-REC.                                                       CL129
00403  ++INCLUDE EFTIFENR                                                  CL129
00404      SKIP3                                                           CL109
00405  01  FHDR-REC.                                                       CL123
00406  ++INCLUDE EFTIFHDR                                                  CL123
00407      SKIP3                                                           CL123
00408  01  FEST-REC.                                                       CL233
00409  ++INCLUDE EFTIFEST                                                  CL233
00410      SKIP3                                                           CL233
00411  01  FQTF-REC.                                                       CL249
00412  ++INCLUDE EFTIFQTF                                                  CL251
00413      SKIP3                                                           CL233
00414  01  FCQW-REC.                                                       CL233
00415  ++INCLUDE EFTIFCQW                                                  CL233
00416      SKIP3                                                           CL233
00417  01  FTRL-REC.                                                       CL123
00418  ++INCLUDE EFTIFTRL                                                  CL123
00419      SKIP3                                                           CL123
00420  01  L001-LINK-AREA.                                              EFTBI100
00421  ++INCLUDE DTSIL001                                               EFTBI100
00422      EJECT                                                        EFTBI100
00423  01  L004-LINK-AREA.                                                 CL*24
00424  ++INCLUDE DTSIL004                                                  CL*24
00425      EJECT                                                           CL*24
00426  01  L005-COMM-AREA.                                                 CL*61
00427  ++INCLUDE DTSIL005                                                  CL*61
00428      EJECT                                                           CL233
00429  01  L017-LINK-AREA.                                                 CL237
00430  ++INCLUDE DTSIL017                                                  CL237
00431      EJECT                                                           CL237
00432  01  L020-LINK-AREA.                                                 CL237
00433  ++INCLUDE DTSIL020                                                  CL237
00434      EJECT                                                           CL100
00435  01  L021-LINK-AREA.                                                 CL233
00436  ++INCLUDE DTSIL021                                                  CL233
00437      EJECT                                                           CL233
00438  01  L927-LINK-AREA.                                                 CL*94
00439  ++INCLUDE DTSIL927                                                  CL*94
00440      EJECT                                                           CL100
00441  01  L910-LINK-AREA.                                                 CL*94
00442  ++INCLUDE DTSIL910                                                  CL*94
00443      EJECT                                                           CL*94
00444  01  MSKL-REC.                                                       CL*70
00445  ++INCLUDE DTSIMSKL                                                  CL*70
00446      EJECT                                                           CL*70
00447  01  MHDR-REC.                                                       CL*73
00448  ++INCLUDE DTSIMHDR                                                  CL*73
00449      EJECT                                                           CL*73
00450  01  MPRF-REC.                                                       CL*70
00451  ++INCLUDE DTSIMPRF                                                  CL*70
00452      EJECT                                                           CL*70
00453  01  R907-REC.                                                       CL139
00454  ++INCLUDE DTSIR907                                                  CL141
00455  01  F907-REC.                                                       CL139
00456  ++INCLUDE EFTIF907                                                  CL140
00457                                                                      CL139
00458  PROCEDURE DIVISION.                                                 CL113
00459                                                                      CL*62
00460       PERFORM I0000-INITIALIZE THRU I0000-EXIT.                      CL*16
00461       PERFORM I1000-EDIT-PARMS THRU I1000-EXIT.                      CL112
00462                                                                      CL*72
00463       MOVE 'N' TO WRK-EFT-EOF-IND.                                   CL101
00464       PERFORM P0000-PROCESS THRU P0000-EXIT                          CL101
00465         UNTIL WRK-EFT-EOF-IND = 'Y'.                                 CL*72
00466                                                                      CL*72
00467       PERFORM T0000-TERMINATE THRU T0000-EXIT.                       CL**6
00468                                                                      CL*62
00469      GOBACK.                                                      EFTBI100
00470      EJECT                                                        EFTBI100
00471  I0000-INITIALIZE.                                                EFTBI100
00472      MOVE ZERO                 TO  WRK-EFT-READ-CNT                  CL109
00473                                    WRK-TOT-EFT-READ-CNT              CL186
00474                                    WRK-FDPT-REC-CNT                  CL186
00475                                    WRK-FHDR-REC-CNT                  CL194
00476                                    WRK-FTRL-REC-CNT                  CL194
00477                                    WRK-FEST-REC-CNT                  CL243
00478                                    WRK-FCQW-REC-CNT                  CL243
00479                                    WRK-FTRL-REC-CNT                  CL243
00480                                    WRK-FQTF-REC-CNT                  CL252
00481                                    WRK-PREV-EMP-NO                   CL214
00482                                    WRK-TRANS-EMP-NO.                 CL214
00483                                                                      CL109
00484      PERFORM I1000-EDIT-PARMS  THRU I1000-EXIT.                      CL113
00485      PERFORM I2000-OPEN-FILES  THRU I2000-EXIT.                      CL*78
00486      PERFORM I3000-HDR-DATE    THRU I3000-EXIT.                      CL*78
00487                                                                      CL*63
00488  I0000-EXIT.                                                      EFTBI100
00489      EXIT.                                                        EFTBI100
00490                                                                      CL107
00491  I1000-EDIT-PARMS.                                                   CL113
00492                                                                      CL113
00493                                                                      CL219
00494      OPEN INPUT   EFT-PROCESS-GDG.                                   CL220
00495      IF RGDG-STATUS-OK-88                                            CL220
00496         NEXT SENTENCE                                                CL219
00497      ELSE                                                            CL219
00498         DISPLAY 'OPEN ERROR ON READING GDG FILE ' RGDG-STATUS        CL220
00499         PERFORM S999-ABEND THRU S999-EXIT.                           CL219
00500                                                                      CL219
00501                                                                      CL113
00502      MOVE 'N'   TO PARM-EOF-IND.                                     CL113
00503                                                                      CL113
00504      MOVE +0    TO PARM-REC-CNT.                                     CL113
00505                                                                      CL198
00506      PERFORM I1100-READ-PARM  THRU I1100-EXIT                        CL113
00507              UNTIL PARM-EOF-IND = 'Y'.                               CL113
00508                                                                      CL113
00509      IF PARM-REC-CNT < 1                                             CL113
00510         DISPLAY '** PARM RECORD MISSING OR INCORRECT !!!! '          CL114
00511         PERFORM S999-ABEND  THRU S999-EXIT.                          CL113
00512                                                                      CL113
00513      CLOSE EFT-PROCESS-GDG.                                          CL220
00514  I1000-EXIT.                                                         CL113
00515      EXIT.                                                           CL113
00516                                                                      CL113
00517  I1100-READ-PARM.                                                    CL113
00518                                                                      CL196
00519      READ EFT-PROCESS-GDG                                            CL220
00520          AT END                                                      CL113
00521             GO TO I1100-EXIT.                                        CL113
00522                                                                      CL113
00523      MOVE 'Y' TO PARM-EOF-IND.                                       CL160
00524                                                                      CL113
00525      IF NOT FGOV-TYPE-VALID-88                                       CL219
00526          DISPLAY '*** INVALID RECORD IN GDG  ' FGOV-TYPE             CL219
00527          GO TO I1100-EXIT.                                           CL113
00528                                                                      CL113
00529                                                                      CL219
00530      IF NOT FGOV-SUB-TYPE-HEADER-88                                  CL219
00531          DISPLAY '*IST REC IS NOT HDR IN GEG ' FGOV-TYPE             CL219
00532          GO TO I1100-EXIT.                                           CL219
00533                                                                      CL219
00534                                                                      CL218
00535      MOVE FGOV-CREATE-DATE       TO  L001-FED-8-DATE-X.              CL219
00536      PERFORM S001-FROM-FED-8 THRU S001-EXIT                          CL114
00537                                                                      CL113
00538                                                                      CL218
00539      IF L001-INVALID-DATE                                            CL116
00540          DISPLAY '*** INVALID GDG  TRANSACTION DATE  '               CL219
00541          DISPLAY '*** ' L001-FED-8-DATE-X                            CL219
00542         GO TO I1100-EXIT                                             CL120
00543      ELSE                                                            CL116
00544          MOVE L001-FED-8-DATE-X   TO  WRK-GOV-PARM-RUN-DATE          CL229
00545          DISPLAY 'LAST GOV1 FILE USED-' WRK-GOV-PARM-RUN-DATE.       CL100
00546                                                                      CL219
00547      ADD +1 TO PARM-REC-CNT.                                         CL219
00548                                                                      CL113
00549  I1100-EXIT.                                                         CL113
00550      EXIT.                                                           CL113
00551                                                                      CL113
00552                                                                      CL**1
00553  I2000-OPEN-FILES.                                                   CL*78
00554                                                                      CL*58
00555      MOVE 'N' TO WRK-TRACE-IND.                                      CL*72
00556      MOVE WRK-TRACE-IND TO L910-TRACE-IND.                           CL*72
00557      MOVE LENGTH OF R907-REC TO R907-LENGTH.                         CL*81
00558      MOVE LENGTH OF F907-REC TO F907-LENGTH.                         CL126
00559                                                                      CL*72
00560      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                             CL*72
00561      PERFORM S910-OPEN-READ   THRU S910-EXIT.                        CL*72
00562                                                                      CL*93
00563      OPEN INPUT  EFT-GOVONE-INPUT.                                   CL110
00564      IF EFT-STATUS-OK-88                                             CL*72
00565         NEXT SENTENCE                                                CL*72
00566      ELSE                                                            CL*72
00567         DISPLAY 'OPEN ERROR ON GOVONE INPUT FILE ** ' EFT-STATUS     CL110
00568         PERFORM S999-ABEND THRU S999-EXIT.                           CL*72
00569                                                                      CL*72
00570      OPEN OUTPUT  EFT-GOVONE-OUTPUT.                                 CL*52
00571      IF DPT-STATUS-OK-88                                             CL*52
00572         NEXT SENTENCE                                                CL*52
00573      ELSE                                                            CL*52
00574         DISPLAY 'OPEN ERROR ON GOVONE   FILE ** ' DPT-STATUS         CL*52
00575         PERFORM S999-ABEND THRU S999-EXIT.                           CL*52
00576                                                                      CL110
00577      MOVE '035'                TO F907-MSG-ID                        CL*52
00578      MOVE EFT035               TO F907-MSG-TEXT                      CL*52
00579      MOVE ZEROS                TO F907-EMP-NO                        CL*52
00580      MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                   CL*52
00581      PERFORM S946-WRITE-F907   THRU S946-EXIT.                       CL*53
00582                                                                      CL254
00583 *    OPEN OUTPUT  EFT-REPORTS-R907.                                  CL*52
00584 *    IF R907-STATUS-OK-88                                            CL*52
00585 *       NEXT SENTENCE                                                CL*52
00586 *    ELSE                                                            CL*52
00587 *       DISPLAY 'OPEN ERROR ON DTSIR907 FILE ** ' R907-STATUS        CL*52
00588 *       PERFORM S999-ABEND THRU S999-EXIT.                           CL*52
00589                                                                      CL126
00590 *    OPEN OUTPUT  EFT-REPORTS-F907.                                  CL*51
00591 *    IF F907-STATUS-OK-88                                            CL*51
00592 *       NEXT SENTENCE                                                CL*51
00593 *    ELSE                                                            CL*51
00594 *       DISPLAY 'OPEN ERROR ON EFTIF907 FILE ** ' F907-STATUS        CL*51
00595 *       PERFORM S999-ABEND THRU S999-EXIT.                           CL*51
00596                                                                      CL110
00597  I2000-EXIT.                                                         CL*78
00598      EXIT.                                                           CL*58
00599                                                                      CL*58
00600  I3000-HDR-DATE.                                                     CL*78
00601      MOVE LOW-VALUES TO MSKL-REC.                                    CL*78
00602                                                                      CL*78
00603      MOVE +0 TO MSKL-EMP-NO.                                         CL*78
00604                                                                      CL*78
00605      SET MSKL-HDR-88 TO TRUE.                                        CL*78
00606                                                                      CL*78
00607      PERFORM S910-READ THRU S910-EXIT.                               CL*78
00608                                                                      CL*78
00609      IF L910-NO-REC-88                                               CL*78
00610         DISPLAY 'EFTBI100: MHDR RECORD IS MISSING'                   CL*78
00611         PERFORM S999-ABEND THRU S999-EXIT                            CL*78
00612      ELSE                                                            CL*78
00613         MOVE MSKL-REC               TO MHDR-REC                      CL*78
00614         MOVE MHDR-CURR-RUN-DATE     TO L001-FED-8-DATE-9.            CL*78
00615                                                                      CL*78
00616      MOVE L001-FED-8-YR     TO WRK-SYS-PARM-DATE-CCYY.               CL*78
00617      MOVE L001-FED-8-MO     TO WRK-SYS-PARM-DATE-MM.                 CL*78
00618      MOVE L001-FED-8-DA     TO WRK-SYS-PARM-DATE-DD.                 CL*78
00619      DISPLAY ' CURR WRK-SYS-PARM-RUN-DATE ' WRK-SYS-PARM-RUN-DATE.   CL*79
00620                                                                      CL*78
00621      MOVE L001-FED-8-DATE-9 TO L004-DATE.                            CL*78
00622      PERFORM S004-FROM-DATE THRU S004-EXIT.                          CL*78
00623      SUBTRACT +1            FROM L004-ABS-QTR.                       CL*78
00624      PERFORM S004-FROM-ABS  THRU S004-EXIT.                          CL*78
00625      MOVE L004-QTR-5-9      TO WRK-SYS-CURR-QTR.                     CL*78
00626 **   MOVE L005-DATE-8-YR    TO WRK-SYS-PARM-QTR1.                    CL*78
00627 *    IF L005-DATE-8-MO < 4                                           CL*78
00628 *       MOVE 1    TO WRK-SYS-PARM-QTR2                               CL*78
00629 *    ELSE                                                            CL*78
00630 *    IF L005-DATE-8-MO > 3 AND < 7                                   CL*78
00631 *       MOVE 2    TO WRK-SYS-PARM-QTR2                               CL*78
00632 *    ELSE                                                            CL*78
00633 *    IF L005-DATE-8-MO > 6 AND < 10                                  CL*78
00634 *       MOVE 3    TO WRK-SYS-PARM-QTR2                               CL*78
00635 *    ELSE                                                            CL*78
00636 *       MOVE 4    TO WRK-SYS-PARM-QTR2.                              CL*78
00637                                                                      CL*78
00638      DISPLAY ' CURRENT YEAR/QTR ' WRK-SYS-CURR-QTR.                  CL*78
00639                                                                      CL*78
00640  I3000-EXIT.                                                         CL*78
00641      EXIT.                                                           CL*78
00642 **************************************************************    EFTBI100
00643 *  READ THE ELECTRONIC PAYMENT FILE FROM GOVONE AND CHECK    *       CL*90
00644 *  THE HEADER AND TRAILER RECORDS.                           *       CL*90
00645 **************************************************************    EFTBI100
00646                                                                   EFTBI100
00647  P0000-PROCESS.                                                   EFTBI100
00648                                                                   EFTBI100
00649      MOVE SPACES TO RSKL-REC ZSKL-REC.                               CL*94
00650                                                                      CL*91
00651      READ EFT-GOVONE-INPUT INTO ZSKL-REC                             CL*94
00652          AT END                                                      CL*72
00653              MOVE 'Y' TO WRK-EFT-EOF-IND                             CL*72
00654              GO TO P0000-EXIT.                                       CL*72
00655                                                                      CL129
00656      MOVE ZSKL-REC TO RSKL-REC.                                      CL*92
00657 *    COMPUTE EFT-CHAR-CNT = RVAR-LENGTH OF RVAR-REC - 2.             CL210
00658                                                                      CL129
00659      IF RSKL-TYPE-VALID-TRANS                                        CL152
00660         NEXT SENTENCE                                                CL152
00661      ELSE                                                            CL152
00662         PERFORM S1000-INVALID-TRANS   THRU S1000-EXIT                CL114
00663         GO TO P0000-EXIT.                                            CL114
00664                                                                      CL100
00665      ADD +1 TO WRK-EFT-READ-CNT.                                     CL100
00666      IF WRK-EFT-READ-CNT = 1 AND                                     CL137
00667         NOT RSKL-SUB-TYPE-HEADER-88                                  CL161
00668         DISPLAY '**** 1ST REC IS NOT A HDR REC ' RSKL-REC            CL161
00669         DISPLAY '**** PROGRAM TERMINATED  **** '                     CL161
00670         MOVE 'Y' TO WRK-EFT-EOF-IND                                  CL161
00671          PERFORM S999-ABEND THRU S999-EXIT                           CL211
00672         GO TO P0000-EXIT                                             CL161
00673      ELSE                                                            CL161
00674         MOVE RSKL-REC-TYPE  TO HOLD-REC-TYPE.                        CL163
00675                                                                      CL115
00676      IF  RSKL-SUB-TYPE-HEADER-88                                     CL117
00677          PERFORM P1000-VALIDATE-HDR-TRANS  THRU P1000-EXIT           CL122
00678      ELSE                                                            CL115
00679      IF  RSKL-SUB-TYPE-TRAILER-88                                    CL156
00680          PERFORM P8000-VALIDATE-TRL-TRANS THRU P8000-EXIT            CL156
00681      ELSE                                                            CL156
00682      IF RSKL-TYPE-STATUS-CHANGE-88                                   CL*41
00683         PERFORM P2000-EMP-STATUS   THRU P2000-EXIT                   CL118
00684      ELSE                                                            CL114
00685      IF RSKL-TYPE-QTR-TAX-RPT-88                                     CL114
00686         PERFORM P3000-QTR-TAX-RPT  THRU P3000-EXIT                   CL118
00687      ELSE                                                            CL114
00688      IF RSKL-TYPE-ANN-TAX-RPT-88                                     CL114
00689         PERFORM P4000-ANN-TAX-RPT  THRU P4000-EXIT                   CL118
00690      ELSE                                                            CL114
00691      IF RSKL-TYPE-PAYMENT-88                                         CL114
00692         PERFORM P5000-VALIDATE-DPT-TRANS THRU P5000-EXIT             CL122
00693      ELSE                                                            CL114
00694      IF RSKL-TYPE-WAGE-IMP-88                                        CL114
00695         PERFORM P6000-WAGE-RECORD  THRU P6000-EXIT                   CL249
00696      ELSE                                                            CL114
00697      IF RSKL-TYPE-ENROLL-88                                          CL133
00698         PERFORM P7000-VALIDATE-ENR-TRANS  THRU P7000-EXIT            CL131
00699      ELSE                                                            CL115
00700         DISPLAY ' !!INVALID TRANS REC/TYPE  ' RSKL-REC-TYPE          CL115
00701         PERFORM S1000-INVALID-TRANS   THRU S1000-EXIT.               CL115
00702                                                                      CL115
00703                                                                      CL**8
00704  P0000-EXIT.                                                      EFTBI100
00705      EXIT.                                                        EFTBI100
00706                                                                      CL*72
00707                                                                      CL118
00708  P1000-VALIDATE-HDR-TRANS.                                           CL122
00709      SET VALID-TRANS-DATE-YES-88 TO TRUE.                            CL122
00710      SET VALID-FHDR-REC-YES-88  TO TRUE.                             CL118
00711      MOVE RSKL-REC                   TO FHDR-REC                     CL153
00712      DISPLAY ' **** P1000 HDR ' FHDR-REC.                            CL154
00713      ADD +1                         TO WRK-FHDR-REC-CNT.             CL193
00714      MOVE FHDR-CREATE-DATE          TO WRK-TRANS-DATE                CL247
00715                                                                      CL161
00716      PERFORM S6000-EDIT-TRANS-DATE THRU S6000-EXIT.                  CL118
00717                                                                      CL118
00718      IF VALID-TRANS-DATE-NO-88                                       CL120
00719         SET VALID-FHDR-REC-NO-88    TO TRUE                          CL120
00720         MOVE '005'                  TO F907-MSG-ID                   CL162
00721         MOVE EFT005                 TO F907-MSG-TEXT                 CL162
00722         MOVE ZEROS                  TO F907-EMP-NO                   CL162
00723         PERFORM S946-WRITE-F907     THRU S946-EXIT                   CL162
00724         DISPLAY '!!!!!  BAD HEADER  RECORD     ++++++'               CL120
00725         DISPLAY FHDR-REC                                             CL*54
00726         DISPLAY 'WRK-DATE ' WRK-TRANS-DATE                           CL*60
00727         DISPLAY 'HDR-DATE ' FHDR-CREATE-DATE                         CL*60
00728         MOVE 'Y' TO WRK-EFT-EOF-IND                                  CL161
00729          PERFORM S999-ABEND THRU S999-EXIT                           CL207
00730         GO TO P1000-EXIT                                             CL120
00731      END-IF.                                                         CL118
00732                                                                      CL120
00733  P1000-EXIT.                                                         CL118
00734      EXIT.                                                           CL118
00735                                                                      CL118
00736  P2000-EMP-STATUS.                                                   CL118
00737                                                                      CL233
00738      SET VALID-FEST-REC-YES-88        TO TRUE.                       CL*68
00739      SET VALID-TRANS-EMAIL-YES-88     TO TRUE.                       CL*68
00740      SET VALID-TRANS-PHONE-YES-88     TO TRUE.                       CL*68
00741      SET VALID-TRANS-FAX-YES-88       TO TRUE.                       CL*68
00742      SET VALID-TRANS-CONT-NAME-YES-88 TO TRUE.                       CL*68
00743      SET VALID-TRANS-DATE-YES-88      TO TRUE.                       CL*68
00744      SET VALID-TRANS-ACCOUNT-YES-88   TO TRUE.                       CL*68
00745      SET VALID-TRANS-FEIN-YES-88      TO TRUE.                       CL*68
00746                                                                      CL*72
00747      MOVE RSKL-REC                    TO FEST-REC                    CL*68
00748      ADD +1                           TO WRK-EST-DATA-CNT.           CL*68
00749                                                                      CL233
00750      MOVE FEST-EMP-NO                 TO WRK-TRANS-EMP-NO.           CL*68
00751      PERFORM S7000-EDIT-ACCOUNT-NO    THRU S7000-EXIT.               CL*68
00752      IF VALID-TRANS-ACCOUNT-NO-88                                    CL233
00753         SET VALID-FEST-REC-NO-88      TO TRUE.                       CL*68
00754                                                                      CL233
00755 *      PERFORM S7400-DUP-EMP-NO       THRU S7400-EXIT.               CL*97
00756 *    IF VALID-TRANS-ACCOUNT-NO-88                                    CL*97
00757 *       SET VALID-FEST-REC-NO-88      TO TRUE.                       CL*97
00758                                                                      CL233
00759      IF FEST-BUSINESS-PHONE = SPACES OR LOW-VALUES OR ZEROS          CL117
00760         NEXT SENTENCE                                                CL117
00761      ELSE                                                            CL117
00762         PERFORM S2100-EDIT-FEST-FONE  THRU S2100-EXIT                CL*71
00763         IF VALID-TRANS-PHONE-NO-88                                   CL*71
00764          MOVE '041'                TO F907-MSG-ID                    CL101
00765          MOVE EFT041               TO F907-MSG-TEXT                  CL101
00766          PERFORM S946-WRITE-F907   THRU S946-EXIT.                   CL117
00767 *          SET VALID-FEST-REC-NO-88   TO TRUE.                       CL117
00768                                                                      CL*71
00769         MOVE FEST-CONTACT-NAME        TO WRK-TRANS-CONT-NAME         CL*68
00770         PERFORM S2000-EDIT-CONT-NAME  THRU S2000-EXIT                CL*68
00771 *       IF VALID-TRANS-CONT-NAME-NO-88                               CL117
00772 *          SET VALID-FEST-REC-NO-88   TO TRUE.                       CL117
00773                                                                      CL248
00774      IF FEST-FAX = SPACES OR LOW-VALUES OR ZEROS                     CL117
00775         NEXT SENTENCE                                                CL*71
00776      ELSE                                                            CL*71
00777         PERFORM S2100-EDIT-FEST-FAX   THRU S2100-EXIT                CL*71
00778         IF VALID-TRANS-FAX-NO-88                                     CL*71
00779          MOVE '042'                TO F907-MSG-ID                    CL101
00780          MOVE EFT042               TO F907-MSG-TEXT                  CL101
00781          PERFORM S946-WRITE-F907   THRU S946-EXIT.                   CL117
00782 *          SET VALID-FEST-REC-NO-88   TO TRUE.                       CL117
00783                                                                      CL248
00784      IF FEST-EMAIL-ADDRESS > SPACES                                  CL*20
00785         PERFORM S2400-EDIT-EMAIL      THRU S2400-EXIT.               CL117
00786 *        IF VALID-TRANS-EMAIL-NO-88                                  CL117
00787 *           SET VALID-FEST-REC-NO-88  TO TRUE.                       CL117
00788                                                                      CL*20
00789      SET VALID-TRANS-DATE-YES-88      TO TRUE.                       CL*68
00790                                                                      CL*71
00791      IF FEST-SALE-DATE NOT NUMERIC                                   CL*77
00792         MOVE '047'                  TO F907-MSG-ID                   CL107
00793         MOVE EFT047                 TO F907-MSG-TEXT                 CL107
00794         MOVE ZEROS                  TO F907-EMP-NO                   CL*77
00795         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*77
00796         MOVE FEST-SALE-DATE        TO F907-GOV1-DATA                 CL*80
00797         PERFORM S946-WRITE-F907     THRU S946-EXIT                   CL*77
00798         SET VALID-FEST-REC-NO-88   TO TRUE                           CL117
00799      ELSE                                                            CL*77
00800         IF FEST-SALE-DATE = ZEROS                                    CL*77
00801            NEXT SENTENCE                                             CL*77
00802         ELSE                                                         CL*77
00803            MOVE FEST-SALE-DATE           TO WRK-TRANS-DATE           CL*76
00804            PERFORM S6000-EDIT-TRANS-DATE THRU S6000-EXIT             CL*76
00805            IF VALID-TRANS-DATE-NO-88                                 CL*76
00806               SET VALID-FEST-REC-NO-88   TO TRUE                     CL*77
00807               MOVE '048'                  TO F907-MSG-ID             CL107
00808               MOVE EFT048                 TO F907-MSG-TEXT           CL107
00809               PERFORM S946-WRITE-F907     THRU S946-EXIT             CL*77
00810            END-IF                                                    CL*77
00811         END-IF                                                       CL*77
00812      END-IF.                                                         CL*77
00813                                                                      CL237
00814      SET VALID-TRANS-DATE-YES-88      TO TRUE.                       CL*68
00815                                                                      CL*71
00816      IF FEST-LAST-WAGES-PAID-DATE NOT NUMERIC                        CL*77
00817         MOVE '049'                  TO F907-MSG-ID                   CL107
00818         MOVE EFT049                 TO F907-MSG-TEXT                 CL107
00819         PERFORM S946-WRITE-F907     THRU S946-EXIT                   CL*77
00820      ELSE                                                            CL*77
00821         IF FEST-LAST-WAGES-PAID-DATE = ZERO                          CL*77
00822            NEXT SENTENCE                                             CL*77
00823         ELSE                                                         CL*77
00824            MOVE FEST-LAST-WAGES-PAID-DATE TO WRK-TRANS-DATE          CL*77
00825            PERFORM S6000-EDIT-TRANS-DATE  THRU S6000-EXIT            CL*77
00826            IF VALID-TRANS-DATE-NO-88                                 CL*77
00827               MOVE '050'                  TO F907-MSG-ID             CL107
00828               MOVE EFT050                 TO F907-MSG-TEXT           CL107
00829               PERFORM S946-WRITE-F907     THRU S946-EXIT             CL*77
00830               SET VALID-FEST-REC-NO-88    TO TRUE                    CL*77
00831            END-IF                                                    CL*77
00832         END-IF                                                       CL*77
00833      END-IF.                                                         CL*77
00834                                                                      CL*68
00835      IF FEST-FEIN = SPACES OR LOW-VALUES                             CL*70
00836         NEXT SENTENCE                                                CL*70
00837      ELSE                                                            CL*70
00838         PERFORM S2600-EMP-STATUS-FEIN  THRU S2600-EXIT               CL*71
00839         IF VALID-TRANS-FEIN-NO-88                                    CL*70
00840            SET VALID-FEST-REC-NO-88    TO TRUE.                      CL*71
00841                                                                      CL235
00842      IF  VALID-FEST-REC-YES-88                                       CL240
00843         DISPLAY 'PASSED EDITS FEST- ' FEST-EMP-NO                    CL*96
00844         PERFORM S946-WRITE-FEST        THRU S946-EXIT.               CL*71
00845                                                                      CL118
00846  P2000-EXIT.                                                         CL118
00847      EXIT.                                                           CL114
00848                                                                      CL*71
00849  P3000-QTR-TAX-RPT.                                                  CL118
00850                                                                      CL243
00851      SET VALID-FQTF-REC-YES-88       TO TRUE.                        CL248
00852      SET VALID-TRANS-ACCOUNT-YES-88  TO TRUE.                        CL243
00853      SET VALID-TRANS-TRACE-YES-88    TO TRUE                         CL248
00854      SET VALID-TRANS-DATE-YES-88     TO TRUE                         CL248
00855      SET VALID-TRANS-TIME-YES-88     TO TRUE                         CL248
00856      SET VALID-TRANS-PHONE-YES-88    TO TRUE                         CL248
00857      SET VALID-TRANS-CONT-NAME-YES-88  TO TRUE.                      CL117
00858      SET VALID-TRANS-RPT-YES-88        TO TRUE                       CL117
00859      MOVE RSKL-REC                   TO FQTF-REC                     CL248
00860      ADD +1                          TO WRK-QTF-DATA-CNT.            CL251
00861                                                                      CL243
00862        MOVE SPACES          TO L021-S-TNO1.                          CL114
00863        MOVE SPACES          TO L021-S-TNO2                           CL114
00864        MOVE SPACES          TO L021-S-TNO3                           CL114
00865        MOVE SPACES          TO L021-S-TNO4.                          CL114
00866 *&                                                                   CL*55
00867      DISPLAY 'EFTBI100 P3000 EMP ' FQTF-EMP-NO                       CL*55
00868         '  TIME ' FQTF-FILING-TIME                                   CL*55
00869         '  DATE ' FQTF-FILING-DATE                                   CL*55
00870         '  TRACE ' FQTF-TRACE-NO.                                    CL*55
00871 *&                                                                   CL*55
00872        MOVE FQTF-EMP-NO                TO WRK-TRANS-EMP-NO.          CL248
00873        PERFORM S7000-EDIT-ACCOUNT-NO   THRU S7000-EXIT.              CL243
00874      IF VALID-TRANS-ACCOUNT-NO-88                                    CL243
00875         SET VALID-FQTF-REC-NO-88       TO TRUE.                      CL248
00876                                                                      CL243
00877 *    PERFORM S7400-DUP-EMP-NO        THRU S7400-EXIT.                CL*97
00878 *    IF VALID-TRANS-ACCOUNT-NO-88                                    CL*97
00879 *       SET VALID-FQTF-REC-NO-88       TO TRUE.                      CL*97
00880                                                                      CL243
00881      MOVE FQTF-YRQ                  TO WRK-QTR.                      CL*76
00882      PERFORM S5300-EDIT-QTR         THRU S5300-EXIT.                 CL*75
00883      IF VALID-TRANS-QTR-NO-88                                        CL*75
00884          MOVE '058'                TO F907-MSG-ID                    CL108
00885          MOVE EFT058               TO F907-MSG-TEXT                  CL108
00886          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL108
00887         SET VALID-FQTF-REC-NO-88    TO TRUE.                         CL*76
00888                                                                      CL*75
00889      IF FQTF-FILING-TEL-NO = SPACES OR LOW-VALUES OR ZEROS           CL117
00890         NEXT SENTENCE                                                CL101
00891      ELSE                                                            CL101
00892        PERFORM S2100-EDIT-FQTF-FONE    THRU S2100-EXIT               CL101
00893        IF VALID-TRANS-PHONE-NO-88                                    CL116
00894          MOVE '043'                TO F907-MSG-ID                    CL101
00895          MOVE EFT043               TO F907-MSG-TEXT                  CL101
00896          PERFORM S946-WRITE-F907   THRU S946-EXIT.                   CL117
00897 *       SET VALID-FQTF-REC-NO-88       TO TRUE.                      CL117
00898                                                                      CL248
00899      IF FQTF-FILING-REPORT-NAME = SPACES OR LOW-VALUES               CL117
00900         NEXT SENTENCE                                                CL117
00901      ELSE                                                            CL117
00902      MOVE FQTF-FILING-REPORT-NAME    TO WRK-TRANS-CONT-NAME          CL117
00903      PERFORM S2000-EDIT-CONT-NAME    THRU S2000-EXIT.                CL117
00904 *    IF VALID-TRANS-CONT-NAME-NO-88                                  CL117
00905 *       SET VALID-FQTF-REC-NO-88       TO TRUE.                      CL117
00906                                                                      CL243
00907      MOVE FQTF-TRACE-NO      TO WRK-TRANS-TRACE-NO.                  CL248
00908      PERFORM S7200-EDIT-TRACE-NO     THRU S7200-EXIT.                CL243
00909      IF VALID-TRANS-TRACE-NO-88                                      CL243
00910          MOVE '054'                TO F907-MSG-ID                    CL107
00911          MOVE EFT054               TO F907-MSG-TEXT                  CL107
00912          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL107
00913         SET VALID-FQTF-REC-NO-88     TO TRUE.                        CL248
00914                                                                      CL243
00915      IF FQTF-WAGE-RPT-IND NOT = 'Y' AND 'N'                          CL248
00916          SET VALID-TRANS-RPT-NO-88 TO TRUE                           CL247
00917          MOVE '034'                TO F907-MSG-ID                    CL*18
00918          MOVE EFT034               TO F907-MSG-TEXT                  CL*18
00919          MOVE ZEROS                TO F907-EMP-NO                    CL247
00920          PERFORM S946-WRITE-F907   THRU S946-EXIT.                   CL247
00921                                                                      CL247
00922      IF VALID-TRANS-RPT-NO-88                                        CL245
00923         SET VALID-FQTF-REC-NO-88     TO TRUE.                        CL248
00924                                                                      CL243
00925      MOVE FQTF-FILING-DATE           TO WRK-TRANS-DATE.              CL248
00926      PERFORM S6000-EDIT-TRANS-DATE    THRU S6000-EXIT                CL247
00927      IF VALID-TRANS-DATE-NO-88                                       CL247
00928          MOVE '051'                TO F907-MSG-ID                    CL107
00929          MOVE EFT051               TO F907-MSG-TEXT                  CL107
00930          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL107
00931         SET VALID-FQTF-REC-NO-88    TO TRUE.                         CL248
00932                                                                      CL243
00933      MOVE FQTF-FILING-TIME           TO WRK-TRANS-TIME.              CL*21
00934      PERFORM S6100-EDIT-TRANS-TIME   THRU S6100-EXIT.                CL*21
00935 *    IF VALID-TRANS-TIME-NO-88                                       CL117
00936 *       SET VALID-FQTF-REC-NO-88       TO TRUE.                      CL117
00937                                                                      CL243
00938                                                                      CL243
00939      IF  VALID-FQTF-REC-YES-88                                       CL248
00940         PERFORM S946-WRITE-FQTF     THRU S946-EXIT.                  CL*18
00941                                                                      CL243
00942  P3000-EXIT.                                                         CL245
00943      EXIT.                                                           CL245
00944                                                                      CL245
00945                                                                      CL118
00946  P4000-ANN-TAX-RPT.                                                  CL118
00947                                                                      CL118
00948        DISPLAY ' GOVONE PHASE2 AND BEYOND CODE '.                    CL114
00949                                                                      CL118
00950  P4000-EXIT.                                                         CL118
00951      EXIT.                                                           CL114
00952  P5000-VALIDATE-DPT-TRANS.                                           CL122
00953                                                                      CL118
00954      SET VALID-FDPT-REC-YES-88       TO TRUE.                        CL122
00955      SET VALID-TRANS-AMT-YES-88      TO TRUE.                        CL122
00956      SET VALID-TRANS-DATE-YES-88     TO TRUE.                        CL122
00957      SET VALID-TRANS-TIME-YES-88     TO TRUE.                        CL122
00958      SET VALID-TRANS-ACCOUNT-YES-88  TO TRUE.                        CL122
00959      SET VALID-TRANS-TRACE-YES-88    TO TRUE.                        CL122
00960      MOVE RSKL-REC                   TO FDPT-REC                     CL122
00961      ADD +1                          TO WRK-DPT-DATA-CNT.            CL122
00962 *&                                                                   CL*55
00963      DISPLAY 'EFTBI100 P5000 EMP ' FDPT-EMP-NO                       CL*55
00964         '  TIME ' FDPT-PAYMENT-TIME                                  CL*55
00965         '  DATE ' FDPT-PAYMENT-DATE                                  CL*55
00966         '  TRACE ' FDPT-PAYMENT-TRACE-NO.                            CL*55
00967 *&                                                                   CL*55
00968                                                                      CL120
00969        MOVE FDPT-EMP-NO                TO WRK-TRANS-EMP-NO.          CL*45
00970        PERFORM S7000-EDIT-ACCOUNT-NO   THRU S7000-EXIT.              CL*45
00971                                                                      CL*45
00972      IF VALID-TRANS-ACCOUNT-NO-88                                    CL*45
00973         SET VALID-FDPT-REC-NO-88       TO TRUE.                      CL*45
00974                                                                      CL*45
00975 *      PERFORM S7400-DUP-EMP-NO        THRU S7400-EXIT.              CL*97
00976                                                                      CL*45
00977 *    IF VALID-TRANS-ACCOUNT-NO-88                                    CL*97
00978 *       SET VALID-FDPT-REC-NO-88       TO TRUE.                      CL*97
00979                                                                      CL*45
00980        MOVE FDPT-PAYMENT-AMOUNT        TO WRK-TRANS-AMT.             CL124
00981        PERFORM S5000-EDIT-AMOUNT       THRU S5000-EXIT.              CL126
00982                                                                      CL120
00983      IF VALID-TRANS-AMT-NO-88                                        CL130
00984         SET VALID-FDPT-REC-NO-88       TO TRUE                       CL191
00985          MOVE '029'                TO F907-MSG-ID                    CL109
00986          MOVE EFT029               TO F907-MSG-TEXT                  CL109
00987          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL109
00988      ELSE                                                            CL190
00989         ADD WRK-TRANS-AMT              TO WRK-TOT-DATA-AMT.          CL190
00990                                                                      CL193
00991        MOVE FDPT-PAYMENT-DATE          TO WRK-TRANS-DATE.            CL124
00992        PERFORM S6000-EDIT-TRANS-DATE   THRU S6000-EXIT.              CL120
00993                                                                      CL122
00994      IF VALID-TRANS-DATE-NO-88                                       CL130
00995          MOVE '053'                TO F907-MSG-ID                    CL107
00996          MOVE EFT053               TO F907-MSG-TEXT                  CL107
00997          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL107
00998         SET VALID-FDPT-REC-NO-88       TO TRUE.                      CL130
00999                                                                      CL130
01000        MOVE FDPT-PAYMENT-TIME          TO WRK-TRANS-TIME.            CL124
01001        PERFORM S6100-EDIT-TRANS-TIME   THRU S6100-EXIT.              CL122
01002                                                                      CL130
01003 *    IF VALID-TRANS-TIME-NO-88                                       CL117
01004 *       SET VALID-FDPT-REC-NO-88       TO TRUE.                      CL117
01005                                                                      CL122
01006        MOVE FDPT-PAYMENT-TRACE-NO      TO WRK-TRANS-TRACE-NO.        CL124
01007        PERFORM S7200-EDIT-TRACE-NO     THRU S7200-EXIT.              CL124
01008                                                                      CL130
01009      IF VALID-TRANS-TRACE-NO-88                                      CL130
01010          MOVE '055'                TO F907-MSG-ID                    CL107
01011          MOVE EFT055               TO F907-MSG-TEXT                  CL107
01012          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL107
01013         SET VALID-FDPT-REC-NO-88       TO TRUE.                      CL130
01014                                                                      CL130
01015      IF  VALID-FDPT-REC-YES-88                                       CL131
01016         PERFORM S946-WRITE-FDPT     THRU S946-EXIT.                  CL131
01017                                                                      CL131
01018  P5000-EXIT.                                                         CL118
01019      EXIT.                                                           CL114
01020                                                                      CL118
01021  P6000-WAGE-RECORD.                                                  CL240
01022                                                                      CL118
01023      SET VALID-FCQW-REC-YES-88       TO TRUE.                        CL240
01024      SET VALID-TRANS-ACCOUNT-YES-88  TO TRUE.                        CL240
01025      SET VALID-TRANS-AMT-YES-88        TO TRUE                       CL111
01026      SET VALID-TRANS-SSN-YES-88        TO TRUE                       CL111
01027      SET VALID-TRANS-TRACE-YES-88      TO TRUE                       CL106
01028      SET VALID-TRANS-QTR-YES-88        TO TRUE                       CL243
01029      SET VALID-TRANS-CONT-NAME-YES-88  TO TRUE.                      CL240
01030      MOVE RSKL-REC                   TO FCQW-REC                     CL240
01031      ADD +1                          TO WRK-CQW-DATA-CNT.            CL240
01032 *&                                                                   CL*55
01033      DISPLAY 'EFTBI100 P6000 EMP ' FCQW-EMP-NO                       CL*55
01034         '  SSN ' FCQW-SSN                                            CL*55
01035         '  NAME ' FCQW-EMPL-NAME                                     CL*55
01036         '  TRACE ' FCQW-EMPL-TRACE-NO.                               CL*55
01037 *&                                                                   CL*55
01038                                                                      CL240
01039        MOVE FCQW-EMP-NO                TO WRK-TRANS-EMP-NO.          CL240
01040        PERFORM S7000-EDIT-ACCOUNT-NO   THRU S7000-EXIT.              CL240
01041      IF VALID-TRANS-ACCOUNT-NO-88                                    CL240
01042         SET VALID-FCQW-REC-NO-88       TO TRUE.                      CL240
01043                                                                      CL241
01044 *&  THE FOLLOWING TEST IS INVALID FOR WAGES - THERE MAY BE           CL*56
01045 *&  MULTIPLE EMPLOYEES FOR A GIVEN EMPLOYER - GD                     CL*56
01046 **   PERFORM S7400-DUP-EMP-NO        THRU S7400-EXIT.                CL*56
01047 **   IF VALID-TRANS-ACCOUNT-NO-88                                    CL*56
01048 **      SET VALID-FCQW-REC-NO-88       TO TRUE.                      CL*56
01049                                                                      CL240
01050      MOVE FCQW-EMPL-NAME             TO WRK-TRANS-CONT-NAME.         CL242
01051      PERFORM S2300-EDIT-EMPL-NAME    THRU S2300-EXIT.                CL248
01052 *    IF VALID-TRANS-CONT-NAME-NO-88                                  CL117
01053 *       SET VALID-FCQW-REC-NO-88       TO TRUE.                      CL117
01054                                                                      CL*39
01055      MOVE FCQW-EMPL-TRACE-NO      TO WRK-TRANS-TRACE-NO.             CL241
01056      PERFORM S7200-EDIT-TRACE-NO     THRU S7200-EXIT.                CL242
01057      IF VALID-TRANS-TRACE-NO-88                                      CL241
01058          MOVE '056'                TO F907-MSG-ID                    CL108
01059          MOVE EFT056               TO F907-MSG-TEXT                  CL108
01060          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL107
01061         SET VALID-FCQW-REC-NO-88     TO TRUE.                        CL242
01062                                                                      CL*21
01063                                                                      CL241
01064      PERFORM S5200-EDIT-SSN          THRU S5200-EXIT.                CL247
01065      IF VALID-TRANS-SSN-NO-88                                        CL242
01066         SET VALID-FCQW-REC-NO-88     TO TRUE.                        CL242
01067                                                                      CL240
01068                                                                      CL*21
01069      DISPLAY 'EMPL-EAGES ' FCQW-EMPL-WAGES                           CL110
01070      MOVE FCQW-EMPL-WAGES   TO WRK-TRANS-AMT                         CL110
01071      PERFORM S5000-EDIT-AMOUNT        THRU S5000-EXIT                CL247
01072      IF VALID-TRANS-AMT-NO-88                                        CL242
01073          MOVE '032'                TO F907-MSG-ID                    CL109
01074          MOVE EFT032               TO F907-MSG-TEXT                  CL109
01075          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL109
01076         SET VALID-FCQW-REC-NO-88    TO TRUE.                         CL242
01077                                                                      CL247
01078                                                                      CL*21
01079 *    SET VALID-TRANS-AMT-YES-88     TO TRUE                          CL112
01080 *    PERFORM S5100-EDIT-ZERO-AMOUNT   THRU S5100-EXIT                CL112
01081 *    IF VALID-TRANS-AMT-NO-88                                        CL112
01082 *       SET VALID-FCQW-REC-NO-88    TO TRUE.                         CL112
01083                                                                      CL242
01084                                                                      CL*21
01085      SET VALID-TRANS-AMT-YES-88     TO TRUE                          CL111
01086      DISPLAY ' EMPL TAX WAGES ' FCQW-EMPL-TAXABLE-WAGES              CL110
01087      MOVE FCQW-EMPL-TAXABLE-WAGES   TO WRK-TRANS-AMT                 CL110
01088      PERFORM S5000-EDIT-AMOUNT        THRU S5000-EXIT                CL247
01089      IF VALID-TRANS-AMT-NO-88                                        CL242
01090          MOVE '059'                TO F907-MSG-ID                    CL109
01091          MOVE EFT059               TO F907-MSG-TEXT                  CL109
01092          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL109
01093         SET VALID-FCQW-REC-NO-88    TO TRUE.                         CL242
01094                                                                      CL242
01095      MOVE FCQW-YEAR-QTR             TO WRK-QTR.                      CL*75
01096      PERFORM S5300-EDIT-QTR         THRU S5300-EXIT.                 CL*75
01097      IF VALID-TRANS-QTR-NO-88                                        CL243
01098          MOVE '057'                TO F907-MSG-ID                    CL108
01099          MOVE EFT057               TO F907-MSG-TEXT                  CL108
01100          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL108
01101         SET VALID-FCQW-REC-NO-88    TO TRUE.                         CL243
01102                                                                      CL243
01103                                                                      CL243
01104      IF  VALID-FCQW-REC-YES-88                                       CL241
01105         PERFORM S946-WRITE-FCQW     THRU S946-EXIT.                  CL241
01106                                                                      CL240
01107  P6000-EXIT.                                                         CL118
01108      EXIT.                                                           CL114
01109                                                                      CL243
01110  P7000-VALIDATE-ENR-TRANS.                                           CL130
01111                                                                      CL118
01112      SET VALID-FENR-REC-YES-88       TO TRUE.                        CL129
01113      SET VALID-TRANS-ACCOUNT-YES-88  TO TRUE.                        CL129
01114      SET VALID-TRANS-CONT-NAME-YES-88  TO TRUE.                      CL131
01115      SET VALID-TRANS-CONT-FONE-YES-88  TO TRUE.                      CL131
01116      MOVE SPACES                     TO FENR-REC.                    CL*89
01117      MOVE RSKL-REC                   TO FENR-REC                     CL*87
01118      ADD +1                          TO WRK-ENR-DATA-CNT.            CL129
01119                                                                      CL129
01120                                                                      CL*87
01121        MOVE FENR-EMP-NO                TO WRK-TRANS-EMP-NO.          CL175
01122        PERFORM S7000-EDIT-ACCOUNT-NO   THRU S7000-EXIT.              CL129
01123      IF VALID-TRANS-ACCOUNT-NO-88                                    CL130
01124         SET VALID-FENR-REC-NO-88       TO TRUE.                      CL130
01125                                                                      CL130
01126 *    PERFORM S7400-DUP-EMP-NO        THRU S7400-EXIT.                CL*97
01127 *    IF VALID-TRANS-ACCOUNT-NO-88                                    CL*97
01128 *       SET VALID-FENR-REC-NO-88       TO TRUE.                      CL*97
01129                                                                      CL*21
01130 *    IF FENR-CONTACT-PHONE = SPACES OR LOW-VALUES                    CL101
01131 *       NEXT SENTENCE                                                CL101
01132 *    ELSE                                                            CL101
01133      PERFORM S2100-EDIT-FENR-FONE    THRU S2100-EXIT                 CL101
01134      IF VALID-TRANS-CONT-FONE-NO-88                                  CL248
01135          MOVE '044'                TO F907-MSG-ID                    CL101
01136          MOVE EFT044               TO F907-MSG-TEXT                  CL101
01137          PERFORM S946-WRITE-F907   THRU S946-EXIT.                   CL117
01138 *       SET VALID-FENR-REC-NO-88       TO TRUE.                      CL117
01139                                                                      CL248
01140 *    IF FENR-CONTACT-NAME = SPACES OR LOW-VALUES                     CL101
01141 *       NEXT SENTENCE                                                CL101
01142 *    ELSE                                                            CL101
01143        MOVE FENR-CONTACT-NAME          TO WRK-TRANS-CONT-NAME        CL101
01144        PERFORM S2000-EDIT-CONT-NAME    THRU S2000-EXIT.              CL117
01145 *      IF VALID-TRANS-CONT-NAME-NO-88                                CL117
01146 *         SET VALID-FENR-REC-NO-88       TO TRUE.                    CL117
01147                                                                      CL130
01148      IF  VALID-FENR-REC-YES-88                                       CL131
01149         PERFORM S946-WRITE-FENR     THRU S946-EXIT.                  CL131
01150                                                                      CL131
01151  P7000-EXIT.                                                         CL118
01152      EXIT.                                                           CL114
01153                                                                      CL130
01154  P8000-VALIDATE-TRL-TRANS.                                           CL122
01155      SET VALID-FTRL-REC-YES-88       TO TRUE.                        CL122
01156      SET VALID-TRANS-REC-CNT-YES-88   TO TRUE.                       CL126
01157      SET VALID-TRANS-AMT-YES-88       TO TRUE.                       CL126
01158                                                                      CL117
01159      MOVE RSKL-REC          TO FTRL-REC.                             CL117
01160                                                                      CL156
01161      ADD +1                 TO WRK-FTRL-REC-CNT.                     CL193
01162                                                                      CL184
01163      IF WRK-EFT-READ-CNT = 1                                         CL193
01164         DISPLAY ' 1ST RECORD CANNOT BE TRAILER RECORD *****'         CL184
01165         SET VALID-FTRL-REC-NO-88    TO TRUE                          CL184
01166      END-IF.                                                         CL184
01167                                                                      CL184
01168      PERFORM P8100-VALID-FTRL-REC     THRU P8100-EXIT                CL184
01169                                                                      CL184
01170      MOVE FTRL-RECORD-CNT   TO WRK-TRANS-REC-CNT.                    CL122
01171      PERFORM S7300-EDIT-REC-CNT   THRU S7300-EXIT                    CL126
01172                                                                      CL117
01173      IF VALID-TRANS-REC-CNT-NO-88                                    CL122
01174         SET VALID-FTRL-REC-NO-88    TO TRUE                          CL120
01175      END-IF.                                                         CL120
01176                                                                      CL120
01177      PERFORM P8100-VALID-FTRL-REC     THRU P8100-EXIT                CL119
01178                                                                      CL117
01179      SUBTRACT +2 FROM WRK-EFT-READ-CNT GIVING WRK-EFT-DATA-CNT.      CL228
01180                                                                      CL159
01181          DISPLAY ' !!!TOTAL DATA CNT ' WRK-EFT-DATA-CNT              CL227
01182          DISPLAY ' !! TOTAL READ CNT ' WRK-EFT-READ-CNT              CL226
01183          DISPLAY ' !!TRAILER REC CNT ' FTRL-RECORD-CNT               CL*61
01184          DISPLAY ' XXXXXXXXXXXXXXXXX ' .                             CL*54
01185                                                                      CL226
01186      IF  WRK-TRANS-REC-CNT NOT = WRK-EFT-DATA-CNT                    CL214
01187          DISPLAY ' !!! TOTAL REC CNT ' WRK-EFT-DATA-CNT              CL214
01188          DISPLAY ' !!TRAILER REC CNT ' WRK-TRANS-REC-CNT             CL205
01189          MOVE '008'                  TO F907-MSG-ID                  CL*64
01190          MOVE EFT008                 TO F907-MSG-TEXT                CL*64
01191          MOVE ZEROS                  TO F907-EMP-NO                  CL*64
01192          SET VALID-FTRL-REC-NO-88    TO TRUE                         CL*64
01193          PERFORM S946-WRITE-F907     THRU S946-EXIT.                 CL*64
01194                                                                      CL118
01195      IF  WRK-EFT-READ-CNT = 2                                        CL195
01196          DISPLAY ' !!!! NO EFT RECORDS TODAY ++++++++'               CL181
01197 *        PERFORM S946-WRITE-TYPE-98  THRU S946-EXIT                  CL*64
01198          GO TO P8000-RESET-CNTS.                                     CL*64
01199                                                                      CL181
01200      PERFORM P8100-VALID-FTRL-REC     THRU P8100-EXIT                CL122
01201                                                                      CL184
01202      IF NOT FTRL-TYPE-PAYMENT-88                                     CL126
01203         GO TO P8000-RESET-CNTS                                       CL188
01204      END-IF.                                                         CL118
01205                                                                      CL118
01206      MOVE FTRL-TOT-AMOUNT   TO WRK-TRANS-AMT                         CL121
01207      PERFORM S5000-EDIT-AMOUNT        THRU S5000-EXIT                CL122
01208                                                                      CL120
01209      IF VALID-TRANS-AMT-NO-88                                        CL122
01210          MOVE '060'                TO F907-MSG-ID                    CL109
01211          MOVE EFT060               TO F907-MSG-TEXT                  CL109
01212          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL109
01213         SET VALID-FTRL-REC-NO-88    TO TRUE                          CL120
01214      END-IF.                                                         CL120
01215                                                                      CL120
01216      PERFORM P8100-VALID-FTRL-REC     THRU P8100-EXIT                CL122
01217                                                                      CL117
01218      IF  WRK-TRANS-AMT  NOT = WRK-TOT-DATA-AMT                       CL122
01219          DISPLAY ' !!TRAILER TOTAL   ' WRK-TRANS-AMT                 CL222
01220          DISPLAY ' !!   DATA TOTAL   ' WRK-TOT-DATA-AMT              CL222
01221          MOVE '010'                   TO F907-MSG-ID                 CL*64
01222          MOVE EFT010                  TO F907-MSG-TEXT               CL*65
01223          MOVE ZEROS                   TO F907-EMP-NO                 CL*64
01224          SET VALID-FTRL-REC-NO-88     TO TRUE                        CL*64
01225          PERFORM S946-WRITE-F907      THRU S946-EXIT                 CL*64
01226      END-IF.                                                         CL118
01227                                                                      CL122
01228      PERFORM P8100-VALID-FTRL-REC     THRU P8100-EXIT.               CL127
01229                                                                      CL118
01230  P8000-RESET-CNTS.                                                   CL184
01231      ADD  WRK-EFT-READ-CNT TO WRK-TOT-EFT-READ-CNT.                  CL184
01232      MOVE ZEROS            TO WRK-EFT-DATA-CNT                       CL184
01233                               WRK-TOT-DATA-AMT                       CL222
01234                               WRK-EFT-READ-CNT.                      CL222
01235  P8000-EXIT.                                                         CL118
01236      EXIT.                                                           CL117
01237                                                                      CL117
01238  P8100-VALID-FTRL-REC.                                               CL120
01239                                                                      CL120
01240      IF  VALID-FTRL-REC-NO-88                                        CL120
01241          DISPLAY ' BAD TRAILER RECORD      ++++++++++'               CL120
01242          DISPLAY RSKL-REC                                            CL127
01243 *        PERFORM S999-ABEND THRU S999-EXIT                           CL206
01244      END-IF.                                                         CL120
01245  P8100-EXIT.                                                         CL120
01246      EXIT.                                                           CL120
01247                                                                      CL120
01248  S1000-INVALID-TRANS.                                                CL125
01249                                                                      CL129
01250         DISPLAY 'INVALID TRANSACTION ::::: ' RSKL-REC-TYPE           CL*59
01251         MOVE '017'                   TO F907-MSG-ID                  CL162
01252         MOVE ZEROS                   TO F907-EMP-NO                  CL162
01253         MOVE EFT017                  TO F907-MSG-TEXT.               CL162
01254         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*47
01255         PERFORM S946-WRITE-F907     THRU S946-EXIT.                  CL129
01256                                                                      CL125
01257  S1000-EXIT.                                                         CL125
01258      EXIT.                                                           CL125
01259                                                                      CL125
01260                                                                      CL129
01261 **************************************************************       CL130
01262 *  EDIT THE CONTACT NAME FIELD   FROM THE ELECTRONIC PAYMENT *       CL130
01263 *  INPUT RECORDS AND OUTPUT AN ERROR MESSAGE IF ERROR FOUND. *       CL130
01264 **************************************************************       CL130
01265  S2000-EDIT-CONT-NAME.                                               CL129
01266                                                                      CL129
01267      IF L021-VALID AND WRK-TRANS-CONT-NAME = SPACES                  CL248
01268          SET VALID-TRANS-CONT-NAME-NO-88 TO TRUE                     CL248
01269          MOVE '018'                TO F907-MSG-ID                    CL248
01270          MOVE EFT018               TO F907-MSG-TEXT                  CL248
01271          MOVE ZEROS                TO F907-EMP-NO                    CL248
01272          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL248
01273      ELSE                                                            CL248
01274      IF L021-NO-ENTRY AND WRK-TRANS-CONT-NAME > SPACES               CL248
01275          SET VALID-TRANS-CONT-NAME-NO-88 TO TRUE                     CL248
01276          MOVE '020'                TO F907-MSG-ID                    CL248
01277          MOVE EFT020               TO F907-MSG-TEXT                  CL248
01278          MOVE ZEROS                TO F907-EMP-NO                    CL248
01279          PERFORM S946-WRITE-F907   THRU S946-EXIT.                   CL248
01280                                                                      CL248
01281  S2000-EXIT.                                                         CL130
01282      EXIT.                                                           CL130
01283                                                                      CL130
01284 **************************************************************       CL130
01285 *  EDIT THE CONTACT PHONE FIELD  FROM THE ELECTRONIC PAYMENT *       CL130
01286 *  INPUT RECORDS AND OUTPUT AN ERROR MESSAGE IF ERROR FOUND. *       CL130
01287 **************************************************************       CL130
01288  S2100-EDIT-FENR-FONE.                                               CL248
01289                                                                      CL*86
01290        MOVE FENR-VOICE-1-AREA-CD TO L021-S-TNO1.                     CL248
01291        MOVE FENR-VOICE-1-PREFIX  TO L021-S-TNO2                      CL248
01292        MOVE FENR-VOICE-1-SUFFIX  TO L021-S-TNO3                      CL248
01293        MOVE FENR-VOICE-1-EXT     TO L021-S-TNO4.                     CL248
01294        GO TO S2100-EDIT-FONE.                                        CL248
01295                                                                      CL248
01296  S2100-EDIT-FQTF-FONE.                                               CL252
01297        MOVE FQTF-AREA-CODE  TO L021-S-TNO1.                          CL253
01298        MOVE FQTF-PREFIX     TO L021-S-TNO2                           CL253
01299        MOVE FQTF-SUFFIX     TO L021-S-TNO3                           CL253
01300        MOVE FQTF-EXTENSION  TO L021-S-TNO4.                          CL253
01301        GO TO S2100-EDIT-FONE.                                        CL252
01302                                                                      CL252
01303  S2100-EDIT-FEST-FONE.                                               CL248
01304        MOVE FEST-BUSINESS-AREA-CD TO L021-S-TNO1                     CL248
01305        MOVE FEST-BUSINESS-PREFIX  TO L021-S-TNO2                     CL248
01306        MOVE FEST-BUSINESS-SUFFIX  TO L021-S-TNO3                     CL248
01307        MOVE FEST-BUSINESS-EXT     TO L021-S-TNO4                     CL248
01308        GO TO S2100-EDIT-FONE.                                        CL248
01309                                                                      CL248
01310  S2100-EDIT-FEST-FAX.                                                CL248
01311        MOVE FEST-FAX-AREA-CD TO L021-S-TNO1                          CL248
01312        MOVE FEST-FAX-PREFIX  TO L021-S-TNO2                          CL248
01313        MOVE FEST-FAX-SUFFIX  TO L021-S-TNO3                          CL248
01314        MOVE SPACES           TO L021-S-TNO4                          CL248
01315        GO TO S2100-EDIT-FONE.                                        CL248
01316                                                                      CL248
01317  S2100-EDIT-FONE.                                                    CL248
01318      DISPLAY 'GTEL NO ' FQTF-FILING-TEL-NO.                          CL113
01319      PERFORM S021-EDIT-FONE-FAX    THRU S021-EXIT.                   CL248
01320                                                                      CL*85
01321      IF L021-NOT-VALID                                               CL101
01322      DISPLAY 'BAD -GTEL NO ' FQTF-FILING-TEL-NO                      CL114
01323         SET VALID-TRANS-CONT-FONE-NO-88     TO TRUE                  CL*84
01324         SET VALID-TRANS-PHONE-NO-88         TO TRUE                  CL*84
01325          MOVE ZEROS                TO F907-EMP-NO                    CL248
01326         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*47
01327         MOVE L021-TNO              TO F907-GOV1-DATA                 CL*47
01328          GO TO  S2100-EXIT.                                          CL249
01329  S2100-EXIT.                                                         CL130
01330      EXIT.                                                           CL129
01331                                                                      CL129
01332  S2300-EDIT-EMPL-NAME.                                               CL248
01333                                                                      CL248
01334        IF WRK-TRANS-CONT-NAME = SPACES                               CL248
01335          SET VALID-TRANS-CONT-NAME-NO-88 TO TRUE                     CL248
01336          MOVE '045'                TO F907-MSG-ID                    CL102
01337          MOVE EFT045               TO F907-MSG-TEXT                  CL102
01338          MOVE ZEROS                TO F907-EMP-NO                    CL248
01339         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*47
01340         MOVE WRK-TRANS-CONT-NAME   TO F907-GOV1-DATA                 CL*47
01341          PERFORM S946-WRITE-F907   THRU S946-EXIT.                   CL248
01342                                                                      CL129
01343  S2300-EXIT.                                                         CL248
01344      EXIT.                                                           CL248
01345                                                                      CL248
01346  S2400-EDIT-EMAIL.                                                   CL248
01347                                                                      CL248
01348        MOVE ZEROS TO WRK-EMAIL-CNT.                                  CL249
01349        INSPECT FEST-EMAIL-ADDRESS TALLYING WRK-EMAIL-CNT             CL249
01350                     FOR ALL '@'.                                     CL249
01351                                                                      CL248
01352        IF   WRK-EMAIL-CNT NOT EQUAL 1                                CL249
01353         SET VALID-TRANS-EMAIL-NO-88    TO TRUE                       CL248
01354          MOVE '030'                TO F907-MSG-ID                    CL248
01355          MOVE EFT030               TO F907-MSG-TEXT                  CL248
01356          MOVE ZEROS                TO F907-EMP-NO                    CL248
01357         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*47
01358         MOVE FEST-EMAIL-ADDRESS    TO F907-GOV1-DATA                 CL*47
01359          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL248
01360          GO TO  S2400-EXIT.                                          CL248
01361                                                                      CL248
01362        MOVE ZEROS TO   WRK-EMAIL-CNT.                                CL249
01363        INSPECT FEST-EMAIL-ADDRESS TALLYING WRK-EMAIL-CNT             CL249
01364                     FOR ALL '.'.                                     CL249
01365                                                                      CL248
01366        IF   WRK-EMAIL-CNT = ZEROS                                    CL249
01367         SET VALID-TRANS-EMAIL-NO-88    TO TRUE                       CL248
01368          MOVE '030'                TO F907-MSG-ID                    CL248
01369          MOVE EFT030               TO F907-MSG-TEXT                  CL248
01370          MOVE ZEROS                TO F907-EMP-NO                    CL248
01371         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*47
01372         MOVE FEST-EMAIL-ADDRESS    TO F907-GOV1-DATA                 CL*47
01373          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL248
01374          GO TO  S2400-EXIT.                                          CL248
01375  S2400-EXIT.                                                         CL248
01376      EXIT.                                                           CL248
01377  S2600-EMP-STATUS-FEIN.                                              CL248
01378        MOVE FEST-FEIN  TO WRK-FEIN-X.                                CL248
01379        MOVE WRK-FEIN-1  TO L017-S-FEIN1                              CL248
01380        MOVE WRK-FEIN-2  TO L017-S-FEIN2                              CL248
01381        PERFORM S017-EDIT-FEIN   THRU S017-EXIT.                      CL248
01382                                                                      CL248
01383      IF L017-NOT-VALID OR L017-NO-ENTRY                              CL248
01384          SET VALID-TRANS-FEIN-NO-88 TO TRUE                          CL248
01385          MOVE '028'                TO F907-MSG-ID                    CL248
01386          MOVE EFT028               TO F907-MSG-TEXT                  CL248
01387          MOVE ZEROS                TO F907-EMP-NO                    CL248
01388          MOVE RSKL-REC-TYPE        TO F907-GOV1-RECID                CL*67
01389          MOVE FEST-FEIN            TO F907-GOV1-DATA                 CL*67
01390          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL248
01391          GO TO S2600-EXIT.                                           CL248
01392                                                                      CL248
01393  S2600-EXIT.                                                         CL248
01394      EXIT.                                                           CL248
01395 **************************************************************       CL120
01396 *  EDIT THE PAYMENT AMOUNT FIELD FROM THE ELECTRONIC PAYMENT *       CL120
01397 *  INPUT RECORDS AND OUTPUT AN ERROR MESSAGE IF ERROR FOUND. *       CL120
01398 **************************************************************       CL120
01399  S5000-EDIT-AMOUNT.                                                  CL122
01400                                                                      CL118
01401      IF  WRK-TRANS-AMT NOT NUMERIC                                   CL122
01402         MOVE ZEROS                      TO F907-EMP-NO               CL163
01403         SET VALID-TRANS-AMT-NO-88         TO TRUE                    CL122
01404         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*47
01405         MOVE WRK-TRANS-AMTX        TO F907-GOV1-DATA                 CL*48
01406         GO TO S5000-EXIT.                                            CL122
01407                                                                      CL118
01408  S5000-EXIT.                                                         CL122
01409      EXIT.                                                           CL118
01410                                                                      CL118
01411  S5100-EDIT-ZERO-AMOUNT.                                             CL247
01412                                                                      CL247
01413      IF  WRK-TRANS-AMT = ZEROS                                       CL247
01414         MOVE '033'                      TO F907-MSG-ID               CL*44
01415         MOVE EFT033                     TO F907-MSG-TEXT             CL*44
01416         MOVE ZEROS                      TO F907-EMP-NO               CL247
01417         SET VALID-TRANS-AMT-NO-88         TO TRUE                    CL247
01418         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*47
01419         MOVE WRK-TRANS-AMTX        TO F907-GOV1-DATA                 CL*48
01420         PERFORM S946-WRITE-F907     THRU S946-EXIT                   CL247
01421         GO TO S5100-EXIT.                                            CL*40
01422                                                                      CL247
01423  S5100-EXIT.                                                         CL247
01424      EXIT.                                                           CL247
01425                                                                      CL247
01426                                                                      CL242
01427  S5200-EDIT-SSN.                                                     CL247
01428      MOVE FCQW-SSN TO WRK-EMPL-SSN.                                  CL*57
01429      MOVE WRK-EMPL-SSN1 TO L020-S-SSN1.                              CL247
01430      MOVE WRK-EMPL-SSN2 TO L020-S-SSN2.                              CL247
01431      MOVE WRK-EMPL-SSN3 TO L020-S-SSN3.                              CL247
01432      PERFORM S020-SSN            THRU S020-EXIT.                     CL247
01433                                                                      CL247
01434      IF L020-NOT-VALID OR L020-NO-ENTRY                              CL247
01435          SET VALID-TRANS-SSN-NO-88 TO TRUE                           CL247
01436          MOVE '027'                TO F907-MSG-ID                    CL247
01437          MOVE EFT027               TO F907-MSG-TEXT                  CL247
01438          MOVE ZEROS                TO F907-EMP-NO                    CL247
01439         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*47
01440         MOVE WRK-EMPL-SSN          TO F907-GOV1-DATA                 CL*47
01441          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL247
01442          GO TO S5200-EXIT.                                           CL247
01443                                                                      CL247
01444  S5200-EXIT.                                                         CL247
01445      EXIT.                                                           CL247
01446                                                                      CL247
01447  S5300-EDIT-QTR.                                                     CL247
01448                                                                      CL*27
01449                                                                      CL*22
01450        MOVE WRK-QTR        TO L004-QTR-5-AREA.                       CL*76
01451        PERFORM S004-FROM-5       THRU S004-EXIT                      CL249
01452                                                                      CL247
01453        IF L004-INVALID-QTR                                           CL251
01454          SET VALID-TRANS-QTR-NO-88  TO TRUE                          CL247
01455          MOVE ZEROS                TO F907-EMP-NO                    CL247
01456         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*47
01457         MOVE WRK-QTR               TO F907-GOV1-DATA                 CL*76
01458          GO TO S5300-EXIT.                                           CL247
01459                                                                      CL247
01460 *      IF WRK-QTR       NOT = WRK-SYS-CURR-QTR                       CL*98
01461 *        SET VALID-TRANS-QTR-NO-88  TO TRUE                          CL*98
01462 *        MOVE '032'                   TO F907-MSG-ID                 CL*98
01463 *        MOVE EFT032                  TO F907-MSG-TEXT               CL*98
01464 *        MOVE ZEROS                TO F907-EMP-NO                    CL*98
01465 *       MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*98
01466 *       MOVE WRK-QTR               TO F907-GOV1-DATA                 CL*98
01467 *        PERFORM S946-WRITE-F907  THRU S946-EXIT                     CL*98
01468 *        GO TO S5300-EXIT.                                           CL*98
01469                                                                      CL247
01470  S5300-EXIT.                                                         CL247
01471      EXIT.                                                           CL247
01472 **************************************************************       CL120
01473 *  EDIT THE DATE FIELD FROM THE ELECTRONIC PAYMENT           *       CL120
01474 *  INPUT RECORDS AND OUTPUT AN ERROR MESSAGE IF ERROR FOUND. *       CL120
01475 **************************************************************       CL120
01476                                                                      CL120
01477  S6000-EDIT-TRANS-DATE.                                              CL118
01478                                                                      CL218
01479      MOVE WRK-TRANS-DATE    TO L001-FED-8-DATE-X.                    CL247
01480      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                         CL115
01481      IF L001-INVALID-DATE                                            CL115
01482         SET VALID-TRANS-DATE-NO-88      TO TRUE                      CL*76
01483         MOVE ZEROS                  TO F907-EMP-NO                   CL107
01484         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL107
01485         MOVE WRK-TRANS-DATE        TO F907-GOV1-DATA                 CL107
01486         GO TO S6000-EXIT                                             CL116
01487      END-IF.                                                         CL115
01488                                                                      CL115
01489 *    IF WRK-TRANS-DATE >  WRK-SYS-PARM-RUN-DATE OR                   CL118
01490 *       WRK-TRANS-DATE <= WRK-GOV-PARM-RUN-DATE                      CL118
01491 *       SET VALID-TRANS-DATE-NO-88      TO TRUE                      CL118
01492 *        MOVE '062'                   TO F907-MSG-ID                 CL118
01493 *        MOVE EFT062                  TO F907-MSG-TEXT               CL118
01494 *        MOVE ZEROS                TO F907-EMP-NO                    CL118
01495 *       MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL118
01496 *       MOVE WRK-TRANS-DATE        TO F907-GOV1-DATA                 CL118
01497 *       GO TO S6000-EXIT                                             CL118
01498 *    END-IF.                                                         CL118
01499                                                                      CL116
01500  S6000-EXIT.                                                         CL115
01501      EXIT.                                                           CL115
01502                                                                      CL115
01503 **************************************************************       CL122
01504 *  EDIT THE TIME FIELD FROM THE ELECTRONIC PAYMENT           *       CL122
01505 *  INPUT RECORDS AND OUTPUT AN ERROR MESSAGE IF ERROR FOUND. *       CL122
01506 **************************************************************       CL122
01507                                                                      CL122
01508  S6100-EDIT-TRANS-TIME.                                              CL122
01509                                                                      CL122
01510      IF WRK-TRANS-TIME-9 = ZEROS OR WRK-TRANS-TIME = SPACES          CL122
01511         MOVE '015'                      TO F907-MSG-ID               CL117
01512         MOVE EFT015                     TO F907-MSG-TEXT             CL117
01513            MOVE ZEROS                   TO F907-EMP-NO               CL117
01514         SET VALID-TRANS-TIME-NO-88      TO TRUE                      CL*76
01515         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL117
01516         MOVE WRK-TRANS-TIME        TO F907-GOV1-DATA                 CL117
01517         PERFORM S946-WRITE-F907     THRU S946-EXIT                   CL117
01518         GO TO S6100-EXIT.                                            CL122
01519                                                                      CL122
01520      IF (WRK-TRANS-TIME-HH > 24) OR (WRK-TRANS-TIME-MM > 60) OR      CL122
01521           (WRK-TRANS-TIME-SS > 60)                                   CL122
01522         MOVE '016'                      TO F907-MSG-ID               CL117
01523         MOVE EFT016                     TO F907-MSG-TEXT             CL117
01524            MOVE ZEROS                   TO F907-EMP-NO               CL117
01525         SET VALID-TRANS-TIME-NO-88      TO TRUE                      CL117
01526         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL117
01527         MOVE WRK-TRANS-TIME        TO F907-GOV1-DATA                 CL117
01528         PERFORM S946-WRITE-F907     THRU S946-EXIT                   CL117
01529         GO TO S6100-EXIT.                                            CL122
01530                                                                      CL122
01531                                                                      CL122
01532  S6100-EXIT.                                                         CL122
01533      EXIT.                                                           CL122
01534                                                                      CL122
01535 **************************************************************       CL*81
01536 *  EDIT THE EMPLOYER NUMBER FROM THE ELECTRONIC PAYMENT      *       CL*81
01537 *  INPUT RECORDS AND OUTPUT AN ERROR MESSAGE IF ERROR FOUND. *       CL*82
01538 **************************************************************       CL*81
01539                                                                      CL*81
01540  S7000-EDIT-ACCOUNT-NO.                                              CL126
01541                                                                      CL*77
01542      IF  WRK-TRANS-EMP-NO NOT NUMERIC                                CL130
01543          SET VALID-TRANS-ACCOUNT-NO-88  TO TRUE                      CL130
01544          MOVE '011'                TO F907-MSG-ID                    CL162
01545          MOVE EFT011               TO F907-MSG-TEXT                  CL162
01546          MOVE ZEROS                TO F907-EMP-NO                    CL162
01547         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*47
01548         MOVE WRK-TRANS-EMP-NO      TO F907-GOV1-DATA                 CL*47
01549          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL120
01550          GO TO S7000-EXIT.                                           CL120
01551                                                                      CL120
01552         IF WRK-TRANS-EMP-NO = ZEROS                                  CL130
01553          SET VALID-TRANS-ACCOUNT-NO-88  TO TRUE                      CL130
01554            MOVE '012'                   TO F907-MSG-ID               CL162
01555            MOVE EFT012                  TO F907-MSG-TEXT             CL162
01556          MOVE ZEROS                TO F907-EMP-NO                    CL162
01557         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*47
01558         MOVE WRK-TRANS-EMP-NO      TO F907-GOV1-DATA                 CL*47
01559            PERFORM S946-WRITE-F907  THRU S946-EXIT                   CL120
01560            GO TO S7000-EXIT.                                         CL120
01561                                                                      CL118
01562          PERFORM S7100-VALID-TAX-EMP  THRU S7100-EXIT.               CL120
01563  S7000-EXIT.                                                         CL124
01564      EXIT.                                                           CL*76
01565                                                                      CL*82
01566                                                                      CL120
01567 **************************************************************       CL120
01568 *  SELECT MASTER MPRF RECORD USING THE FDPT-EMP-NO TO        *       CL120
01569 *  OBTAIN VARIOUS INFORMATIONS FOR THE OUTPUT RECORD.        *       CL120
01570 **************************************************************       CL120
01571                                                                      CL120
01572  S7100-VALID-TAX-EMP.                                                CL120
01573      MOVE LOW-VALUE    TO MSKL-KEY-AREA.                             CL120
01574                                                                      CL120
01575      MOVE WRK-TRANS-EMP-NO TO MSKL-EMP-NO.                           CL130
01576                                                                      CL120
01577      SET MSKL-PRF-88   TO TRUE.                                      CL120
01578                                                                      CL120
01579      PERFORM S910-READ THRU S910-EXIT.                               CL120
01580                                                                      CL120
01581      IF L910-NO-REC-88                                               CL120
01582          SET VALID-TRANS-ACCOUNT-NO-88  TO TRUE                      CL130
01583          MOVE '001'                   TO F907-MSG-ID                 CL162
01584          MOVE EFT001                  TO F907-MSG-TEXT               CL162
01585          MOVE WRK-TRANS-EMP-NO     TO F907-EMP-NO                    CL201
01586         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*47
01587         MOVE WRK-TRANS-EMP-NO      TO F907-GOV1-DATA                 CL*47
01588          PERFORM S946-WRITE-F907  THRU S946-EXIT                     CL120
01589          GO TO S7100-EXIT.                                           CL120
01590                                                                      CL120
01591                                                                      CL120
01592      MOVE MSKL-REC TO MPRF-REC.                                      CL120
01593                                                                      CL120
01594      IF MPRF-EMP-STATUS NOT = 'A'                                    CL181
01595 *        SET VALID-TRANS-ACCOUNT-NO-88  TO TRUE                      CL206
01596          MOVE '025'                   TO F907-MSG-ID                 CL181
01597          MOVE EFT025                  TO F907-MSG-TEXT               CL181
01598          MOVE WRK-TRANS-EMP-NO     TO F907-EMP-NO                    CL201
01599         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*47
01600         MOVE MPRF-EMP-STATUS       TO F907-GOV1-DATA                 CL*47
01601          PERFORM S946-WRITE-F907  THRU S946-EXIT                     CL181
01602          GO TO S7100-EXIT.                                           CL181
01603                                                                      CL181
01604                                                                      CL120
01605  S7100-EXIT.                                                         CL120
01606      EXIT.                                                           CL120
01607                                                                      CL120
01608 **************************************************************       CL*82
01609 *  EDIT THE         TRACE NO FIELD ON THE ELECTRONIC         *       CL104
01610 *  INPUT RECORDS AND OUTPUT AN ERROR MESSAGE IF ERROR FOUND. *       CL*82
01611 **************************************************************       CL*82
01612                                                                      CL*82
01613  S7200-EDIT-TRACE-NO.                                                CL122
01614                                                                      CL*82
01615      IF  WRK-TRANS-TRACE-NO NOT NUMERIC                              CL105
01616          SET VALID-TRANS-TRACE-NO-88 TO TRUE                         CL130
01617          MOVE ZEROS                TO F907-EMP-NO                    CL162
01618         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*47
01619         MOVE WRK-TRANS-TRACE-NO    TO F907-GOV1-DATA                 CL*47
01620          GO TO S7200-EXIT.                                           CL122
01621                                                                      CL120
01622         IF WRK-TRANS-TRACE-NO = ZEROS                                CL130
01623          SET VALID-TRANS-TRACE-NO-88 TO TRUE                         CL130
01624          MOVE ZEROS                TO F907-EMP-NO                    CL162
01625         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*47
01626         MOVE WRK-TRANS-TRACE-NO    TO F907-GOV1-DATA                 CL*47
01627            GO TO S7200-EXIT.                                         CL122
01628                                                                      CL120
01629                                                                      CL*82
01630  S7200-EXIT.                                                         CL122
01631      EXIT.                                                           CL*82
01632                                                                      CL*83
01633                                                                      CL122
01634  S7300-EDIT-REC-CNT.                                                 CL122
01635                                                                      CL122
01636      IF  WRK-TRANS-REC-CNT NOT NUMERIC                               CL122
01637         MOVE '006'                      TO F907-MSG-ID               CL162
01638         MOVE EFT006                     TO F907-MSG-TEXT             CL162
01639                                            F907-MSG-TEXT             CL122
01640          MOVE ZEROS                TO F907-EMP-NO                    CL162
01641         SET VALID-TRANS-REC-CNT-NO-88   TO TRUE                      CL122
01642         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*47
01643         MOVE WRK-TRANS-REC-CNT TO F907-GOV1-DATA                     CL*47
01644         PERFORM S946-WRITE-F907     THRU S946-EXIT                   CL122
01645         GO TO S7300-EXIT.                                            CL122
01646                                                                      CL122
01647  S7300-EXIT.                                                         CL122
01648      EXIT.                                                           CL122
01649                                                                      CL122
01650 **************************************************************       CL162
01651 *  EDIT THE EMPLOYER NUMBER FROM THE ELECTRONIC PAYMENT      *       CL162
01652 *  FOR DUPLICATE ENTRIES. WRITE ERROR MSG    IF ERROR FOUND. *       CL162
01653 **************************************************************       CL162
01654                                                                      CL162
01655  S7400-DUP-EMP-NO.                                                   CL162
01656                                                                      CL162
01657      IF  WRK-PREV-EMP-NO = ZEROS                                     CL215
01658          MOVE WRK-TRANS-EMP-NO TO WRK-PREV-EMP-NO                    CL162
01659      ELSE                                                            CL162
01660      IF  WRK-PREV-EMP-NO = WRK-TRANS-EMP-NO                          CL162
01661          SET VALID-TRANS-ACCOUNT-NO-88  TO TRUE                      CL162
01662          MOVE '024'                TO F907-MSG-ID                    CL162
01663          MOVE EFT024               TO F907-MSG-TEXT                  CL162
01664          MOVE WRK-TRANS-EMP-NO     TO F907-EMP-NO                    CL201
01665         MOVE RSKL-REC-TYPE         TO F907-GOV1-RECID                CL*47
01666          PERFORM S946-WRITE-F907   THRU S946-EXIT                    CL162
01667      ELSE                                                            CL162
01668          MOVE WRK-TRANS-EMP-NO TO WRK-PREV-EMP-NO.                   CL162
01669                                                                      CL162
01670  S7400-EXIT.                                                         CL162
01671      EXIT.                                                           CL162
01672  T0000-TERMINATE.                                                 EFTBI100
01673                                                                      CL*63
01674 **   IF WRK-FHDR-REC-CNT NOT = 5 AND                                 CL*34
01675 **      WRK-FTRL-REC-CNT NOT = 5                                     CL*34
01676 **      DISPLAY ' **** ERROR  DID NOT RECEIVE 5 FILES ******'        CL*34
01677 **      DISPLAY ' **** PROGRAM WILL ABEND ******************'        CL*34
01678 **      PERFORM S999-ABEND THRU S999-EXIT.                           CL*34
01679                                                                      CL*71
01680      DISPLAY '*** EFTBI100 TERMINATION STATISTICS ***'.              CL129
01681                                                                      CL*71
01682      DISPLAY '  '.                                                   CL237
01683      DISPLAY ' EFT  HEADER  INPUT  RECORDS READ COUNT       :'       CL184
01684              WRK-FHDR-REC-CNT.                                       CL193
01685                                                                      CL184
01686      DISPLAY ' EFT  TRAILER INPUT  RECORDS READ COUNT       :'       CL184
01687              WRK-FTRL-REC-CNT.                                       CL193
01688                                                                      CL*98
01689      DISPLAY ' F907 ERRORS OUTPUT RECORDS WRITE COUNT       :'       CL122
01690              WRK-F907-REC-CNT.                                       CL122
01691                                                                      CL122
01692      DISPLAY ' EFT  FDPT IN REC COUNT : ' WRK-DPT-DATA-CNT.          CL**1
01693      DISPLAY ' EFT FDPT OUT REC COUNT : ' WRK-FDPT-REC-CNT.          CL255
01694                                                                      CL255
01695      DISPLAY ' EFT  FENR IN REC COUNT : ' WRK-ENR-DATA-CNT.          CL**1
01696      DISPLAY ' EFT FENR OUT REC COUNT : ' WRK-FENR-REC-CNT.          CL255
01697                                                                      CL254
01698      DISPLAY ' EFT  FEST IN REC COUNT : ' WRK-EST-DATA-CNT.          CL**1
01699      DISPLAY ' EFT FEST OUT REC COUNT : ' WRK-FEST-REC-CNT.          CL255
01700                                                                      CL255
01701      DISPLAY ' EFT  FQTF IN REC COUNT : ' WRK-QTF-DATA-CNT.          CL**1
01702      DISPLAY ' EFT FQTF OUT REC COUNT : ' WRK-FQTF-REC-CNT.          CL255
01703                                                                      CL255
01704      DISPLAY ' EFT  FCQW IN REC COUNT : ' WRK-CQW-DATA-CNT.          CL**1
01705      DISPLAY ' EFT FCQW OUT REC COUNT : ' WRK-FCQW-REC-CNT.          CL255
01706                                                                      CL255
01707      DISPLAY ' TOTAL EFT ---INPUT  RECORDS READ COUNT       :'       CL255
01708              WRK-TOT-EFT-READ-CNT.                                   CL255
01709                                                                      CL255
01710                                                                      CL184
01711      CLOSE EFT-GOVONE-OUTPUT                                         CL*36
01712            EFT-GOVONE-INPUT                                          CL254
01713 *          EFT-REPORTS-F907                                          CL*50
01714 *          EFT-REPORTS-R907.                                         CL*52
01715                                                                      CL*69
01716      IF EFT-STATUS-OK-88                                             CL*58
01717         NEXT SENTENCE                                                CL*58
01718      ELSE                                                            CL*58
01719         DISPLAY 'CLOSE ERROR ON EFT FILE ' EFT-STATUS                CL*58
01720         PERFORM S999-ABEND THRU S999-EXIT.                           CL*58
01721                                                                      CL*69
01722 *    IF  WRK-F907-REC-CNT > 0                                        CL208
01723 *        DISPLAY ' GOV1 INPUT FILE CONTAINS ERRORS+++'               CL208
01724 *        DISPLAY ' PROGRAM WILL ABEND ***************'               CL208
01725 *        PERFORM S999-ABEND THRU S999-EXIT                           CL208
01726 *    END-IF.                                                         CL208
01727  T0000-EXIT.                                                      EFTBI100
01728      EXIT.                                                        EFTBI100
01729      EJECT                                                        EFTBI100
01730                                                                      CL*59
01731  S001-FROM-FED-8.                                                    CL108
01732      SET L001-FROM-FED-8 TO TRUE.                                    CL108
01733      GO TO S001-DATE.                                                CL108
01734                                                                      CL108
01735  S001-FROM-ABS-DAY.                                                  CL108
01736      SET L001-FROM-ABS-DAY TO TRUE.                                  CL108
01737      GO TO S001-DATE.                                                CL108
01738                                                                      CL108
01739  S001-FROM-CAL-6.                                                    CL108
01740      SET L001-FROM-CAL-6 TO TRUE.                                    CL108
01741      GO TO S001-DATE.                                                CL108
01742                                                                      CL108
01743  S001-FROM-CAL-8.                                                    CL237
01744      SET L001-FROM-CAL-8 TO TRUE.                                    CL237
01745      GO TO S001-DATE.                                                CL237
01746                                                                      CL237
01747  S001-DATE.                                                          CL108
01748      CALL 'DTSBU001' USING L001-LINK-AREA.                           CL108
01749  S001-EXIT.                                                          CL108
01750      EXIT.                                                           CL108
01751                                                                      CL*15
01752  S017-EDIT-FEIN.                                                     CL238
01753      CALL 'DTSBU017' USING L017-LINK-AREA.                           CL237
01754  S017-EXIT.                                                          CL237
01755      EXIT.                                                           CL237
01756                                                                      CL249
01757  S020-SSN.                                                           CL251
01758      CALL 'DTSBU020' USING L020-LINK-AREA.                           CL249
01759  S020-EXIT.                                                          CL249
01760      EXIT.                                                           CL249
01761                                                                      CL237
01762  S021-EDIT-FONE-FAX.                                                 CL251
01763      CALL 'DTSBU021' USING L021-LINK-AREA.                           CL237
01764  S021-EXIT.                                                          CL237
01765      EXIT.                                                           CL237
01766                                                                      CL237
01767  S004-FROM-DATE.                                                     CL*74
01768      SET L004-FROM-DATE     TO TRUE.                                 CL*74
01769      GO TO S004-YRQ.                                                 CL*24
01770                                                                      CL*24
01771  S004-FROM-5.                                                        CL249
01772      SET L004-FROM-5        TO TRUE.                                 CL249
01773      GO TO S004-YRQ.                                                 CL249
01774                                                                      CL249
01775  S004-FROM-ABS.                                                      CL*74
01776      SET L004-FROM-ABS      TO TRUE.                                 CL*74
01777      GO TO S004-YRQ.                                                 CL*74
01778                                                                      CL*74
01779  S004-YRQ.                                                           CL*24
01780      CALL 'DTSBU004' USING L004-LINK-AREA.                           CL*24
01781                                                                      CL*24
01782  S004-EXIT.                                                          CL*24
01783      EXIT.                                                           CL*24
01784                                                                      CL*24
01785  S005-SYS-DATE.                                                      CL*61
01786      CALL 'DTSBU005' USING L005-COMM-AREA.                           CL*61
01787                                                                      CL*61
01788  S005-EXIT.                                                          CL*61
01789      EXIT.                                                           CL*61
01790                                                                      CL*78
01791  S910-OPEN-READ.                                                     CL*70
01792      SET L910-OPEN-READ-88 TO TRUE.                                  CL*70
01793      GO TO S910-MSTR-IO.                                             CL*70
01794                                                                      CL*70
01795  S910-OPEN-UPDATE-NO-AIX.                                            CL*70
01796      SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE.                         CL*70
01797      GO TO S910-MSTR-IO.                                             CL*70
01798                                                                      CL*70
01799  S910-READ.                                                          CL*70
01800      SET L910-READ-88 TO TRUE.                                       CL*70
01801      GO TO S910-MSTR-IO.                                             CL*70
01802                                                                      CL*70
01803  S910-START-BROWSE.                                                  CL*70
01804      SET L910-START-BROWSE-88 TO TRUE.                               CL*70
01805      GO TO S910-MSTR-IO.                                             CL*70
01806                                                                      CL*13
01807  S910-READ-NEXT.                                                     CL*70
01808      SET L910-READ-NEXT-88 TO TRUE.                                  CL*70
01809      GO TO S910-MSTR-IO.                                             CL*70
01810                                                                      CL*70
01811  S910-COUNT.                                                         CL*70
01812      SET L910-COUNT-88 TO TRUE.                                      CL*70
01813      GO TO S910-MSTR-IO.                                             CL*70
01814                                                                      CL*70
01815  S910-WRITE.                                                         CL*70
01816      SET L910-WRITE-88 TO TRUE.                                      CL*70
01817      GO TO S910-MSTR-IO.                                             CL*70
01818                                                                      CL*70
01819  S910-REWRITE.                                                       CL*70
01820      SET L910-REWRITE-88 TO TRUE.                                    CL*70
01821      GO TO S910-MSTR-IO.                                             CL*70
01822                                                                      CL*70
01823  S910-CLOSE.                                                         CL*70
01824      SET L910-CLOSE-88     TO TRUE.                                  CL*70
01825      GO TO S910-MSTR-IO.                                             CL*70
01826                                                                      CL*70
01827  S910-MSTR-IO.                                                       CL*70
01828      CALL 'DTSBU910' USING L910-LINK-AREA                            CL*70
01829                            MSKL-REC.                                 CL*70
01830  S910-EXIT.                                                          CL*70
01831      EXIT.                                                           CL*70
01832                                                                      CL184
01833  S946-WRITE-TYPE-98.                                                 CL184
01834                                                                      CL184
01835      IF RSKL-TYPE-PAYMENT-88                                         CL184
01836         MOVE '98' TO FDPT-TYPE                                       CL184
01837         GO TO S946-WRITE-FDPT.                                       CL184
01838                                                                      CL184
01839      GO TO S946-EXIT.                                                CL184
01840                                                                      CL184
01841  S946-WRITE-F907.                                                    CL117
01842                                                                      CL117
01843      ADD +1             TO WRK-F907-REC-CNT.                         CL201
01844      MOVE WRK-MOD-NAME  TO F907-MODULE-NAME.                         CL117
01845      MOVE WRK-TRANS-EMP-NO TO F907-EMP-NO.                           CL163
01846 *    MOVE RSKL-REC      TO F907-GOV1-REC                             CL*42
01847                                                                      CL117
01848      CALL 'DTSBU946' USING F907-REC.                                 CL117
01849                                                                      CL131
01850 **************************************************************       CL196
01851 *  WRITE GOVONE ERROR RETURN FILE(F907)                      *       CL196
01852 **************************************************************       CL196
01853                                                                      CL196
01854 *    WRITE R907REC        FROM F907-REC.                             CL*52
01855                                                                      CL196
01856      GO TO S946-EXIT.                                                CL196
01857                                                                      CL196
01858                                                                      CL196
01859 **************************************************************       CL175
01860 *  WRITE VALID DAILY PAYMENT TRANSACTION (DPT) RECORD        *       CL175
01861 **************************************************************       CL175
01862                                                                      CL175
01863  S946-WRITE-FDPT.                                                    CL131
01864      ADD +1 TO WRK-FDPT-REC-CNT.                                     CL131
01865      MOVE LENGTH OF FDPT-REC TO FDPT-LENGTH.                         CL*36
01866      MOVE FDPT-PAYMENT-TRACE-NO      TO EFT-SORT-TRACE-NO.           CL*36
01867                                                                      CL*36
01868      IF FDPT-BALANCE-DUE-88                                          CL*36
01869         MOVE +02                TO EFT-SORT-TRAN                     CL*36
01870      ELSE                                                            CL*36
01871         MOVE +04                TO EFT-SORT-TRAN.                    CL*36
01872      MOVE FDPT-REC TO EFT-TRANS-REC.                                 CL*36
01873      WRITE EFT-TRANS-OUT.                                            CL*36
01874      GO TO S946-EXIT.                                                CL*36
01875                                                                      CL*36
01876                                                                      CL111
01877 **************************************************************       CL175
01878 *  WRITE VALID DAILY ENROLL  TRANSACTION (ENR) RECORD        *       CL230
01879 **************************************************************       CL175
01880                                                                      CL175
01881  S946-WRITE-FENR.                                                    CL131
01882                                                                      CL131
01883      ADD +1 TO WRK-FENR-REC-CNT.                                     CL131
01884 *    MOVE LENGTH OF FENR-REC TO FENR-LENGTH.                         CL*90
01885      MOVE FENR-EMP-NO        TO EFT-SORT-TRACE-NO.                   CL*58
01886      MOVE +00                TO EFT-SORT-TRAN.                       CL*36
01887      MOVE FENR-REC TO EFT-TRANS-REC.                                 CL*36
01888      WRITE EFT-TRANS-OUT.                                            CL*36
01889      GO TO S946-EXIT.                                                CL*36
01890                                                                      CL*36
01891                                                                      CL240
01892 **************************************************************       CL240
01893 *  WRITE VALID DAILY STATUE  TRANSACTION (EST) RECORD        *       CL240
01894 **************************************************************       CL240
01895                                                                      CL240
01896  S946-WRITE-FEST.                                                    CL240
01897                                                                      CL240
01898      ADD +1 TO WRK-FEST-REC-CNT.                                     CL240
01899      MOVE LENGTH OF FEST-REC TO FEST-LENGTH.                         CL*36
01900      MOVE FEST-TRACE-NO      TO EFT-SORT-TRACE-NO.                   CL*36
01901      MOVE +01                TO EFT-SORT-TRAN.                       CL*36
01902      MOVE FEST-REC TO EFT-TRANS-REC.                                 CL*36
01903      WRITE EFT-TRANS-OUT.                                            CL*36
01904      GO TO S946-EXIT.                                                CL*36
01905                                                                      CL*36
01906                                                                      CL249
01907  S946-WRITE-FQTF.                                                    CL249
01908      ADD +1 TO WRK-FQTF-REC-CNT.                                     CL249
01909      MOVE LENGTH OF FQTF-REC TO FQTF-LENGTH.                         CL*36
01910      MOVE FQTF-TRACE-NO      TO EFT-SORT-TRACE-NO.                   CL*36
01911      MOVE +03                TO EFT-SORT-TRAN.                       CL*36
01912      MOVE FQTF-REC TO EFT-TRANS-REC.                                 CL*36
01913      WRITE EFT-TRANS-OUT.                                            CL*36
01914      GO TO S946-EXIT.                                                CL*36
01915                                                                      CL*36
01916                                                                      CL249
01917  S946-WRITE-FCQW.                                                    CL249
01918      DISPLAY ' WRITING FCQW REC'.                                    CL103
01919      ADD +1 TO WRK-FCQW-REC-CNT.                                     CL249
01920      MOVE LENGTH OF FCQW-REC TO FCQW-LENGTH.                         CL*36
01921      MOVE FCQW-EMPL-TRACE-NO TO EFT-SORT-TRACE-NO.                   CL*38
01922      MOVE +05                TO EFT-SORT-TRAN.                       CL*36
01923      MOVE FCQW-REC TO EFT-TRANS-REC.                                 CL*36
01924      WRITE EFT-TRANS-OUT.                                            CL*36
01925      GO TO S946-EXIT.                                                CL249
01926                                                                      CL240
01927  S946-EXIT.                                                          CL157
01928      EXIT.                                                           CL*80
01929                                                                      CL*80
01930  S999-ABEND.                                                      EFTBI100
01931      DISPLAY '*** EFTBD100 ABENDING : '                              CL104
01932              WRK-ABEND-MSG.                                          CL*83
01933                                                                   EFTBI100
01934      CALL 'DTSBU999' USING WRK-ABEND-CD.                          EFTBI100
01935  S999-EXIT.                                                       EFTBI100
01936      EXIT.                                                        EFTBI100
