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