00001 IDENTIFICATION DIVISION. 05/30/24 00002 PROGRAM-ID. DTSZXPFL. DTSZXPFL 00003 AUTHOR. HUDAK. LV038 00004 DATE-WRITTEN. JAN2021. CL**4 00005 DATE-COMPILED. DTSZXPFL 00006 SKIP3 DTSZXPFL 00007 ***** DTSZXPFL 00008 * DTSZXPFL 00009 * FUNCTION: MERGE PFL AND UI TAX FILES FOR OTR DTSZXPFL 00010 * DTSZXPFL 00011 *5/30/24 CHG TOTAL AMOUNT OWED FROM 100 TO 1000 DOLLARS ZL1 CL*38 00012 ***** DTSZXPFL 00013 SKIP3 DTSZXPFL 00014 ENVIRONMENT DIVISION. DTSZXPFL 00015 SKIP2 DTSZXPFL 00016 CONFIGURATION SECTION. DTSZXPFL 00017 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSZXPFL 00018 DTSZXPFL 00019 INPUT-OUTPUT SECTION. DTSZXPFL 00020 DTSZXPFL 00021 FILE-CONTROL. DTSZXPFL 00022 SELECT TAX-FILE1 ASSIGN TO TAXFILE1 DTSZXPFL 00023 FILE STATUS IS TAX-STATUS. DTSZXPFL 00024 SELECT PFL-FILE1 ASSIGN TO PFLFILE1 DTSZXPFL 00025 FILE STATUS IS PFL-STATUS. DTSZXPFL 00026 SELECT TAX-FILE2 ASSIGN TO TAXFILE2 DTSZXPFL 00027 FILE STATUS IS TAX2-STATUS. DTSZXPFL 00028 DTSZXPFL 00029 DTSZXPFL 00030 DATA DIVISION. DTSZXPFL 00031 DTSZXPFL 00032 FILE SECTION. DTSZXPFL 00033 DTSZXPFL 00034 FD TAX-FILE1 DTSZXPFL 00035 RECORDING MODE IS F. DTSZXPFL 00036 01 TAX-REC1. DTSZXPFL 00037 05 TAX-RECORD PIC X(386). DTSZXPFL 00038 DTSZXPFL 00039 DTSZXPFL 00040 FD PFL-FILE1 DTSZXPFL 00041 RECORDING MODE IS F. DTSZXPFL 00042 01 PFL-REC1. DTSZXPFL 00043 05 PFL-RECORD PIC X(386). DTSZXPFL 00044 DTSZXPFL 00045 DTSZXPFL 00046 FD TAX-FILE2 DTSZXPFL 00047 RECORDING MODE IS F. DTSZXPFL 00048 01 TAX-REC2. DTSZXPFL 00049 05 TAX-RECORD2 PIC X(386). DTSZXPFL 00050 DTSZXPFL 00051 DTSZXPFL 00052 WORKING-STORAGE SECTION. DTSZXPFL 000525 77 PAN-VALET PICTURE X(24) VALUE '038DTSZXPFL 05/30/24'. DTSZXPFL 00053 77 PAN-VALET PICTURE X(24) VALUE '053DTSBXPFL 10/05/21'. DTSZXPFL 00054 SKIP3 DTSZXPFL 00055 01 WRK-AREA. DTSZXPFL 00056 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +400.DTSZXPFL 00057 DTSZXPFL 00058 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD400'.DTSZXPFL 00059 DTSZXPFL 00060 05 WRK-MPRF-IND PIC X(01). DTSZXPFL 00061 88 WRK-MPRF-OK VALUE 'Y'. DTSZXPFL 00062 88 WRK-MPRF-NO-REC VALUE 'N'. DTSZXPFL 00063 05 WRK-MEVL-IND PIC X(01). DTSZXPFL 00064 88 WRK-MEVL-OK VALUE 'Y'. DTSZXPFL 00065 88 WRK-MEVL-NO-REC VALUE 'N'. DTSZXPFL 00066 05 WRK-ERROR-IND PIC X(01). DTSZXPFL 00067 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSZXPFL 00068 88 WRK-ERROR-NO-88 VALUE 'N'. DTSZXPFL 00069 *RW1 DTSZXPFL 00070 05 HLD-ID PIC 9(01) VALUE ZEROS. CL*20 00071 05 TAX-READ PIC 9(05) VALUE ZEROS. CL*20 00072 05 DUP-CNT PIC 9(05) VALUE ZEROS. CL*36 00073 05 ZUP-CNT PIC 9(05) VALUE ZEROS. CL*36 00074 05 REC-CNT PIC 9(05) VALUE ZEROS. CL*35 00075 05 ZEC-CNT PIC 9(05) VALUE ZEROS. CL*35 00076 05 HLD-AGY-TRACKING-ID PIC X(13) VALUE SPACES. CL*18 00077 05 EXP-STATUS PIC X(02). CL*17 00078 88 EXP-STATUS-OK-88 VALUE '00'. DTSZXPFL 00079 05 TAX-STATUS PIC X(02). DTSZXPFL 00080 88 TAX-STATUS-OK-88 VALUE '00'. DTSZXPFL 00081 05 PFL-STATUS PIC X(02). DTSZXPFL 00082 88 PFL-STATUS-OK-88 VALUE '00'. DTSZXPFL 00083 05 TAX2-STATUS PIC X(02). DTSZXPFL 00084 88 TAX2-STATUS-OK-88 VALUE '00'. DTSZXPFL 00085 DTSZXPFL 00086 05 WRK-SPLIT. DTSZXPFL 00087 10 FILLER PIC X(1) VALUE '$'. DTSZXPFL 00088 10 WRK-DOL PIC 9(09). DTSZXPFL 00089 10 FILLER PIC X(1) VALUE '.'. DTSZXPFL 00090 10 WRK-CENT PIC 9(02). DTSZXPFL 00091 DTSZXPFL 00092 05 WS-TAX-AMT PIC 9(09)V99. CL*33 00093 05 WS-PFL-AMT PIC 9(09)V99. CL*33 00094 05 WS-TOTAL-AMT PIC 9(09)V99. CL*33 00095 05 WRK-BAL PIC 9(09)V9(02) VALUE 999.99. CL*38 00096 05 FILE-END PIC X(01) VALUE 'N'. DTSZXPFL 00097 05 PFL-FILE-END PIC X(01) VALUE 'N'. DTSZXPFL 00098 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. DTSZXPFL 00099 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSZXPFL 00100 05 WS-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. DTSZXPFL 00101 05 WRK-TRACE-IND PIC X(01). DTSZXPFL 00102 05 WS-REC-CNT PIC 9(07). DTSZXPFL 00103 01 HEADER-REC. DTSZXPFL 00104 DTSZXPFL 00105 05 FILLER PIC X(07) VALUE 'HEADER='. DTSZXPFL 00106 05 HEADER-CNT PIC 9(07). DTSZXPFL 00107 05 HLD-DEBT-AMT PIC ----------9.99. CL*20 00108 DTSZXPFL 00109 DTSZXPFL 00110 01 PFL-FILE. DTSZXPFL 00111 DTSZXPFL 00112 05 PFL-AGY-TRACKING-ID PIC X(13). DTSZXPFL 00113 05 FILLER PIC X(01). DTSZXPFL 00114 05 PFL-AGY-ID-ADM-DIV PIC X(06). DTSZXPFL 00115 05 FILLER PIC X(01). DTSZXPFL 00116 05 PFL-ENTITY-ID-TYPE PIC X(01). DTSZXPFL 00117 88 PFL-ENTITY-TYPE-SSN-88 VALUE 'S'. DTSZXPFL 00118 88 PFL-ENTITY-TYPE-EIN-88 VALUE 'E'. DTSZXPFL 00119 05 FILLER PIC X(01). DTSZXPFL 00120 05 PFL-ENTITY-ID PIC X(09). DTSZXPFL 00121 05 FILLER PIC X(01). DTSZXPFL 00122 05 PFL-RELATIONSHIP-IND PIC X(01). DTSZXPFL 00123 88 PFL-RELATION-EXISTS-88 VALUE 'R'. DTSZXPFL 00124 88 PFL-NO-RELATION-88 VALUE 'N'. DTSZXPFL 00125 05 FILLER PIC X(01). DTSZXPFL 00126 05 PFL-ENTITY-BUSNS-NAME PIC X(70). DTSZXPFL 00127 05 FILLER PIC X(01). DTSZXPFL 00128 05 PFL-ENTITY-LAST-NAME PIC X(35). DTSZXPFL 00129 05 FILLER PIC X(01). DTSZXPFL 00130 05 PFL-ENTITY-FIRST-NAME PIC X(35). DTSZXPFL 00131 05 FILLER PIC X(01). DTSZXPFL 00132 05 PFL-ENTITY-MID-INIT PIC X(01). DTSZXPFL 00133 05 FILLER PIC X(01). DTSZXPFL 00134 05 PFL-ENTITY-SUFFIX PIC X(10). DTSZXPFL 00135 05 FILLER PIC X(01). DTSZXPFL 00136 05 PFL-ENTITY-DOB PIC X(10). DTSZXPFL 00137 05 FILLER PIC X(01). DTSZXPFL 00138 05 PFL-STREET-NUMBER PIC X(10). DTSZXPFL 00139 05 FILLER PIC X(01). DTSZXPFL 00140 05 PFL-STREET-NAME PIC X(100). DTSZXPFL 00141 05 FILLER PIC X(01). DTSZXPFL 00142 05 PFL-CITY PIC X(30). DTSZXPFL 00143 05 FILLER PIC X(01). DTSZXPFL 00144 05 PFL-STATE PIC X(02). DTSZXPFL 00145 05 FILLER PIC X(01). DTSZXPFL 00146 05 PFL-ZIP PIC X(05). DTSZXPFL 00147 05 FILLER PIC X(01). DTSZXPFL 00148 05 PFL-ZIP-EXT PIC X(04). DTSZXPFL 00149 05 FILLER PIC X(01). DTSZXPFL 00150 05 PFL-FAILURE-TO-FILE-IND PIC X(01). DTSZXPFL 00151 88 PFL-FAIL-TO-FILE-YES-88 VALUE 'Y'. DTSZXPFL 00152 88 PFL-FAIL-TO-FILE-NO-88 VALUE 'N'. DTSZXPFL 00153 05 FILLER PIC X(01). DTSZXPFL 00154 05 PFL-DEBT-AMT PIC ----------9.99. DTSZXPFL 00155 05 FILLER PIC X(01). DTSZXPFL 00156 05 PFL-AGY-REPORT-DT PIC X(10). DTSZXPFL 00157 DTSZXPFL 00158 DTSZXPFL 00159 DTSZXPFL 00160 01 EMP-REC1. DTSZXPFL 00161 DTSZXPFL 00162 05 TAX-AGY-TRACKING-ID PIC X(13). DTSZXPFL 00163 05 FILLER PIC X(01). DTSZXPFL 00164 05 TAX-AGY-ID-ADM-DIV PIC X(06). DTSZXPFL 00165 05 FILLER PIC X(01). DTSZXPFL 00166 05 TAX-ENTITY-ID-TYPE PIC X(01). DTSZXPFL 00167 88 TAX-ENTITY-TYPE-SSN-88 VALUE 'S'. DTSZXPFL 00168 88 TAX-ENTITY-TYPE-EIN-88 VALUE 'E'. DTSZXPFL 00169 05 FILLER PIC X(01). DTSZXPFL 00170 05 TAX-ENTITY-ID PIC X(09). DTSZXPFL 00171 05 FILLER PIC X(01). DTSZXPFL 00172 05 TAX-RELATIONSHIP-IND PIC X(01). DTSZXPFL 00173 88 TAX0-RELATION-EXISTS-88 VALUE 'R'. DTSZXPFL 00174 88 TAX0-NO-RELATION-88 VALUE 'N'. DTSZXPFL 00175 05 FILLER PIC X(01). DTSZXPFL 00176 05 TAX-ENTITY-BUSNS-NAME PIC X(70). DTSZXPFL 00177 05 FILLER PIC X(01). DTSZXPFL 00178 05 TAX-ENTITY-LAST-NAME PIC X(35). DTSZXPFL 00179 05 FILLER PIC X(01). DTSZXPFL 00180 05 TAX-ENTITY-FIRST-NAME PIC X(35). DTSZXPFL 00181 05 FILLER PIC X(01). DTSZXPFL 00182 05 TAX-ENTITY-MID-INIT PIC X(01). DTSZXPFL 00183 05 FILLER PIC X(01). DTSZXPFL 00184 05 TAX-ENTITY-SUFFIX PIC X(10). DTSZXPFL 00185 05 FILLER PIC X(01). DTSZXPFL 00186 05 TAX-ENTITY-DOB PIC X(10). DTSZXPFL 00187 05 FILLER PIC X(01). DTSZXPFL 00188 05 TAX-STREET-NUMBER PIC X(10). DTSZXPFL 00189 05 FILLER PIC X(01). DTSZXPFL 00190 05 TAX-STREET-NAME PIC X(100). DTSZXPFL 00191 05 FILLER PIC X(01). DTSZXPFL 00192 05 TAX-CITY PIC X(30). DTSZXPFL 00193 05 FILLER PIC X(01). DTSZXPFL 00194 05 TAX-STATE PIC X(02). DTSZXPFL 00195 05 FILLER PIC X(01). DTSZXPFL 00196 05 TAX-ZIP PIC X(05). DTSZXPFL 00197 05 FILLER PIC X(01). DTSZXPFL 00198 05 TAX-ZIP-EXT PIC X(04). DTSZXPFL 00199 05 FILLER PIC X(01). DTSZXPFL 00200 05 TAX-FAILURE-TO-FILE-IND PIC X(01). DTSZXPFL 00201 88 TAX-FAIL-TO-FILE-YES-88 VALUE 'Y'. DTSZXPFL 00202 88 TAX-FAIL-TO-FILE-NO-88 VALUE 'N'. DTSZXPFL 00203 05 FILLER PIC X(01). DTSZXPFL 00204 05 TAX-DEBT-AMT PIC ----------9.99. DTSZXPFL 00205 05 FILLER PIC X(01). DTSZXPFL 00206 05 TAX-AGY-REPORT-DT PIC X(10). DTSZXPFL 00207 DTSZXPFL 00208 DTSZXPFL 00209 DTSZXPFL 00210 01 EMP-REC2. DTSZXPFL 00211 05 TAX2-AGY-TRACKING-ID PIC X(13). DTSZXPFL 00212 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00213 05 TAX2-AGY-ID-ADM-DIV PIC X(06). DTSZXPFL 00214 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00215 05 TAX2-ENTITY-ID-TYPE PIC X(01). DTSZXPFL 00216 88 TAX2-ENTITY-TYPE-SSN-88 VALUE 'S'. DTSZXPFL 00217 88 TAX2-ENTITY-TYPE-EIN-88 VALUE 'E'. DTSZXPFL 00218 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00219 05 TAX2-ENTITY-ID PIC X(09). DTSZXPFL 00220 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00221 05 TAX2-RELATIONSHIP-IND PIC X(01). DTSZXPFL 00222 88 TAX02-RELATION-EXISTS-88 VALUE 'R'. DTSZXPFL 00223 88 TAX02-NO-RELATION-88 VALUE 'N'. DTSZXPFL 00224 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00225 05 TAX2-ENTITY-BUSNS-NAME PIC X(70). DTSZXPFL 00226 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00227 05 TAX2-ENTITY-LAST-NAME PIC X(35). DTSZXPFL 00228 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00229 05 TAX2-ENTITY-FIRST-NAME PIC X(35). DTSZXPFL 00230 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00231 05 TAX2-ENTITY-MID-INIT PIC X(01). DTSZXPFL 00232 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00233 05 TAX2-ENTITY-SUFFIX PIC X(10). DTSZXPFL 00234 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00235 05 TAX2-ENTITY-DOB PIC X(10). DTSZXPFL 00236 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00237 05 TAX2-STREET-NUMBER PIC X(10). DTSZXPFL 00238 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00239 05 TAX2-STREET-NAME PIC X(100). DTSZXPFL 00240 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00241 05 TAX2-CITY PIC X(30). DTSZXPFL 00242 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00243 05 TAX2-STATE PIC X(02). DTSZXPFL 00244 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00245 05 TAX2-ZIP PIC X(05). DTSZXPFL 00246 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00247 05 TAX2-ZIP-EXT PIC X(04). DTSZXPFL 00248 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00249 05 TAX2-FAILURE-TO-FILE-IND PIC X(01). DTSZXPFL 00250 88 TAX2-FAIL-TO-FILE-YES-88 VALUE 'Y'. DTSZXPFL 00251 88 TAX2-FAIL-TO-FILE-NO-88 VALUE 'N'. DTSZXPFL 00252 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00253 05 TAX2-DEBT-AMT PIC ZZZZZZZZZZ9.99. DTSZXPFL 00254 05 FILLER PIC X(01) VALUE '|'. DTSZXPFL 00255 05 TAX2-AGY-REPORT-DT PIC X(10). DTSZXPFL 00256 01 TSKL-REC. DTSZXPFL 00257 ++INCLUDE DTSITSKL DTSZXPFL 00258 EJECT DTSZXPFL 00259 01 T003-REC. DTSZXPFL 00260 ++INCLUDE DTSIT003 DTSZXPFL 00261 EJECT DTSZXPFL 00262 01 L001-LINK-AREA. DTSZXPFL 00263 ++INCLUDE DTSIL001 DTSZXPFL 00264 EJECT DTSZXPFL 00265 01 L005-LINK-AREA. DTSZXPFL 00266 ++INCLUDE DTSIL005 DTSZXPFL 00267 EJECT DTSZXPFL 00268 01 L039-LINK-AREA. DTSZXPFL 00269 ++INCLUDE DTSIL039 DTSZXPFL 00270 EJECT DTSZXPFL 00271 01 L101-LINK-AREA. DTSZXPFL 00272 ++INCLUDE DTSIL101 DTSZXPFL 00273 EJECT DTSZXPFL 00274 01 L102-LINK-AREA. DTSZXPFL 00275 ++INCLUDE DTSIL102 DTSZXPFL 00276 EJECT DTSZXPFL 00277 01 L109-LINK-AREA. DTSZXPFL 00278 ++INCLUDE DTSIL109 DTSZXPFL 00279 DTSZXPFL 00280 01 L054-LINK-AREA. DTSZXPFL 00281 ++INCLUDE DTSIL054 DTSZXPFL 00282 EJECT DTSZXPFL 00283 01 L410-LINK-AREA. DTSZXPFL 00284 ++INCLUDE DTSIL410 DTSZXPFL 00285 EJECT DTSZXPFL 00286 01 L600-LINK-AREA. DTSZXPFL 00287 ++INCLUDE DTSIL600 DTSZXPFL 00288 EJECT DTSZXPFL 00289 01 L910-LINK-AREA. DTSZXPFL 00290 ++INCLUDE DTSIL910 DTSZXPFL 00291 EJECT DTSZXPFL 00292 01 MSKL-REC. DTSZXPFL 00293 ++INCLUDE DTSIMSKL DTSZXPFL 00294 EJECT DTSZXPFL 00295 EJECT DTSZXPFL 00296 01 L921-LINK-AREA. DTSZXPFL 00297 ++INCLUDE DTSIL921 DTSZXPFL 00298 EJECT DTSZXPFL 00299 01 ISKL-REC. DTSZXPFL 00300 ++INCLUDE DTSIISKL DTSZXPFL 00301 EJECT DTSZXPFL 00302 01 IPES-REC. DTSZXPFL 00303 ++INCLUDE DTSIIPES DTSZXPFL 00304 EJECT DTSZXPFL 00305 01 L931-LINK-AREA. DTSZXPFL 00306 ++INCLUDE DTSIL931 DTSZXPFL 00307 EJECT DTSZXPFL 00308 01 FSKL-REC. DTSZXPFL 00309 ++INCLUDE DTSIFSKL DTSZXPFL 00310 EJECT DTSZXPFL 00311 01 L933-LINK-AREA. DTSZXPFL 00312 ++INCLUDE DTSIL933 DTSZXPFL 00313 EJECT DTSZXPFL 00314 01 L004-COMM-AREA. DTSZXPFL 00315 ++INCLUDE DTSIL004 DTSZXPFL 00316 EJECT DTSZXPFL 00317 01 L923-LINK-AREA. DTSZXPFL 00318 ++INCLUDE DTSIL923 DTSZXPFL 00319 EJECT DTSZXPFL 00320 01 L927-LINK-AREA. DTSZXPFL 00321 ++INCLUDE DTSIL927 DTSZXPFL 00322 EJECT DTSZXPFL 00323 PROCEDURE DIVISION. DTSZXPFL 00324 DTSZXPFL 00325 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSZXPFL 00326 PERFORM P0000-PROCESS THRU P0000-EXIT DTSZXPFL 00327 UNTIL FILE-END = 'Y' CL*16 00328 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSZXPFL 00329 SKIP2 DTSZXPFL 00330 GOBACK. DTSZXPFL 00331 EJECT DTSZXPFL 00332 I0000-INITIATE. DTSZXPFL 00333 SKIP2 DTSZXPFL 00334 MOVE 'N' TO WRK-TRACE-IND. DTSZXPFL 00335 SET WRK-ERROR-NO-88 TO TRUE. DTSZXPFL 00336 DTSZXPFL 00337 PERFORM I2000-OPEN-FILES-1 THRU I2000-EXIT. DTSZXPFL 00338 DTSZXPFL 00339 DTSZXPFL 00340 I0000-EXIT. DTSZXPFL 00341 EXIT. DTSZXPFL 00342 I2000-OPEN-FILES-1. DTSZXPFL 00343 OPEN INPUT TAX-FILE1. DTSZXPFL 00344 IF NOT TAX-STATUS-OK-88 DTSZXPFL 00345 DISPLAY 'CANNOT OPEN TAX FILE ' TAX-STATUS DTSZXPFL 00346 SET WRK-ERROR-YES-88 TO TRUE DTSZXPFL 00347 GO TO I2000-EXIT. DTSZXPFL 00348 OPEN INPUT PFL-FILE1. DTSZXPFL 00349 IF NOT PFL-STATUS-OK-88 DTSZXPFL 00350 DISPLAY 'CANNOT OPEN PFL FILE ' PFL-STATUS DTSZXPFL 00351 SET WRK-ERROR-YES-88 TO TRUE DTSZXPFL 00352 GO TO I2000-EXIT. DTSZXPFL 00353 OPEN OUTPUT TAX-FILE2. DTSZXPFL 00354 IF NOT TAX2-STATUS-OK-88 DTSZXPFL 00355 DISPLAY 'CANNOT OPEN TAX FILE2 ' TAX2-STATUS DTSZXPFL 00356 SET WRK-ERROR-YES-88 TO TRUE DTSZXPFL 00357 GO TO I2000-EXIT. DTSZXPFL 00358 MOVE WRK-TRACE-IND TO L910-TRACE-IND. DTSZXPFL 00359 DTSZXPFL 00360 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSZXPFL 00361 DTSZXPFL 00362 * PERFORM S910-OPEN-READ THRU S910-EXIT. CL*16 00363 * PERFORM S910-OPEN-UPDATE-NO-AIX THRU S910-EXIT. CL*11 00364 * PERFORM S923-OPEN-UPDATE THRU S923-EXIT. DTSZXPFL 00365 * PERFORM S927-OPEN-UPDATE THRU S927-EXIT. DTSZXPFL 00366 DTSZXPFL 00367 PERFORM S005-FROM-SYS THRU S005-EXIT. DTSZXPFL 00368 DTSZXPFL 00369 * PERFORM S931-OPEN-UPDATE THRU S931-EXIT. DTSZXPFL 00370 DTSZXPFL 00371 MOVE WRK-MOD-NAME TO L933-MOD-NAME. DTSZXPFL 00372 MOVE ZERO TO WS-TOTAL-AMT. DTSZXPFL 00373 MOVE 'N' TO FILE-END. DTSZXPFL 00374 DTSZXPFL 00375 READ TAX-FILE1 DTSZXPFL 00376 INTO EMP-REC1 DTSZXPFL 00377 AT END MOVE 'Y' TO FILE-END DTSZXPFL 00378 END-READ. DTSZXPFL 00379 DTSZXPFL 00380 READ PFL-FILE1 DTSZXPFL 00381 INTO PFL-FILE DTSZXPFL 00382 AT END MOVE 'Y' TO PFL-FILE-END DTSZXPFL 00383 DTSZXPFL 00384 END-READ. DTSZXPFL 00385 DTSZXPFL 00386 IF TAX-AGY-TRACKING-ID NOT NUMERIC DTSZXPFL 00387 PERFORM S6200-READ-TAX DTSZXPFL 00388 END-IF. DTSZXPFL 00389 DTSZXPFL 00390 DTSZXPFL 00391 I2000-EXIT. DTSZXPFL 00392 EXIT. DTSZXPFL 00393 DTSZXPFL 00394 P0000-PROCESS. DTSZXPFL 00395 ADD 1 TO TAX-READ CL*16 00396 IF TAX-READ = 1 CL*16 00397 MOVE EMP-REC1 TO PFL-FILE CL*20 00398 MOVE ZEROS TO WS-TOTAL-AMT CL*20 00399 GO TO P0000-CONTINUE. CL*16 00400 CL*16 00401 IF TAX-AGY-TRACKING-ID = DTSZXPFL 00402 PFL-AGY-TRACKING-ID CL*20 00403 DISPLAY 'TXID = ' TAX-AGY-TRACKING-ID CL*34 00404 ' PFID ' PFL-AGY-TRACKING-ID CL*34 00405 MOVE PFL-DEBT-AMT TO WS-PFL-AMT CL*20 00406 ADD WS-PFL-AMT TO WS-TOTAL-AMT CL*20 00407 MOVE EMP-REC1 TO PFL-FILE CL*20 00408 ADD 1 TO DUP-CNT CL*35 00409 GO TO P0000-CONTINUE CL*20 00410 ELSE CL*20 00411 ADD 1 TO ZUP-CNT CL*35 00412 PERFORM S5000-WRITE-PFL CL*20 00413 MOVE ZEROS TO WS-TOTAL-AMT CL*20 00414 MOVE EMP-REC1 TO PFL-FILE CL*20 00415 GO TO P0000-CONTINUE. CL*20 00416 CL*20 00417 P0000-CONTINUE. CL*16 00418 PERFORM S6200-READ-TAX. CL*19 00419 IF FILE-END = 'Y' CL*34 00420 ADD 1 TO ZUP-CNT CL*36 00421 PERFORM S5000-WRITE-PFL. CL*34 00422 P0000-EXIT. CL*16 00423 EXIT. CL*16 00424 DTSZXPFL 00425 S6200-READ-TAX. DTSZXPFL 00426 DTSZXPFL 00427 READ TAX-FILE1 DTSZXPFL 00428 INTO EMP-REC1 DTSZXPFL 00429 AT END MOVE 'Y' TO FILE-END DTSZXPFL 00430 END-READ. DTSZXPFL 00431 DTSZXPFL 00432 S6200-EXIT. DTSZXPFL 00433 EXIT. DTSZXPFL 00434 EJECT DTSZXPFL 00435 DTSZXPFL 00436 SKIP3 DTSZXPFL 00437 S5000-WRITE-PFL. DTSZXPFL 00438 DTSZXPFL 00439 MOVE PFL-AGY-TRACKING-ID TO TAX2-AGY-TRACKING-ID. DTSZXPFL 00440 DTSZXPFL 00441 MOVE PFL-AGY-ID-ADM-DIV TO TAX2-AGY-ID-ADM-DIV. DTSZXPFL 00442 DTSZXPFL 00443 MOVE PFL-ENTITY-ID-TYPE TO TAX2-ENTITY-ID-TYPE. DTSZXPFL 00444 DTSZXPFL 00445 MOVE PFL-ENTITY-ID TO TAX2-ENTITY-ID. DTSZXPFL 00446 DTSZXPFL 00447 MOVE PFL-RELATIONSHIP-IND TO TAX2-RELATIONSHIP-IND. DTSZXPFL 00448 DTSZXPFL 00449 MOVE PFL-ENTITY-BUSNS-NAME TO TAX2-ENTITY-BUSNS-NAME. DTSZXPFL 00450 DTSZXPFL 00451 MOVE PFL-ENTITY-LAST-NAME TO TAX2-ENTITY-LAST-NAME. DTSZXPFL 00452 DTSZXPFL 00453 MOVE PFL-ENTITY-FIRST-NAME TO TAX2-ENTITY-FIRST-NAME. DTSZXPFL 00454 DTSZXPFL 00455 MOVE PFL-ENTITY-MID-INIT TO TAX2-ENTITY-MID-INIT. DTSZXPFL 00456 DTSZXPFL 00457 MOVE PFL-ENTITY-SUFFIX TO TAX2-ENTITY-SUFFIX. DTSZXPFL 00458 DTSZXPFL 00459 MOVE PFL-ENTITY-DOB TO TAX2-ENTITY-DOB. DTSZXPFL 00460 DTSZXPFL 00461 MOVE PFL-STREET-NUMBER TO TAX2-STREET-NUMBER. DTSZXPFL 00462 DTSZXPFL 00463 MOVE PFL-STREET-NAME TO TAX2-STREET-NAME. DTSZXPFL 00464 DTSZXPFL 00465 MOVE PFL-CITY TO TAX2-CITY. DTSZXPFL 00466 DTSZXPFL 00467 MOVE PFL-STATE TO TAX2-STATE. DTSZXPFL 00468 DTSZXPFL 00469 MOVE PFL-ZIP TO TAX2-ZIP. DTSZXPFL 00470 DTSZXPFL 00471 MOVE PFL-ZIP-EXT TO TAX2-ZIP-EXT. DTSZXPFL 00472 DTSZXPFL 00473 MOVE PFL-FAILURE-TO-FILE-IND DTSZXPFL 00474 TO TAX2-FAILURE-TO-FILE-IND. DTSZXPFL 00475 CL*20 00476 MOVE PFL-AGY-REPORT-DT TO TAX2-AGY-REPORT-DT. CL*20 00477 CL*20 00478 MOVE PFL-DEBT-AMT TO WS-PFL-AMT CL*20 00479 ADD WS-PFL-AMT TO WS-TOTAL-AMT CL*20 00480 CL*20 00481 IF WS-TOTAL-AMT > WRK-BAL CL*31 00482 MOVE WS-TOTAL-AMT TO TAX2-DEBT-AMT DTSZXPFL 00483 WRITE TAX-REC2 FROM EMP-REC2 CL*20 00484 ADD 1 TO REC-CNT CL*35 00485 ELSE CL*24 00486 ADD 1 TO ZEC-CNT CL*35 00487 DISPLAY 'COMBINED DEBT NOT > 99D ' PFL-AGY-TRACKING-ID CL*30 00488 ' TOTAL ' WS-TOTAL-AMT ' WRK-BAL ' WRK-BAL. CL*31 00489 DTSZXPFL 00490 DTSZXPFL 00491 S5000-EXIT. DTSZXPFL 00492 EXIT. DTSZXPFL 00493 EJECT DTSZXPFL 00494 DTSZXPFL 00495 SKIP3 DTSZXPFL 00496 DTSZXPFL 00497 S5100-WRITE-TAX. DTSZXPFL 00498 DTSZXPFL 00499 DTSZXPFL 00500 DTSZXPFL 00501 MOVE TAX-AGY-TRACKING-ID TO TAX2-AGY-TRACKING-ID. DTSZXPFL 00502 DTSZXPFL 00503 MOVE TAX-AGY-ID-ADM-DIV TO TAX2-AGY-ID-ADM-DIV. DTSZXPFL 00504 DTSZXPFL 00505 MOVE TAX-ENTITY-ID-TYPE TO TAX2-ENTITY-ID-TYPE. DTSZXPFL 00506 DTSZXPFL 00507 MOVE TAX-ENTITY-ID TO TAX2-ENTITY-ID. DTSZXPFL 00508 DTSZXPFL 00509 MOVE TAX-RELATIONSHIP-IND TO TAX2-RELATIONSHIP-IND. DTSZXPFL 00510 DTSZXPFL 00511 MOVE TAX-ENTITY-BUSNS-NAME TO TAX2-ENTITY-BUSNS-NAME. DTSZXPFL 00512 DTSZXPFL 00513 MOVE TAX-ENTITY-LAST-NAME TO TAX2-ENTITY-LAST-NAME. DTSZXPFL 00514 DTSZXPFL 00515 MOVE TAX-ENTITY-FIRST-NAME TO TAX2-ENTITY-FIRST-NAME. DTSZXPFL 00516 DTSZXPFL 00517 MOVE TAX-ENTITY-MID-INIT TO TAX2-ENTITY-MID-INIT. DTSZXPFL 00518 DTSZXPFL 00519 MOVE TAX-ENTITY-SUFFIX TO TAX2-ENTITY-SUFFIX. DTSZXPFL 00520 DTSZXPFL 00521 MOVE TAX-ENTITY-DOB TO TAX2-ENTITY-DOB. DTSZXPFL 00522 DTSZXPFL 00523 MOVE TAX-STREET-NUMBER TO TAX2-STREET-NUMBER. DTSZXPFL 00524 DTSZXPFL 00525 MOVE TAX-STREET-NAME TO TAX2-STREET-NAME. DTSZXPFL 00526 DTSZXPFL 00527 MOVE TAX-CITY TO TAX2-CITY. DTSZXPFL 00528 DTSZXPFL 00529 MOVE TAX-STATE TO TAX2-STATE. DTSZXPFL 00530 DTSZXPFL 00531 MOVE TAX-ZIP TO TAX2-ZIP. DTSZXPFL 00532 DTSZXPFL 00533 MOVE TAX-ZIP-EXT TO TAX2-ZIP-EXT. DTSZXPFL 00534 DTSZXPFL 00535 MOVE TAX-FAILURE-TO-FILE-IND DTSZXPFL 00536 TO TAX2-FAILURE-TO-FILE-IND. DTSZXPFL 00537 DTSZXPFL 00538 IF WS-TOTAL-AMT > ZERO DTSZXPFL 00539 MOVE WS-TOTAL-AMT TO TAX2-DEBT-AMT DTSZXPFL 00540 ELSE DTSZXPFL 00541 MOVE TAX-DEBT-AMT TO TAX2-DEBT-AMT DTSZXPFL 00542 END-IF. DTSZXPFL 00543 DTSZXPFL 00544 MOVE TAX-AGY-REPORT-DT TO TAX2-AGY-REPORT-DT. DTSZXPFL 00545 DTSZXPFL 00546 WRITE TAX-REC2 FROM EMP-REC2. DTSZXPFL 00547 DTSZXPFL 00548 ADD 1 TO WS-REC-CNT. DTSZXPFL 00549 DTSZXPFL 00550 DTSZXPFL 00551 S5100-EXIT. DTSZXPFL 00552 EXIT. DTSZXPFL 00553 EJECT DTSZXPFL 00554 DTSZXPFL 00555 SKIP3 DTSZXPFL 00556 T0000-TERMINATE. DTSZXPFL 00557 DTSZXPFL 00558 DTSZXPFL 00559 DISPLAY ' '. DTSZXPFL 00560 DTSZXPFL 00561 DISPLAY '*** DTSZXPFL TERMINATION STATISTICS ***'. CL*35 00562 DTSZXPFL 00563 DISPLAY ' '. DTSZXPFL 00564 DISPLAY 'TOTAL TAX-PFL (COMBINED) RECORDS READ ' TAX-READ. CL*35 00565 DISPLAY 'TOTAL TAX-PFL (MATCH FEIN) RECORDS.. ' DUP-CNT. CL*37 00566 DISPLAY 'TOTAL TAX-PFL (CLEAN HANDS) RECORDS.. ' ZUP-CNT. CL*37 00567 DISPLAY 'TOTAL TAX-PFL (SENT TO OTR) AMT > 100 ' REC-CNT. CL*35 00568 DISPLAY 'TOTAL TAX-PFL (NOT SENT TO OTR) < 100 ' ZEC-CNT. CL*35 00569 MOVE REC-CNT TO HEADER-CNT. CL*35 00570 WRITE TAX-REC2 FROM HEADER-REC. DTSZXPFL 00571 DTSZXPFL 00572 CLOSE TAX-FILE1 DTSZXPFL 00573 PFL-FILE1 DTSZXPFL 00574 TAX-FILE2. DTSZXPFL 00575 T0000-EXIT. DTSZXPFL 00576 EXIT. DTSZXPFL 00577 EJECT DTSZXPFL 00578 S001-FROM-FED-8. CL**9 00579 SET L001-FROM-FED-8 TO TRUE. CL**9 00580 GO TO S001-DATE. CL**9 00581 DTSZXPFL 00582 S001-FROM-ABS-DAY. DTSZXPFL 00583 SET L001-FROM-ABS-DAY TO TRUE. DTSZXPFL 00584 GO TO S001-DATE. DTSZXPFL 00585 DTSZXPFL 00586 S001-DATE. DTSZXPFL 00587 CALL 'DTSBU001' USING L001-LINK-AREA. DTSZXPFL 00588 DTSZXPFL 00589 S001-EXIT. DTSZXPFL 00590 EXIT. DTSZXPFL 00591 SKIP3 DTSZXPFL 00592 S004-FROM-5. DTSZXPFL 00593 SET L004-FROM-5 TO TRUE. DTSZXPFL 00594 GO TO S004-EDIT-QTR. DTSZXPFL 00595 DTSZXPFL 00596 S004-FROM-ABS. DTSZXPFL 00597 SET L004-FROM-ABS TO TRUE. DTSZXPFL 00598 GO TO S004-EDIT-QTR. DTSZXPFL 00599 DTSZXPFL 00600 S004-EDIT-QTR. DTSZXPFL 00601 CALL 'DTSBU004' USING L004-COMM-AREA. DTSZXPFL 00602 DTSZXPFL 00603 S004-EXIT. DTSZXPFL 00604 EXIT. DTSZXPFL 00605 SKIP3 DTSZXPFL 00606 DTSZXPFL 00607 S005-FROM-SYS. DTSZXPFL 00608 SET L005-FROM-SYS TO TRUE. DTSZXPFL 00609 CALL 'DTSBU005' USING L005-LINK-AREA. DTSZXPFL 00610 DTSZXPFL 00611 S005-EXIT. DTSZXPFL 00612 EXIT. DTSZXPFL 00613 DTSZXPFL 00614 S005-FROM-ABSTIME. CL**9 00615 SET L005-FROM-ABSTIME TO TRUE. CL**9 00616 GO TO S005-ABSTIME. CL**9 00617 DTSZXPFL 00618 S005-ABSTIME. DTSZXPFL 00619 CALL 'DTSBU005' USING L005-LINK-AREA. DTSZXPFL 00620 S005-A-EXIT. DTSZXPFL 00621 EXIT. DTSZXPFL 00622 SKIP3 DTSZXPFL 00623 S039-SIC-EDIT. DTSZXPFL 00624 CALL 'DTSBU039' USING L039-LINK-AREA. DTSZXPFL 00625 S039-EXIT. DTSZXPFL 00626 EXIT. DTSZXPFL 00627 DTSZXPFL 00628 S054-EXIT. DTSZXPFL 00629 EXIT. DTSZXPFL 00630 SKIP3 DTSZXPFL 00631 S101-PER-MONTH-NO. DTSZXPFL 00632 SET L101-PER-MONTH-NO-88 TO TRUE. DTSZXPFL 00633 GO TO S101-INT-CHARGE. DTSZXPFL 00634 DTSZXPFL 00635 S101-INT-CHARGE. DTSZXPFL 00636 CALL 'DTSBU101' USING L101-LINK-AREA. DTSZXPFL 00637 S101-EXIT. DTSZXPFL 00638 EXIT. DTSZXPFL 00639 DTSZXPFL 00640 S109-FIRST-PEN-INT-YRQ. DTSZXPFL 00641 SET L109-CMND-PEN-INT-QTR-88 TO TRUE. DTSZXPFL 00642 CALL 'DTSBU109' USING L109-LINK-AREA. DTSZXPFL 00643 S109-EXIT. DTSZXPFL 00644 EXIT. DTSZXPFL 00645 DTSZXPFL 00646 S410-FILING-SCHED. DTSZXPFL 00647 CALL 'DTSBU410' USING L410-LINK-AREA. DTSZXPFL 00648 DTSZXPFL 00649 S410-EXIT. DTSZXPFL 00650 EXIT. DTSZXPFL 00651 SKIP3 DTSZXPFL 00652 S910-OPEN-READ. DTSZXPFL 00653 SET L910-OPEN-READ-88 TO TRUE. DTSZXPFL 00654 GO TO S910-MSTR-IO. DTSZXPFL 00655 DTSZXPFL 00656 S910-OPEN-UPDATE-NO-AIX. DTSZXPFL 00657 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSZXPFL 00658 GO TO S910-MSTR-IO. DTSZXPFL 00659 DTSZXPFL 00660 S910-READ. CL**9 00661 SET L910-READ-88 TO TRUE. CL**9 00662 GO TO S910-MSTR-IO. CL**9 00663 DTSZXPFL 00664 S910-START-BROWSE. DTSZXPFL 00665 SET L910-START-BROWSE-88 TO TRUE. DTSZXPFL 00666 GO TO S910-MSTR-IO. DTSZXPFL 00667 DTSZXPFL 00668 S910-READ-NEXT. DTSZXPFL 00669 SET L910-READ-NEXT-88 TO TRUE. DTSZXPFL 00670 GO TO S910-MSTR-IO. DTSZXPFL 00671 DTSZXPFL 00672 S910-COUNT. DTSZXPFL 00673 SET L910-COUNT-88 TO TRUE. DTSZXPFL 00674 GO TO S910-MSTR-IO. DTSZXPFL 00675 DTSZXPFL 00676 S910-REWRITE. DTSZXPFL 00677 SET L910-REWRITE-88 TO TRUE. DTSZXPFL 00678 GO TO S910-MSTR-IO. DTSZXPFL 00679 DTSZXPFL 00680 S910-DELETE. DTSZXPFL 00681 SET L910-DELETE-88 TO TRUE. DTSZXPFL 00682 GO TO S910-MSTR-IO. DTSZXPFL 00683 DTSZXPFL 00684 S910-CLOSE. DTSZXPFL 00685 SET L910-CLOSE-88 TO TRUE. DTSZXPFL 00686 GO TO S910-MSTR-IO. DTSZXPFL 00687 DTSZXPFL 00688 S910-MSTR-IO. DTSZXPFL 00689 CALL 'DTSBU910' USING L910-LINK-AREA DTSZXPFL 00690 MSKL-REC. DTSZXPFL 00691 S910-EXIT. DTSZXPFL 00692 EXIT. DTSZXPFL 00693 SKIP3 DTSZXPFL 00694 S921-OPEN-READ. CL**9 00695 SET L921-OPEN-READ-88 TO TRUE. CL**9 00696 GO TO S921-AIX-IO. CL**9 00697 DTSZXPFL 00698 S921-START-BROWSE. DTSZXPFL 00699 SET L921-START-BROWSE-88 TO TRUE. DTSZXPFL 00700 GO TO S921-AIX-IO. DTSZXPFL 00701 DTSZXPFL 00702 S921-CLOSE. DTSZXPFL 00703 SET L921-CLOSE-88 TO TRUE. DTSZXPFL 00704 GO TO S921-AIX-IO. DTSZXPFL 00705 DTSZXPFL 00706 SKIP3 DTSZXPFL 00707 S921-AIX-IO. DTSZXPFL 00708 CALL 'DTSBU921' USING L921-LINK-AREA DTSZXPFL 00709 ISKL-REC. DTSZXPFL 00710 S921-EXIT. DTSZXPFL 00711 EXIT. DTSZXPFL 00712 SKIP3 DTSZXPFL 00713 DTSZXPFL 00714 SKIP3 DTSZXPFL 00715 S927-OPEN-UPDATE. DTSZXPFL 00716 SET L927-OPEN-UPDATE-88 TO TRUE. DTSZXPFL 00717 GO TO S927-BTC-O. DTSZXPFL 00718 DTSZXPFL 00719 S927-WRITE. DTSZXPFL 00720 SET L927-WRITE-88 TO TRUE. DTSZXPFL 00721 GO TO S927-BTC-O. DTSZXPFL 00722 DTSZXPFL 00723 S927-CLOSE. DTSZXPFL 00724 SET L927-CLOSE-88 TO TRUE. DTSZXPFL 00725 GO TO S927-BTC-O. DTSZXPFL 00726 DTSZXPFL 00727 S927-BTC-O. DTSZXPFL 00728 CALL 'DTSBU927' USING L927-LINK-AREA DTSZXPFL 00729 TSKL-REC. DTSZXPFL 00730 S927-EXIT. DTSZXPFL 00731 EXIT. DTSZXPFL 00732 DTSZXPFL 00733 SKIP3 DTSZXPFL 00734 S931-OPEN-READ. DTSZXPFL 00735 SET L931-OPEN-READ-88 TO TRUE. DTSZXPFL 00736 GO TO S931-REF-IO. DTSZXPFL 00737 DTSZXPFL 00738 S931-OPEN-UPDATE. DTSZXPFL 00739 SET L931-OPEN-UPDATE-88 TO TRUE. DTSZXPFL 00740 GO TO S931-REF-IO. DTSZXPFL 00741 DTSZXPFL 00742 S931-START-BROWSE. DTSZXPFL 00743 SET L931-START-BROWSE-88 TO TRUE. DTSZXPFL 00744 GO TO S931-REF-IO. DTSZXPFL 00745 DTSZXPFL 00746 S931-READ. DTSZXPFL 00747 SET L931-READ-88 TO TRUE. DTSZXPFL 00748 GO TO S931-REF-IO. DTSZXPFL 00749 DTSZXPFL 00750 S931-READ-NEXT. DTSZXPFL 00751 SET L931-READ-NEXT-88 TO TRUE. DTSZXPFL 00752 GO TO S931-REF-IO. DTSZXPFL 00753 DTSZXPFL 00754 S931-DELETE. DTSZXPFL 00755 SET L931-DELETE-88 TO TRUE. DTSZXPFL 00756 GO TO S931-REF-IO. DTSZXPFL 00757 DTSZXPFL 00758 S931-REWRITE. DTSZXPFL 00759 SET L931-REWRITE-88 TO TRUE. DTSZXPFL 00760 GO TO S931-REF-IO. DTSZXPFL 00761 DTSZXPFL 00762 S931-WRITE. DTSZXPFL 00763 SET L931-WRITE-88 TO TRUE. DTSZXPFL 00764 GO TO S931-REF-IO. DTSZXPFL 00765 DTSZXPFL 00766 S931-CLOSE. DTSZXPFL 00767 SET L931-CLOSE-88 TO TRUE. DTSZXPFL 00768 GO TO S931-REF-IO. DTSZXPFL 00769 DTSZXPFL 00770 S931-REF-IO. DTSZXPFL 00771 CALL 'DTSBU931' USING L931-LINK-AREA DTSZXPFL 00772 FSKL-REC. DTSZXPFL 00773 S931-EXIT. DTSZXPFL 00774 EXIT. DTSZXPFL 00775 SKIP3 DTSZXPFL 00776 DTSZXPFL 00777 S999-ABEND. DTSZXPFL 00778 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSZXPFL 00779 S999-EXIT. DTSZXPFL 00780 EXIT. DTSZXPFL