987 lines
78 KiB
COBOL
987 lines
78 KiB
COBOL
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
|