00001  IDENTIFICATION DIVISION.                                         08/16/18
00002  PROGRAM-ID.    DTSBX630.                                         DTSBX630
00003                                                                      LV025
00004 ******************************************************************DTSBX630
00005 *                                                                *DTSBX630
00006 *    FUNCTION:                                                   *DTSBX630
00007 *                                                                *DTSBX630
00008 *    PROGRAM WILL READ ALL ESSP INPUT FILES DO DUTAS AND COUNT   *   CL**1
00009 *    RECORDS SENT VIA FTP VERSUS TOTALS SENT IN X999 FILE.  .        CL**1
00010 *    07/07/18                                              ZL1   *   CL254
00011 *                                                                *   CL*53
00012 ******************************************************************DTSBX630
00013                                                                   DTSBX630
00014  ENVIRONMENT    DIVISION.                                         DTSBX630
00015                                                                   DTSBX630
00016  CONFIGURATION  SECTION.                                          DTSBX630
00017                                                                   DTSBX630
00018  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBX630
00019                                                                   DTSBX630
00020  INPUT-OUTPUT   SECTION.                                          DTSBX630
00021                                                                   DTSBX630
00022  FILE-CONTROL.                                                    DTSBX630
00023                                                                   DTSBX630
00024      SELECT X102REG-IN   ASSIGN TO  DTSFX102.                        CL**1
00025      SELECT X104REG-IN   ASSIGN TO  DTSFX104.                        CL**1
00026      SELECT X106REG-IN   ASSIGN TO  DTSFX106.                        CL**1
00027      SELECT X106AREG-IN  ASSIGN TO  DTSFA106.                        CL**1
00028      SELECT X108REG-IN   ASSIGN TO  DTSFX108.                        CL**1
00029      SELECT X110REG-IN   ASSIGN TO  DTSFX110.                        CL**1
00030      SELECT X110AREG-IN  ASSIGN TO  DTSFA110.                        CL**1
00031      SELECT X120REG-IN   ASSIGN TO  DTSFX120.                        CL**1
00032      SELECT X120AREG-IN  ASSIGN TO  DTSFA120.                        CL**1
00033      SELECT X140RPT-IN   ASSIGN TO  DTSFX140.                        CL**1
00034      SELECT X144WGE-IN   ASSIGN TO  DTSFX144.                        CL**1
00035      SELECT X145PAY-IN   ASSIGN TO  DTSFX145.                        CL**1
00036      SELECT X147SSN-IN   ASSIGN TO  DTSFX147.                        CL**1
00037      SELECT X998ACH-IN   ASSIGN TO  DTSFX998.                        CL**8
00038      SELECT X999ESSP-IN   ASSIGN TO  DTSFX999.                       CL**8
00039      SELECT REPORT-FILE ASSIGN TO  RPT630R1.                         CL**1
00040                                                                   DTSBX630
00041                                                                   DTSBX630
00042  DATA DIVISION.                                                   DTSBX630
00043  FILE SECTION.                                                    DTSBX630
00044                                                                      CL101
00045  FD  X102REG-IN                                                      CL**1
00046      RECORDING MODE IS F.                                            CL101
00047  01  X102-REC                  PIC X(512).                           CL**1
00048                                                                      CL138
00049  FD  X104REG-IN                                                      CL**1
00050      RECORDING MODE IS F.                                            CL**1
00051  01  X104-REC                  PIC X(512).                           CL**1
00052                                                                      CL**1
00053  FD  X106REG-IN                                                      CL**1
00054      RECORDING MODE IS F.                                            CL**1
00055  01  X106-REC                  PIC X(512).                           CL**1
00056                                                                      CL**1
00057  FD  X106AREG-IN                                                     CL**1
00058      RECORDING MODE IS F.                                            CL**1
00059  01  X106-AREC                 PIC X(512).                           CL**1
00060                                                                      CL123
00061  FD  X108REG-IN                                                      CL**1
00062      RECORDING MODE IS F.                                            CL**1
00063  01  X108-REC                  PIC X(512).                           CL**1
00064                                                                      CL**1
00065  FD  X110REG-IN                                                      CL**1
00066      RECORDING MODE IS F.                                            CL**1
00067  01  X110-REC                  PIC X(512).                           CL**1
00068                                                                      CL**1
00069  FD  X110AREG-IN                                                     CL**1
00070      RECORDING MODE IS F.                                            CL**1
00071  01  X110-AREC                 PIC X(512).                           CL**1
00072                                                                      CL**1
00073  FD  X120REG-IN                                                      CL**1
00074      RECORDING MODE IS F.                                            CL**1
00075  01  X120-REC                  PIC X(512).                           CL**1
00076                                                                      CL**1
00077  FD  X120AREG-IN                                                     CL**1
00078      RECORDING MODE IS F.                                            CL**1
00079  01  X120-AREC                 PIC X(512).                           CL**1
00080                                                                      CL**1
00081  FD  X140RPT-IN                                                      CL**1
00082      RECORDING MODE IS F.                                            CL**1
00083  01  X140-REC                  PIC X(512).                           CL**1
00084                                                                      CL**1
00085  FD  X144WGE-IN                                                      CL**1
00086      RECORDING MODE IS F.                                            CL**1
00087  01  X144-REC                  PIC X(512).                           CL**1
00088                                                                      CL**1
00089  FD  X145PAY-IN                                                      CL**1
00090      RECORDING MODE IS F.                                            CL**1
00091  01  X145-REC                 PIC X(512).                            CL**1
00092                                                                      CL**1
00093  FD  X147SSN-IN                                                      CL**1
00094      RECORDING MODE IS F.                                            CL**1
00095  01  X147-REC                 PIC X(512).                            CL**1
00096                                                                      CL**1
00097  FD  X999ESSP-IN                                                     CL**5
00098      RECORDING MODE IS F.                                            CL**1
00099  01  X999-REC.                                                       CL**1
00100      05  X999-NAME             PIC X(4).                             CL**1
00101      05  FILLER                PIC X(1).                             CL**1
00102      05  X999-TYPE             PIC 9(1).                             CL**7
00103      05  FILLER                PIC X(1).                             CL**7
00104      05  X999-CNT              PIC 9(6).                             CL**7
00105      05  FILLER                PIC X(67).                            CL**7
00106                                                                      CL**8
00107  FD  X998ACH-IN                                                      CL**8
00108      RECORDING MODE IS F.                                            CL**8
00109  01  X998-REC.                                                       CL**8
00110      05  X998-TYPE             PIC 9(1).                             CL**8
00111      05  FILLER                PIC X(511).                           CL**8
00112                                                                      CL**1
00113  FD  REPORT-FILE                                                  DTSBX630
00114      RECORDING MODE     IS  F                                     DTSBX630
00115      RECORD    CONTAINS 133 CHARACTERS                            DTSBX630
00116      BLOCK     CONTAINS 0   RECORDS                               DTSBX630
00117      LABEL     RECORDS  ARE OMITTED                               DTSBX630
00118      DATA      RECORD   IS  PRINT-RECORD.                         DTSBX630
00119                                                                   DTSBX630
00120  01  PRINT-RECORD                         PIC X(133).             DTSBX630
00121                                                                   DTSBX630
00122 ******************************************************************DTSBX630
00123 *                    WORKING STORAGE SECTION                     *DTSBX630
00124 ******************************************************************DTSBX630
00125  WORKING-STORAGE SECTION.                                         DTSBX630
001255 77  PAN-VALET PICTURE X(24) VALUE '025DTSBX630  08/16/18'.       DTSBX630
00126                                                                   DTSBX630
00127  01  ENDOFSEG                          PIC  9    VALUE ZEROES.    DTSBX630
00128                                                                   DTSBX630
00129  01  EMPLOYER-FOUND-IND                PIC  X    VALUE SPACE.        CL*87
00130                                                                   DTSBX630
00131  01  MASTER-END-IND                    PIC  X    VALUE SPACE.     DTSBX630
00132      88 MASTER-END                               VALUE 'Y'.       DTSBX630
00133                                                                   DTSBX630
00134                                                                      CL*70
00135  01  WRK-AREA.                                                       CL*79
00136       05  WRK-ABEND-CODE              PIC  X(04)  VALUE 'X552'.      CL*91
00137       05  WS-ABEND-JOB                PIC  9(01)  VALUE ZEROS.       CL**6
00138                                                                      CL*70
00139  01  WRK-SEG01-SSN-FOUND           PIC  9(01) VALUE ZEROES.          CL147
00140  01  WS-X144-NOT-RETURNED          PIC  9(05) VALUE ZEROES.          CL243
00141  01  WS-X144-SSN-FOUND             PIC  9(01) VALUE ZEROES.          CL243
00142  01  WS-CLAIM-SSN-FOUND            PIC  9(01) VALUE ZEROES.          CL182
00143  01  WS-X140-RPT-FOUND             PIC  9(01) VALUE ZEROES.          CL138
00144  01  WS-X147-SSN-NOT-DOCS          PIC  9(05) VALUE ZEROES.          CL168
00145  01  WS-X147-SSN-N99-DOCS          PIC  9(05) VALUE ZEROES.          CL211
00146  01  WS-X147-SSN-IN-DOCS           PIC  9(05) VALUE ZEROES.          CL168
00147  01  SSN-HIT-COUNT                 PIC  9(03) VALUE ZEROES.          CL106
00148  01  WS-HOLD-X147-SSN              PIC  9(09) VALUE ZEROES.          CL*91
00149  01  WS-TOTAL-NO-X144-SSN          PIC  9(05) VALUE ZEROES.          CL108
00150  01  WS-TOTAL-YES-X144-SSN          PIC  9(05) VALUE ZEROES.         CL113
00151  01  WS-TOTAL-OTH-X144-SSN          PIC  9(05) VALUE ZEROES.         CL113
00152  01  WS-HOLD-X147-EMP-NO           PIC  9(06) VALUE ZEROES.          CL*91
00153  01  WS-SAV-X147                   PIC  9(01) VALUE ZEROES.          CL129
00154  01  WRK-MODULE-NAME               PIC  X(08) VALUE 'DTSBX551'.      CL138
00155  01  WRK-ABEND-CD                  PIC  X(04) VALUE 'X551'.          CL138
00156  01  WRK-ABEND-MSG                 PIC  X(60).                       CL*62
00157                                                                   DTSBX630
00158  01  WS-HOLD-PAY-DATE.                                            DTSBX630
00159      05  WS-HOLD-PAY-DATE-CEN          PIC  9(02) VALUE ZEROS.    DTSBX630
00160      05  WS-HOLD-PAY-DATE-YY           PIC  9(02) VALUE ZEROES.   DTSBX630
00161      05  WS-HOLD-PAY-DATE-MM           PIC  9(02) VALUE ZEROES.   DTSBX630
00162      05  WS-HOLD-PAY-DATE-DD           PIC  9(02) VALUE ZEROES.   DTSBX630
00163                                                                   DTSBX630
00164  01  WS-X147-SSN                       PIC  9(09) VALUE ZEROS.       CL106
00165  01  WS-X147-EMP-NO                    PIC  9(06) VALUE ZEROS.       CL104
00166  01  WS-X147-QUARTER.                                                CL150
00167      05 WS-X147-YR                     PIC  9(04) VALUE ZEROS.       CL152
00168      05 WS-X147-QTR                    PIC  9(01) VALUE ZEROS.       CL150
00169                                                                      CL*34
00170  01  WS-X140-QUARTER.                                                CL240
00171      05 WS-X140-YR                     PIC  9(04) VALUE ZEROS.       CL240
00172      05 WS-X140-QTR                    PIC  9(01) VALUE ZEROS.       CL240
00173                                                                      CL240
00174  01  WS-HOLD-DATE.                                                   CL*25
00175      05  WS-HOLD-DATE-CEN          PIC  9(02) VALUE ZEROS.           CL*26
00176      05  WS-HOLD-DATE-YY           PIC  9(02) VALUE ZEROES.          CL*26
00177      05  WS-HOLD-DATE-MM           PIC  9(02) VALUE ZEROES.          CL*26
00178      05  WS-HOLD-DATE-DD           PIC  9(02) VALUE ZEROES.          CL*26
00179                                                                   DTSBX630
00180                                                                      CL*86
00181  01  WS-COUNTERS.                                                 DTSBX630
00182      05  LINE-COUNT                    PIC  9(03) VALUE 99.       DTSBX630
00183      05  PAGE-COUNT                    PIC  9(03) VALUE ZEROES.   DTSBX630
00184      05  TRANS-READ-COUNT              PIC  9(06) VALUE ZEROES.   DTSBX630
00185      05  MASTER-READ-COUNT             PIC  9(06) VALUE ZEROES.   DTSBX630
00186      05  WS-TOTAL-READ                 PIC  9(05) VALUE ZEROES.      CL*93
00187      05  WS-TOTAL-NDEL                 PIC  9(05) VALUE ZEROES.      CL*93
00188      05  WS-TOTAL-DELQ                 PIC  9(05) VALUE ZEROES.      CL*93
00189      05  WS-TOTAL-X102-CNT             PIC  9(06) VALUE ZEROES.      CL**6
00190      05  WS-TOTAL-X104-CNT             PIC  9(06) VALUE ZEROES.      CL**6
00191      05  WS-TOTAL-X106-CNT             PIC  9(06) VALUE ZEROES.      CL**6
00192      05  WS-TOTAL-X106A-CNT            PIC  9(06) VALUE ZEROES.      CL**6
00193      05  WS-TOTAL-X108-CNT             PIC  9(06) VALUE ZEROES.      CL**6
00194      05  WS-TOTAL-X110-CNT             PIC  9(06) VALUE ZEROES.      CL**6
00195      05  WS-TOTAL-X110A-CNT            PIC  9(06) VALUE ZEROES.      CL**6
00196      05  WS-TOTAL-X120-CNT             PIC  9(06) VALUE ZEROES.      CL**6
00197      05  WS-TOTAL-X120A-CNT            PIC  9(06) VALUE ZEROES.      CL**6
00198      05  WS-TOTAL-X140-CNT             PIC  9(06) VALUE ZEROES.      CL**6
00199      05  WS-TOTAL-X144-CNT             PIC  9(06) VALUE ZEROES.      CL**6
00200      05  WS-TOTAL-X145-CNT             PIC  9(06) VALUE ZEROES.      CL**6
00201      05  WS-TOTAL-X147-CNT             PIC  9(06) VALUE ZEROES.      CL**6
00202      05  WS-TOTAL-X998-CNT             PIC  9(06) VALUE ZEROES.      CL**8
00203      05  WS-TOTAL-X999-CNT             PIC  9(06) VALUE ZEROES.      CL**9
00204                                                                      CL**4
00205      05  WS-READ-X102                 PIC  9(06) VALUE ZEROES.       CL**4
00206      05  WS-READ-X104                 PIC  9(06) VALUE ZEROES.       CL**4
00207      05  WS-READ-X106                 PIC  9(06) VALUE ZEROES.       CL**4
00208      05  WS-READ-X106A                PIC  9(06) VALUE ZEROES.       CL**4
00209      05  WS-READ-X108                 PIC  9(06) VALUE ZEROES.       CL**4
00210      05  WS-READ-X110                 PIC  9(06) VALUE ZEROES.       CL**4
00211      05  WS-READ-X110A                PIC  9(06) VALUE ZEROES.       CL**4
00212      05  WS-READ-X120                 PIC  9(06) VALUE ZEROES.       CL**4
00213      05  WS-READ-X120A                PIC  9(06) VALUE ZEROES.       CL**4
00214      05  WS-READ-X140                 PIC  9(06) VALUE ZEROES.       CL**4
00215      05  WS-READ-X144                 PIC  9(06) VALUE ZEROES.       CL**4
00216      05  WS-READ-X145                 PIC  9(06) VALUE ZEROES.       CL**4
00217      05  WS-READ-X147                 PIC  9(06) VALUE ZEROES.       CL**4
00218      05  WS-READ-X998                 PIC  9(06) VALUE ZEROES.       CL**8
00219                                                                   DTSBX630
00220  01  WS-OUTPUT.                                                   DTSBX630
00221      03  FILLER                        PIC X(03) VALUE SPACES.       CL*20
00222      03  WS-OUT-EMP-NO                 PIC 9(06).                    CL*92
00223      03  FILLER                        PIC X(04) VALUE SPACES.       CL243
00224      03  WS-OUT-NAME                   PIC X(04).                    CL243
00225      03  FILLER                        PIC X(04) VALUE SPACES.       CL243
00226      03  WS-OUT-QUARTER                PIC X(06).                    CL*92
00227      03  FILLER                        PIC X(04) VALUE SPACES.       CL129
00228      03  WS-OUT-MESSAGE                PIC X(40).                    CL137
00229                                                                      CL*25
00230                                                                      CL*11
00231  01  WS-TOTAL-LINE1.                                                 CL*92
00232      03 FIL              PIC X(2) VALUE SPACES.                      CL249
00233      03 FIL              PIC X(23) VALUE                             CL*19
00234         'X102-PROFILE........:  '.                                   CL*19
00235      03 WS-TOTAL-X102-ZCNT  PIC ZZZZZ9.                              CL*12
00236      03 FIL              PIC X(3) VALUE SPACES.                      CL*16
00237      03 FIL              PIC X(02) VALUE                             CL*19
00238         'º '.                                                        CL*15
00239      03 WS-READ-Z102   PIC ZZZZZ9.                                   CL*12
00240      03  FIL             PIC X(05) VALUE SPACES.                     CL*21
00241      03  Z102-MSG        PIC X(45) VALUE SPACES.                     CL*21
00242                                                                      CL*12
00243  01  WS-TOTAL-LINE2.                                                 CL*12
00244      03 FIL              PIC X(2) VALUE SPACES.                      CL*12
00245      03 FIL              PIC X(23) VALUE                             CL*19
00246         'X104-DETERMINATION..:  '.                                   CL*19
00247      03 WS-TOTAL-X104-ZCNT  PIC ZZZZZ9.                              CL*12
00248      03 FIL              PIC X(3) VALUE SPACES.                      CL*18
00249      03 FIL              PIC X(02) VALUE                             CL*15
00250         'º '.                                                        CL*15
00251      03 WS-READ-Z104   PIC ZZZZZ9.                                   CL*12
00252      03  FIL             PIC X(05) VALUE SPACES.                     CL*21
00253      03  Z104-MSG        PIC X(45) VALUE SPACES.                     CL*21
00254  01  WS-TOTAL-LINE3.                                                 CL*12
00255      03 FIL              PIC X(2) VALUE SPACES.                      CL*12
00256      03 FIL              PIC X(23) VALUE                             CL*19
00257         'X106-EMPL NAME......:  '.                                   CL*19
00258      03 WS-TOTAL-X106-ZCNT  PIC ZZZZZ9.                              CL*12
00259      03 FIL              PIC X(3) VALUE SPACES.                      CL*18
00260      03 FIL              PIC X(02) VALUE                             CL*15
00261         'º '.                                                        CL*15
00262      03 WS-READ-Z106   PIC ZZZZZ9.                                   CL*12
00263      03  FIL             PIC X(05) VALUE SPACES.                     CL*21
00264      03  Z106-MSG        PIC X(45) VALUE SPACES.                     CL*21
00265  01  WS-TOTAL-LINE4.                                                 CL*12
00266      03 FIL              PIC X(2) VALUE SPACES.                      CL*12
00267      03 FIL              PIC X(23) VALUE                             CL*19
00268         'X106-EMPL NAME UPD..:  '.                                   CL*19
00269      03 WS-TOTAL-X106A-ZCNT  PIC ZZZZZ9.                             CL*12
00270      03 FIL              PIC X(3) VALUE SPACES.                      CL*18
00271      03 FIL              PIC X(02) VALUE                             CL*15
00272         'º '.                                                        CL*15
00273      03 WS-READ-Z106A   PIC ZZZZZ9.                                  CL*12
00274      03  FIL             PIC X(05) VALUE SPACES.                     CL*21
00275      03  Z106A-MSG       PIC X(45) VALUE SPACES.                     CL*21
00276  01  WS-TOTAL-LINE5.                                                 CL*13
00277      03 FIL              PIC X(2) VALUE SPACES.                      CL*13
00278      03 FIL              PIC X(23) VALUE                             CL*19
00279         'X108-RATES..........:  '.                                   CL*19
00280      03 WS-TOTAL-X108-ZCNT  PIC ZZZZZ9.                              CL*13
00281      03 FIL              PIC X(3) VALUE SPACES.                      CL*18
00282      03 FIL              PIC X(02) VALUE                             CL*15
00283         'º '.                                                        CL*15
00284      03 WS-READ-Z108   PIC ZZZZZ9.                                   CL*13
00285      03  FIL             PIC X(05) VALUE SPACES.                     CL*21
00286      03  Z108-MSG       PIC X(45) VALUE SPACES.                      CL*21
00287  01  WS-TOTAL-LINE6.                                                 CL*13
00288      03 FIL              PIC X(2) VALUE SPACES.                      CL*13
00289      03 FIL              PIC X(23) VALUE                             CL*19
00290         'X110-ADDRESS........:  '.                                   CL*19
00291      03 WS-TOTAL-X110-ZCNT  PIC ZZZZZ9.                              CL*13
00292      03 FIL              PIC X(3) VALUE SPACES.                      CL*18
00293      03 FIL              PIC X(02) VALUE                             CL*15
00294         'º '.                                                        CL*15
00295      03 WS-READ-Z110   PIC ZZZZZ9.                                   CL*13
00296      03  FIL             PIC X(05) VALUE SPACES.                     CL*21
00297      03  Z110-MSG       PIC X(45) VALUE SPACES.                      CL*21
00298  01  WS-TOTAL-LINE7.                                                 CL*13
00299      03 FIL              PIC X(2) VALUE SPACES.                      CL*13
00300      03 FIL              PIC X(23) VALUE                             CL*19
00301         'X110-ADDRESS UPD....:  '.                                   CL*19
00302      03 WS-TOTAL-X110A-ZCNT  PIC ZZZZZ9.                             CL*13
00303      03 FIL              PIC X(3) VALUE SPACES.                      CL*18
00304      03 FIL              PIC X(02) VALUE                             CL*15
00305         'º '.                                                        CL*15
00306      03 WS-READ-Z110A   PIC ZZZZZ9.                                  CL*13
00307      03  FIL             PIC X(05) VALUE SPACES.                     CL*21
00308      03  Z110A-MSG       PIC X(45) VALUE SPACES.                     CL*21
00309  01  WS-TOTAL-LINE8.                                                 CL*13
00310      03 FIL              PIC X(2) VALUE SPACES.                      CL*13
00311      03 FIL              PIC X(23) VALUE                             CL*19
00312         'X120-OPO ADDRESS....:  '.                                   CL*19
00313      03 WS-TOTAL-X120-ZCNT  PIC ZZZZZ9.                              CL*13
00314      03 FIL              PIC X(3) VALUE SPACES.                      CL*18
00315      03 FIL              PIC X(02) VALUE                             CL*15
00316         'º '.                                                        CL*15
00317      03 WS-READ-Z120   PIC ZZZZZ9.                                   CL*13
00318      03  FIL             PIC X(05) VALUE SPACES.                     CL*21
00319      03  Z120-MSG       PIC X(45) VALUE SPACES.                      CL*21
00320  01  WS-TOTAL-LINE9.                                                 CL*13
00321      03 FIL              PIC X(2) VALUE SPACES.                      CL*13
00322      03 FIL              PIC X(23) VALUE                             CL*19
00323         'X120-OPO ADDR UPD...:  '.                                   CL*19
00324      03 WS-TOTAL-X120A-ZCNT  PIC ZZZZZ9.                             CL*13
00325      03 FIL              PIC X(3) VALUE SPACES.                      CL*18
00326      03 FIL              PIC X(02) VALUE                             CL*15
00327         'º '.                                                        CL*15
00328      03 WS-READ-Z120A   PIC ZZZZZ9.                                  CL*13
00329      03  FIL             PIC X(05) VALUE SPACES.                     CL*21
00330      03  Z120A-MSG       PIC X(45) VALUE SPACES.                     CL*21
00331  01  WS-TOTAL-LINE10.                                                CL*13
00332      03 FIL              PIC X(2) VALUE SPACES.                      CL*13
00333      03 FIL              PIC X(23) VALUE                             CL*19
00334         'X140-REPORTS........:  '.                                   CL*19
00335      03 WS-TOTAL-X140-ZCNT  PIC ZZZZZ9.                              CL*13
00336      03 FIL              PIC X(3) VALUE SPACES.                      CL*18
00337      03 FIL              PIC X(02) VALUE                             CL*15
00338         'º '.                                                        CL*15
00339      03 WS-READ-Z140   PIC ZZZZZ9.                                   CL*13
00340      03  FIL             PIC X(05) VALUE SPACES.                     CL*21
00341      03  Z140-MSG       PIC X(45) VALUE SPACES.                      CL*21
00342  01  WS-TOTAL-LINE11.                                                CL*13
00343      03 FIL              PIC X(2) VALUE SPACES.                      CL*13
00344      03 FIL              PIC X(23) VALUE                             CL*19
00345         'X144-WAGES..........:  '.                                   CL*19
00346      03 WS-TOTAL-X144-ZCNT  PIC ZZZZZ9.                              CL*13
00347      03 FIL              PIC X(3) VALUE SPACES.                      CL*18
00348      03 FIL              PIC X(02) VALUE                             CL*15
00349         'º '.                                                        CL*15
00350      03 WS-READ-Z144   PIC ZZZZZ9.                                   CL*13
00351      03  FIL             PIC X(05) VALUE SPACES.                     CL*21
00352      03  Z144-MSG       PIC X(45) VALUE SPACES.                      CL*21
00353  01  WS-TOTAL-LINE12.                                                CL*13
00354      03 FIL              PIC X(2) VALUE SPACES.                      CL*13
00355      03 FIL              PIC X(23) VALUE                             CL*19
00356         'X145-PAYMENTS.......:  '.                                   CL*25
00357      03 WS-TOTAL-X145-ZCNT  PIC ZZZZZ9.                              CL*13
00358      03  FIL             PIC X(03) VALUE SPACES.                     CL*18
00359      03 FIL              PIC X(02) VALUE                             CL*15
00360         'º '.                                                        CL*15
00361      03 WS-READ-Z145   PIC ZZZZZ9.                                   CL*13
00362      03  FIL             PIC X(05) VALUE SPACES.                     CL*21
00363      03  Z145-MSG       PIC X(45) VALUE SPACES.                      CL*21
00364  01  WS-TOTAL-LINE13.                                                CL*13
00365      03 FIL              PIC X(2) VALUE SPACES.                      CL*13
00366      03 FIL              PIC X(23) VALUE                             CL*19
00367         'X147-SSN DELETIONS..:  '.                                   CL*19
00368      03 WS-TOTAL-X147-ZCNT  PIC ZZZZZ9.                              CL*13
00369      03  FIL             PIC X(03) VALUE SPACES.                     CL*18
00370      03 FIL              PIC X(02) VALUE                             CL*15
00371         'º '.                                                        CL*15
00372      03 WS-READ-Z147   PIC ZZZZZ9.                                   CL*13
00373      03  FIL             PIC X(05) VALUE SPACES.                     CL*21
00374      03  Z147-MSG       PIC X(45) VALUE SPACES.                      CL*21
00375  01  WS-TOTAL-LINE14.                                                CL*13
00376      03 FIL              PIC X(2) VALUE SPACES.                      CL*13
00377      03 FIL              PIC X(23) VALUE                             CL*19
00378         'X998-ACH DEPOSITS...:  '.                                   CL*19
00379      03 WS-TOTAL-X998-ZCNT  PIC ZZZZZ9.                              CL*13
00380      03  FIL             PIC X(03) VALUE SPACES.                     CL*18
00381      03 FIL              PIC X(02) VALUE                             CL*15
00382         'º '.                                                        CL*19
00383      03 WS-READ-Z998   PIC ZZZZZ9.                                   CL*13
00384      03  FIL             PIC X(05) VALUE SPACES.                     CL*21
00385      03  Z998-MSG       PIC X(45) VALUE SPACES.                      CL*21
00386  01  WS-TOTAL-LINE45.                                                CL*21
00387      03 FIL              PIC X(5) VALUE SPACES.                      CL*21
00388      03 FIL              PIC X(53) VALUE                             CL*21
00389         '****** ESSP FILES TRANSFER TO DUTAS SUCESSFULL ******'.     CL*21
00390      03 FIL              PIC X(43) VALUE                             CL*21
00391         '                                           '.               CL*21
00392      03  FIL             PIC X(030) VALUE SPACES.                    CL*21
00393                                                                      CL*21
00394  01  WS-TOTAL-LINE46.                                                CL*21
00395      03 FIL              PIC X(5) VALUE SPACES.                      CL*21
00396      03 FIL              PIC X(55) VALUE                             CL*22
00397         '++++++ ESSP FILES TRANSFER TO DUTAS HAS ERRORS !!!!!!!Z'.   CL*21
00398      03 FIL              PIC X(43) VALUE                             CL*21
00399         '                                           '.               CL*21
00400      03  FIL             PIC X(030) VALUE SPACES.                    CL*21
00401                                                                      CL*21
00402                                                                      CL172
00403  01  WS-RUN-DATE.                                                 DTSBX630
00404      03  RUN-YR          PIC 99.                                     CL*54
00405      03  RUN-MO          PIC 99.                                     CL*54
00406      03  RUN-DA          PIC 99.                                     CL*54
00407                                                                   DTSBX630
00408                                                                   DTSBX630
00409  01  HEADER1.                                                     DTSBX630
00410      03  FILLER                        PIC  X(05) VALUE SPACES.   DTSBX630
00411      03  FILLER                        PIC  X(31) VALUE           DTSBX630
00412          'DISTRICT OF COLUMBIA GOVERNMENT'.                       DTSBX630
00413      03  FILLER                        PIC  X(05) VALUE SPACES.      CL247
00414      03  REPORTING-DATE.                                             CL247
00415          05  RUN-MO1  PIC 99.                                        CL247
00416          05  FIL      PIC X VALUE '/'.                               CL247
00417          05  RUN-DA1  PIC 99.                                        CL247
00418          05  FIL      PIC X VALUE '/'.                               CL247
00419          05  RUN-CEN  PIC 99.                                        CL247
00420          05  RUN-YR1  PIC 99.                                        CL247
00421 *                                                                 DTSBX630
00422  01  HEADER2.                                                     DTSBX630
00423      03  FILLER                        PIC  X(04) VALUE SPACES.      CL247
00424      03  FILLER                        PIC  X(33) VALUE           DTSBX630
00425          'DEPARTMENT OF EMPLOYMENT SERVICES'.                     DTSBX630
00426      03  FILLER                        PIC  X(30) VALUE SPACES.      CL*99
00427 *    03  FILLER                        PIC  X(10) VALUE              CL249
00428 *        'PAGE NO.  '.                                               CL249
00429 *    03  HD-PAGE                       PIC  9(03).                   CL249
00430      03  FILLER                        PIC  X(07) VALUE SPACES.   DTSBX630
00431                                                                   DTSBX630
00432  01  HEADER3.                                                     DTSBX630
00433      03  FILLER                        PIC  X(02) VALUE SPACES.      CL249
00434      03  FILLER                        PIC  X(50) VALUE              CL220
00435          'ESSP DAILY FILE/RECORD COUNTS SENT TO DUTAS'.              CL*12
00436      03  FILLER                        PIC  X(30) VALUE SPACES.      CL201
00437                                                                   DTSBX630
00438  01  COLUMN-HD1.                                                     CL*44
00439      03  FILLER                   PIC X(02) VALUE SPACES.            CL*16
00440      03  FILLER                   PIC X(50) VALUE                    CL*24
00441      '+----- ESSP (SENT) ------------+º+--DUTAS (RECV)-+'.           CL*23
00442      03  FILLER                   PIC X(35) VALUE                    CL*23
00443      '----FILE TRANSFER MESSAGES----+'.                              CL*24
00444                                                                      CL*15
00445  ++INCLUDE WSDATES                                                DTSBX630
00446  01 L001-LINK-AREA.                                                  CL*61
00447  ++INCLUDE DTSIL001                                                  CL*60
00448  01 ESSP-FILE-IN.                                                    CL**4
00449     05  ESSP-NAME              PIC X(03).                            CL*10
00450     05  FILLER                 PIC X(509).                           CL*10
00451                                                                      CL**4
00452 ******************************************************************DTSBX630
00453 *                        PROCEDURE DIVISION                      *DTSBX630
00454 ******************************************************************DTSBX630
00455                                                                   DTSBX630
00456  PROCEDURE DIVISION.                                              DTSBX630
00457                                                                   DTSBX630
00458  MAIN0100-CONTROL.                                                DTSBX630
00459                                                                   DTSBX630
00460      OPEN INPUT X999ESSP-IN                                          CL**2
00461                 X998ACH-IN                                           CL**8
00462                 X102REG-IN                                           CL**2
00463                 X104REG-IN                                           CL**2
00464                 X106REG-IN                                           CL**2
00465                 X106AREG-IN                                          CL**2
00466                 X108REG-IN                                           CL**2
00467                 X110REG-IN                                           CL**2
00468                 X110AREG-IN                                          CL**2
00469                 X120REG-IN                                           CL**2
00470                 X120AREG-IN                                          CL**2
00471                 X140RPT-IN                                           CL**2
00472                 X144WGE-IN                                           CL**2
00473                 X145PAY-IN                                           CL**2
00474                 X147SSN-IN.                                          CL**2
00475                                                                      CL**2
00476      OPEN OUTPUT REPORT-FILE.                                        CL*87
00477  ++INCLUDE CODEDATE                                               DTSBX630
00478      MOVE ZEROS TO WS-RUN-DATE.                                   DTSBX630
00479      MOVE WS-SYSTEM-DATE TO WS-RUN-DATE.                          DTSBX630
00480      MOVE RUN-DA TO RUN-DA1.                                      DTSBX630
00481      MOVE RUN-MO TO RUN-MO1.                                      DTSBX630
00482      MOVE 20 TO RUN-CEN.                                          DTSBX630
00483      MOVE RUN-YR TO RUN-YR1.                                      DTSBX630
00484                                                                   DTSBX630
00485      ADD 1           TO PAGE-COUNT                                   CL*98
00486 *    MOVE PAGE-COUNT TO HD-PAGE                                      CL249
00487      WRITE PRINT-RECORD FROM HEADER1 AFTER ADVANCING                 CL*98
00488      TOP-OF-PAGE                                                     CL*98
00489      WRITE PRINT-RECORD FROM HEADER2 AFTER ADVANCING 1               CL*98
00490      WRITE PRINT-RECORD FROM HEADER3 AFTER ADVANCING 1               CL*98
00491      MOVE SPACES  TO PRINT-RECORD                                    CL*98
00492      WRITE PRINT-RECORD AFTER ADVANCING 1                            CL*98
00493      WRITE PRINT-RECORD FROM COLUMN-HD1 AFTER 1.                     CL132
00494      MOVE ZEROES TO MASTER-READ-COUNT.                            DTSBX630
00495 ******************************************************************   CL*85
00496 *                 BENEFIT FILE PROCESS                           *   CL*85
00497 ******************************************************************   CL*85
00498  PROC1000-GET-UI-DATA.                                               CL*85
00499      DISPLAY ' '.                                                    CL*85
00500      DISPLAY '### ESSP DAILY FILE RECORD COUNTS TO DUTAS:'           CL**2
00501      DISPLAY ' '.                                                    CL241
00502                                                                   DTSBX630
00503      PERFORM PROC2000-UI-PROCESS THRU                             DTSBX630
00504              PROC2000-UI-EXIT.                                       CL**3
00505 *    UNTIL MASTER-END.                                               CL**3
00506                                                                   DTSBX630
00507      DISPLAY '++++++++++++++++++++++++++++++++++++++++++++++'.    DTSBX630
00508 *    MOVE MASTER-READ-COUNT     TO  WS-OUT-READ WS-OUT-READ1.        CL*13
00509 *    MOVE WS-TOTAL-NDEL         TO  WS-OUT-NDEL.                     CL*13
00510 *    MOVE WS-TOTAL-DELQ         TO  WS-OUT-DELQ.                     CL*13
00511      MOVE WS-READ-X102         TO  WS-READ-Z102.                     CL*13
00512      MOVE WS-READ-X104         TO  WS-READ-Z104.                     CL*13
00513      MOVE WS-READ-X106         TO  WS-READ-Z106.                     CL*13
00514      MOVE WS-READ-X106A        TO  WS-READ-Z106A.                    CL*13
00515      MOVE WS-READ-X108         TO  WS-READ-Z108.                     CL*13
00516      MOVE WS-READ-X110         TO  WS-READ-Z110.                     CL*13
00517      MOVE WS-READ-X110A        TO  WS-READ-Z110A                     CL*13
00518      MOVE WS-READ-X120         TO  WS-READ-Z120.                     CL*13
00519      MOVE WS-READ-X120A        TO  WS-READ-Z120A.                    CL*13
00520      MOVE WS-READ-X140         TO  WS-READ-Z140.                     CL*13
00521      MOVE WS-READ-X144         TO  WS-READ-Z144.                     CL*13
00522      MOVE WS-READ-X145         TO  WS-READ-Z145.                     CL*13
00523      MOVE WS-READ-X147         TO  WS-READ-Z147.                     CL*13
00524      MOVE WS-READ-X998         TO  WS-READ-Z998.                     CL*13
00525                                                                      CL*11
00526      MOVE WS-TOTAL-X102-CNT     TO  WS-TOTAL-X102-ZCNT               CL*14
00527      MOVE WS-TOTAL-X104-CNT     TO  WS-TOTAL-X104-ZCNT               CL*14
00528      MOVE WS-TOTAL-X106-CNT     TO  WS-TOTAL-X106-ZCNT               CL*14
00529      MOVE WS-TOTAL-X106A-CNT    TO  WS-TOTAL-X106A-ZCNT.             CL*14
00530      MOVE WS-TOTAL-X108-CNT     TO  WS-TOTAL-X108-ZCNT               CL*14
00531      MOVE WS-TOTAL-X110-CNT     TO  WS-TOTAL-X110-ZCNT               CL*14
00532      MOVE WS-TOTAL-X110A-CNT    TO  WS-TOTAL-X110A-ZCNT              CL*14
00533      MOVE WS-TOTAL-X120-CNT     TO  WS-TOTAL-X120-ZCNT               CL*14
00534      MOVE WS-TOTAL-X120A-CNT    TO  WS-TOTAL-X120A-ZCNT              CL*14
00535      MOVE WS-TOTAL-X140-CNT     TO  WS-TOTAL-X140-ZCNT               CL*14
00536      MOVE WS-TOTAL-X144-CNT     TO  WS-TOTAL-X144-ZCNT.              CL*14
00537      MOVE WS-TOTAL-X145-CNT     TO  WS-TOTAL-X145-ZCNT.              CL*14
00538      MOVE WS-TOTAL-X147-CNT     TO  WS-TOTAL-X147-ZCNT.              CL*14
00539      MOVE WS-TOTAL-X998-CNT     TO  WS-TOTAL-X998-ZCNT.              CL*14
00540                                                                      CL*13
00541      WRITE PRINT-RECORD FROM WS-TOTAL-LINE1 AFTER 2.                 CL*93
00542      WRITE PRINT-RECORD FROM WS-TOTAL-LINE2 AFTER 1.                 CL*13
00543      WRITE PRINT-RECORD FROM WS-TOTAL-LINE3 AFTER 1.                 CL*13
00544      WRITE PRINT-RECORD FROM WS-TOTAL-LINE4 AFTER 1.                 CL*13
00545      WRITE PRINT-RECORD FROM WS-TOTAL-LINE5 AFTER 1.                 CL*13
00546      WRITE PRINT-RECORD FROM WS-TOTAL-LINE6 AFTER 1.                 CL*13
00547      WRITE PRINT-RECORD FROM WS-TOTAL-LINE7 AFTER 1.                 CL*13
00548      WRITE PRINT-RECORD FROM WS-TOTAL-LINE8 AFTER 1.                 CL*13
00549      WRITE PRINT-RECORD FROM WS-TOTAL-LINE9 AFTER 1.                 CL*13
00550      WRITE PRINT-RECORD FROM WS-TOTAL-LINE10 AFTER 1.                CL211
00551      WRITE PRINT-RECORD FROM WS-TOTAL-LINE11 AFTER 1.                CL211
00552      WRITE PRINT-RECORD FROM WS-TOTAL-LINE12 AFTER 1.                CL169
00553      WRITE PRINT-RECORD FROM WS-TOTAL-LINE13 AFTER 1.                CL*13
00554      WRITE PRINT-RECORD FROM WS-TOTAL-LINE14 AFTER 1.                CL*15
00555 *    WRITE PRINT-RECORD FROM WS-TOTAL-LINE3 AFTER 1.                 CL247
00556 *    WRITE PRINT-RECORD FROM WS-TOTAL-LINE4 AFTER 1.                 CL247
00557      IF WS-ABEND-JOB = 0                                             CL*23
00558         WRITE PRINT-RECORD FROM WS-TOTAL-LINE45 AFTER 3              CL*21
00559      ELSE                                                            CL*21
00560         WRITE PRINT-RECORD FROM WS-TOTAL-LINE46 AFTER 3.             CL*21
00561                                                                      CL*11
00562      IF WS-ABEND-JOB = 1                                             CL**7
00563      MOVE +05 TO RETURN-CODE.                                        CL**7
00564                                                                   DTSBX630
00565      CLOSE X144WGE-IN, X102REG-IN, X104REG-IN, REPORT-FILE,          CL**6
00566            X106REG-IN, X106AREG-IN, X108REG-IN, X110REG-IN,          CL**2
00567            X110AREG-IN, X120REG-IN, X120AREG-IN,X147SSN-IN,          CL**2
00568            X140RPT-IN, X145PAY-IN, X999ESSP-IN,                      CL*11
00569            X998ACH-IN.                                               CL**8
00570 *    CLOSE X147SSN-OUTB.                                             CL225
00571                                                                   DTSBX630
00572      GOBACK.                                                      DTSBX630
00573                                                                   DTSBX630
00574  MAIN0100-CONTROL-EXIT.                                           DTSBX630
00575      EXIT.                                                        DTSBX630
00576                                                                   DTSBX630
00577 ******************************************************************DTSBX630
00578 *                  PROC2000-UI-PROCESS                           *DTSBX630
00579 ******************************************************************DTSBX630
00580                                                                   DTSBX630
00581  PROC2000-UI-PROCESS.                                             DTSBX630
00582                                                                   DTSBX630
00583      PERFORM PROC3000-READ-MASTER-FILE THRU                       DTSBX630
00584              PROC3000-READ-EXIT UNTIL MASTER-END.                    CL**3
00585                                                                   DTSBX630
00586                                                                      CL195
00587      PERFORM PROC0100-X102-REG  THRU PROC0100-EXIT.                  CL**4
00588      PERFORM PROC0200-X104-REG  THRU PROC0200-EXIT.                  CL**7
00589      PERFORM PROC0300-X106-REG  THRU PROC0300-EXIT.                  CL**7
00590      PERFORM PROC0400-X106A-REG  THRU PROC0400-EXIT.                 CL**7
00591      PERFORM PROC0500-X108-REG  THRU PROC0500-EXIT.                  CL**7
00592      PERFORM PROC0600-X110-REG  THRU PROC0600-EXIT.                  CL**7
00593      PERFORM PROC0700-X110A-REG  THRU PROC0700-EXIT.                 CL**7
00594      PERFORM PROC0800-X120-REG  THRU PROC0800-EXIT.                  CL**7
00595      PERFORM PROC0900-X120A-REG  THRU PROC0900-EXIT.                 CL**7
00596      PERFORM PROC1000-X140-RPT  THRU PROC1000-EXIT.                  CL**7
00597      PERFORM PROC1100-X144-WGE  THRU PROC1100-EXIT.                  CL**7
00598      PERFORM PROC1200-X145-PAY  THRU PROC1200-EXIT.                  CL**7
00599      PERFORM PROC1300-X147-SSN  THRU PROC1300-EXIT.                  CL**7
00600      PERFORM PROC1400-X998-ACH  THRU PROC1400-EXIT.                  CL**7
00601                                                                      CL161
00602  PROC2000-UI-EXIT. EXIT.                                             CL**4
00603                                                                      CL**4
00604  PROC0100-X102-REG.                                                  CL**4
00605      READ X102REG-IN INTO ESSP-FILE-IN                               CL**4
00606       AT END                                                         CL138
00607         GO TO PROC0100-CONTINUE.                                     CL**4
00608      IF ESSP-NAME = '102'                                            CL*10
00609         ADD 1 TO WS-READ-X102                                        CL**4
00610      ELSE                                                            CL**4
00611         DISPLAY '### X102 RECORD HAS OTHER TYPE REC ' ESSP-NAME.     CL**4
00612      GO TO PROC0100-X102-REG.                                        CL**6
00613  PROC0100-CONTINUE.                                                  CL**4
00614      IF WS-READ-X102 NOT EQUAL WS-TOTAL-X102-CNT                     CL**7
00615         DISPLAY '### X102 COUNTS NOT MATCHING- ESSP SENT '           CL**4
00616         WS-TOTAL-X102-CNT ' DUTAS RECEIVED ' WS-READ-X102            CL**7
00617         MOVE 1 TO WS-ABEND-JOB                                       CL**7
00618         MOVE  '### X102  COUNTS NOT MATCHING <<<<< ' TO Z102-MSG     CL*23
00619      ELSE                                                            CL**7
00620         DISPLAY 'TOTAL X102  ESSP SENT '                             CL*11
00621         WS-TOTAL-X102-CNT ' DUTAS RECEIVED ' WS-READ-X102.           CL**7
00622  PROC0100-EXIT. EXIT.                                                CL**4
00623                                                                      CL**4
00624  PROC0200-X104-REG.                                                  CL**7
00625      READ X104REG-IN INTO ESSP-FILE-IN                               CL**7
00626       AT END                                                         CL**7
00627         GO TO PROC0200-CONTINUE.                                     CL**7
00628      IF ESSP-NAME = '104'                                            CL*10
00629         ADD 1 TO WS-READ-X104                                        CL**7
00630      ELSE                                                            CL**7
00631         DISPLAY '### X104 RECORD HAS OTHER TYPE REC ' ESSP-NAME.     CL**7
00632      GO TO PROC0200-X104-REG.                                        CL**8
00633  PROC0200-CONTINUE.                                                  CL**7
00634      IF WS-READ-X104 NOT EQUAL WS-TOTAL-X104-CNT                     CL**7
00635         DISPLAY '### X104 COUNTS NOT MATCHING- ESSP SENT '           CL**7
00636         WS-TOTAL-X104-CNT ' DUTAS RECEIVED ' WS-READ-X104            CL**7
00637         MOVE 1 TO WS-ABEND-JOB                                       CL**7
00638         MOVE  '### X104  COUNTS NOT MATCHING <<<<< ' TO Z104-MSG     CL*23
00639      ELSE                                                            CL**7
00640         DISPLAY 'TOTAL X104  ESSP SENT '                             CL*11
00641         WS-TOTAL-X104-CNT ' DUTAS RECEIVED ' WS-READ-X104.           CL**7
00642  PROC0200-EXIT. EXIT.                                                CL**7
00643                                                                      CL**7
00644  PROC0300-X106-REG.                                                  CL**7
00645      READ X106REG-IN INTO ESSP-FILE-IN                               CL**7
00646       AT END                                                         CL**7
00647         GO TO PROC0300-CONTINUE.                                     CL**7
00648      IF ESSP-NAME = '106'                                            CL*10
00649         ADD 1 TO WS-READ-X106                                        CL**7
00650      ELSE                                                            CL**7
00651         DISPLAY '### X106 RECORD HAS OTHER TYPE REC ' ESSP-NAME.     CL**7
00652      GO TO PROC0300-X106-REG.                                        CL**7
00653  PROC0300-CONTINUE.                                                  CL**7
00654      IF WS-READ-X106 NOT EQUAL WS-TOTAL-X106-CNT                     CL**7
00655         DISPLAY '### X106 COUNTS NOT MATCHING- ESSP SENT '           CL**7
00656         WS-TOTAL-X106-CNT ' DUTAS RECEIVED ' WS-READ-X106            CL**7
00657         MOVE 1 TO WS-ABEND-JOB                                       CL**7
00658         MOVE  '### X106  COUNTS NOT MATCHING <<<<< ' TO Z106-MSG     CL*23
00659      ELSE                                                            CL**7
00660         DISPLAY 'TOTAL X106  ESSP SENT '                             CL*11
00661         WS-TOTAL-X106-CNT ' DUTAS RECEIVED ' WS-READ-X106.           CL**7
00662  PROC0300-EXIT. EXIT.                                                CL**7
00663                                                                      CL**7
00664  PROC0400-X106A-REG.                                                 CL**7
00665      READ X106AREG-IN INTO ESSP-FILE-IN                              CL**7
00666       AT END                                                         CL**7
00667         GO TO PROC0400-CONTINUE.                                     CL**7
00668      IF ESSP-NAME = '106'                                            CL*10
00669         ADD 1 TO WS-READ-X106A                                       CL**7
00670      ELSE                                                            CL**7
00671         DISPLAY '### X106A RECORD HAS OTHER TYPE REC ' ESSP-NAME.    CL**7
00672      GO TO PROC0400-X106A-REG.                                       CL**7
00673  PROC0400-CONTINUE.                                                  CL**7
00674      IF WS-READ-X106A NOT EQUAL WS-TOTAL-X106A-CNT                   CL**7
00675         DISPLAY '### X106 UPD COUNTS NOT MATCHING- ESSP SENT '       CL**7
00676         WS-TOTAL-X106A-CNT ' DUTAS RECEIVED ' WS-READ-X106A          CL**7
00677         MOVE  '### X106A COUNTS NOT MATCHING <<<<< ' TO Z106A-MSG    CL*21
00678         MOVE 1 TO WS-ABEND-JOB                                       CL**7
00679      ELSE                                                            CL**7
00680         DISPLAY 'TOTAL X106A ESSP SENT '                             CL**7
00681         WS-TOTAL-X106A-CNT ' DUTAS RECEIVED ' WS-READ-X106A.         CL**7
00682  PROC0400-EXIT. EXIT.                                                CL**7
00683                                                                      CL**7
00684  PROC0500-X108-REG.                                                  CL**7
00685      READ X108REG-IN INTO ESSP-FILE-IN                               CL**7
00686       AT END                                                         CL**7
00687         GO TO PROC0500-CONTINUE.                                     CL**7
00688      IF ESSP-NAME = '108'                                            CL*10
00689         ADD 1 TO WS-READ-X108                                        CL**7
00690      ELSE                                                            CL**7
00691         DISPLAY '### X108 RECORD HAS OTHER TYPE REC ' ESSP-NAME.     CL**7
00692      GO TO PROC0500-X108-REG.                                        CL**7
00693  PROC0500-CONTINUE.                                                  CL**7
00694      IF WS-READ-X108 NOT EQUAL WS-TOTAL-X108-CNT                     CL**7
00695         DISPLAY '### X108 UPD COUNTS NOT MATCHING- ESSP SENT '       CL**7
00696         WS-TOTAL-X108-CNT ' DUTAS RECEIVED ' WS-READ-X108            CL**7
00697         MOVE 1 TO WS-ABEND-JOB                                       CL**7
00698         MOVE  '### X108  COUNTS NOT MATCHING <<<<< ' TO Z108-MSG     CL*21
00699      ELSE                                                            CL**7
00700         DISPLAY 'TOTAL X108  ESSP SENT '                             CL**7
00701         WS-TOTAL-X108-CNT ' DUTAS RECEIVED ' WS-READ-X108.           CL**7
00702  PROC0500-EXIT. EXIT.                                                CL**7
00703                                                                      CL**7
00704  PROC0600-X110-REG.                                                  CL**7
00705      READ X110REG-IN INTO ESSP-FILE-IN                               CL**7
00706       AT END                                                         CL**7
00707         GO TO PROC0600-CONTINUE.                                     CL**7
00708      IF ESSP-NAME = '110'                                            CL*10
00709         ADD 1 TO WS-READ-X110                                        CL**7
00710      ELSE                                                            CL**7
00711         DISPLAY '### X110 RECORD HAS OTHER TYPE REC ' ESSP-NAME.     CL**7
00712      GO TO PROC0600-X110-REG.                                        CL**7
00713  PROC0600-CONTINUE.                                                  CL**7
00714      IF WS-READ-X110 NOT EQUAL WS-TOTAL-X110-CNT                     CL**7
00715         DISPLAY '### X110 COUNTS NOT MATCHING- ESSP SENT '           CL**7
00716         WS-TOTAL-X110-CNT ' DUTAS RECEIVED ' WS-READ-X110            CL**7
00717         MOVE 1 TO WS-ABEND-JOB                                       CL**7
00718         MOVE  '### X110  COUNTS NOT MATCHING <<<<< ' TO Z110-MSG     CL*21
00719      ELSE                                                            CL**7
00720         DISPLAY 'TOTAL X110  ESSP SENT '                             CL**7
00721         WS-TOTAL-X110-CNT ' DUTAS RECEIVED ' WS-READ-X110.           CL**7
00722  PROC0600-EXIT. EXIT.                                                CL**7
00723                                                                      CL**7
00724  PROC0700-X110A-REG.                                                 CL**7
00725      READ X110AREG-IN INTO ESSP-FILE-IN                              CL**7
00726       AT END                                                         CL**7
00727         GO TO PROC0700-CONTINUE.                                     CL**7
00728      IF ESSP-NAME = '110'                                            CL*10
00729         ADD 1 TO WS-READ-X110A                                       CL**7
00730      ELSE                                                            CL**7
00731         DISPLAY '### X110A RECORD HAS OTHER TYPE REC ' ESSP-NAME.    CL**7
00732      GO TO PROC0700-X110A-REG.                                       CL**7
00733  PROC0700-CONTINUE.                                                  CL**7
00734      IF WS-READ-X110A NOT EQUAL WS-TOTAL-X110A-CNT                   CL**7
00735         DISPLAY '### X110 UPD COUNTS NOT MATCHING- ESSP SENT '       CL**7
00736         WS-TOTAL-X110A-CNT ' DUTAS RECEIVED ' WS-READ-X110A          CL**7
00737         MOVE 1 TO WS-ABEND-JOB                                       CL**7
00738         MOVE  '### X110A COUNTS NOT MATCHING <<<<< ' TO Z110A-MSG    CL*21
00739      ELSE                                                            CL**7
00740         DISPLAY 'TOTAL X110A ESSP SENT '                             CL**7
00741         WS-TOTAL-X110A-CNT ' DUTAS RECEIVED ' WS-READ-X110A.         CL**7
00742  PROC0700-EXIT. EXIT.                                                CL**7
00743                                                                      CL**7
00744  PROC0800-X120-REG.                                                  CL**7
00745      READ X120REG-IN INTO ESSP-FILE-IN                               CL**7
00746       AT END                                                         CL**7
00747         GO TO PROC0800-CONTINUE.                                     CL**7
00748      IF ESSP-NAME = '120'                                            CL*10
00749         ADD 1 TO WS-READ-X120                                        CL**7
00750      ELSE                                                            CL**7
00751         DISPLAY '### X120 RECORD HAS OTHER TYPE REC ' ESSP-NAME.     CL**7
00752      GO TO PROC0800-X120-REG.                                        CL**7
00753  PROC0800-CONTINUE.                                                  CL**7
00754      IF WS-READ-X120 NOT EQUAL WS-TOTAL-X120-CNT                     CL**7
00755         DISPLAY '### X120 COUNTS NOT MATCHING- ESSP SENT '           CL**7
00756         WS-TOTAL-X120-CNT ' DUTAS RECEIVED ' WS-READ-X120            CL**7
00757         MOVE 1 TO WS-ABEND-JOB                                       CL**7
00758         MOVE  '### X120  COUNTS NOT MATCHING <<<<< ' TO Z120-MSG     CL*21
00759      ELSE                                                            CL**7
00760         DISPLAY 'TOTAL X120  ESSP SENT '                             CL**7
00761         WS-TOTAL-X120-CNT ' DUTAS RECEIVED ' WS-READ-X120.           CL**7
00762  PROC0800-EXIT. EXIT.                                                CL**7
00763                                                                      CL**7
00764  PROC0900-X120A-REG.                                                 CL**7
00765      READ X120AREG-IN INTO ESSP-FILE-IN                              CL**7
00766       AT END                                                         CL**7
00767         GO TO PROC0900-CONTINUE.                                     CL**7
00768      IF ESSP-NAME = '120'                                            CL*10
00769         ADD 1 TO WS-READ-X120A                                       CL**7
00770      ELSE                                                            CL**7
00771         DISPLAY '### X120A RECORD HAS OTHER TYPE REC ' ESSP-NAME.    CL**7
00772      GO TO PROC0900-X120A-REG.                                       CL**7
00773  PROC0900-CONTINUE.                                                  CL**7
00774      IF WS-READ-X120A NOT EQUAL WS-TOTAL-X120A-CNT                   CL**7
00775         DISPLAY '### X120 UPD COUNTS NOT MATCHING- ESSP SENT '       CL**7
00776         WS-TOTAL-X120A-CNT ' DUTAS RECEIVED ' WS-READ-X120A          CL**7
00777         MOVE 1 TO WS-ABEND-JOB                                       CL**7
00778         MOVE  '### X120A COUNTS NOT MATCHING <<<<< ' TO Z120A-MSG    CL*21
00779      ELSE                                                            CL**7
00780         DISPLAY 'TOTAL X120A ESSP SENT '                             CL**7
00781         WS-TOTAL-X120A-CNT ' DUTAS RECEIVED ' WS-READ-X120A.         CL**7
00782  PROC0900-EXIT. EXIT.                                                CL**7
00783                                                                      CL**7
00784  PROC1000-X140-RPT.                                                  CL**7
00785      READ X140RPT-IN INTO ESSP-FILE-IN                               CL**7
00786       AT END                                                         CL**7
00787         GO TO PROC1000-CONTINUE.                                     CL**7
00788      IF ESSP-NAME = '140'                                            CL*10
00789         ADD 1 TO WS-READ-X140                                        CL**7
00790      ELSE                                                            CL**7
00791         DISPLAY '### X140 RECORD HAS OTHER TYPE REC ' ESSP-NAME.     CL**7
00792      GO TO PROC1000-X140-RPT.                                        CL**7
00793  PROC1000-CONTINUE.                                                  CL**7
00794      IF WS-READ-X140 NOT EQUAL WS-TOTAL-X140-CNT                     CL**7
00795         DISPLAY '### X140 COUNTS NOT MATCHING- ESSP SENT '           CL**7
00796         WS-TOTAL-X140-CNT ' DUTAS RECEIVED ' WS-READ-X140            CL**7
00797         MOVE 1 TO WS-ABEND-JOB                                       CL**7
00798         MOVE  '### X140  COUNTS NOT MATCHING <<<<< ' TO Z140-MSG     CL*21
00799      ELSE                                                            CL**7
00800         DISPLAY 'TOTAL X140  ESSP SENT '                             CL**7
00801         WS-TOTAL-X140-CNT ' DUTAS RECEIVED ' WS-READ-X140.           CL**7
00802  PROC1000-EXIT. EXIT.                                                CL**7
00803  PROC1100-X144-WGE.                                                  CL**7
00804      READ X144WGE-IN INTO ESSP-FILE-IN                               CL**7
00805       AT END                                                         CL**7
00806         GO TO PROC1100-CONTINUE.                                     CL**7
00807      IF ESSP-NAME = '144'                                            CL*10
00808         ADD 1 TO WS-READ-X144                                        CL**7
00809      ELSE                                                            CL**7
00810         DISPLAY '### X144 RECORD HAS OTHER TYPE REC ' ESSP-NAME.     CL**7
00811      GO TO PROC1100-X144-WGE.                                        CL**8
00812  PROC1100-CONTINUE.                                                  CL**7
00813      IF WS-READ-X144 NOT EQUAL WS-TOTAL-X144-CNT                     CL**7
00814         DISPLAY '### X144 COUNTS NOT MATCHING- ESSP SENT '           CL**7
00815         WS-TOTAL-X144-CNT ' DUTAS RECEIVED ' WS-READ-X144            CL**7
00816         MOVE 1 TO WS-ABEND-JOB                                       CL**7
00817         MOVE  '### X144  COUNTS NOT MATCHING <<<<< ' TO Z144-MSG     CL*21
00818      ELSE                                                            CL**7
00819         DISPLAY 'TOTAL X144  ESSP SENT '                             CL**7
00820         WS-TOTAL-X144-CNT ' DUTAS RECEIVED ' WS-READ-X144.           CL**7
00821  PROC1100-EXIT. EXIT.                                                CL**7
00822  PROC1200-X145-PAY.                                                  CL**7
00823      READ X145PAY-IN INTO ESSP-FILE-IN                               CL**7
00824       AT END                                                         CL**7
00825         GO TO PROC1200-CONTINUE.                                     CL**7
00826      IF ESSP-NAME = '145'                                            CL*10
00827         ADD 1 TO WS-READ-X145                                        CL**7
00828      ELSE                                                            CL**7
00829         DISPLAY '### X145 RECORD HAS OTHER TYPE REC ' ESSP-NAME.     CL**7
00830      GO TO PROC1200-X145-PAY.                                        CL**8
00831  PROC1200-CONTINUE.                                                  CL**7
00832      IF WS-READ-X145 NOT EQUAL WS-TOTAL-X145-CNT                     CL**7
00833         DISPLAY '### X145 COUNTS NOT MATCHING- ESSP SENT '           CL**7
00834         WS-TOTAL-X145-CNT ' DUTAS RECEIVED ' WS-READ-X145            CL**7
00835         MOVE 1 TO WS-ABEND-JOB                                       CL**7
00836         MOVE  '### X145  COUNTS NOT MATCHING <<<<< ' TO Z145-MSG     CL*21
00837      ELSE                                                            CL**7
00838         DISPLAY 'TOTAL X145  ESSP SENT '                             CL**7
00839         WS-TOTAL-X145-CNT ' DUTAS RECEIVED ' WS-READ-X145.           CL**7
00840  PROC1200-EXIT. EXIT.                                                CL**7
00841  PROC1300-X147-SSN.                                                  CL**7
00842      READ X147SSN-IN INTO ESSP-FILE-IN                               CL**7
00843       AT END                                                         CL**7
00844         GO TO PROC1300-CONTINUE.                                     CL**7
00845      IF ESSP-NAME = '147'                                            CL*10
00846         ADD 1 TO WS-READ-X147                                        CL**7
00847      ELSE                                                            CL**7
00848         DISPLAY '### X147 RECORD HAS OTHER TYPE REC ' ESSP-NAME.     CL**8
00849      GO TO PROC1300-X147-SSN.                                        CL**8
00850  PROC1300-CONTINUE.                                                  CL**7
00851      IF WS-READ-X147 NOT EQUAL WS-TOTAL-X147-CNT                     CL**7
00852         DISPLAY '### X147 COUNTS NOT MATCHING- ESSP SENT '           CL**7
00853         WS-TOTAL-X147-CNT ' DUTAS RECEIVED ' WS-READ-X147            CL**7
00854         MOVE 1 TO WS-ABEND-JOB                                       CL**7
00855         MOVE  '### X147  COUNTS NOT MATCHING <<<<< ' TO Z147-MSG     CL*21
00856      ELSE                                                            CL**7
00857         DISPLAY 'TOTAL X147  ESSP SENT '                             CL**7
00858         WS-TOTAL-X147-CNT ' DUTAS RECEIVED ' WS-READ-X147.           CL**7
00859  PROC1300-EXIT. EXIT.                                                CL**7
00860  PROC1400-X998-ACH.                                                  CL**7
00861      READ X998ACH-IN                                                 CL**8
00862       AT END                                                         CL**7
00863         GO TO PROC1400-CONTINUE.                                     CL**7
00864      IF X998-TYPE = '6'                                              CL**9
00865         ADD 1 TO WS-READ-X998.                                       CL*12
00866      GO TO PROC1400-X998-ACH.                                        CL**7
00867  PROC1400-CONTINUE.                                                  CL**7
00868      IF WS-READ-X998 NOT EQUAL WS-TOTAL-X998-CNT                     CL**7
00869         DISPLAY '### ACH  COUNTS NOT MATCHING- ESSP SENT '           CL**7
00870         WS-TOTAL-X998-CNT ' DUTAS RECEIVED ' WS-READ-X998            CL**7
00871         MOVE 1 TO WS-ABEND-JOB                                       CL**7
00872         MOVE  '### X998  COUNTS NOT MATCHING <<<<< ' TO Z998-MSG     CL*21
00873      ELSE                                                            CL**7
00874         DISPLAY 'TOTAL XACH  ESSP SENT '                             CL**7
00875         WS-TOTAL-X998-CNT ' DUTAS RECEIVED ' WS-READ-X998.           CL**7
00876  PROC1400-EXIT. EXIT.                                                CL**7
00877 ******************************************************************DTSBX630
00878 *                   PROC3000-READ-MASTER-FILE                    *DTSBX630
00879 ******************************************************************DTSBX630
00880                                                                   DTSBX630
00881  PROC3000-READ-MASTER-FILE.                                       DTSBX630
00882                                                                   DTSBX630
00883      READ X999ESSP-IN                                                CL**3
00884       AT END                                                      DTSBX630
00885         MOVE 'Y' TO MASTER-END-IND                                   CL*63
00886         GO TO PROC3000-READ-EXIT.                                 DTSBX630
00887                                                                   DTSBX630
00888      ADD 1 TO WS-TOTAL-X999-CNT.                                     CL**3
00889                                                                      CL**4
00890      IF WS-TOTAL-X999-CNT = 1                                        CL**4
00891         GO TO PROC3000-READ-EXIT.                                    CL**4
00892                                                                      CL**4
00893      IF X999-NAME = 'X102'                                           CL*10
00894         MOVE X999-CNT TO WS-TOTAL-X102-CNT                           CL**3
00895      ELSE                                                            CL**3
00896      IF X999-NAME = 'X104'                                           CL*10
00897         MOVE X999-CNT TO WS-TOTAL-X104-CNT                           CL**3
00898      ELSE                                                            CL**3
00899      IF X999-NAME = 'X106' AND X999-TYPE = 0                         CL*10
00900         MOVE X999-CNT TO WS-TOTAL-X106-CNT                           CL**3
00901      ELSE                                                            CL**3
00902      IF X999-NAME = 'X106' AND X999-TYPE = 1                         CL*10
00903         MOVE X999-CNT TO WS-TOTAL-X106A-CNT                          CL**3
00904      ELSE                                                            CL**3
00905      IF X999-NAME = 'X108'                                           CL*10
00906         MOVE X999-CNT TO WS-TOTAL-X108-CNT                           CL**3
00907      ELSE                                                            CL**3
00908      IF X999-NAME = 'X110' AND X999-TYPE = 0                         CL*10
00909         MOVE X999-CNT TO WS-TOTAL-X110-CNT                           CL**3
00910      ELSE                                                            CL**3
00911      IF X999-NAME = 'X110' AND X999-TYPE = 1                         CL*10
00912         MOVE X999-CNT TO WS-TOTAL-X110A-CNT                          CL**3
00913      ELSE                                                            CL**3
00914      IF X999-NAME = 'X120' AND X999-TYPE = 0                         CL*10
00915         MOVE X999-CNT TO WS-TOTAL-X120-CNT                           CL**3
00916      ELSE                                                            CL**3
00917      IF X999-NAME = 'X120' AND X999-TYPE = 1                         CL*10
00918         MOVE X999-CNT TO WS-TOTAL-X120A-CNT                          CL**3
00919      ELSE                                                            CL**3
00920      IF X999-NAME = 'X140'                                           CL*10
00921         MOVE X999-CNT TO WS-TOTAL-X140-CNT                           CL**3
00922      ELSE                                                            CL**3
00923      IF X999-NAME = 'X144'                                           CL*10
00924         MOVE X999-CNT TO WS-TOTAL-X144-CNT                           CL**3
00925      ELSE                                                            CL**3
00926      IF X999-NAME = 'X145'                                           CL*10
00927         MOVE X999-CNT TO WS-TOTAL-X145-CNT                           CL**3
00928      ELSE                                                            CL**3
00929      IF X999-NAME = 'X147'                                           CL*10
00930         MOVE X999-CNT TO WS-TOTAL-X147-CNT                           CL**3
00931      ELSE                                                            CL**3
00932      IF X999-NAME = 'X998'                                           CL*10
00933         MOVE X999-CNT TO WS-TOTAL-X998-CNT                           CL**8
00934      ELSE                                                            CL**3
00935         DISPLAY '*** ERROR UNKNOWN RECORD IN ESSP ' X999-NAME        CL**3
00936         GO TO S999-ABEND.                                            CL**6
00937  PROC3000-READ-EXIT.                                              DTSBX630
00938      EXIT.                                                        DTSBX630
00939                                                                   DTSBX630
00940                                                                   DTSBX630
00941 ******************************************************************DTSBX630
00942 *                   PROC5000-WRITE-RECORD-PAID                   *DTSBX630
00943 ******************************************************************DTSBX630
00944                                                                   DTSBX630
00945                                                                   DTSBX630
00946  PROC5000-X147-NOT-DELETED.                                          CL*94
00947 *    MOVE X147-SSN            TO WS-INPUT-SSN.                       CL**7
00948 *    MOVE WS-INPUT-SSN1       TO WS-OUT-SSN1.                        CL245
00949 *    MOVE WS-INPUT-SSN2       TO WS-OUT-SSN2                         CL245
00950 *    MOVE WS-INPUT-SSN3       TO WS-OUT-SSN3.                        CL245
00951 *    MOVE DB-SEQ-9            TO WS-OUT-SEQ.                         CL245
00952 *                                                                    CL245
00953 *    MOVE X147-EMP-NO         TO WS-OUT-EMP-NO                       CL245
00954 *    MOVE X147-QUARTER        TO WS-OUT-QUARTER.                     CL245
00955 *    MOVE X147-FNAME          TO WS-OUT-FNAME.                       CL245
00956 *    MOVE X147-LNAME          TO WS-OUT-LNAME.                       CL245
00957 *    MOVE X147-WAGES          TO WS-OUT-WAGES.                       CL245
00958 *    MOVE 'Y '                TO WS-OUT-X144.                        CL245
00959 *    MOVE '++ CLAIM FOUND ON DOCS - VERIFY'     TO WS-OUT-MESSAGE.   CL245
00960                                                                   DTSBX630
00961 *    IF LINE-COUNT GREATER 55                                        CL*74
00962 *       MOVE ZEROES     TO LINE-COUNT                                CL*74
00963         ADD 1 TO LINE-COUNT.                                         CL126
00964         WRITE PRINT-RECORD FROM WS-OUTPUT.                           CL*92
00965  PROC5000-EXIT.                                                      CL*94
00966      EXIT.                                                        DTSBX630
00967                                                                   DTSBX630
00968                                                                      CL*69
00969  S001-FROM-CAL-6.                                                    CL*55
00970      SET L001-FROM-CAL-6 TO TRUE.                                    CL*55
00971      GO TO S001-DATE-CONVERT.                                        CL*55
00972                                                                      CL*55
00973  S001-FROM-ABS-DAY.                                                  CL*55
00974      SET L001-FROM-ABS-DAY TO TRUE.                                  CL*55
00975      GO TO S001-DATE-CONVERT.                                        CL*55
00976                                                                      CL*55
00977  S001-DATE-CONVERT.                                                  CL*55
00978      CALL 'DTSBU001' USING L001-LINK-AREA.                           CL*55
00979  S001-EXIT.                                                          CL*55
00980       EXIT.                                                          CL*55
00981       SKIP3                                                          CL*55
00982  S999-ABEND.                                                         CL*55
00983       DISPLAY '***  '                                                CL*55
00984               WRK-MODULE-NAME                                        CL*55
00985               ' IS ABENDING: '                                       CL*55
00986               WRK-ABEND-MSG.                                         CL*55
00987                                                                      CL*55
00988       CALL 'DTSBU999' USING WRK-ABEND-CD.                            CL*55
00989  S999-EXIT.                                                          CL*55
00990       EXIT.                                                          CL*55
