DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
986
Batch/DTSBXPFL.cob
Normal file
986
Batch/DTSBXPFL.cob
Normal file
@ -0,0 +1,986 @@
|
||||
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
|
||||
Reference in New Issue
Block a user