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