00001 IDENTIFICATION DIVISION. 10/11/22 00002 PROGRAM-ID. DTSBXPFL. DTSBXPFL 00003 AUTHOR. NGUPTA LV002 00004 DATE-WRITTEN. JAN2017 DTSBXPFL 00005 DATE-COMPILED. DTSBXPFL 00006 SKIP3 DTSBXPFL 00007 ***** DTSBXPFL 00008 * DTSBXPFL 00009 * FUNCTION: MERGE PFL AND UI TAX FILES FOR OTR DTSBXPFL 00010 * DTSBXPFL 00011 * DTSBXPFL 00012 ***** DTSBXPFL 00013 SKIP3 DTSBXPFL 00014 ENVIRONMENT DIVISION. DTSBXPFL 00015 SKIP2 DTSBXPFL 00016 CONFIGURATION SECTION. DTSBXPFL 00017 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBXPFL 00018 DTSBXPFL 00019 INPUT-OUTPUT SECTION. DTSBXPFL 00020 DTSBXPFL 00021 FILE-CONTROL. DTSBXPFL 00022 SELECT TAX-FILE1 ASSIGN TO TAXFILE1 DTSBXPFL 00023 FILE STATUS IS TAX-STATUS. DTSBXPFL 00024 SELECT PFL-FILE1 ASSIGN TO PFLFILE1 DTSBXPFL 00025 FILE STATUS IS PFL-STATUS. DTSBXPFL 00026 SELECT TAX-FILE2 ASSIGN TO TAXFILE2 DTSBXPFL 00027 FILE STATUS IS TAX2-STATUS. DTSBXPFL 00028 DTSBXPFL 00029 DTSBXPFL 00030 DATA DIVISION. DTSBXPFL 00031 DTSBXPFL 00032 FILE SECTION. DTSBXPFL 00033 DTSBXPFL 00034 FD TAX-FILE1 DTSBXPFL 00035 RECORDING MODE IS F. DTSBXPFL 00036 01 TAX-REC1. DTSBXPFL 00037 05 TAX-RECORD PIC X(386). DTSBXPFL 00038 DTSBXPFL 00039 DTSBXPFL 00040 FD PFL-FILE1 DTSBXPFL 00041 RECORDING MODE IS F. DTSBXPFL 00042 01 PFL-REC1. DTSBXPFL 00043 05 PFL-RECORD PIC X(386). DTSBXPFL 00044 DTSBXPFL 00045 DTSBXPFL 00046 FD TAX-FILE2 DTSBXPFL 00047 RECORDING MODE IS F. DTSBXPFL 00048 01 TAX-REC2. DTSBXPFL 00049 05 TAX-RECORD2 PIC X(386). DTSBXPFL 00050 DTSBXPFL 00051 DTSBXPFL 00052 WORKING-STORAGE SECTION. DTSBXPFL 000525 77 PAN-VALET PICTURE X(24) VALUE '002DTSBXPFL 10/11/22'. DTSBXPFL 00053 77 PAN-VALET PICTURE X(24) VALUE '053DTSBXPFL 10/05/21'. DTSBXPFL 00054 SKIP3 DTSBXPFL 00055 01 WRK-AREA. DTSBXPFL 00056 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +400.DTSBXPFL 00057 DTSBXPFL 00058 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD400'.DTSBXPFL 00059 DTSBXPFL 00060 05 WRK-MPRF-IND PIC X(01). DTSBXPFL 00061 88 WRK-MPRF-OK VALUE 'Y'. DTSBXPFL 00062 88 WRK-MPRF-NO-REC VALUE 'N'. DTSBXPFL 00063 05 WRK-MEVL-IND PIC X(01). DTSBXPFL 00064 88 WRK-MEVL-OK VALUE 'Y'. DTSBXPFL 00065 88 WRK-MEVL-NO-REC VALUE 'N'. DTSBXPFL 00066 05 WRK-ERROR-IND PIC X(01). DTSBXPFL 00067 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBXPFL 00068 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBXPFL 00069 *RW1 DTSBXPFL 00070 05 EXP-STATUS PIC X(02). DTSBXPFL 00071 88 EXP-STATUS-OK-88 VALUE '00'. DTSBXPFL 00072 05 TAX-STATUS PIC X(02). DTSBXPFL 00073 88 TAX-STATUS-OK-88 VALUE '00'. DTSBXPFL 00074 05 PFL-STATUS PIC X(02). DTSBXPFL 00075 88 PFL-STATUS-OK-88 VALUE '00'. DTSBXPFL 00076 05 TAX2-STATUS PIC X(02). DTSBXPFL 00077 88 TAX2-STATUS-OK-88 VALUE '00'. DTSBXPFL 00078 DTSBXPFL 00079 05 WRK-SPLIT. DTSBXPFL 00080 10 FILLER PIC X(1) VALUE '$'. DTSBXPFL 00081 10 WRK-DOL PIC 9(09). DTSBXPFL 00082 10 FILLER PIC X(1) VALUE '.'. DTSBXPFL 00083 10 WRK-CENT PIC 9(02). DTSBXPFL 00084 DTSBXPFL 00085 05 WS-TAX-AMT PIC 9(09)V9(02). DTSBXPFL 00086 05 WS-PFL-AMT PIC 9(09)V9(02). DTSBXPFL 00087 05 WS-TOTAL-AMT PIC 9(09)V9(02). DTSBXPFL 00088 05 WRK-BAL PIC 9(09)V9(02). DTSBXPFL 00089 05 FILE-END PIC X(01) VALUE 'N'. DTSBXPFL 00090 05 PFL-FILE-END PIC X(01) VALUE 'N'. DTSBXPFL 00091 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. DTSBXPFL 00092 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBXPFL 00093 05 WS-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. DTSBXPFL 00094 05 WRK-TRACE-IND PIC X(01). DTSBXPFL 00095 05 WS-REC-CNT PIC 9(07). DTSBXPFL 00096 01 HEADER-REC. DTSBXPFL 00097 DTSBXPFL 00098 05 FILLER PIC X(07) VALUE 'HEADER='. DTSBXPFL 00099 05 HEADER-CNT PIC 9(07). DTSBXPFL 00100 DTSBXPFL 00101 DTSBXPFL 00102 01 PFL-FILE. DTSBXPFL 00103 DTSBXPFL 00104 05 PFL-AGY-TRACKING-ID PIC X(13). DTSBXPFL 00105 05 FILLER PIC X(01). DTSBXPFL 00106 05 PFL-AGY-ID-ADM-DIV PIC X(06). DTSBXPFL 00107 05 FILLER PIC X(01). DTSBXPFL 00108 05 PFL-ENTITY-ID-TYPE PIC X(01). DTSBXPFL 00109 88 PFL-ENTITY-TYPE-SSN-88 VALUE 'S'. DTSBXPFL 00110 88 PFL-ENTITY-TYPE-EIN-88 VALUE 'E'. DTSBXPFL 00111 05 FILLER PIC X(01). DTSBXPFL 00112 05 PFL-ENTITY-ID PIC X(09). DTSBXPFL 00113 05 FILLER PIC X(01). DTSBXPFL 00114 05 PFL-RELATIONSHIP-IND PIC X(01). DTSBXPFL 00115 88 PFL-RELATION-EXISTS-88 VALUE 'R'. DTSBXPFL 00116 88 PFL-NO-RELATION-88 VALUE 'N'. DTSBXPFL 00117 05 FILLER PIC X(01). DTSBXPFL 00118 05 PFL-ENTITY-BUSNS-NAME PIC X(70). DTSBXPFL 00119 05 FILLER PIC X(01). DTSBXPFL 00120 05 PFL-ENTITY-LAST-NAME PIC X(35). DTSBXPFL 00121 05 FILLER PIC X(01). DTSBXPFL 00122 05 PFL-ENTITY-FIRST-NAME PIC X(35). DTSBXPFL 00123 05 FILLER PIC X(01). DTSBXPFL 00124 05 PFL-ENTITY-MID-INIT PIC X(01). DTSBXPFL 00125 05 FILLER PIC X(01). DTSBXPFL 00126 05 PFL-ENTITY-SUFFIX PIC X(10). DTSBXPFL 00127 05 FILLER PIC X(01). DTSBXPFL 00128 05 PFL-ENTITY-DOB PIC X(10). DTSBXPFL 00129 05 FILLER PIC X(01). DTSBXPFL 00130 05 PFL-STREET-NUMBER PIC X(10). DTSBXPFL 00131 05 FILLER PIC X(01). DTSBXPFL 00132 05 PFL-STREET-NAME PIC X(100). DTSBXPFL 00133 05 FILLER PIC X(01). DTSBXPFL 00134 05 PFL-CITY PIC X(30). DTSBXPFL 00135 05 FILLER PIC X(01). DTSBXPFL 00136 05 PFL-STATE PIC X(02). DTSBXPFL 00137 05 FILLER PIC X(01). DTSBXPFL 00138 05 PFL-ZIP PIC X(05). DTSBXPFL 00139 05 FILLER PIC X(01). DTSBXPFL 00140 05 PFL-ZIP-EXT PIC X(04). DTSBXPFL 00141 05 FILLER PIC X(01). DTSBXPFL 00142 05 PFL-FAILURE-TO-FILE-IND PIC X(01). DTSBXPFL 00143 88 PFL-FAIL-TO-FILE-YES-88 VALUE 'Y'. DTSBXPFL 00144 88 PFL-FAIL-TO-FILE-NO-88 VALUE 'N'. DTSBXPFL 00145 05 FILLER PIC X(01). DTSBXPFL 00146 05 PFL-DEBT-AMT PIC ----------9.99. DTSBXPFL 00147 05 FILLER PIC X(01). DTSBXPFL 00148 05 PFL-AGY-REPORT-DT PIC X(10). DTSBXPFL 00149 DTSBXPFL 00150 DTSBXPFL 00151 DTSBXPFL 00152 01 EMP-REC1. DTSBXPFL 00153 DTSBXPFL 00154 05 TAX-AGY-TRACKING-ID PIC X(13). DTSBXPFL 00155 05 FILLER PIC X(01). DTSBXPFL 00156 05 TAX-AGY-ID-ADM-DIV PIC X(06). DTSBXPFL 00157 05 FILLER PIC X(01). DTSBXPFL 00158 05 TAX-ENTITY-ID-TYPE PIC X(01). DTSBXPFL 00159 88 TAX-ENTITY-TYPE-SSN-88 VALUE 'S'. DTSBXPFL 00160 88 TAX-ENTITY-TYPE-EIN-88 VALUE 'E'. DTSBXPFL 00161 05 FILLER PIC X(01). DTSBXPFL 00162 05 TAX-ENTITY-ID PIC X(09). DTSBXPFL 00163 05 FILLER PIC X(01). DTSBXPFL 00164 05 TAX-RELATIONSHIP-IND PIC X(01). DTSBXPFL 00165 88 TAX0-RELATION-EXISTS-88 VALUE 'R'. DTSBXPFL 00166 88 TAX0-NO-RELATION-88 VALUE 'N'. DTSBXPFL 00167 05 FILLER PIC X(01). DTSBXPFL 00168 05 TAX-ENTITY-BUSNS-NAME PIC X(70). DTSBXPFL 00169 05 FILLER PIC X(01). DTSBXPFL 00170 05 TAX-ENTITY-LAST-NAME PIC X(35). DTSBXPFL 00171 05 FILLER PIC X(01). DTSBXPFL 00172 05 TAX-ENTITY-FIRST-NAME PIC X(35). DTSBXPFL 00173 05 FILLER PIC X(01). DTSBXPFL 00174 05 TAX-ENTITY-MID-INIT PIC X(01). DTSBXPFL 00175 05 FILLER PIC X(01). DTSBXPFL 00176 05 TAX-ENTITY-SUFFIX PIC X(10). DTSBXPFL 00177 05 FILLER PIC X(01). DTSBXPFL 00178 05 TAX-ENTITY-DOB PIC X(10). DTSBXPFL 00179 05 FILLER PIC X(01). DTSBXPFL 00180 05 TAX-STREET-NUMBER PIC X(10). DTSBXPFL 00181 05 FILLER PIC X(01). DTSBXPFL 00182 05 TAX-STREET-NAME PIC X(100). DTSBXPFL 00183 05 FILLER PIC X(01). DTSBXPFL 00184 05 TAX-CITY PIC X(30). DTSBXPFL 00185 05 FILLER PIC X(01). DTSBXPFL 00186 05 TAX-STATE PIC X(02). DTSBXPFL 00187 05 FILLER PIC X(01). DTSBXPFL 00188 05 TAX-ZIP PIC X(05). DTSBXPFL 00189 05 FILLER PIC X(01). DTSBXPFL 00190 05 TAX-ZIP-EXT PIC X(04). DTSBXPFL 00191 05 FILLER PIC X(01). DTSBXPFL 00192 05 TAX-FAILURE-TO-FILE-IND PIC X(01). DTSBXPFL 00193 88 TAX-FAIL-TO-FILE-YES-88 VALUE 'Y'. DTSBXPFL 00194 88 TAX-FAIL-TO-FILE-NO-88 VALUE 'N'. DTSBXPFL 00195 05 FILLER PIC X(01). DTSBXPFL 00196 05 TAX-DEBT-AMT PIC ----------9.99. DTSBXPFL 00197 05 FILLER PIC X(01). DTSBXPFL 00198 05 TAX-AGY-REPORT-DT PIC X(10). DTSBXPFL 00199 DTSBXPFL 00200 DTSBXPFL 00201 DTSBXPFL 00202 01 EMP-REC2. DTSBXPFL 00203 05 TAX2-AGY-TRACKING-ID PIC X(13). DTSBXPFL 00204 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00205 05 TAX2-AGY-ID-ADM-DIV PIC X(06). DTSBXPFL 00206 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00207 05 TAX2-ENTITY-ID-TYPE PIC X(01). DTSBXPFL 00208 88 TAX2-ENTITY-TYPE-SSN-88 VALUE 'S'. DTSBXPFL 00209 88 TAX2-ENTITY-TYPE-EIN-88 VALUE 'E'. DTSBXPFL 00210 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00211 05 TAX2-ENTITY-ID PIC X(09). DTSBXPFL 00212 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00213 05 TAX2-RELATIONSHIP-IND PIC X(01). DTSBXPFL 00214 88 TAX02-RELATION-EXISTS-88 VALUE 'R'. DTSBXPFL 00215 88 TAX02-NO-RELATION-88 VALUE 'N'. DTSBXPFL 00216 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00217 05 TAX2-ENTITY-BUSNS-NAME PIC X(70). DTSBXPFL 00218 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00219 05 TAX2-ENTITY-LAST-NAME PIC X(35). DTSBXPFL 00220 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00221 05 TAX2-ENTITY-FIRST-NAME PIC X(35). DTSBXPFL 00222 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00223 05 TAX2-ENTITY-MID-INIT PIC X(01). DTSBXPFL 00224 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00225 05 TAX2-ENTITY-SUFFIX PIC X(10). DTSBXPFL 00226 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00227 05 TAX2-ENTITY-DOB PIC X(10). DTSBXPFL 00228 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00229 05 TAX2-STREET-NUMBER PIC X(10). DTSBXPFL 00230 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00231 05 TAX2-STREET-NAME PIC X(100). DTSBXPFL 00232 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00233 05 TAX2-CITY PIC X(30). DTSBXPFL 00234 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00235 05 TAX2-STATE PIC X(02). DTSBXPFL 00236 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00237 05 TAX2-ZIP PIC X(05). DTSBXPFL 00238 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00239 05 TAX2-ZIP-EXT PIC X(04). DTSBXPFL 00240 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00241 05 TAX2-FAILURE-TO-FILE-IND PIC X(01). DTSBXPFL 00242 88 TAX2-FAIL-TO-FILE-YES-88 VALUE 'Y'. DTSBXPFL 00243 88 TAX2-FAIL-TO-FILE-NO-88 VALUE 'N'. DTSBXPFL 00244 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00245 05 TAX2-DEBT-AMT PIC ZZZZZZZZZZ9.99. DTSBXPFL 00246 05 FILLER PIC X(01) VALUE '|'. DTSBXPFL 00247 05 TAX2-AGY-REPORT-DT PIC X(10). DTSBXPFL 00248 01 TSKL-REC. DTSBXPFL 00249 ++INCLUDE DTSITSKL DTSBXPFL 00250 EJECT DTSBXPFL 00251 01 T003-REC. DTSBXPFL 00252 ++INCLUDE DTSIT003 DTSBXPFL 00253 EJECT DTSBXPFL 00254 01 L001-LINK-AREA. DTSBXPFL 00255 ++INCLUDE DTSIL001 DTSBXPFL 00256 EJECT DTSBXPFL 00257 01 L005-LINK-AREA. DTSBXPFL 00258 ++INCLUDE DTSIL005 DTSBXPFL 00259 EJECT DTSBXPFL 00260 01 L039-LINK-AREA. DTSBXPFL 00261 ++INCLUDE DTSIL039 DTSBXPFL 00262 EJECT DTSBXPFL 00263 01 L101-LINK-AREA. DTSBXPFL 00264 ++INCLUDE DTSIL101 DTSBXPFL 00265 EJECT DTSBXPFL 00266 01 L102-LINK-AREA. DTSBXPFL 00267 ++INCLUDE DTSIL102 DTSBXPFL 00268 EJECT DTSBXPFL 00269 01 L109-LINK-AREA. DTSBXPFL 00270 ++INCLUDE DTSIL109 DTSBXPFL 00271 DTSBXPFL 00272 01 L054-LINK-AREA. DTSBXPFL 00273 ++INCLUDE DTSIL054 DTSBXPFL 00274 EJECT DTSBXPFL 00275 01 L410-LINK-AREA. DTSBXPFL 00276 ++INCLUDE DTSIL410 DTSBXPFL 00277 EJECT DTSBXPFL 00278 01 L600-LINK-AREA. DTSBXPFL 00279 ++INCLUDE DTSIL600 DTSBXPFL 00280 EJECT DTSBXPFL 00281 01 L910-LINK-AREA. DTSBXPFL 00282 ++INCLUDE DTSIL910 DTSBXPFL 00283 EJECT DTSBXPFL 00284 01 MSKL-REC. DTSBXPFL 00285 ++INCLUDE DTSIMSKL DTSBXPFL 00286 EJECT DTSBXPFL 00287 01 MNTE-REC. DTSBXPFL 00288 ++INCLUDE DTSIMNTE DTSBXPFL 00289 EJECT DTSBXPFL 00290 01 MHDR-REC. DTSBXPFL 00291 ++INCLUDE DTSIMHDR DTSBXPFL 00292 EJECT DTSBXPFL 00293 01 MPRF-REC. DTSBXPFL 00294 ++INCLUDE DTSIMPRF DTSBXPFL 00295 EJECT DTSBXPFL 00296 01 MQTR-REC. DTSBXPFL 00297 ++INCLUDE DTSIMQTR DTSBXPFL 00298 EJECT DTSBXPFL 00299 01 MRPT-REC. DTSBXPFL 00300 ++INCLUDE DTSIMRPT DTSBXPFL 00301 EJECT DTSBXPFL 00302 01 MSOL-REC. DTSBXPFL 00303 ++INCLUDE DTSIMSOL DTSBXPFL 00304 EJECT DTSBXPFL 00305 01 MRCT-REC. DTSBXPFL 00306 ++INCLUDE DTSIMRCT DTSBXPFL 00307 EJECT DTSBXPFL 00308 01 MREL-REC. DTSBXPFL 00309 ++INCLUDE DTSIMREL DTSBXPFL 00310 EJECT DTSBXPFL 00311 01 MEVL-REC. DTSBXPFL 00312 ++INCLUDE DTSIMEVL DTSBXPFL 00313 EJECT DTSBXPFL 00314 01 MLIN-REC. DTSBXPFL 00315 ++INCLUDE DTSIMLIN DTSBXPFL 00316 EJECT DTSBXPFL 00317 01 MRTE-REC. DTSBXPFL 00318 ++INCLUDE DTSIMRTE DTSBXPFL 00319 EJECT DTSBXPFL 00320 01 MDST-REC. DTSBXPFL 00321 ++INCLUDE DTSIMDST DTSBXPFL 00322 EJECT DTSBXPFL 00323 01 MPAY-REC. DTSBXPFL 00324 ++INCLUDE DTSIMPAY DTSBXPFL 00325 EJECT DTSBXPFL 00326 01 MADJ-REC. DTSBXPFL 00327 ++INCLUDE DTSIMADJ DTSBXPFL 00328 EJECT DTSBXPFL 00329 01 MJRN-REC. DTSBXPFL 00330 ++INCLUDE DTSIMJRN DTSBXPFL 00331 EJECT DTSBXPFL 00332 01 MERA-REC. DTSBXPFL 00333 ++INCLUDE DTSIMERA DTSBXPFL 00334 EJECT DTSBXPFL 00335 01 MCOL-REC. DTSBXPFL 00336 ++INCLUDE DTSIMCOL DTSBXPFL 00337 EJECT DTSBXPFL 00338 01 MFAS-REC. DTSBXPFL 00339 ++INCLUDE DTSIMFAS DTSBXPFL 00340 01 MAUR-REC. DTSBXPFL 00341 ++INCLUDE DTSIMAUR DTSBXPFL 00342 EJECT DTSBXPFL 00343 01 MFAE-REC. DTSBXPFL 00344 ++INCLUDE DTSIMFAE DTSBXPFL 00345 EJECT DTSBXPFL 00346 01 MLOG-REC. DTSBXPFL 00347 ++INCLUDE DTSIMLOG DTSBXPFL 00348 EJECT DTSBXPFL 00349 01 MOPO-REC. DTSBXPFL 00350 ++INCLUDE DTSIMOPO DTSBXPFL 00351 EJECT DTSBXPFL 00352 01 MTAD-REC. DTSBXPFL 00353 ++INCLUDE DTSIMTAD DTSBXPFL 00354 EJECT DTSBXPFL 00355 01 MTAA-REC. DTSBXPFL 00356 ++INCLUDE DTSIMTAA DTSBXPFL 00357 EJECT DTSBXPFL 00358 01 MBAA-REC. DTSBXPFL 00359 ++INCLUDE DTSIMBAA DTSBXPFL 00360 EJECT DTSBXPFL 00361 01 MFSC-REC. DTSBXPFL 00362 ++INCLUDE DTSIMFSC DTSBXPFL 00363 EJECT DTSBXPFL 00364 01 MERD-REC. DTSBXPFL 00365 ++INCLUDE DTSIMERD DTSBXPFL 00366 EJECT DTSBXPFL 00367 01 MDPC-REC. DTSBXPFL 00368 ++INCLUDE DTSIMDPC DTSBXPFL 00369 EJECT DTSBXPFL 00370 01 L921-LINK-AREA. DTSBXPFL 00371 ++INCLUDE DTSIL921 DTSBXPFL 00372 EJECT DTSBXPFL 00373 01 ISKL-REC. DTSBXPFL 00374 ++INCLUDE DTSIISKL DTSBXPFL 00375 EJECT DTSBXPFL 00376 01 IPES-REC. DTSBXPFL 00377 ++INCLUDE DTSIIPES DTSBXPFL 00378 EJECT DTSBXPFL 00379 01 L931-LINK-AREA. DTSBXPFL 00380 ++INCLUDE DTSIL931 DTSBXPFL 00381 EJECT DTSBXPFL 00382 01 FSKL-REC. DTSBXPFL 00383 ++INCLUDE DTSIFSKL DTSBXPFL 00384 EJECT DTSBXPFL 00385 01 FQTR-REC. DTSBXPFL 00386 ++INCLUDE DTSIFQTR DTSBXPFL 00387 EJECT DTSBXPFL 00388 01 FFIS-REC. DTSBXPFL 00389 ++INCLUDE DTSIFFIS DTSBXPFL 00390 EJECT DTSBXPFL 00391 01 FFAZ-REC. DTSBXPFL 00392 ++INCLUDE DTSIFFAZ DTSBXPFL 00393 EJECT DTSBXPFL 00394 01 FOPR-REC. DTSBXPFL 00395 ++INCLUDE DTSIFOPR DTSBXPFL 00396 EJECT DTSBXPFL 00397 01 L933-LINK-AREA. DTSBXPFL 00398 ++INCLUDE DTSIL933 DTSBXPFL 00399 EJECT DTSBXPFL 00400 01 XSIC-REC. DTSBXPFL 00401 ++INCLUDE DTSIXSIC DTSBXPFL 00402 EJECT DTSBXPFL 00403 01 L004-COMM-AREA. DTSBXPFL 00404 ++INCLUDE DTSIL004 DTSBXPFL 00405 DTSBXPFL 00406 01 L061-LINK-AREA. DTSBXPFL 00407 ++INCLUDE DTSIL061 DTSBXPFL 00408 DTSBXPFL 00409 01 L062-LINK-AREA. DTSBXPFL 00410 ++INCLUDE DTSIL062 DTSBXPFL 00411 DTSBXPFL 00412 01 L516-LINK-AREA. DTSBXPFL 00413 ++INCLUDE DTSIL516 DTSBXPFL 00414 EJECT DTSBXPFL 00415 01 LBCM-LINK-AREA. DTSBXPFL 00416 ++INCLUDE DTSILBCM DTSBXPFL 00417 EJECT DTSBXPFL 00418 01 L923-LINK-AREA. DTSBXPFL 00419 ++INCLUDE DTSIL923 DTSBXPFL 00420 EJECT DTSBXPFL 00421 01 ASKL-REC. DTSBXPFL 00422 ++INCLUDE DTSIASKL DTSBXPFL 00423 EJECT DTSBXPFL 00424 01 AHDR-REC. DTSBXPFL 00425 ++INCLUDE DTSIAHDR DTSBXPFL 00426 EJECT DTSBXPFL 00427 01 AADJ-REC. DTSBXPFL 00428 ++INCLUDE DTSIAADJ DTSBXPFL 00429 EJECT DTSBXPFL 00430 01 L927-LINK-AREA. DTSBXPFL 00431 ++INCLUDE DTSIL927 DTSBXPFL 00432 EJECT DTSBXPFL 00433 PROCEDURE DIVISION. DTSBXPFL 00434 DTSBXPFL 00435 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBXPFL 00436 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBXPFL 00437 UNTIL FILE-END = 'Y' AND DTSBXPFL 00438 PFL-FILE-END = 'Y' DTSBXPFL 00439 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBXPFL 00440 SKIP2 DTSBXPFL 00441 GOBACK. DTSBXPFL 00442 EJECT DTSBXPFL 00443 I0000-INITIATE. DTSBXPFL 00444 SKIP2 DTSBXPFL 00445 MOVE 'N' TO WRK-TRACE-IND. DTSBXPFL 00446 SET WRK-ERROR-NO-88 TO TRUE. DTSBXPFL 00447 DTSBXPFL 00448 PERFORM I2000-OPEN-FILES-1 THRU I2000-EXIT. DTSBXPFL 00449 DTSBXPFL 00450 DTSBXPFL 00451 I0000-EXIT. DTSBXPFL 00452 EXIT. DTSBXPFL 00453 I2000-OPEN-FILES-1. DTSBXPFL 00454 OPEN INPUT TAX-FILE1. DTSBXPFL 00455 IF NOT TAX-STATUS-OK-88 DTSBXPFL 00456 DISPLAY 'CANNOT OPEN TAX FILE ' TAX-STATUS DTSBXPFL 00457 SET WRK-ERROR-YES-88 TO TRUE DTSBXPFL 00458 GO TO I2000-EXIT. DTSBXPFL 00459 OPEN INPUT PFL-FILE1. DTSBXPFL 00460 IF NOT PFL-STATUS-OK-88 DTSBXPFL 00461 DISPLAY 'CANNOT OPEN PFL FILE ' PFL-STATUS DTSBXPFL 00462 SET WRK-ERROR-YES-88 TO TRUE DTSBXPFL 00463 GO TO I2000-EXIT. DTSBXPFL 00464 OPEN OUTPUT TAX-FILE2. DTSBXPFL 00465 IF NOT TAX2-STATUS-OK-88 DTSBXPFL 00466 DISPLAY 'CANNOT OPEN TAX FILE2 ' TAX2-STATUS DTSBXPFL 00467 SET WRK-ERROR-YES-88 TO TRUE DTSBXPFL 00468 GO TO I2000-EXIT. DTSBXPFL 00469 MOVE WRK-TRACE-IND TO L910-TRACE-IND. DTSBXPFL 00470 DTSBXPFL 00471 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBXPFL 00472 DTSBXPFL 00473 PERFORM S910-OPEN-UPDATE-NO-AIX THRU S910-EXIT. DTSBXPFL 00474 * PERFORM S923-OPEN-UPDATE THRU S923-EXIT. DTSBXPFL 00475 * PERFORM S927-OPEN-UPDATE THRU S927-EXIT. DTSBXPFL 00476 DTSBXPFL 00477 PERFORM S005-FROM-SYS THRU S005-EXIT. DTSBXPFL 00478 DTSBXPFL 00479 * PERFORM S931-OPEN-UPDATE THRU S931-EXIT. DTSBXPFL 00480 DTSBXPFL 00481 MOVE WRK-MOD-NAME TO L933-MOD-NAME. DTSBXPFL 00482 MOVE ZERO TO WS-TOTAL-AMT. DTSBXPFL 00483 MOVE 'N' TO FILE-END. DTSBXPFL 00484 DTSBXPFL 00485 READ TAX-FILE1 DTSBXPFL 00486 INTO EMP-REC1 DTSBXPFL 00487 AT END MOVE 'Y' TO FILE-END DTSBXPFL 00488 END-READ. DTSBXPFL 00489 DTSBXPFL 00490 READ PFL-FILE1 DTSBXPFL 00491 INTO PFL-FILE DTSBXPFL 00492 AT END MOVE 'Y' TO PFL-FILE-END DTSBXPFL 00493 DTSBXPFL 00494 END-READ. DTSBXPFL 00495 DTSBXPFL 00496 IF TAX-AGY-TRACKING-ID NOT NUMERIC DTSBXPFL 00497 PERFORM S6200-READ-TAX DTSBXPFL 00498 END-IF. DTSBXPFL 00499 DTSBXPFL 00500 DTSBXPFL 00501 I2000-EXIT. DTSBXPFL 00502 EXIT. DTSBXPFL 00503 DTSBXPFL 00504 P0000-PROCESS. DTSBXPFL 00505 DTSBXPFL 00506 IF TAX-AGY-TRACKING-ID = DTSBXPFL 00507 PFL-AGY-TRACKING-ID DTSBXPFL 00508 PERFORM S6000-ADD-AMTS THRU S6000-EXIT DTSBXPFL 00509 PERFORM P1000-READ-NEXT THRU P1000-EXIT DTSBXPFL 00510 ELSE DTSBXPFL 00511 IF (TAX-AGY-TRACKING-ID > PFL-AGY-TRACKING-ID AND DTSBXPFL 00512 PFL-FILE-END = 'N') DTSBXPFL 00513 PERFORM S5000-WRITE-PFL DTSBXPFL 00514 PERFORM S6100-READ-PFL DTSBXPFL 00515 ELSE DTSBXPFL 00516 IF (TAX-AGY-TRACKING-ID < PFL-AGY-TRACKING-ID DTSBXPFL 00517 AND FILE-END = 'N') DTSBXPFL 00518 PERFORM S5100-WRITE-TAX DTSBXPFL 00519 PERFORM S6200-READ-TAX DTSBXPFL 00520 ELSE DTSBXPFL 00521 IF (TAX-AGY-TRACKING-ID > PFL-AGY-TRACKING-ID AND DTSBXPFL 00522 PFL-FILE-END = 'Y' AND FILE-END = 'N') DTSBXPFL 00523 PERFORM S5100-WRITE-TAX DTSBXPFL 00524 PERFORM S6200-READ-TAX DTSBXPFL 00525 IF (TAX-AGY-TRACKING-ID < PFL-AGY-TRACKING-ID AND DTSBXPFL 00526 PFL-FILE-END = 'N' AND FILE-END = 'Y') DTSBXPFL 00527 PERFORM S5000-WRITE-PFL DTSBXPFL 00528 PERFORM S6100-READ-PFL DTSBXPFL 00529 END-IF DTSBXPFL 00530 END-IF DTSBXPFL 00531 END-IF DTSBXPFL 00532 END-IF DTSBXPFL 00533 END-IF. DTSBXPFL 00534 DTSBXPFL 00535 DTSBXPFL 00536 DTSBXPFL 00537 DTSBXPFL 00538 P0000-EXIT. DTSBXPFL 00539 EXIT. DTSBXPFL 00540 DTSBXPFL 00541 P1000-READ-NEXT. DTSBXPFL 00542 READ TAX-FILE1 DTSBXPFL 00543 INTO EMP-REC1 DTSBXPFL 00544 AT END MOVE 'Y' TO FILE-END DTSBXPFL 00545 END-READ. DTSBXPFL 00546 READ PFL-FILE1 DTSBXPFL 00547 INTO PFL-FILE DTSBXPFL 00548 AT END MOVE 'Y' TO PFL-FILE-END DTSBXPFL 00549 END-READ. DTSBXPFL 00550 P1000-EXIT. DTSBXPFL 00551 EXIT. DTSBXPFL 00552 DTSBXPFL 00553 S6000-ADD-AMTS. DTSBXPFL 00554 DTSBXPFL 00555 MOVE TAX-DEBT-AMT TO WS-TAX-AMT DTSBXPFL 00556 MOVE PFL-DEBT-AMT TO WS-PFL-AMT DTSBXPFL 00557 ADD WS-TAX-AMT TO WS-PFL-AMT DTSBXPFL 00558 GIVING WS-TOTAL-AMT. DTSBXPFL 00559 PERFORM S5100-WRITE-TAX. DTSBXPFL 00560 MOVE ZERO TO WS-TOTAL-AMT. DTSBXPFL 00561 DTSBXPFL 00562 S6000-EXIT. DTSBXPFL 00563 EXIT. DTSBXPFL 00564 EJECT DTSBXPFL 00565 DTSBXPFL 00566 SKIP3 DTSBXPFL 00567 S6100-READ-PFL. DTSBXPFL 00568 DTSBXPFL 00569 READ PFL-FILE1 DTSBXPFL 00570 INTO PFL-FILE DTSBXPFL 00571 AT END MOVE 'Y' TO PFL-FILE-END DTSBXPFL 00572 END-READ. DTSBXPFL 00573 **6100-EXIT. DTSBXPFL 00574 EXIT. DTSBXPFL 00575 EJECT DTSBXPFL 00576 DTSBXPFL 00577 SKIP3 DTSBXPFL 00578 DTSBXPFL 00579 S6200-READ-TAX. DTSBXPFL 00580 DTSBXPFL 00581 READ TAX-FILE1 DTSBXPFL 00582 INTO EMP-REC1 DTSBXPFL 00583 AT END MOVE 'Y' TO FILE-END DTSBXPFL 00584 END-READ. DTSBXPFL 00585 ** IF TAX-AGY-TRACKING-ID = DTSBXPFL 00586 ** PFL-AGY-TRACKING-ID DTSBXPFL 00587 ** PERFORM S6000-ADD-AMTS THRU S6000-EXIT DTSBXPFL 00588 DTSBXPFL 00589 S6200-EXIT. DTSBXPFL 00590 EXIT. DTSBXPFL 00591 EJECT DTSBXPFL 00592 DTSBXPFL 00593 SKIP3 DTSBXPFL 00594 S5000-WRITE-PFL. DTSBXPFL 00595 DTSBXPFL 00596 MOVE PFL-AGY-TRACKING-ID TO TAX2-AGY-TRACKING-ID. DTSBXPFL 00597 DTSBXPFL 00598 MOVE PFL-AGY-ID-ADM-DIV TO TAX2-AGY-ID-ADM-DIV. DTSBXPFL 00599 DTSBXPFL 00600 MOVE PFL-ENTITY-ID-TYPE TO TAX2-ENTITY-ID-TYPE. DTSBXPFL 00601 DTSBXPFL 00602 MOVE PFL-ENTITY-ID TO TAX2-ENTITY-ID. DTSBXPFL 00603 DTSBXPFL 00604 MOVE PFL-RELATIONSHIP-IND TO TAX2-RELATIONSHIP-IND. DTSBXPFL 00605 DTSBXPFL 00606 MOVE PFL-ENTITY-BUSNS-NAME TO TAX2-ENTITY-BUSNS-NAME. DTSBXPFL 00607 DTSBXPFL 00608 MOVE PFL-ENTITY-LAST-NAME TO TAX2-ENTITY-LAST-NAME. DTSBXPFL 00609 DTSBXPFL 00610 MOVE PFL-ENTITY-FIRST-NAME TO TAX2-ENTITY-FIRST-NAME. DTSBXPFL 00611 DTSBXPFL 00612 MOVE PFL-ENTITY-MID-INIT TO TAX2-ENTITY-MID-INIT. DTSBXPFL 00613 DTSBXPFL 00614 MOVE PFL-ENTITY-SUFFIX TO TAX2-ENTITY-SUFFIX. DTSBXPFL 00615 DTSBXPFL 00616 MOVE PFL-ENTITY-DOB TO TAX2-ENTITY-DOB. DTSBXPFL 00617 DTSBXPFL 00618 MOVE PFL-STREET-NUMBER TO TAX2-STREET-NUMBER. DTSBXPFL 00619 DTSBXPFL 00620 MOVE PFL-STREET-NAME TO TAX2-STREET-NAME. DTSBXPFL 00621 DTSBXPFL 00622 MOVE PFL-CITY TO TAX2-CITY. DTSBXPFL 00623 DTSBXPFL 00624 MOVE PFL-STATE TO TAX2-STATE. DTSBXPFL 00625 DTSBXPFL 00626 MOVE PFL-ZIP TO TAX2-ZIP. DTSBXPFL 00627 DTSBXPFL 00628 MOVE PFL-ZIP-EXT TO TAX2-ZIP-EXT. DTSBXPFL 00629 DTSBXPFL 00630 MOVE PFL-FAILURE-TO-FILE-IND DTSBXPFL 00631 TO TAX2-FAILURE-TO-FILE-IND. DTSBXPFL 00632 IF WS-TOTAL-AMT > ZERO DTSBXPFL 00633 MOVE WS-TOTAL-AMT TO TAX2-DEBT-AMT DTSBXPFL 00634 ELSE DTSBXPFL 00635 MOVE PFL-DEBT-AMT TO TAX2-DEBT-AMT DTSBXPFL 00636 END-IF. DTSBXPFL 00637 DTSBXPFL 00638 DTSBXPFL 00639 MOVE PFL-AGY-REPORT-DT TO TAX2-AGY-REPORT-DT. DTSBXPFL 00640 DTSBXPFL 00641 WRITE TAX-REC2 FROM EMP-REC2. DTSBXPFL 00642 ADD 1 TO WS-REC-CNT. DTSBXPFL 00643 DTSBXPFL 00644 DTSBXPFL 00645 DTSBXPFL 00646 S5000-EXIT. DTSBXPFL 00647 EXIT. DTSBXPFL 00648 EJECT DTSBXPFL 00649 DTSBXPFL 00650 SKIP3 DTSBXPFL 00651 DTSBXPFL 00652 S5100-WRITE-TAX. DTSBXPFL 00653 DTSBXPFL 00654 DTSBXPFL 00655 DTSBXPFL 00656 MOVE TAX-AGY-TRACKING-ID TO TAX2-AGY-TRACKING-ID. DTSBXPFL 00657 DTSBXPFL 00658 MOVE TAX-AGY-ID-ADM-DIV TO TAX2-AGY-ID-ADM-DIV. DTSBXPFL 00659 DTSBXPFL 00660 MOVE TAX-ENTITY-ID-TYPE TO TAX2-ENTITY-ID-TYPE. DTSBXPFL 00661 DTSBXPFL 00662 MOVE TAX-ENTITY-ID TO TAX2-ENTITY-ID. DTSBXPFL 00663 DTSBXPFL 00664 MOVE TAX-RELATIONSHIP-IND TO TAX2-RELATIONSHIP-IND. DTSBXPFL 00665 DTSBXPFL 00666 MOVE TAX-ENTITY-BUSNS-NAME TO TAX2-ENTITY-BUSNS-NAME. DTSBXPFL 00667 DTSBXPFL 00668 MOVE TAX-ENTITY-LAST-NAME TO TAX2-ENTITY-LAST-NAME. DTSBXPFL 00669 DTSBXPFL 00670 MOVE TAX-ENTITY-FIRST-NAME TO TAX2-ENTITY-FIRST-NAME. DTSBXPFL 00671 DTSBXPFL 00672 MOVE TAX-ENTITY-MID-INIT TO TAX2-ENTITY-MID-INIT. DTSBXPFL 00673 DTSBXPFL 00674 MOVE TAX-ENTITY-SUFFIX TO TAX2-ENTITY-SUFFIX. DTSBXPFL 00675 DTSBXPFL 00676 MOVE TAX-ENTITY-DOB TO TAX2-ENTITY-DOB. DTSBXPFL 00677 DTSBXPFL 00678 MOVE TAX-STREET-NUMBER TO TAX2-STREET-NUMBER. DTSBXPFL 00679 DTSBXPFL 00680 MOVE TAX-STREET-NAME TO TAX2-STREET-NAME. DTSBXPFL 00681 DTSBXPFL 00682 MOVE TAX-CITY TO TAX2-CITY. DTSBXPFL 00683 DTSBXPFL 00684 MOVE TAX-STATE TO TAX2-STATE. DTSBXPFL 00685 DTSBXPFL 00686 MOVE TAX-ZIP TO TAX2-ZIP. DTSBXPFL 00687 DTSBXPFL 00688 MOVE TAX-ZIP-EXT TO TAX2-ZIP-EXT. DTSBXPFL 00689 DTSBXPFL 00690 MOVE TAX-FAILURE-TO-FILE-IND DTSBXPFL 00691 TO TAX2-FAILURE-TO-FILE-IND. DTSBXPFL 00692 DTSBXPFL 00693 IF WS-TOTAL-AMT > ZERO DTSBXPFL 00694 MOVE WS-TOTAL-AMT TO TAX2-DEBT-AMT DTSBXPFL 00695 ELSE DTSBXPFL 00696 MOVE TAX-DEBT-AMT TO TAX2-DEBT-AMT DTSBXPFL 00697 END-IF. DTSBXPFL 00698 DTSBXPFL 00699 MOVE TAX-AGY-REPORT-DT TO TAX2-AGY-REPORT-DT. DTSBXPFL 00700 DTSBXPFL 00701 WRITE TAX-REC2 FROM EMP-REC2. DTSBXPFL 00702 DTSBXPFL 00703 ADD 1 TO WS-REC-CNT. DTSBXPFL 00704 DTSBXPFL 00705 DTSBXPFL 00706 S5100-EXIT. DTSBXPFL 00707 EXIT. DTSBXPFL 00708 EJECT DTSBXPFL 00709 DTSBXPFL 00710 SKIP3 DTSBXPFL 00711 T0000-TERMINATE. DTSBXPFL 00712 DTSBXPFL 00713 DTSBXPFL 00714 DISPLAY ' '. DTSBXPFL 00715 DTSBXPFL 00716 DISPLAY '*** DTSZX016 TERMINATION STATISTICS ***'. DTSBXPFL 00717 DTSBXPFL 00718 DISPLAY ' '. DTSBXPFL 00719 MOVE WS-REC-CNT TO HEADER-CNT. DTSBXPFL 00720 WRITE TAX-REC2 FROM HEADER-REC. DTSBXPFL 00721 DTSBXPFL 00722 CLOSE TAX-FILE1 DTSBXPFL 00723 PFL-FILE1 DTSBXPFL 00724 TAX-FILE2. DTSBXPFL 00725 T0000-EXIT. DTSBXPFL 00726 EXIT. DTSBXPFL 00727 EJECT DTSBXPFL 00728 S001-FROM-FED-8. DTSBXPFL 00729 SET L001-FROM-FED-8 TO TRUE. DTSBXPFL 00730 GO TO S001-DATE. DTSBXPFL 00731 DTSBXPFL 00732 S001-FROM-ABS-DAY. DTSBXPFL 00733 SET L001-FROM-ABS-DAY TO TRUE. DTSBXPFL 00734 GO TO S001-DATE. DTSBXPFL 00735 DTSBXPFL 00736 S001-DATE. DTSBXPFL 00737 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBXPFL 00738 DTSBXPFL 00739 S001-EXIT. DTSBXPFL 00740 EXIT. DTSBXPFL 00741 SKIP3 DTSBXPFL 00742 S004-FROM-5. DTSBXPFL 00743 SET L004-FROM-5 TO TRUE. DTSBXPFL 00744 GO TO S004-EDIT-QTR. DTSBXPFL 00745 DTSBXPFL 00746 S004-FROM-ABS. DTSBXPFL 00747 SET L004-FROM-ABS TO TRUE. DTSBXPFL 00748 GO TO S004-EDIT-QTR. DTSBXPFL 00749 DTSBXPFL 00750 S004-EDIT-QTR. DTSBXPFL 00751 CALL 'DTSBU004' USING L004-COMM-AREA. DTSBXPFL 00752 DTSBXPFL 00753 S004-EXIT. DTSBXPFL 00754 EXIT. DTSBXPFL 00755 SKIP3 DTSBXPFL 00756 DTSBXPFL 00757 S005-FROM-SYS. DTSBXPFL 00758 SET L005-FROM-SYS TO TRUE. DTSBXPFL 00759 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBXPFL 00760 DTSBXPFL 00761 S005-EXIT. DTSBXPFL 00762 EXIT. DTSBXPFL 00763 DTSBXPFL 00764 S005-FROM-ABSTIME. DTSBXPFL 00765 SET L005-FROM-ABSTIME TO TRUE. DTSBXPFL 00766 GO TO S005-ABSTIME. DTSBXPFL 00767 DTSBXPFL 00768 S005-ABSTIME. DTSBXPFL 00769 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBXPFL 00770 S005-A-EXIT. DTSBXPFL 00771 EXIT. DTSBXPFL 00772 SKIP3 DTSBXPFL 00773 S910-WRITE. DTSBXPFL 00774 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBXPFL 00775 SET L910-WRITE-88 TO TRUE. DTSBXPFL 00776 GO TO S910-MSTR-IO. DTSBXPFL 00777 S039-SIC-EDIT. DTSBXPFL 00778 CALL 'DTSBU039' USING L039-LINK-AREA. DTSBXPFL 00779 S039-EXIT. DTSBXPFL 00780 EXIT. DTSBXPFL 00781 DTSBXPFL 00782 S054-RATE-DETERMINATION. DTSBXPFL 00783 CALL 'DTSBU054' USING L054-LINK-AREA DTSBXPFL 00784 MRCT-REC. DTSBXPFL 00785 DTSBXPFL 00786 S054-EXIT. DTSBXPFL 00787 EXIT. DTSBXPFL 00788 SKIP3 DTSBXPFL 00789 S061-FLD-REP-INFO. DTSBXPFL 00790 SKIP1 DTSBXPFL 00791 CALL 'DTSBU061' USING L061-LINK-AREA. DTSBXPFL 00792 SKIP2 DTSBXPFL 00793 S061-EXIT. DTSBXPFL 00794 EXIT. DTSBXPFL 00795 DTSBXPFL 00796 S062-FLD-REP-LOOKUP. DTSBXPFL 00797 DTSBXPFL 00798 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBXPFL 00799 DTSBXPFL 00800 S062-EXIT. DTSBXPFL 00801 EXIT. DTSBXPFL 00802 DTSBXPFL 00803 S101-PER-MONTH-NO. DTSBXPFL 00804 SET L101-PER-MONTH-NO-88 TO TRUE. DTSBXPFL 00805 GO TO S101-INT-CHARGE. DTSBXPFL 00806 DTSBXPFL 00807 S101-INT-CHARGE. DTSBXPFL 00808 CALL 'DTSBU101' USING L101-LINK-AREA. DTSBXPFL 00809 S101-EXIT. DTSBXPFL 00810 EXIT. DTSBXPFL 00811 DTSBXPFL 00812 S109-FIRST-PEN-INT-YRQ. DTSBXPFL 00813 SET L109-CMND-PEN-INT-QTR-88 TO TRUE. DTSBXPFL 00814 CALL 'DTSBU109' USING L109-LINK-AREA. DTSBXPFL 00815 S109-EXIT. DTSBXPFL 00816 EXIT. DTSBXPFL 00817 DTSBXPFL 00818 S410-FILING-SCHED. DTSBXPFL 00819 CALL 'DTSBU410' USING L410-LINK-AREA. DTSBXPFL 00820 DTSBXPFL 00821 S410-EXIT. DTSBXPFL 00822 EXIT. DTSBXPFL 00823 SKIP3 DTSBXPFL 00824 S516-LIABILITY. DTSBXPFL 00825 CALL 'DTSBU516' USING L516-LINK-AREA DTSBXPFL 00826 MPRF-REC. DTSBXPFL 00827 DTSBXPFL 00828 S516-EXIT. DTSBXPFL 00829 EXIT. DTSBXPFL 00830 SKIP3 DTSBXPFL 00831 S910-OPEN-READ. DTSBXPFL 00832 SET L910-OPEN-READ-88 TO TRUE. DTSBXPFL 00833 GO TO S910-MSTR-IO. DTSBXPFL 00834 DTSBXPFL 00835 S910-OPEN-UPDATE-NO-AIX. DTSBXPFL 00836 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBXPFL 00837 GO TO S910-MSTR-IO. DTSBXPFL 00838 DTSBXPFL 00839 S910-READ. DTSBXPFL 00840 SET L910-READ-88 TO TRUE. DTSBXPFL 00841 GO TO S910-MSTR-IO. DTSBXPFL 00842 DTSBXPFL 00843 S910-START-BROWSE. DTSBXPFL 00844 SET L910-START-BROWSE-88 TO TRUE. DTSBXPFL 00845 GO TO S910-MSTR-IO. DTSBXPFL 00846 DTSBXPFL 00847 S910-READ-NEXT. DTSBXPFL 00848 SET L910-READ-NEXT-88 TO TRUE. DTSBXPFL 00849 GO TO S910-MSTR-IO. DTSBXPFL 00850 DTSBXPFL 00851 S910-COUNT. DTSBXPFL 00852 SET L910-COUNT-88 TO TRUE. DTSBXPFL 00853 GO TO S910-MSTR-IO. DTSBXPFL 00854 DTSBXPFL 00855 S910-REWRITE. DTSBXPFL 00856 SET L910-REWRITE-88 TO TRUE. DTSBXPFL 00857 GO TO S910-MSTR-IO. DTSBXPFL 00858 DTSBXPFL 00859 S910-DELETE. DTSBXPFL 00860 SET L910-DELETE-88 TO TRUE. DTSBXPFL 00861 GO TO S910-MSTR-IO. DTSBXPFL 00862 DTSBXPFL 00863 S910-CLOSE. DTSBXPFL 00864 SET L910-CLOSE-88 TO TRUE. DTSBXPFL 00865 GO TO S910-MSTR-IO. DTSBXPFL 00866 DTSBXPFL 00867 S910-MSTR-IO. DTSBXPFL 00868 CALL 'DTSBU910' USING L910-LINK-AREA DTSBXPFL 00869 MSKL-REC. DTSBXPFL 00870 S910-EXIT. DTSBXPFL 00871 EXIT. DTSBXPFL 00872 SKIP3 DTSBXPFL 00873 S921-OPEN-READ. DTSBXPFL 00874 SET L921-OPEN-READ-88 TO TRUE. DTSBXPFL 00875 GO TO S921-AIX-IO. DTSBXPFL 00876 DTSBXPFL 00877 S921-START-BROWSE. DTSBXPFL 00878 SET L921-START-BROWSE-88 TO TRUE. DTSBXPFL 00879 GO TO S921-AIX-IO. DTSBXPFL 00880 DTSBXPFL 00881 S921-CLOSE. DTSBXPFL 00882 SET L921-CLOSE-88 TO TRUE. DTSBXPFL 00883 GO TO S921-AIX-IO. DTSBXPFL 00884 DTSBXPFL 00885 S923-CLOSE. DTSBXPFL 00886 SET L923-CLOSE-88 TO TRUE. DTSBXPFL 00887 GO TO S923-ATC-IO. DTSBXPFL 00888 DTSBXPFL 00889 S923-ATC-IO. DTSBXPFL 00890 CALL 'DTSBU923' USING L923-LINK-AREA DTSBXPFL 00891 ASKL-REC. DTSBXPFL 00892 S923-EXIT. DTSBXPFL 00893 EXIT. DTSBXPFL 00894 SKIP3 DTSBXPFL 00895 S921-AIX-IO. DTSBXPFL 00896 CALL 'DTSBU921' USING L921-LINK-AREA DTSBXPFL 00897 ISKL-REC. DTSBXPFL 00898 S921-EXIT. DTSBXPFL 00899 EXIT. DTSBXPFL 00900 SKIP3 DTSBXPFL 00901 DTSBXPFL 00902 S923-OPEN-UPDATE. DTSBXPFL 00903 SET L923-OPEN-UPDATE-88 TO TRUE. DTSBXPFL 00904 GO TO S923-ATC-IO. DTSBXPFL 00905 DTSBXPFL 00906 SKIP3 DTSBXPFL 00907 S927-OPEN-UPDATE. DTSBXPFL 00908 SET L927-OPEN-UPDATE-88 TO TRUE. DTSBXPFL 00909 GO TO S927-BTC-O. DTSBXPFL 00910 DTSBXPFL 00911 S927-WRITE. DTSBXPFL 00912 SET L927-WRITE-88 TO TRUE. DTSBXPFL 00913 GO TO S927-BTC-O. DTSBXPFL 00914 DTSBXPFL 00915 S927-CLOSE. DTSBXPFL 00916 SET L927-CLOSE-88 TO TRUE. DTSBXPFL 00917 GO TO S927-BTC-O. DTSBXPFL 00918 DTSBXPFL 00919 S927-BTC-O. DTSBXPFL 00920 CALL 'DTSBU927' USING L927-LINK-AREA DTSBXPFL 00921 TSKL-REC. DTSBXPFL 00922 S927-EXIT. DTSBXPFL 00923 EXIT. DTSBXPFL 00924 DTSBXPFL 00925 SKIP3 DTSBXPFL 00926 S931-OPEN-READ. DTSBXPFL 00927 SET L931-OPEN-READ-88 TO TRUE. DTSBXPFL 00928 GO TO S931-REF-IO. DTSBXPFL 00929 DTSBXPFL 00930 S931-OPEN-UPDATE. DTSBXPFL 00931 SET L931-OPEN-UPDATE-88 TO TRUE. DTSBXPFL 00932 GO TO S931-REF-IO. DTSBXPFL 00933 DTSBXPFL 00934 S931-START-BROWSE. DTSBXPFL 00935 SET L931-START-BROWSE-88 TO TRUE. DTSBXPFL 00936 GO TO S931-REF-IO. DTSBXPFL 00937 DTSBXPFL 00938 S931-READ. DTSBXPFL 00939 SET L931-READ-88 TO TRUE. DTSBXPFL 00940 GO TO S931-REF-IO. DTSBXPFL 00941 DTSBXPFL 00942 S931-READ-NEXT. DTSBXPFL 00943 SET L931-READ-NEXT-88 TO TRUE. DTSBXPFL 00944 GO TO S931-REF-IO. DTSBXPFL 00945 DTSBXPFL 00946 S931-DELETE. DTSBXPFL 00947 SET L931-DELETE-88 TO TRUE. DTSBXPFL 00948 GO TO S931-REF-IO. DTSBXPFL 00949 DTSBXPFL 00950 S931-REWRITE. DTSBXPFL 00951 SET L931-REWRITE-88 TO TRUE. DTSBXPFL 00952 GO TO S931-REF-IO. DTSBXPFL 00953 DTSBXPFL 00954 S931-WRITE. DTSBXPFL 00955 SET L931-WRITE-88 TO TRUE. DTSBXPFL 00956 GO TO S931-REF-IO. DTSBXPFL 00957 DTSBXPFL 00958 S931-CLOSE. DTSBXPFL 00959 SET L931-CLOSE-88 TO TRUE. DTSBXPFL 00960 GO TO S931-REF-IO. DTSBXPFL 00961 DTSBXPFL 00962 S931-REF-IO. DTSBXPFL 00963 CALL 'DTSBU931' USING L931-LINK-AREA DTSBXPFL 00964 FSKL-REC. DTSBXPFL 00965 S931-EXIT. DTSBXPFL 00966 EXIT. DTSBXPFL 00967 SKIP3 DTSBXPFL 00968 S933-OPEN-READ. DTSBXPFL 00969 SET L933-OPEN-READ-88 TO TRUE. DTSBXPFL 00970 GO TO S933-SIC-I. DTSBXPFL 00971 DTSBXPFL 00972 S933-CLOSE. DTSBXPFL 00973 SET L933-CLOSE-88 TO TRUE. DTSBXPFL 00974 GO TO S933-SIC-I. DTSBXPFL 00975 DTSBXPFL 00976 S933-SIC-I. DTSBXPFL 00977 CALL 'DTSBU933' USING L933-LINK-AREA DTSBXPFL 00978 XSIC-REC. DTSBXPFL 00979 S933-EXIT. DTSBXPFL 00980 EXIT. DTSBXPFL 00981 DTSBXPFL 00982 S999-ABEND. DTSBXPFL 00983 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBXPFL 00984 S999-EXIT. DTSBXPFL 00985 EXIT. DTSBXPFL