00001 IDENTIFICATION DIVISION. 06/10/14 00002 PROGRAM-ID. DTSBX344. DTSBX344 00003 AUTHOR. NGC. LV023 00004 DATE-WRITTEN. NOVEMBER 2007. DTSBX344 00005 DATE-COMPILED. DTSBX344 00006 SKIP3 DTSBX344 00007 ***** DTSBX344 00008 * DTSBX344 00009 * FUNCTION: INTERNAL WEB MAINFRAME EXTRACT - DTSBX344 00010 * COLLECTIONS, AUDITS DTSBX344 00011 * DTSBX344 00012 * MODIFICATION LOG: DTSBX344 00013 * DTSBX344 00014 * 03/04/2008 INITIAL DEVELOPMENT. DTSBX344 00015 * REFERENCE: PROGRAMMER: GD DTSBX344 00016 * DTSBX344 00017 * 05/20/2008 MODIFIED P1100 - DEBIT MEMO WAS NOT INCLUDED. DTSBX344 00018 * CHANGED TO USE MEVL-DATE INSTEAD OF DTSBX344 00019 * MEVL-ESTB-DATE. DTSBX344 00020 * REFERENCE: PROGRAMMER: GD DTSBX344 00021 * DTSBX344 00022 * 07/17/2008 ADDED PROCESSING FOR AUDITS. DTSBX344 00023 * REFERENCE: PROGRAMMER: GD DTSBX344 00024 * DTSBX344 00025 * 02/16/2009 MODIFIED AUDIT SELECTION, MAKING IT IDENTICAL DTSBX344 00026 * TO THE PROCESS USED IN BE770 FOR THE ETA-581. DTSBX344 00027 * REFERENCE: PROGRAMMER: GD DTSBX344 00028 * DTSBX344 00029 * 01/03/2012 MODIFIED TO EXTRACT ACTIVE AUDITS ESTABLISHED DTSBX344 00030 * WITHIN THE LAST 3 YEARS. DTSBX344 00031 * IT PREVIOUSLY SELECTED ONLY THOSE ESTABLISHED DTSBX344 00032 * WITHIN THE LAST YEAR. DTSBX344 00033 * REFERENCE: PROGRAMMER: GD DTSBX344 00034 * DTSBX344 00035 * 02/10/2012 ADDED SEVERAL FIELDS TO THE AUDIT EXTRACT. DTSBX344 00036 * THESE ARE RELATED TO THE CHANGES INVOLVED IN DTSBX344 00037 * THE NEW AUDIT CATEGORY OF TARGETED AUDITS. DTSBX344 00038 * REFERENCE: PROGRAMMER: GD DTSBX344 00039 * DTSBX344 00040 * 05/17/2013 INCREASED THE SCOPE OF THE AUDIT SELECTION: DTSBX344 00041 * DELINQUENCY ASSIGNMENTS ARE INCLUDED. DTSBX344 00042 * REFERENCE: PROGRAMMER: GD DTSBX344 00043 * DTSBX344 00044 * 07/18/2013 ADDED PROCESSING TO EXTRACT LIEN DATA FOR A DTSBX344 00045 * NEW WEB SCREEN. DTSBX344 00046 * REFERENCE: TICKET 1934 PROGRAMMER: GD DTSBX344 00047 * DTSBX344 00048 * 08/28/2013 ADDED PROCESSING TO EXTRACT DPC DATA FOR A DTSBX344 00049 * NEW WEB SCREEN. DTSBX344 00050 * REFERENCE: TICKET 1934 PROGRAMMER: GD DTSBX344 00051 * DTSBX344 00052 * 12/13/2013 EXPANDED THE SELECTION OF AUDITS TO INCLUDE DTSBX344 00053 * ANYTHING WITH A START DATE >= 01/01/2005. DTSBX344 00054 * REFERENCE: IMAGING PROJECT PROGRAMMER: GD DTSBX344 00055 * DTSBX344 00056 * 12/17/2013 UPDATED THE EXTRACT FOR THE QUARTER COLLECTIONS DTSBX344 00057 * TABLE FOR THE NEW WORDING IN THE EVENT LOG. DTSBX344 00058 * REFERENCE: TICKET 2201 PROGRAMMER: GD DTSBX344 00059 * DTSBX344 00060 * 03/12/2014 UPDATED THE EXTRACT FOR THE QUARTER COLLECTIONS DTSBX344 00061 * TABLE FOR THE NEW WORDING IN THE EVENT LOG. DTSBX344 00062 * MODIFIED THE START DATE FOR THE AUDIT LOGIS DTSBX344 00063 * REFERENCE: TICKET 2601 PROGRAMMER: NH DTSBX344 00064 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX344 00065 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX344 00066 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBX344 00067 * DTSBX344 00068 * DTSBX344 00069 * DESCRIPTION: DTSBX344 00070 * DTSBX344 00071 * DTSBX344 00072 * INITIATION: DTSBX344 00073 * DTSBX344 00074 * SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBX344 00075 * SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBX344 00076 * DTSBX344 00077 * EDIT AND DEFAULT PARAMETERS. DTSBX344 00078 * DTSBX344 00079 * DTSBX344 00080 * PROCESSING: DTSBX344 00081 * DTSBX344 00082 * DTSBX344 00083 * TERMINATION: DTSBX344 00084 * DTSBX344 00085 * DTSBX344 00086 * DTSBX344 00087 * RECORDS READ: DTSBX344 00088 * DTSBX344 00089 * MASTER: DTSBX344 00090 * DTSBX344 00091 * MSOL DTSBX344 00092 * MQTR DTSBX344 00093 * DTSBX344 00094 * DTSBX344 00095 * ALTERNATE INDEX: DTSBX344 00096 * DTSBX344 00097 * NONE. DTSBX344 00098 * DTSBX344 00099 * DTSBX344 00100 * REFERENCE: DTSBX344 00101 * DTSBX344 00102 * DTSBX344 00103 * DTSBX344 00104 * RECORDS UPDATED: DTSBX344 00105 * DTSBX344 00106 * NONE DTSBX344 00107 * DTSBX344 00108 * DTSBX344 00109 * OUTPUT RECORDS WRITTEN: DTSBX344 00110 * DTSBX344 00111 * DTSBX331 DTSBX344 00112 * DTSBX344 00113 * DTSBX344 00114 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBX344 00115 * DTSBX344 00116 * NONE. DTSBX344 00117 * DTSBX344 00118 * DTSBX344 00119 * MODULES CALLED: DTSBX344 00120 * DTSBX344 00121 * DTSBU001 DATE EDIT/CONVERSION. DTSBX344 00122 * DTSBU004 QUARTER EDIT/CONVERSION. DTSBX344 00123 * DTSBU910 MASTER FILE I/O. DTSBX344 00124 * DTSBX344 00125 * DTSBX344 00126 * DTSBX344 00127 ***** DTSBX344 00128 SKIP3 DTSBX344 00129 ENVIRONMENT DIVISION. DTSBX344 00130 INPUT-OUTPUT SECTION. DTSBX344 00131 FILE-CONTROL. DTSBX344 00132 SELECT QTR-COLL-FILE ASSIGN TO DTSFQCOL DTSBX344 00133 FILE STATUS IS QCOLL-STATUS. DTSBX344 00134 DTSBX344 00135 SELECT AUDIT-FILE ASSIGN TO DTSFAUDT DTSBX344 00136 FILE STATUS IS AUDIT-STATUS. DTSBX344 00137 DTSBX344 00138 SELECT LIEN-FILE ASSIGN TO DTSFLIEN DTSBX344 00139 FILE STATUS IS LIEN-STATUS. DTSBX344 00140 DTSBX344 00141 SELECT LIEN-QTR-FILE ASSIGN TO DTSFLINQ DTSBX344 00142 FILE STATUS IS LIEN-QTR-STATUS. DTSBX344 00143 DTSBX344 00144 SELECT DPC-FILE ASSIGN TO DTSFDPC DTSBX344 00145 FILE STATUS IS DPC-STATUS. DTSBX344 00146 DTSBX344 00147 SELECT DPC-QTR-FILE ASSIGN TO DTSFDPCQ DTSBX344 00148 FILE STATUS IS DPC-QTR-STATUS. DTSBX344 00149 DTSBX344 00150 DATA DIVISION. DTSBX344 00151 FILE SECTION. DTSBX344 00152 FD QTR-COLL-FILE DTSBX344 00153 RECORDING MODE IS F DTSBX344 00154 LABEL RECORDS ARE STANDARD DTSBX344 00155 BLOCK CONTAINS 0 CHARACTERS. DTSBX344 00156 DTSBX344 00157 01 QTR-COLL-REC PIC X(35). DTSBX344 00158 DTSBX344 00159 FD AUDIT-FILE DTSBX344 00160 RECORDING MODE IS F DTSBX344 00161 LABEL RECORDS ARE STANDARD DTSBX344 00162 BLOCK CONTAINS 0 CHARACTERS. DTSBX344 00163 DTSBX344 00164 01 AUDIT-REC PIC X(108). DTSBX344 00165 DTSBX344 00166 FD LIEN-FILE DTSBX344 00167 RECORDING MODE IS F DTSBX344 00168 LABEL RECORDS ARE STANDARD DTSBX344 00169 BLOCK CONTAINS 0 CHARACTERS. DTSBX344 00170 DTSBX344 00171 01 LIEN-REC PIC X(88). DTSBX344 00172 DTSBX344 00173 FD LIEN-QTR-FILE DTSBX344 00174 RECORDING MODE IS F DTSBX344 00175 LABEL RECORDS ARE STANDARD DTSBX344 00176 BLOCK CONTAINS 0 CHARACTERS. DTSBX344 00177 DTSBX344 00178 01 LIEN-QTR-REC PIC X(26). DTSBX344 00179 DTSBX344 00180 FD DPC-FILE DTSBX344 00181 RECORDING MODE IS F DTSBX344 00182 LABEL RECORDS ARE STANDARD DTSBX344 00183 BLOCK CONTAINS 0 CHARACTERS. DTSBX344 00184 DTSBX344 00185 01 DPC-REC PIC X(104). DTSBX344 00186 DTSBX344 00187 FD DPC-QTR-FILE DTSBX344 00188 RECORDING MODE IS F DTSBX344 00189 LABEL RECORDS ARE STANDARD DTSBX344 00190 BLOCK CONTAINS 0 CHARACTERS. DTSBX344 00191 DTSBX344 00192 01 DPC-QTR-REC PIC X(28). DTSBX344 00193 DTSBX344 00194 WORKING-STORAGE SECTION. DTSBX344 001945 77 PAN-VALET PICTURE X(24) VALUE '023DTSBX344 06/10/14'. DTSBX344 00195 77 PAN-VALET PICTURE X(24) VALUE '004DTSBX344 06/10/14'. DTSBX344 00196 77 PAN-VALET PICTURE X(24) VALUE '021DTSBX344 05/12/14'. DTSBX344 00197 77 PAN-VALET PICTURE X(24) VALUE '020DTSBX344 05/12/14'. DTSBX344 00198 77 PAN-VALET PICTURE X(24) VALUE '026DTSBX344 05/12/14'. DTSBX344 00199 77 PAN-VALET PICTURE X(24) VALUE '017DTSBX344 03/24/14'. DTSBX344 00200 77 PAN-VALET PICTURE X(24) VALUE '054DTSBX344 03/12/14'. DTSBX344 00201 77 PAN-VALET PICTURE X(24) VALUE '015DTSBX344 03/12/12'. DTSBX344 00202 SKIP3 DTSBX344 00203 01 W-AREA. DTSBX344 00204 05 W-ABEND-CD PIC S9(04) COMP VALUE +344.DTSBX344 00205 DTSBX344 00206 DTSBX344 00207 05 ABEND-MSG PIC X(60). DTSBX344 00208 DTSBX344 00209 05 QCOLL-STATUS PIC X(02). DTSBX344 00210 88 QCOLL-STATUS-OK-88 VALUE '00'. DTSBX344 00211 05 AUDIT-STATUS PIC X(02). DTSBX344 00212 88 AUDIT-STATUS-OK-88 VALUE '00'. DTSBX344 00213 05 LIEN-STATUS PIC X(02). DTSBX344 00214 88 LIEN-STATUS-OK-88 VALUE '00'. DTSBX344 00215 05 LIEN-QTR-STATUS PIC X(02). DTSBX344 00216 88 LIEN-QTR-STATUS-OK-88 VALUE '00'. DTSBX344 00217 05 DPC-STATUS PIC X(02). DTSBX344 00218 88 DPC-STATUS-OK-88 VALUE '00'. DTSBX344 00219 05 DPC-QTR-STATUS PIC X(02). DTSBX344 00220 88 DPC-QTR-STATUS-OK-88 VALUE '00'. DTSBX344 00221 DTSBX344 00222 05 W-ERROR-IND PIC X(01) VALUE 'N'. DTSBX344 00223 88 W-ERROR-YES-88 VALUE 'Y'. DTSBX344 00224 88 W-ERROR-NO-88 VALUE 'N'. DTSBX344 00225 DTSBX344 00226 05 W-AUDIT-START-DT PIC S9(09) COMP-3 DTSBX344 00227 VALUE 20050101. DTSBX344 00228 05 W-START-DT PIC S9(09) COMP-3. DTSBX344 00229 05 W-DEFAULT-DATE PIC X(10) DTSBX344 00230 VALUE '01/01/1994'. DTSBX344 00231 DTSBX344 00232 05 W-QTR-3-AREA. DTSBX344 00233 10 W-QTR-3-YY PIC X(02). DTSBX344 00234 10 FILLER PIC X(01). DTSBX344 00235 10 W-QTR-3-Q PIC X(01). DTSBX344 00236 DTSBX344 00237 05 ALL-NINES-DT PIC S9(09) COMP-3 DTSBX344 00238 VALUE +999999999. DTSBX344 00239 05 ALL-NINES-DT-DISP PIC X(10) VALUE '12/31/9999'. DTSBX344 00240 05 ALL-NINES-QTR PIC S9(05) COMP-3 DTSBX344 00241 VALUE +99999. DTSBX344 00242 05 ALL-NINES-QTR-DISP PIC X(06) VALUE '9999/9'. DTSBX344 00243 DTSBX344 00244 05 W-ESTB-DATE PIC S9(09)V99 COMP-3. DTSBX344 00245 05 W-CHNG-DATE PIC S9(09)V99 COMP-3. DTSBX344 00246 DTSBX344 00247 05 SUB PIC S9(04) COMP. DTSBX344 00248 DTSBX344 00249 05 W-QTR-COLL-REC. DTSBX344 00250 10 QTR-COLL-EMP-NO PIC 9(06). DTSBX344 00251 10 FILLER PIC X(01) VALUE ','. DTSBX344 00252 10 QTR-COLL-QUARTER PIC X(06). DTSBX344 00253 10 FILLER PIC X(01) VALUE ','. DTSBX344 00254 10 QTR-COLL-TYPE PIC X(02). DTSBX344 00255 88 QTR-COLL-DELINQ-NOTICE-88 VALUE '01'. DTSBX344 00256 88 QTR-COLL-FINAL-DELINQ-88 VALUE '02'. DTSBX344 00257 88 QTR-COLL-DEBIT-MEMO-88 VALUE '03'. DTSBX344 00258 88 QTR-COLL-PENALTY-88 VALUE '04'. DTSBX344 00259 88 QTR-COLL-INIT-DELINQ-88 VALUE '05'. DTSBX344 00260 88 QTR-COLL-ESTIMATE-88 VALUE '06'. DTSBX344 00261 10 FILLER PIC X(01) VALUE ','. DTSBX344 00262 10 QTR-COLL-PROCESS-DT PIC X(10). DTSBX344 00263 10 FILLER PIC X(01) VALUE ','. DTSBX344 00264 10 QTR-COLL-OPID PIC X(07). DTSBX344 00265 DTSBX344 00266 05 WRK-ASSIGN PIC 9(09). DTSBX344 00267 05 FILLER REDEFINES WRK-ASSIGN. DTSBX344 00268 10 WRK-ASSIGN-CC PIC 9(02). DTSBX344 00269 10 WRK-ASSIGN-YY PIC 9(02). DTSBX344 00270 10 WRK-ASSIGN-NBR PIC 9(05). DTSBX344 00271 05 WRK-FLD-ASSIGN. DTSBX344 00272 10 WRK-FLD-ASSIGN-YEAR PIC 9(02). DTSBX344 00273 10 FILLER PIC X(01) VALUE SPACE. DTSBX344 00274 10 WRK-FLD-ASSIGN-NBR PIC 9(05). DTSBX344 00275 DTSBX344 00276 05 W-AUDIT-REC. DTSBX344 00277 10 AUDIT-EMP-NO PIC 9(06). DTSBX344 00278 10 FILLER PIC X(01) VALUE ','. DTSBX344 00279 10 AUDIT-ASSIGN-NO PIC X(08). DTSBX344 00280 10 FILLER PIC X(01) VALUE ','. DTSBX344 00281 10 AUDIT-STATUS-CD PIC X(01). DTSBX344 00282 10 FILLER PIC X(01) VALUE ','. DTSBX344 00283 10 AUDIT-START-DT PIC X(10). DTSBX344 00284 10 FILLER PIC X(01) VALUE ','. DTSBX344 00285 10 AUDIT-START-QTR PIC X(06). DTSBX344 00286 10 FILLER PIC X(01) VALUE ','. DTSBX344 00287 10 AUDIT-END-QTR PIC X(06). DTSBX344 00288 10 FILLER PIC X(01) VALUE ','. DTSBX344 00289 10 AUDIT-COMPLETE-DT PIC X(10). DTSBX344 00290 10 FILLER PIC X(01) VALUE ','. DTSBX344 00291 10 AUDIT-PROCESS-DT PIC X(10). DTSBX344 00292 10 FILLER PIC X(01) VALUE ','. DTSBX344 00293 10 AUDIT-OPID PIC X(07). DTSBX344 00294 10 FILLER PIC X(01) VALUE ','. DTSBX344 00295 10 AUDIT-ASSIGN-TYPE PIC X(02). DTSBX344 00296 10 FILLER PIC X(01) VALUE ','. DTSBX344 00297 10 AUDIT-IND PIC X(01). DTSBX344 00298 10 FILLER PIC X(01) VALUE ','. DTSBX344 00299 10 AUDIT-DUE-DATE PIC X(10). DTSBX344 00300 10 FILLER PIC X(01) VALUE ','. DTSBX344 00301 10 AUDIT-NAICS-CD PIC X(06). DTSBX344 00302 10 FILLER PIC X(01) VALUE ','. DTSBX344 00303 10 AUDIT-EMP-SIZE-IND PIC X(01). DTSBX344 00304 10 FILLER PIC X(01) VALUE ','. DTSBX344 00305 10 AUDIT-CHANGE-DATE PIC X(10). DTSBX344 00306 DTSBX344 00307 05 W-ERROR-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX344 00308 05 W-QCOLL-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX344 00309 05 W-AUDIT-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX344 00310 05 W-ACTIVE-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX344 00311 05 W-LIEN-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX344 00312 05 W-LIEN-QTR-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX344 00313 05 W-DPC-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX344 00314 05 W-DPC-QTR-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX344 00315 DTSBX344 00316 05 DISPLAY-CNT PIC Z(06)9. DTSBX344 00317 DTSBX344 00318 05 DISPLAY-AMT1-X PIC X(14). DTSBX344 00319 05 DISPLAY-AMT1 REDEFINES DISPLAY-AMT1-X DTSBX344 00320 PIC ---,---,--9.99. DTSBX344 00321 05 DISPLAY-AMT2-X PIC X(14). DTSBX344 00322 05 DISPLAY-AMT2 REDEFINES DISPLAY-AMT2-X DTSBX344 00323 PIC ---,---,--9.99. DTSBX344 00324 05 DISPLAY-AMT3-X PIC X(14). DTSBX344 00325 05 DISPLAY-AMT3 REDEFINES DISPLAY-AMT3-X DTSBX344 00326 PIC ---,---,--9.99. DTSBX344 00327 05 DISPLAY-AMT4-X PIC X(14). DTSBX344 00328 05 DISPLAY-AMT4 REDEFINES DISPLAY-AMT4-X DTSBX344 00329 PIC ---,---,--9.99. DTSBX344 00330 EJECT DTSBX344 00331 01 L001-LINK-AREA. DTSBX344 00332 ++INCLUDE DTSIL001 DTSBX344 00333 EJECT DTSBX344 00334 01 L004-LINK-AREA. DTSBX344 00335 ++INCLUDE DTSIL004 DTSBX344 00336 EJECT DTSBX344 00337 01 L005-LINK-AREA. DTSBX344 00338 ++INCLUDE DTSIL005 DTSBX344 00339 DTSBX344 00340 01 L061-LINK-AREA. DTSBX344 00341 ++INCLUDE DTSIL061 DTSBX344 00342 DTSBX344 00343 01 L062-LINK-AREA. DTSBX344 00344 ++INCLUDE DTSIL062 DTSBX344 00345 DTSBX344 00346 ** LIEN RECORD DTSBX344 00347 01 X165-REC. DTSBX344 00348 ++INCLUDE DTSIX165 DTSBX344 00349 DTSBX344 00350 ** LIEN QUARTER RECORD DTSBX344 00351 01 X166-REC. DTSBX344 00352 ++INCLUDE DTSIX166 DTSBX344 00353 DTSBX344 00354 ** DPC RECORD DTSBX344 00355 01 X167-REC. DTSBX344 00356 ++INCLUDE DTSIX167 DTSBX344 00357 DTSBX344 00358 ** DPC QUARTER RECORD DTSBX344 00359 01 X168-REC. DTSBX344 00360 ++INCLUDE DTSIX168 DTSBX344 00361 DTSBX344 00362 01 L910-LINK-AREA. DTSBX344 00363 ++INCLUDE DTSIL910 DTSBX344 00364 SKIP3 DTSBX344 00365 01 MSKL-REC. DTSBX344 00366 ++INCLUDE DTSIMSKL DTSBX344 00367 SKIP3 DTSBX344 00368 01 MHDR-REC. DTSBX344 00369 ++INCLUDE DTSIMHDR DTSBX344 00370 SKIP3 DTSBX344 00371 01 MEVL-REC. DTSBX344 00372 ++INCLUDE DTSIMEVL DTSBX344 00373 SKIP3 DTSBX344 00374 01 MFAS-REC. DTSBX344 00375 ++INCLUDE DTSIMFAS DTSBX344 00376 SKIP3 DTSBX344 00377 01 MAUR-REC. DTSBX344 00378 ++INCLUDE DTSIMAUR DTSBX344 00379 SKIP3 DTSBX344 00380 01 MLIN-REC. DTSBX344 00381 ++INCLUDE DTSIMLIN DTSBX344 00382 SKIP3 DTSBX344 00383 01 MDPC-REC. DTSBX344 00384 ++INCLUDE DTSIMDPC DTSBX344 00385 SKIP3 DTSBX344 00386 01 L921-LINK-AREA. DTSBX344 00387 ++INCLUDE DTSIL921 DTSBX344 00388 SKIP3 DTSBX344 00389 01 ISKL-REC. DTSBX344 00390 ++INCLUDE DTSIISKL DTSBX344 00391 SKIP3 DTSBX344 00392 01 IEIN-REC. DTSBX344 00393 ++INCLUDE DTSIIEIN DTSBX344 00394 DTSBX344 00395 01 L931-LINK-AREA. DTSBX344 00396 ++INCLUDE DTSIL931 DTSBX344 00397 SKIP3 DTSBX344 00398 01 FSKL-REC. DTSBX344 00399 ++INCLUDE DTSIFSKL DTSBX344 00400 SKIP3 DTSBX344 00401 01 FQTR-REC. DTSBX344 00402 ++INCLUDE DTSIFQTR DTSBX344 00403 DTSBX344 00404 LINKAGE SECTION. DTSBX344 00405 DTSBX344 00406 01 LX34-LINK-AREA. DTSBX344 00407 ++INCLUDE DTSILX34 DTSBX344 00408 DTSBX344 00409 01 MPRF-REC. DTSBX344 00410 ++INCLUDE DTSIMPRF DTSBX344 00411 EJECT DTSBX344 00412 PROCEDURE DIVISION USING LX34-LINK-AREA DTSBX344 00413 MPRF-REC. DTSBX344 00414 DTSBX344 00415 EVALUATE TRUE DTSBX344 00416 WHEN LX34-INITIALIZE-88 DTSBX344 00417 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBX344 00418 WHEN LX34-PROCESS-88 DTSBX344 00419 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBX344 00420 WHEN LX34-TERMINATE-88 DTSBX344 00421 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBX344 00422 END-EVALUATE. DTSBX344 00423 DTSBX344 00424 GOBACK. DTSBX344 00425 DTSBX344 00426 I0000-INITIALIZE. DTSBX344 00427 PERFORM I1000-CURR-YEAR THRU I1000-EXIT. DTSBX344 00428 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. DTSBX344 00429 DTSBX344 00430 I0000-EXIT. DTSBX344 00431 EXIT. DTSBX344 00432 DTSBX344 00433 I1000-CURR-YEAR. DTSBX344 00434 MOVE LX34-PRIOR-RUN-DATE TO L001-FED-8-DATE-9. DTSBX344 00435 * MOVE 01 TO L001-FED-8-MO. DTSBX344 00436 * MOVE 01 TO L001-FED-8-DA. DTSBX344 00437 SUBTRACT 3 FROM L001-FED-8-YR. DTSBX344 00438 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 00439 MOVE L001-FED-8-DATE-9 TO W-START-DT. DTSBX344 00440 DISPLAY 'BX344 START-DATE: ' W-START-DT. DTSBX344 00441 DTSBX344 00442 I1000-EXIT. DTSBX344 00443 EXIT. DTSBX344 00444 DTSBX344 00445 I2000-OPEN-FILES. DTSBX344 00446 OPEN OUTPUT QTR-COLL-FILE. DTSBX344 00447 IF NOT QCOLL-STATUS-OK-88 DTSBX344 00448 DISPLAY 'QTR COLL FILE OPEN ERROR: ' QCOLL-STATUS DTSBX344 00449 MOVE 'FILE OPEN ERROR' DTSBX344 00450 TO ABEND-MSG DTSBX344 00451 PERFORM S999-ABEND THRU S999-EXIT DTSBX344 00452 END-IF. DTSBX344 00453 DTSBX344 00454 OPEN OUTPUT AUDIT-FILE. DTSBX344 00455 IF NOT AUDIT-STATUS-OK-88 DTSBX344 00456 DISPLAY 'AUDIT FILE OPEN ERROR: ' AUDIT-STATUS DTSBX344 00457 MOVE 'FILE OPEN ERROR' DTSBX344 00458 TO ABEND-MSG DTSBX344 00459 PERFORM S999-ABEND THRU S999-EXIT DTSBX344 00460 END-IF. DTSBX344 00461 DTSBX344 00462 OPEN OUTPUT LIEN-FILE. DTSBX344 00463 IF NOT LIEN-STATUS-OK-88 DTSBX344 00464 DISPLAY 'LIEN FILE OPEN ERROR: ' LIEN-STATUS DTSBX344 00465 MOVE 'LIEN FILE OPEN ERROR' DTSBX344 00466 TO ABEND-MSG DTSBX344 00467 PERFORM S999-ABEND THRU S999-EXIT DTSBX344 00468 END-IF. DTSBX344 00469 DTSBX344 00470 OPEN OUTPUT LIEN-QTR-FILE. DTSBX344 00471 IF NOT LIEN-QTR-STATUS-OK-88 DTSBX344 00472 DISPLAY 'LIEN QTR FILE OPEN ERROR: ' LIEN-QTR-STATUS DTSBX344 00473 MOVE 'LIEN QTR FILE OPEN ERROR' DTSBX344 00474 TO ABEND-MSG DTSBX344 00475 PERFORM S999-ABEND THRU S999-EXIT DTSBX344 00476 END-IF. DTSBX344 00477 DTSBX344 00478 OPEN OUTPUT DPC-FILE. DTSBX344 00479 IF NOT DPC-STATUS-OK-88 DTSBX344 00480 DISPLAY 'DPC FILE OPEN ERROR: ' DPC-STATUS DTSBX344 00481 MOVE 'DPC FILE OPEN ERROR' DTSBX344 00482 TO ABEND-MSG DTSBX344 00483 PERFORM S999-ABEND THRU S999-EXIT DTSBX344 00484 END-IF. DTSBX344 00485 DTSBX344 00486 OPEN OUTPUT DPC-QTR-FILE. DTSBX344 00487 IF NOT DPC-QTR-STATUS-OK-88 DTSBX344 00488 DISPLAY 'DPC QTR FILE OPEN ERROR: ' DPC-QTR-STATUS DTSBX344 00489 MOVE 'DPC QTR FILE OPEN ERROR' DTSBX344 00490 TO ABEND-MSG DTSBX344 00491 PERFORM S999-ABEND THRU S999-EXIT DTSBX344 00492 END-IF. DTSBX344 00493 DTSBX344 00494 I2000-EXIT. DTSBX344 00495 EXIT. DTSBX344 00496 DTSBX344 00497 P0000-PROCESS. DTSBX344 00498 PERFORM P1000-QTR-COLLECTIONS THRU P1000-EXIT. DTSBX344 00499 DTSBX344 00500 PERFORM P2000-AUDITS THRU P2000-EXIT. DTSBX344 00501 DTSBX344 00502 PERFORM P3000-LIENS THRU P3000-EXIT. DTSBX344 00503 DTSBX344 00504 PERFORM P4000-DPC THRU P4000-EXIT. DTSBX344 00505 DTSBX344 00506 P0000-EXIT. DTSBX344 00507 EXIT. DTSBX344 00508 DTSBX344 00509 P1000-QTR-COLLECTIONS. DTSBX344 00510 MOVE LOW-VALUES TO MEVL-KEY-AREA. DTSBX344 00511 MOVE MPRF-EMP-NO TO MEVL-EMP-NO. DTSBX344 00512 SET MEVL-EVL-88 TO TRUE. DTSBX344 00513 MOVE MEVL-KEY-AREA TO MSKL-KEY-AREA. DTSBX344 00514 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBX344 00515 PERFORM UNTIL L910-NO-REC-88 DTSBX344 00516 MOVE MSKL-REC TO MEVL-REC DTSBX344 00517 PERFORM P1100-BUILD-QCOLL THRU P1100-EXIT DTSBX344 00518 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBX344 00519 END-PERFORM. DTSBX344 00520 DTSBX344 00521 P1000-EXIT. DTSBX344 00522 EXIT. DTSBX344 00523 DTSBX344 00524 P1100-BUILD-QCOLL. DTSBX344 00525 IF MEVL-TEXT (1:14) = 'MISSING REPORT' DTSBX344 00526 OR MEVL-TEXT (1:17) = 'DELINQUENT NOTICE' DTSBX344 00527 OR MEVL-TEXT (1:13) = 'FINAL MISSING' DTSBX344 00528 OR MEVL-TEXT (1:5) = 'DEBIT' DTSBX344 00529 OR MEVL-TEXT (11:12) = 'LATE PENALTY' DTSBX344 00530 OR MEVL-TEXT (18:10) = 'DELINQUENT' DTSBX344 00531 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG DTSBX344 00532 OR MEVL-TEXT (1:18) = 'DELINQUENCY NOTICE' DTSBX344 00533 OR MEVL-TEXT (1:20) = 'NOTICE OF ASSESSMENT' DTSBX344 00534 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG DTSBX344 00535 NEXT SENTENCE DTSBX344 00536 ELSE DTSBX344 00537 GO TO P1100-EXIT DTSBX344 00538 END-IF. DTSBX344 00539 DTSBX344 00540 ** IF MEVL-SOURCE-SYSTEM-88 DTSBX344 00541 * IF MEVL-TEXT (1:14) = 'MISSING REPORT' DTSBX344 00542 * OR MEVL-TEXT (1:13) = 'FINAL MISSING' DTSBX344 00543 * OR MEVL-TEXT (1:5) = 'DEBIT' DTSBX344 00544 * NEXT SENTENCE DTSBX344 00545 * ELSE DTSBX344 00546 * GO TO P1100-EXIT DTSBX344 00547 * END-IF DTSBX344 00548 * ELSE DTSBX344 00549 * GO TO P1100-EXIT DTSBX344 00550 ** END-IF. DTSBX344 00551 DTSBX344 00552 MOVE MPRF-EMP-NO TO QTR-COLL-EMP-NO. DTSBX344 00553 DTSBX344 00554 IF MEVL-TEXT (1:5) = 'DEBIT' DTSBX344 00555 SET QTR-COLL-DEBIT-MEMO-88 TO TRUE DTSBX344 00556 MOVE SPACES TO QTR-COLL-QUARTER DTSBX344 00557 END-IF. DTSBX344 00558 DTSBX344 00559 IF MEVL-TEXT (1:14) = 'MISSING REPORT' DTSBX344 00560 SET QTR-COLL-DELINQ-NOTICE-88 TO TRUE DTSBX344 00561 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG DTSBX344 00562 IF MEVL-TEXT(30:1) = '/' DTSBX344 00563 MOVE MEVL-TEXT (28:4) TO W-QTR-3-AREA DTSBX344 00564 MOVE W-QTR-3-YY TO L004-QTR-3-YR DTSBX344 00565 MOVE W-QTR-3-Q TO L004-QTR-3-Q DTSBX344 00566 PERFORM S004-FROM-3 THRU S004-EXIT DTSBX344 00567 IF L004-VALID-QTR DTSBX344 00568 MOVE L004-SLASH-5-QTR TO QTR-COLL-QUARTER DTSBX344 00569 ELSE DTSBX344 00570 MOVE SPACES TO QTR-COLL-QUARTER DTSBX344 00571 END-IF DTSBX344 00572 ELSE DTSBX344 00573 IF MEVL-TEXT(29:1) = '/' DTSBX344 00574 MOVE MEVL-TEXT (27:4) TO W-QTR-3-AREA DTSBX344 00575 MOVE W-QTR-3-YY TO L004-QTR-3-YR DTSBX344 00576 MOVE W-QTR-3-Q TO L004-QTR-3-Q DTSBX344 00577 PERFORM S004-FROM-3 THRU S004-EXIT DTSBX344 00578 IF L004-VALID-QTR DTSBX344 00579 MOVE L004-SLASH-5-QTR TO QTR-COLL-QUARTER DTSBX344 00580 ELSE DTSBX344 00581 MOVE SPACES TO QTR-COLL-QUARTER DTSBX344 00582 END-IF DTSBX344 00583 ELSE DTSBX344 00584 IF MEVL-TEXT(28:1) = 2 DTSBX344 00585 MOVE MEVL-TEXT(28:4) TO QTR-COLL-QUARTER(1:4) DTSBX344 00586 MOVE '/' TO QTR-COLL-QUARTER(5:1) DTSBX344 00587 MOVE '4' TO QTR-COLL-QUARTER(6:1) DTSBX344 00588 ELSE DTSBX344 00589 MOVE SPACES TO QTR-COLL-QUARTER DTSBX344 00590 END-IF DTSBX344 00591 END-IF DTSBX344 00592 END-IF. DTSBX344 00593 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG DTSBX344 00594 DTSBX344 00595 IF MEVL-TEXT (1:17) = 'DELINQUENT NOTICE' DTSBX344 00596 SET QTR-COLL-DELINQ-NOTICE-88 TO TRUE DTSBX344 00597 MOVE MEVL-TEXT (23:4) TO W-QTR-3-AREA DTSBX344 00598 MOVE W-QTR-3-YY TO L004-QTR-3-YR DTSBX344 00599 MOVE W-QTR-3-Q TO L004-QTR-3-Q DTSBX344 00600 PERFORM S004-FROM-3 THRU S004-EXIT DTSBX344 00601 IF L004-VALID-QTR DTSBX344 00602 MOVE L004-SLASH-5-QTR TO QTR-COLL-QUARTER DTSBX344 00603 ELSE DTSBX344 00604 MOVE SPACES TO QTR-COLL-QUARTER DTSBX344 00605 END-IF DTSBX344 00606 END-IF. DTSBX344 00607 DTSBX344 00608 IF MEVL-TEXT (11:12) = 'LATE PENALTY' DTSBX344 00609 SET QTR-COLL-PENALTY-88 TO TRUE DTSBX344 00610 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG DTSBX344 00611 IF MEVL-TEXT(30:1) = '/' DTSBX344 00612 MOVE MEVL-TEXT (28:4) TO W-QTR-3-AREA DTSBX344 00613 MOVE W-QTR-3-YY TO L004-QTR-3-YR DTSBX344 00614 MOVE W-QTR-3-Q TO L004-QTR-3-Q DTSBX344 00615 PERFORM S004-FROM-3 THRU S004-EXIT DTSBX344 00616 IF L004-VALID-QTR DTSBX344 00617 MOVE L004-SLASH-5-QTR TO QTR-COLL-QUARTER DTSBX344 00618 ELSE DTSBX344 00619 MOVE SPACES TO QTR-COLL-QUARTER DTSBX344 00620 END-IF DTSBX344 00621 ELSE DTSBX344 00622 IF MEVL-TEXT(28:1) = 2 DTSBX344 00623 MOVE MEVL-TEXT(28:4) TO QTR-COLL-QUARTER(1:4) DTSBX344 00624 MOVE '/' TO QTR-COLL-QUARTER(5:1) DTSBX344 00625 MOVE '4' TO QTR-COLL-QUARTER(6:1) DTSBX344 00626 ELSE DTSBX344 00627 MOVE SPACES TO QTR-COLL-QUARTER DTSBX344 00628 END-IF DTSBX344 00629 END-IF DTSBX344 00630 END-IF. DTSBX344 00631 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG DTSBX344 00632 DTSBX344 00633 IF MEVL-TEXT (18:10) = 'DELINQUENT' OR DTSBX344 00634 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG DTSBX344 00635 MEVL-TEXT (1:18) = 'DELINQUENCY NOTICE' DTSBX344 00636 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG DTSBX344 00637 SET QTR-COLL-INIT-DELINQ-88 TO TRUE DTSBX344 00638 MOVE MEVL-TEXT (29:4) TO W-QTR-3-AREA DTSBX344 00639 MOVE W-QTR-3-YY TO L004-QTR-3-YR DTSBX344 00640 MOVE W-QTR-3-Q TO L004-QTR-3-Q DTSBX344 00641 PERFORM S004-FROM-3 THRU S004-EXIT DTSBX344 00642 IF L004-VALID-QTR DTSBX344 00643 MOVE L004-SLASH-5-QTR TO QTR-COLL-QUARTER DTSBX344 00644 ELSE DTSBX344 00645 MOVE SPACES TO QTR-COLL-QUARTER DTSBX344 00646 END-IF DTSBX344 00647 END-IF. DTSBX344 00648 DTSBX344 00649 IF MEVL-TEXT (1:13) = 'FINAL MISSING' DTSBX344 00650 SET QTR-COLL-FINAL-DELINQ-88 TO TRUE DTSBX344 00651 MOVE MEVL-TEXT (30:4) TO W-QTR-3-AREA DTSBX344 00652 MOVE W-QTR-3-YY TO L004-QTR-3-YR DTSBX344 00653 MOVE W-QTR-3-Q TO L004-QTR-3-Q DTSBX344 00654 PERFORM S004-FROM-3 THRU S004-EXIT DTSBX344 00655 IF L004-VALID-QTR DTSBX344 00656 MOVE L004-SLASH-5-QTR TO QTR-COLL-QUARTER DTSBX344 00657 ELSE DTSBX344 00658 MOVE SPACES TO QTR-COLL-QUARTER DTSBX344 00659 END-IF DTSBX344 00660 END-IF. DTSBX344 00661 DTSBX344 00662 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG DTSBX344 00663 IF MEVL-TEXT (1:20) = 'NOTICE OF ASSESSMENT' DTSBX344 00664 SET QTR-COLL-ESTIMATE-88 TO TRUE DTSBX344 00665 MOVE MEVL-TEXT (26:4) TO W-QTR-3-AREA DTSBX344 00666 MOVE W-QTR-3-YY TO L004-QTR-3-YR DTSBX344 00667 MOVE W-QTR-3-Q TO L004-QTR-3-Q DTSBX344 00668 PERFORM S004-FROM-3 THRU S004-EXIT DTSBX344 00669 IF L004-VALID-QTR DTSBX344 00670 MOVE L004-SLASH-5-QTR TO QTR-COLL-QUARTER DTSBX344 00671 ELSE DTSBX344 00672 MOVE SPACES TO QTR-COLL-QUARTER DTSBX344 00673 END-IF DTSBX344 00674 END-IF. DTSBX344 00675 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG DTSBX344 00676 DTSBX344 00677 MOVE MEVL-DATE TO L001-FED-8-DATE-9. DTSBX344 00678 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 00679 IF L001-VALID-DATE DTSBX344 00680 MOVE L001-SLASH-8-DATE TO QTR-COLL-PROCESS-DT DTSBX344 00681 ELSE DTSBX344 00682 DISPLAY 'INVALID DATE ' MPRF-EMP-NO DTSBX344 00683 ' ' L001-FED-8-DATE-X DTSBX344 00684 ' ' MEVL-DATE DTSBX344 00685 MOVE W-DEFAULT-DATE TO QTR-COLL-PROCESS-DT DTSBX344 00686 END-IF. DTSBX344 00687 DTSBX344 00688 MOVE MEVL-SOURCE TO QTR-COLL-OPID. DTSBX344 00689 DTSBX344 00690 WRITE QTR-COLL-REC FROM W-QTR-COLL-REC DTSBX344 00691 IF NOT QCOLL-STATUS-OK-88 DTSBX344 00692 DISPLAY 'CANNOT WRITE TO QTR COLL FILE ' DTSBX344 00693 ' ' QCOLL-STATUS ' ' QTR-COLL-EMP-NO DTSBX344 00694 ELSE DTSBX344 00695 ADD +1 TO W-QCOLL-CNT DTSBX344 00696 END-IF. DTSBX344 00697 DTSBX344 00698 P1100-EXIT. DTSBX344 00699 EXIT. DTSBX344 00700 DTSBX344 00701 P2000-AUDITS. DTSBX344 00702 MOVE LOW-VALUES TO MFAS-KEY-AREA. DTSBX344 00703 MOVE MPRF-EMP-NO TO MFAS-EMP-NO. DTSBX344 00704 SET MFAS-FAS-88 TO TRUE. DTSBX344 00705 MOVE MFAS-KEY-AREA TO MSKL-KEY-AREA. DTSBX344 00706 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBX344 00707 PERFORM UNTIL L910-NO-REC-88 DTSBX344 00708 MOVE MSKL-REC TO MFAS-REC DTSBX344 00709 PERFORM P2100-BUILD-AUDIT THRU P2100-EXIT DTSBX344 00710 MOVE MFAS-REC TO MSKL-REC DTSBX344 00711 PERFORM S910-START-BROWSE THRU S910-EXIT DTSBX344 00712 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBX344 00713 END-PERFORM. DTSBX344 00714 DTSBX344 00715 P2000-EXIT. DTSBX344 00716 EXIT. DTSBX344 00717 DTSBX344 00718 P2100-BUILD-AUDIT. DTSBX344 00719 IF MFAS-AUDIT-88 DTSBX344 00720 EVALUATE TRUE DTSBX344 00721 WHEN MFAS-STATUS-PROCESSED-88 DTSBX344 00722 IF MFAS-PROCESSED-DATE >= W-AUDIT-START-DT DTSBX344 00723 PERFORM P2110-FIND-MAUR THRU P2110-EXIT DTSBX344 00724 IF L910-OK-88 DTSBX344 00725 PERFORM P2120-PROCESSED THRU P2120-EXIT DTSBX344 00726 END-IF DTSBX344 00727 END-IF DTSBX344 00728 DTSBX344 00729 WHEN MFAS-STATUS-KILLED-88 DTSBX344 00730 IF MFAS-CHNG-DATE >= W-AUDIT-START-DT DTSBX344 00731 PERFORM P2130-KILLED THRU P2130-EXIT DTSBX344 00732 END-IF DTSBX344 00733 DTSBX344 00734 WHEN MFAS-STATUS-ACTIVE-88 DTSBX344 00735 ***NH IF MFAS-ESTB-DATE >= W-START-DT DTSBX344 00736 IF MFAS-ESTB-DATE >= W-AUDIT-START-DT DTSBX344 00737 PERFORM P2140-ACTIVE THRU P2140-EXIT DTSBX344 00738 END-IF DTSBX344 00739 DTSBX344 00740 WHEN MFAS-STATUS-COMPLETE-88 DTSBX344 00741 IF MFAS-COMPLETED-DATE >= W-AUDIT-START-DT DTSBX344 00742 PERFORM P2150-COMPLETED THRU P2150-EXIT DTSBX344 00743 END-IF DTSBX344 00744 DTSBX344 00745 END-EVALUATE DTSBX344 00746 ELSE DTSBX344 00747 IF MFAS-ASSIGN-TYPE = '14' DTSBX344 00748 PERFORM P2160-DELINQUENCY THRU P2160-EXIT DTSBX344 00749 END-IF DTSBX344 00750 END-IF. DTSBX344 00751 DTSBX344 00752 P2100-EXIT. DTSBX344 00753 EXIT. DTSBX344 00754 DTSBX344 00755 P2110-FIND-MAUR. DTSBX344 00756 MOVE LOW-VALUES TO MAUR-KEY-AREA. DTSBX344 00757 MOVE MPRF-EMP-NO TO MAUR-EMP-NO. DTSBX344 00758 SET MAUR-AUR-88 TO TRUE. DTSBX344 00759 MOVE MFAS-ASSIGN-NO TO MAUR-ASSIGN-NO. DTSBX344 00760 MOVE MAUR-KEY-AREA TO MSKL-KEY-AREA. DTSBX344 00761 PERFORM S910-READ THRU S910-EXIT. DTSBX344 00762 DTSBX344 00763 P2110-EXIT. DTSBX344 00764 EXIT. DTSBX344 00765 DTSBX344 00766 P2120-PROCESSED. DTSBX344 00767 MOVE MFAS-EMP-NO TO AUDIT-EMP-NO. DTSBX344 00768 DTSBX344 00769 MOVE MFAS-ASSIGN-NO TO WRK-ASSIGN. DTSBX344 00770 MOVE WRK-ASSIGN-YY TO WRK-FLD-ASSIGN-YEAR. DTSBX344 00771 MOVE WRK-ASSIGN-NBR TO WRK-FLD-ASSIGN-NBR. DTSBX344 00772 MOVE WRK-FLD-ASSIGN TO AUDIT-ASSIGN-NO. DTSBX344 00773 MOVE MFAS-STATUS-CD TO AUDIT-STATUS-CD. DTSBX344 00774 DTSBX344 00775 MOVE MFAS-START-DATE TO L001-FED-8-DATE-9. DTSBX344 00776 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 00777 IF L001-VALID-DATE DTSBX344 00778 MOVE L001-SLASH-8-DATE TO AUDIT-START-DT DTSBX344 00779 ELSE DTSBX344 00780 MOVE SPACES TO AUDIT-START-DT DTSBX344 00781 END-IF. DTSBX344 00782 DTSBX344 00783 MOVE MFAS-START-YRQ TO L004-QTR-5-9. DTSBX344 00784 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX344 00785 IF L004-VALID-QTR DTSBX344 00786 MOVE L004-SLASH-5-QTR TO AUDIT-START-QTR DTSBX344 00787 ELSE DTSBX344 00788 MOVE SPACES TO AUDIT-START-QTR DTSBX344 00789 END-IF. DTSBX344 00790 DTSBX344 00791 MOVE MFAS-END-YRQ TO L004-QTR-5-9. DTSBX344 00792 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX344 00793 IF L004-VALID-QTR DTSBX344 00794 MOVE L004-SLASH-5-QTR TO AUDIT-END-QTR DTSBX344 00795 ELSE DTSBX344 00796 MOVE SPACES TO AUDIT-END-QTR DTSBX344 00797 END-IF. DTSBX344 00798 DTSBX344 00799 MOVE MFAS-COMPLETED-DATE TO L001-FED-8-DATE-9. DTSBX344 00800 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 00801 IF L001-VALID-DATE DTSBX344 00802 MOVE L001-SLASH-8-DATE TO AUDIT-COMPLETE-DT DTSBX344 00803 ELSE DTSBX344 00804 MOVE SPACES TO AUDIT-COMPLETE-DT DTSBX344 00805 END-IF. DTSBX344 00806 DTSBX344 00807 MOVE MFAS-PROCESSED-DATE TO L001-FED-8-DATE-9. DTSBX344 00808 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 00809 IF L001-VALID-DATE DTSBX344 00810 MOVE L001-SLASH-8-DATE TO AUDIT-PROCESS-DT DTSBX344 00811 ELSE DTSBX344 00812 MOVE SPACES TO AUDIT-PROCESS-DT DTSBX344 00813 END-IF. DTSBX344 00814 DTSBX344 00815 MOVE MFAS-FLD-REP-ID TO L062-FLD-REP-ID. DTSBX344 00816 PERFORM S062-LOOKUP-FLD-REP THRU S062-EXIT. DTSBX344 00817 MOVE L062-OP-ID TO AUDIT-OPID. DTSBX344 00818 DTSBX344 00819 MOVE MFAS-ASSIGN-TYPE TO AUDIT-ASSIGN-TYPE. DTSBX344 00820 DTSBX344 00821 MOVE MFAS-AUDIT-IND TO AUDIT-IND. DTSBX344 00822 DTSBX344 00823 MOVE MFAS-DUE-DATE TO L001-FED-8-DATE-9. DTSBX344 00824 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 00825 IF L001-VALID-DATE DTSBX344 00826 MOVE L001-SLASH-8-DATE TO AUDIT-DUE-DATE DTSBX344 00827 ELSE DTSBX344 00828 MOVE SPACES TO AUDIT-DUE-DATE DTSBX344 00829 END-IF. DTSBX344 00830 DTSBX344 00831 MOVE MFAS-NAICS-CD TO AUDIT-NAICS-CD. DTSBX344 00832 DTSBX344 00833 MOVE MFAS-EMP-SIZE-IND TO AUDIT-EMP-SIZE-IND. DTSBX344 00834 DTSBX344 00835 MOVE MFAS-CHNG-DATE TO L001-FED-8-DATE-9. DTSBX344 00836 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 00837 IF L001-VALID-DATE DTSBX344 00838 MOVE L001-SLASH-8-DATE TO AUDIT-CHANGE-DATE DTSBX344 00839 ELSE DTSBX344 00840 MOVE SPACES TO AUDIT-CHANGE-DATE DTSBX344 00841 END-IF. DTSBX344 00842 DTSBX344 00843 WRITE AUDIT-REC FROM W-AUDIT-REC DTSBX344 00844 IF NOT AUDIT-STATUS-OK-88 DTSBX344 00845 DISPLAY 'CANNOT WRITE PROCESSED AUDIT ' DTSBX344 00846 ' ' AUDIT-STATUS ' ' AUDIT-EMP-NO DTSBX344 00847 ELSE DTSBX344 00848 ADD +1 TO W-AUDIT-CNT DTSBX344 00849 END-IF. DTSBX344 00850 DTSBX344 00851 P2120-EXIT. DTSBX344 00852 EXIT. DTSBX344 00853 DTSBX344 00854 P2130-KILLED. DTSBX344 00855 MOVE MFAS-EMP-NO TO AUDIT-EMP-NO. DTSBX344 00856 DTSBX344 00857 MOVE MFAS-ASSIGN-NO TO WRK-ASSIGN. DTSBX344 00858 MOVE WRK-ASSIGN-YY TO WRK-FLD-ASSIGN-YEAR. DTSBX344 00859 MOVE WRK-ASSIGN-NBR TO WRK-FLD-ASSIGN-NBR. DTSBX344 00860 MOVE WRK-FLD-ASSIGN TO AUDIT-ASSIGN-NO. DTSBX344 00861 MOVE MFAS-STATUS-CD TO AUDIT-STATUS-CD. DTSBX344 00862 DTSBX344 00863 MOVE MFAS-START-DATE TO L001-FED-8-DATE-9. DTSBX344 00864 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 00865 IF L001-VALID-DATE DTSBX344 00866 MOVE L001-SLASH-8-DATE TO AUDIT-START-DT DTSBX344 00867 ELSE DTSBX344 00868 MOVE SPACES TO AUDIT-START-DT DTSBX344 00869 END-IF. DTSBX344 00870 DTSBX344 00871 MOVE MFAS-START-YRQ TO L004-QTR-5-9. DTSBX344 00872 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX344 00873 IF L004-VALID-QTR DTSBX344 00874 MOVE L004-SLASH-5-QTR TO AUDIT-START-QTR DTSBX344 00875 ELSE DTSBX344 00876 MOVE SPACES TO AUDIT-START-QTR DTSBX344 00877 END-IF. DTSBX344 00878 DTSBX344 00879 MOVE MFAS-END-YRQ TO L004-QTR-5-9. DTSBX344 00880 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX344 00881 IF L004-VALID-QTR DTSBX344 00882 MOVE L004-SLASH-5-QTR TO AUDIT-END-QTR DTSBX344 00883 ELSE DTSBX344 00884 MOVE SPACES TO AUDIT-END-QTR DTSBX344 00885 END-IF. DTSBX344 00886 DTSBX344 00887 MOVE MFAS-CHNG-DATE TO L001-FED-8-DATE-9. DTSBX344 00888 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 00889 IF L001-VALID-DATE DTSBX344 00890 MOVE L001-SLASH-8-DATE TO AUDIT-COMPLETE-DT DTSBX344 00891 ELSE DTSBX344 00892 MOVE SPACES TO AUDIT-COMPLETE-DT DTSBX344 00893 END-IF. DTSBX344 00894 DTSBX344 00895 MOVE SPACES TO AUDIT-PROCESS-DT. DTSBX344 00896 DTSBX344 00897 MOVE MFAS-FLD-REP-ID TO L062-FLD-REP-ID. DTSBX344 00898 PERFORM S062-LOOKUP-FLD-REP THRU S062-EXIT. DTSBX344 00899 MOVE L062-OP-ID TO AUDIT-OPID. DTSBX344 00900 DTSBX344 00901 MOVE MFAS-ASSIGN-TYPE TO AUDIT-ASSIGN-TYPE. DTSBX344 00902 DTSBX344 00903 MOVE MFAS-AUDIT-IND TO AUDIT-IND. DTSBX344 00904 DTSBX344 00905 MOVE MFAS-DUE-DATE TO L001-FED-8-DATE-9. DTSBX344 00906 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 00907 IF L001-VALID-DATE DTSBX344 00908 MOVE L001-SLASH-8-DATE TO AUDIT-DUE-DATE DTSBX344 00909 ELSE DTSBX344 00910 MOVE SPACES TO AUDIT-DUE-DATE DTSBX344 00911 END-IF. DTSBX344 00912 DTSBX344 00913 MOVE MFAS-NAICS-CD TO AUDIT-NAICS-CD. DTSBX344 00914 DTSBX344 00915 MOVE MFAS-EMP-SIZE-IND TO AUDIT-EMP-SIZE-IND. DTSBX344 00916 DTSBX344 00917 MOVE MFAS-CHNG-DATE TO L001-FED-8-DATE-9. DTSBX344 00918 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 00919 IF L001-VALID-DATE DTSBX344 00920 MOVE L001-SLASH-8-DATE TO AUDIT-CHANGE-DATE DTSBX344 00921 ELSE DTSBX344 00922 MOVE SPACES TO AUDIT-CHANGE-DATE DTSBX344 00923 END-IF. DTSBX344 00924 DTSBX344 00925 WRITE AUDIT-REC FROM W-AUDIT-REC DTSBX344 00926 IF NOT AUDIT-STATUS-OK-88 DTSBX344 00927 DISPLAY 'CANNOT WRITE KILLED-AUDIT ' DTSBX344 00928 ' ' AUDIT-STATUS ' ' AUDIT-EMP-NO DTSBX344 00929 ELSE DTSBX344 00930 ADD +1 TO W-AUDIT-CNT DTSBX344 00931 END-IF. DTSBX344 00932 DTSBX344 00933 P2130-EXIT. DTSBX344 00934 EXIT. DTSBX344 00935 DTSBX344 00936 P2140-ACTIVE. DTSBX344 00937 MOVE MFAS-EMP-NO TO AUDIT-EMP-NO. DTSBX344 00938 DTSBX344 00939 MOVE MFAS-ASSIGN-NO TO WRK-ASSIGN. DTSBX344 00940 MOVE WRK-ASSIGN-YY TO WRK-FLD-ASSIGN-YEAR. DTSBX344 00941 MOVE WRK-ASSIGN-NBR TO WRK-FLD-ASSIGN-NBR. DTSBX344 00942 MOVE WRK-FLD-ASSIGN TO AUDIT-ASSIGN-NO. DTSBX344 00943 MOVE MFAS-STATUS-CD TO AUDIT-STATUS-CD. DTSBX344 00944 DTSBX344 00945 MOVE MFAS-START-DATE TO L001-FED-8-DATE-9. DTSBX344 00946 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 00947 IF L001-VALID-DATE DTSBX344 00948 MOVE L001-SLASH-8-DATE TO AUDIT-START-DT DTSBX344 00949 ELSE DTSBX344 00950 MOVE SPACES TO AUDIT-START-DT DTSBX344 00951 END-IF. DTSBX344 00952 DTSBX344 00953 MOVE MFAS-START-YRQ TO L004-QTR-5-9. DTSBX344 00954 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX344 00955 IF L004-VALID-QTR DTSBX344 00956 MOVE L004-SLASH-5-QTR TO AUDIT-START-QTR DTSBX344 00957 ELSE DTSBX344 00958 MOVE SPACES TO AUDIT-START-QTR DTSBX344 00959 END-IF. DTSBX344 00960 DTSBX344 00961 MOVE MFAS-END-YRQ TO L004-QTR-5-9. DTSBX344 00962 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX344 00963 IF L004-VALID-QTR DTSBX344 00964 MOVE L004-SLASH-5-QTR TO AUDIT-END-QTR DTSBX344 00965 ELSE DTSBX344 00966 MOVE SPACES TO AUDIT-END-QTR DTSBX344 00967 END-IF. DTSBX344 00968 DTSBX344 00969 MOVE MFAS-CHNG-DATE TO L001-FED-8-DATE-9. DTSBX344 00970 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 00971 IF L001-VALID-DATE DTSBX344 00972 MOVE L001-SLASH-8-DATE TO AUDIT-COMPLETE-DT DTSBX344 00973 ELSE DTSBX344 00974 MOVE SPACES TO AUDIT-COMPLETE-DT DTSBX344 00975 END-IF. DTSBX344 00976 DTSBX344 00977 MOVE SPACES TO AUDIT-PROCESS-DT. DTSBX344 00978 DTSBX344 00979 MOVE MFAS-FLD-REP-ID TO L062-FLD-REP-ID. DTSBX344 00980 PERFORM S062-LOOKUP-FLD-REP THRU S062-EXIT. DTSBX344 00981 MOVE L062-OP-ID TO AUDIT-OPID. DTSBX344 00982 DTSBX344 00983 MOVE MFAS-ASSIGN-TYPE TO AUDIT-ASSIGN-TYPE. DTSBX344 00984 DTSBX344 00985 MOVE MFAS-AUDIT-IND TO AUDIT-IND. DTSBX344 00986 DTSBX344 00987 MOVE MFAS-DUE-DATE TO L001-FED-8-DATE-9. DTSBX344 00988 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 00989 IF L001-VALID-DATE DTSBX344 00990 MOVE L001-SLASH-8-DATE TO AUDIT-DUE-DATE DTSBX344 00991 ELSE DTSBX344 00992 MOVE SPACES TO AUDIT-DUE-DATE DTSBX344 00993 END-IF. DTSBX344 00994 DTSBX344 00995 MOVE MFAS-NAICS-CD TO AUDIT-NAICS-CD. DTSBX344 00996 DTSBX344 00997 MOVE MFAS-EMP-SIZE-IND TO AUDIT-EMP-SIZE-IND. DTSBX344 00998 DTSBX344 00999 MOVE MFAS-CHNG-DATE TO L001-FED-8-DATE-9. DTSBX344 01000 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 01001 IF L001-VALID-DATE DTSBX344 01002 MOVE L001-SLASH-8-DATE TO AUDIT-CHANGE-DATE DTSBX344 01003 ELSE DTSBX344 01004 MOVE SPACES TO AUDIT-CHANGE-DATE DTSBX344 01005 END-IF. DTSBX344 01006 DTSBX344 01007 WRITE AUDIT-REC FROM W-AUDIT-REC DTSBX344 01008 IF NOT AUDIT-STATUS-OK-88 DTSBX344 01009 DISPLAY 'CANNOT WRITE ACTIVE AUDIT ' DTSBX344 01010 ' ' AUDIT-STATUS ' ' AUDIT-EMP-NO DTSBX344 01011 ELSE DTSBX344 01012 ADD +1 TO W-AUDIT-CNT DTSBX344 01013 ADD +1 TO W-ACTIVE-CNT DTSBX344 01014 END-IF. DTSBX344 01015 DTSBX344 01016 P2140-EXIT. DTSBX344 01017 EXIT. DTSBX344 01018 DTSBX344 01019 P2150-COMPLETED. DTSBX344 01020 MOVE MFAS-EMP-NO TO AUDIT-EMP-NO. DTSBX344 01021 DTSBX344 01022 MOVE MFAS-ASSIGN-NO TO WRK-ASSIGN. DTSBX344 01023 MOVE WRK-ASSIGN-YY TO WRK-FLD-ASSIGN-YEAR. DTSBX344 01024 MOVE WRK-ASSIGN-NBR TO WRK-FLD-ASSIGN-NBR. DTSBX344 01025 MOVE WRK-FLD-ASSIGN TO AUDIT-ASSIGN-NO. DTSBX344 01026 MOVE MFAS-STATUS-CD TO AUDIT-STATUS-CD. DTSBX344 01027 DTSBX344 01028 MOVE MFAS-START-DATE TO L001-FED-8-DATE-9. DTSBX344 01029 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 01030 IF L001-VALID-DATE DTSBX344 01031 MOVE L001-SLASH-8-DATE TO AUDIT-START-DT DTSBX344 01032 ELSE DTSBX344 01033 MOVE SPACES TO AUDIT-START-DT DTSBX344 01034 END-IF. DTSBX344 01035 DTSBX344 01036 MOVE MFAS-START-YRQ TO L004-QTR-5-9. DTSBX344 01037 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX344 01038 IF L004-VALID-QTR DTSBX344 01039 MOVE L004-SLASH-5-QTR TO AUDIT-START-QTR DTSBX344 01040 ELSE DTSBX344 01041 MOVE SPACES TO AUDIT-START-QTR DTSBX344 01042 END-IF. DTSBX344 01043 DTSBX344 01044 MOVE MFAS-END-YRQ TO L004-QTR-5-9. DTSBX344 01045 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX344 01046 IF L004-VALID-QTR DTSBX344 01047 MOVE L004-SLASH-5-QTR TO AUDIT-END-QTR DTSBX344 01048 ELSE DTSBX344 01049 MOVE SPACES TO AUDIT-END-QTR DTSBX344 01050 END-IF. DTSBX344 01051 DTSBX344 01052 MOVE MFAS-COMPLETED-DATE TO L001-FED-8-DATE-9. DTSBX344 01053 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 01054 IF L001-VALID-DATE DTSBX344 01055 MOVE L001-SLASH-8-DATE TO AUDIT-COMPLETE-DT DTSBX344 01056 ELSE DTSBX344 01057 MOVE SPACES TO AUDIT-COMPLETE-DT DTSBX344 01058 END-IF. DTSBX344 01059 DTSBX344 01060 MOVE SPACES TO AUDIT-PROCESS-DT. DTSBX344 01061 DTSBX344 01062 MOVE MFAS-FLD-REP-ID TO L062-FLD-REP-ID. DTSBX344 01063 PERFORM S062-LOOKUP-FLD-REP THRU S062-EXIT. DTSBX344 01064 MOVE L062-OP-ID TO AUDIT-OPID. DTSBX344 01065 DTSBX344 01066 MOVE MFAS-ASSIGN-TYPE TO AUDIT-ASSIGN-TYPE. DTSBX344 01067 DTSBX344 01068 MOVE MFAS-AUDIT-IND TO AUDIT-IND. DTSBX344 01069 DTSBX344 01070 MOVE MFAS-DUE-DATE TO L001-FED-8-DATE-9. DTSBX344 01071 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 01072 IF L001-VALID-DATE DTSBX344 01073 MOVE L001-SLASH-8-DATE TO AUDIT-DUE-DATE DTSBX344 01074 ELSE DTSBX344 01075 MOVE SPACES TO AUDIT-DUE-DATE DTSBX344 01076 END-IF. DTSBX344 01077 DTSBX344 01078 MOVE MFAS-NAICS-CD TO AUDIT-NAICS-CD. DTSBX344 01079 DTSBX344 01080 MOVE MFAS-EMP-SIZE-IND TO AUDIT-EMP-SIZE-IND. DTSBX344 01081 DTSBX344 01082 MOVE MFAS-CHNG-DATE TO L001-FED-8-DATE-9. DTSBX344 01083 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 01084 IF L001-VALID-DATE DTSBX344 01085 MOVE L001-SLASH-8-DATE TO AUDIT-CHANGE-DATE DTSBX344 01086 ELSE DTSBX344 01087 MOVE SPACES TO AUDIT-CHANGE-DATE DTSBX344 01088 END-IF. DTSBX344 01089 DTSBX344 01090 WRITE AUDIT-REC FROM W-AUDIT-REC DTSBX344 01091 IF NOT AUDIT-STATUS-OK-88 DTSBX344 01092 DISPLAY 'CANNOT WRITE PROCESSED AUDIT ' DTSBX344 01093 ' ' AUDIT-STATUS ' ' AUDIT-EMP-NO DTSBX344 01094 ELSE DTSBX344 01095 ADD +1 TO W-AUDIT-CNT DTSBX344 01096 END-IF. DTSBX344 01097 DTSBX344 01098 P2150-EXIT. DTSBX344 01099 EXIT. DTSBX344 01100 DTSBX344 01101 P2160-DELINQUENCY. DTSBX344 01102 MOVE MFAS-EMP-NO TO AUDIT-EMP-NO. DTSBX344 01103 DTSBX344 01104 MOVE MFAS-ASSIGN-NO TO WRK-ASSIGN. DTSBX344 01105 MOVE WRK-ASSIGN-YY TO WRK-FLD-ASSIGN-YEAR. DTSBX344 01106 MOVE WRK-ASSIGN-NBR TO WRK-FLD-ASSIGN-NBR. DTSBX344 01107 MOVE WRK-FLD-ASSIGN TO AUDIT-ASSIGN-NO. DTSBX344 01108 MOVE MFAS-STATUS-CD TO AUDIT-STATUS-CD. DTSBX344 01109 DTSBX344 01110 MOVE MFAS-START-DATE TO L001-FED-8-DATE-9. DTSBX344 01111 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 01112 IF L001-VALID-DATE DTSBX344 01113 MOVE L001-SLASH-8-DATE TO AUDIT-START-DT DTSBX344 01114 ELSE DTSBX344 01115 MOVE SPACES TO AUDIT-START-DT DTSBX344 01116 END-IF. DTSBX344 01117 DTSBX344 01118 ** MOVE MFAS-SAVET-YRQ TO L004-QTR-5-9. DTSBX344 01119 MOVE 20131 TO L004-QTR-5-9. DTSBX344 01120 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX344 01121 IF L004-VALID-QTR DTSBX344 01122 MOVE L004-SLASH-5-QTR TO AUDIT-START-QTR DTSBX344 01123 ELSE DTSBX344 01124 MOVE SPACES TO AUDIT-START-QTR DTSBX344 01125 END-IF. DTSBX344 01126 DTSBX344 01127 ** MOVE MFAS-END-YRQ TO L004-QTR-5-9. DTSBX344 01128 MOVE 20131 TO L004-QTR-5-9. DTSBX344 01129 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX344 01130 IF L004-VALID-QTR DTSBX344 01131 MOVE L004-SLASH-5-QTR TO AUDIT-END-QTR DTSBX344 01132 ELSE DTSBX344 01133 MOVE SPACES TO AUDIT-END-QTR DTSBX344 01134 END-IF. DTSBX344 01135 DTSBX344 01136 MOVE MFAS-COMPLETED-DATE TO L001-FED-8-DATE-9. DTSBX344 01137 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 01138 IF L001-VALID-DATE DTSBX344 01139 MOVE L001-SLASH-8-DATE TO AUDIT-COMPLETE-DT DTSBX344 01140 ELSE DTSBX344 01141 MOVE SPACES TO AUDIT-COMPLETE-DT DTSBX344 01142 END-IF. DTSBX344 01143 DTSBX344 01144 MOVE SPACES TO AUDIT-PROCESS-DT. DTSBX344 01145 DTSBX344 01146 MOVE MPRF-FLD-ZIP TO L061-FLD-ZIP. DTSBX344 01147 MOVE MPRF-FLD-ST TO L061-FLD-ST. DTSBX344 01148 MOVE MPRF-EMP-NO TO L061-EMP-NO. DTSBX344 01149 PERFORM S061-LOOKUP-FLD-REP-ID THRU S061-EXIT. DTSBX344 01150 DTSBX344 01151 ** MOVE MFAS-FLD-REP-ID TO L062-FLD-REP-ID. DTSBX344 01152 MOVE L061-FLD-REP-ID TO L062-FLD-REP-ID. DTSBX344 01153 PERFORM S062-LOOKUP-FLD-REP THRU S062-EXIT. DTSBX344 01154 MOVE L062-OP-ID TO AUDIT-OPID. DTSBX344 01155 DTSBX344 01156 MOVE MFAS-ASSIGN-TYPE TO AUDIT-ASSIGN-TYPE. DTSBX344 01157 DTSBX344 01158 MOVE MFAS-AUDIT-IND TO AUDIT-IND. DTSBX344 01159 DTSBX344 01160 MOVE MFAS-DUE-DATE TO L001-FED-8-DATE-9. DTSBX344 01161 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 01162 IF L001-VALID-DATE DTSBX344 01163 MOVE L001-SLASH-8-DATE TO AUDIT-DUE-DATE DTSBX344 01164 ELSE DTSBX344 01165 MOVE SPACES TO AUDIT-DUE-DATE DTSBX344 01166 END-IF. DTSBX344 01167 DTSBX344 01168 MOVE MFAS-NAICS-CD TO AUDIT-NAICS-CD. DTSBX344 01169 DTSBX344 01170 MOVE MFAS-EMP-SIZE-IND TO AUDIT-EMP-SIZE-IND. DTSBX344 01171 DTSBX344 01172 MOVE MFAS-CHNG-DATE TO L001-FED-8-DATE-9. DTSBX344 01173 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 01174 IF L001-VALID-DATE DTSBX344 01175 MOVE L001-SLASH-8-DATE TO AUDIT-CHANGE-DATE DTSBX344 01176 ELSE DTSBX344 01177 MOVE SPACES TO AUDIT-CHANGE-DATE DTSBX344 01178 END-IF. DTSBX344 01179 DTSBX344 01180 WRITE AUDIT-REC FROM W-AUDIT-REC DTSBX344 01181 IF NOT AUDIT-STATUS-OK-88 DTSBX344 01182 DISPLAY 'CANNOT WRITE DELINQUENCY AUDIT ' DTSBX344 01183 ' ' AUDIT-STATUS ' ' AUDIT-EMP-NO DTSBX344 01184 ELSE DTSBX344 01185 ADD +1 TO W-AUDIT-CNT DTSBX344 01186 END-IF. DTSBX344 01187 DTSBX344 01188 P2160-EXIT. DTSBX344 01189 EXIT. DTSBX344 01190 DTSBX344 01191 P3000-LIENS. DTSBX344 01192 MOVE LOW-VALUES TO MLIN-KEY-AREA. DTSBX344 01193 MOVE MPRF-EMP-NO TO MLIN-EMP-NO. DTSBX344 01194 SET MLIN-LIN-88 TO TRUE. DTSBX344 01195 MOVE MLIN-KEY-AREA TO MSKL-KEY-AREA. DTSBX344 01196 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBX344 01197 PERFORM UNTIL L910-NO-REC-88 DTSBX344 01198 MOVE MSKL-REC TO MLIN-REC DTSBX344 01199 PERFORM P3100-BUILD-LIEN THRU P3100-EXIT DTSBX344 01200 PERFORM P3200-BUILD-LIEN-QTR THRU P3200-EXIT DTSBX344 01201 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBX344 01202 END-PERFORM. DTSBX344 01203 DTSBX344 01204 P3000-EXIT. DTSBX344 01205 EXIT. DTSBX344 01206 DTSBX344 01207 P3100-BUILD-LIEN. DTSBX344 01208 MOVE MPRF-EMP-NO TO X165-EMP-NO. DTSBX344 01209 MOVE MLIN-CERTIFICATE-NO TO X165-CERTIFICATE-NO. DTSBX344 01210 IF MLIN-REC-DEEDS-NO = LOW-VALUES DTSBX344 01211 MOVE SPACES TO X165-REC-DEEDS-NO DTSBX344 01212 ELSE DTSBX344 01213 MOVE MLIN-REC-DEEDS-NO TO X165-REC-DEEDS-NO DTSBX344 01214 END-IF. DTSBX344 01215 MOVE MLIN-FLD-REP-ID TO X165-FIELD-REP-ID. DTSBX344 01216 DTSBX344 01217 MOVE MLIN-CERTIFICATE-DATE TO L001-FED-8-DATE-9. DTSBX344 01218 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 01219 IF L001-INVALID-DATE DTSBX344 01220 MOVE SPACES TO X165-CERTIFICATE-DATE DTSBX344 01221 ELSE DTSBX344 01222 MOVE L001-SLASH-8-DATE TO X165-CERTIFICATE-DATE DTSBX344 01223 END-IF. DTSBX344 01224 DTSBX344 01225 MOVE MLIN-ESTB-DATE TO L001-FED-8-DATE-9. DTSBX344 01226 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 01227 IF L001-INVALID-DATE DTSBX344 01228 MOVE SPACES TO X165-ESTB-DATE DTSBX344 01229 ELSE DTSBX344 01230 MOVE L001-SLASH-8-DATE TO X165-ESTB-DATE DTSBX344 01231 END-IF. DTSBX344 01232 DTSBX344 01233 MOVE MLIN-CHNG-DATE TO L001-FED-8-DATE-9. DTSBX344 01234 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 01235 IF L001-INVALID-DATE DTSBX344 01236 MOVE SPACES TO X165-CHNG-DATE DTSBX344 01237 ELSE DTSBX344 01238 MOVE L001-SLASH-8-DATE TO X165-CHNG-DATE DTSBX344 01239 END-IF. DTSBX344 01240 DTSBX344 01241 MOVE MLIN-STATUS-CD TO X165-STATUS-CD. DTSBX344 01242 DTSBX344 01243 MOVE MLIN-STATUS-DATE TO L001-FED-8-DATE-9. DTSBX344 01244 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX344 01245 IF L001-INVALID-DATE DTSBX344 01246 MOVE SPACES TO X165-STATUS-DATE DTSBX344 01247 ELSE DTSBX344 01248 MOVE L001-SLASH-8-DATE TO X165-STATUS-DATE DTSBX344 01249 END-IF. DTSBX344 01250 DTSBX344 01251 MOVE MLIN-STATUS-OP-ID TO X165-STATUS-OPID. DTSBX344 01252 DTSBX344 01253 WRITE LIEN-REC FROM X165-REC. DTSBX344 01254 IF NOT LIEN-STATUS-OK-88 DTSBX344 01255 DISPLAY 'CANNOT WRITE LIEN REC ' DTSBX344 01256 ' ' LIEN-STATUS ' ' X165-EMP-NO DTSBX344 01257 ELSE DTSBX344 01258 ADD +1 TO W-LIEN-CNT DTSBX344 01259 END-IF. DTSBX344 01260 DTSBX344 01261 P3100-EXIT. DTSBX344 01262 EXIT. DTSBX344 01263 DTSBX344 01264 P3200-BUILD-LIEN-QTR. DTSBX344 01265 MOVE MPRF-EMP-NO TO X166-EMP-NO. DTSBX344 01266 MOVE MLIN-CERTIFICATE-NO TO X166-CERTIFICATE-NO. DTSBX344 01267 DTSBX344 01268 PERFORM DTSBX344 01269 VARYING SUB FROM +1 BY +1 DTSBX344 01270 UNTIL SUB > +20 DTSBX344 01271 PERFORM P3210-WRITE-QTR THRU P3210-EXIT DTSBX344 01272 END-PERFORM. DTSBX344 01273 DTSBX344 01274 P3200-EXIT. DTSBX344 01275 EXIT. DTSBX344 01276 DTSBX344 01277 P3210-WRITE-QTR. DTSBX344 01278 MOVE MLIN-COVERED-YRQ (SUB) TO L004-QTR-5-9. DTSBX344 01279 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX344 01280 IF L004-VALID-QTR DTSBX344 01281 MOVE L004-SLASH-5-QTR TO X166-LIEN-QTR DTSBX344 01282 WRITE LIEN-QTR-REC FROM X166-REC DTSBX344 01283 IF NOT LIEN-QTR-STATUS-OK-88 DTSBX344 01284 DISPLAY 'CANNOT WRITE LIEN QTR REC ' DTSBX344 01285 ' ' LIEN-QTR-STATUS ' ' X166-EMP-NO DTSBX344 01286 ELSE DTSBX344 01287 ADD +1 TO W-LIEN-QTR-CNT DTSBX344 01288 END-IF DTSBX344 01289 END-IF. DTSBX344 01290 DTSBX344 01291 P3210-EXIT. DTSBX344 01292 EXIT. DTSBX344 01293 DTSBX344 01294 P4000-DPC. DTSBX344 01295 MOVE LOW-VALUES TO MDPC-KEY-AREA. DTSBX344 01296 MOVE MPRF-EMP-NO TO MDPC-EMP-NO. DTSBX344 01297 SET MDPC-DPC-88 TO TRUE. DTSBX344 01298 MOVE MDPC-KEY-AREA TO MSKL-KEY-AREA. DTSBX344 01299 DTSBX344 01300 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBX344 01301 PERFORM UNTIL L910-NO-REC-88 DTSBX344 01302 MOVE MSKL-REC TO MDPC-REC DTSBX344 01303 IF MPRF-EMP-NO = 143103 DTSBX344 01304 DISPLAY 'P40 ' MPRF-EMP-NO ' ' MDPC-STATUS-CD DTSBX344 01305 ' ' MDPC-ESTB-DATE DTSBX344 01306 END-IF DTSBX344 01307 IF MDPC-STATUS-ACTIVE-88 DTSBX344 01308 OR MDPC-STATUS-SATISFIED-88 DTSBX344 01309 PERFORM P4100-BUILD-DPC THRU P4100-EXIT DTSBX344 01310 PERFORM P4200-BUILD-DPC-QTR THRU P4200-EXIT DTSBX344 01311 END-IF DTSBX344 01312 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBX344 01313 END-PERFORM. DTSBX344 01314 DTSBX344 01315 P4000-EXIT. DTSBX344 01316 EXIT. DTSBX344 01317 DTSBX344 01318 P4100-BUILD-DPC. DTSBX344 01319 MOVE MDPC-EMP-NO TO X167-EMP-NO DTSBX344 01320 MOVE MDPC-ESTB-DATE TO L001-FED-8-DATE-9 DTSBX344 01321 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX344 01322 IF L001-VALID-DATE DTSBX344 01323 MOVE L001-SLASH-8-DATE TO X167-ESTB-DATE DTSBX344 01324 ELSE DTSBX344 01325 MOVE SPACES TO X167-ESTB-DATE DTSBX344 01326 END-IF DTSBX344 01327 MOVE MDPC-STATUS-CD TO X167-STATUS DTSBX344 01328 MOVE MDPC-RESPONSIBLE-OP-ID TO X167-ESTB-OPID DTSBX344 01329 MOVE MDPC-STATUS-OP-ID TO X167-STATUS-OPID DTSBX344 01330 MOVE MDPC-STMT-DATE TO L001-FED-8-DATE-9 DTSBX344 01331 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX344 01332 IF L001-VALID-DATE DTSBX344 01333 MOVE L001-SLASH-8-DATE TO X167-STMT-DATE DTSBX344 01334 ELSE DTSBX344 01335 MOVE SPACES TO X167-STMT-DATE DTSBX344 01336 END-IF DTSBX344 01337 MOVE MDPC-STATUS-DATE TO L001-FED-8-DATE-9 DTSBX344 01338 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX344 01339 IF L001-VALID-DATE DTSBX344 01340 MOVE L001-SLASH-8-DATE TO X167-STATUS-DATE DTSBX344 01341 ELSE DTSBX344 01342 MOVE SPACES TO X167-STATUS-DATE DTSBX344 01343 END-IF DTSBX344 01344 MOVE MDPC-STMT-DUE-AMT TO X167-BALANCE DTSBX344 01345 MOVE MDPC-PMT-FREQUENCY TO X167-FREQUENCY DTSBX344 01346 MOVE MDPC-PMT-BEGIN-DATE TO L001-FED-8-DATE-9 DTSBX344 01347 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX344 01348 IF L001-VALID-DATE DTSBX344 01349 MOVE L001-SLASH-8-DATE TO X167-START-DATE DTSBX344 01350 ELSE DTSBX344 01351 MOVE SPACES TO X167-START-DATE DTSBX344 01352 END-IF DTSBX344 01353 MOVE MDPC-INSTALL-PMT-AMT TO X167-PAYMENT-AMT. DTSBX344 01354 DTSBX344 01355 WRITE DPC-REC FROM X167-REC. DTSBX344 01356 IF NOT DPC-STATUS-OK-88 DTSBX344 01357 DISPLAY 'CANNOT WRITE DPC REC ' DTSBX344 01358 ' ' DPC-STATUS ' ' X167-EMP-NO DTSBX344 01359 ELSE DTSBX344 01360 ADD +1 TO W-DPC-CNT DTSBX344 01361 END-IF. DTSBX344 01362 DTSBX344 01363 IF MPRF-EMP-NO = 143103 DTSBX344 01364 DISPLAY 'P41 END ' X167-EMP-NO ' ' X167-STATUS DTSBX344 01365 ' ' X167-ESTB-DATE DTSBX344 01366 END-IF. DTSBX344 01367 P4100-EXIT. DTSBX344 01368 EXIT. DTSBX344 01369 DTSBX344 01370 P4200-BUILD-DPC-QTR. DTSBX344 01371 MOVE MPRF-EMP-NO TO X168-EMP-NO. DTSBX344 01372 MOVE MDPC-ESTB-DATE TO L001-FED-8-DATE-9 DTSBX344 01373 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX344 01374 IF L001-VALID-DATE DTSBX344 01375 MOVE L001-SLASH-8-DATE TO X168-ESTB-DATE DTSBX344 01376 ELSE DTSBX344 01377 MOVE SPACES TO X168-ESTB-DATE DTSBX344 01378 END-IF DTSBX344 01379 DTSBX344 01380 PERFORM DTSBX344 01381 VARYING SUB FROM +1 BY +1 DTSBX344 01382 UNTIL SUB > MDPC-COV-CNT DTSBX344 01383 PERFORM P4210-WRITE-QTR THRU P4210-EXIT DTSBX344 01384 END-PERFORM. DTSBX344 01385 DTSBX344 01386 P4200-EXIT. DTSBX344 01387 EXIT. DTSBX344 01388 DTSBX344 01389 P4210-WRITE-QTR. DTSBX344 01390 MOVE MDPC-EMP-NO TO X168-EMP-NO DTSBX344 01391 MOVE MDPC-ESTB-DATE TO L001-FED-8-DATE-9 DTSBX344 01392 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX344 01393 IF L001-VALID-DATE DTSBX344 01394 MOVE L001-SLASH-8-DATE TO X168-ESTB-DATE DTSBX344 01395 ELSE DTSBX344 01396 MOVE SPACES TO X168-ESTB-DATE DTSBX344 01397 END-IF DTSBX344 01398 MOVE MDPC-COVERED-YRQ (SUB) TO L004-QTR-5-9 DTSBX344 01399 SET L004-FROM-5 TO TRUE DTSBX344 01400 PERFORM S004-FROM-5 THRU S004-EXIT DTSBX344 01401 IF L004-VALID-QTR DTSBX344 01402 MOVE L004-SLASH-5-QTR TO X168-DPC-QTR DTSBX344 01403 WRITE DPC-QTR-REC FROM X168-REC DTSBX344 01404 IF NOT DPC-QTR-STATUS-OK-88 DTSBX344 01405 DISPLAY 'CANNOT WRITE DPC QTR REC ' DTSBX344 01406 ' ' DPC-QTR-STATUS ' ' X168-EMP-NO DTSBX344 01407 ELSE DTSBX344 01408 ADD +1 TO W-DPC-QTR-CNT DTSBX344 01409 END-IF DTSBX344 01410 END-IF. DTSBX344 01411 DTSBX344 01412 P4210-EXIT. DTSBX344 01413 EXIT. DTSBX344 01414 DTSBX344 01415 T0000-TERMINATE. DTSBX344 01416 CLOSE QTR-COLL-FILE DTSBX344 01417 AUDIT-FILE DTSBX344 01418 LIEN-FILE DTSBX344 01419 LIEN-QTR-FILE DTSBX344 01420 DPC-FILE DTSBX344 01421 DPC-QTR-FILE. DTSBX344 01422 DTSBX344 01423 DISPLAY '*********************************************'. DTSBX344 01424 DISPLAY '** DTSBX344 TERMINATION STATISTICS **'. DTSBX344 01425 DISPLAY '** **'. DTSBX344 01426 DISPLAY '** ERRORS ' W-ERROR-CNT DTSBX344 01427 ' **'. DTSBX344 01428 DISPLAY '** COLLECTIONS ' W-QCOLL-CNT DTSBX344 01429 ' **'. DTSBX344 01430 DISPLAY '** AUDITS ' W-AUDIT-CNT DTSBX344 01431 ' **'. DTSBX344 01432 DISPLAY '** ACTIVE AUDITS ' W-ACTIVE-CNT DTSBX344 01433 ' **'. DTSBX344 01434 DISPLAY '** LIENS ' W-LIEN-CNT DTSBX344 01435 ' **'. DTSBX344 01436 DISPLAY '** LIEN QUARTERS ' W-LIEN-QTR-CNT DTSBX344 01437 ' **'. DTSBX344 01438 DISPLAY '** DPC ' W-DPC-CNT DTSBX344 01439 ' **'. DTSBX344 01440 DISPLAY '** DPC QUARTERS ' W-DPC-QTR-CNT DTSBX344 01441 ' **'. DTSBX344 01442 DISPLAY '** **'. DTSBX344 01443 DISPLAY '** **'. DTSBX344 01444 DISPLAY '*********************************************'. DTSBX344 01445 DTSBX344 01446 DTSBX344 01447 T0000-EXIT. DTSBX344 01448 EXIT. DTSBX344 01449 DTSBX344 01450 S001-FROM-FED-8. DTSBX344 01451 SET L001-FROM-FED-8 TO TRUE. DTSBX344 01452 GO TO S001-DATE. DTSBX344 01453 DTSBX344 01454 S001-FROM-ABS-DAY. DTSBX344 01455 SET L001-FROM-ABS-DAY TO TRUE. DTSBX344 01456 GO TO S001-DATE. DTSBX344 01457 DTSBX344 01458 S001-FROM-CAL-6. DTSBX344 01459 SET L001-FROM-CAL-6 TO TRUE. DTSBX344 01460 GO TO S001-DATE. DTSBX344 01461 DTSBX344 01462 S001-DATE. DTSBX344 01463 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX344 01464 S001-EXIT. DTSBX344 01465 EXIT. DTSBX344 01466 SKIP3 DTSBX344 01467 S004-FROM-5. DTSBX344 01468 SET L004-FROM-5 TO TRUE. DTSBX344 01469 GO TO S004-QTR. DTSBX344 01470 DTSBX344 01471 S004-FROM-ABS. DTSBX344 01472 SET L004-FROM-ABS TO TRUE. DTSBX344 01473 GO TO S004-QTR. DTSBX344 01474 DTSBX344 01475 S004-FROM-3. DTSBX344 01476 SET L004-FROM-3 TO TRUE. DTSBX344 01477 GO TO S004-QTR. DTSBX344 01478 DTSBX344 01479 S004-FROM-DATE. DTSBX344 01480 SET L004-FROM-DATE TO TRUE. DTSBX344 01481 GO TO S004-QTR. DTSBX344 01482 DTSBX344 01483 S004-QTR. DTSBX344 01484 DTSBX344 01485 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBX344 01486 DTSBX344 01487 S004-EXIT. DTSBX344 01488 EXIT. DTSBX344 01489 SKIP3 DTSBX344 01490 S005-FROM-DATE-TIME. DTSBX344 01491 SET L005-FROM-DATE-TIME TO TRUE. DTSBX344 01492 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX344 01493 S005-EXIT. DTSBX344 01494 EXIT. DTSBX344 01495 DTSBX344 01496 S061-LOOKUP-FLD-REP-ID. DTSBX344 01497 CALL 'DTSBU061' USING L061-LINK-AREA. DTSBX344 01498 S061-EXIT. EXIT. DTSBX344 01499 DTSBX344 01500 S062-LOOKUP-FLD-REP. DTSBX344 01501 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBX344 01502 S062-EXIT. DTSBX344 01503 EXIT. DTSBX344 01504 DTSBX344 01505 S910-OPEN-READ. DTSBX344 01506 SET L910-OPEN-READ-88 TO TRUE. DTSBX344 01507 GO TO S910-MSTR-IO. DTSBX344 01508 DTSBX344 01509 S910-READ. DTSBX344 01510 SET L910-READ-88 TO TRUE. DTSBX344 01511 GO TO S910-MSTR-IO. DTSBX344 01512 DTSBX344 01513 S910-START-BROWSE. DTSBX344 01514 SET L910-START-BROWSE-88 TO TRUE. DTSBX344 01515 GO TO S910-MSTR-IO. DTSBX344 01516 DTSBX344 01517 S910-READ-NEXT. DTSBX344 01518 SET L910-READ-NEXT-88 TO TRUE. DTSBX344 01519 GO TO S910-MSTR-IO. DTSBX344 01520 DTSBX344 01521 S910-COUNT. DTSBX344 01522 SET L910-COUNT-88 TO TRUE. DTSBX344 01523 GO TO S910-MSTR-IO. DTSBX344 01524 DTSBX344 01525 S910-REWRITE. DTSBX344 01526 SET L910-REWRITE-88 TO TRUE. DTSBX344 01527 GO TO S910-MSTR-IO. DTSBX344 01528 DTSBX344 01529 S910-CLOSE. DTSBX344 01530 SET L910-CLOSE-88 TO TRUE. DTSBX344 01531 GO TO S910-MSTR-IO. DTSBX344 01532 DTSBX344 01533 S910-MSTR-IO. DTSBX344 01534 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX344 01535 MSKL-REC. DTSBX344 01536 S910-EXIT. DTSBX344 01537 EXIT. DTSBX344 01538 SKIP3 DTSBX344 01539 DTSBX344 01540 S921-OPEN-READ. DTSBX344 01541 SET L921-OPEN-READ-88 TO TRUE. DTSBX344 01542 GO TO S921-AIX-IO. DTSBX344 01543 DTSBX344 01544 S921-START-BROWSE. DTSBX344 01545 SET L921-START-BROWSE-88 TO TRUE. DTSBX344 01546 GO TO S921-AIX-IO. DTSBX344 01547 DTSBX344 01548 S921-READ-NEXT. DTSBX344 01549 SET L921-READ-NEXT-88 TO TRUE. DTSBX344 01550 GO TO S921-AIX-IO. DTSBX344 01551 DTSBX344 01552 S921-CLOSE. DTSBX344 01553 SET L921-CLOSE-88 TO TRUE. DTSBX344 01554 GO TO S921-AIX-IO. DTSBX344 01555 DTSBX344 01556 S921-AIX-IO. DTSBX344 01557 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX344 01558 ISKL-REC. DTSBX344 01559 DTSBX344 01560 S921-EXIT. DTSBX344 01561 EXIT. DTSBX344 01562 DTSBX344 01563 S931-READ. DTSBX344 01564 SET L931-READ-88 TO TRUE. DTSBX344 01565 GO TO S931-REF-IO. DTSBX344 01566 DTSBX344 01567 S931-REF-IO. DTSBX344 01568 CALL 'DTSBU931' USING L931-LINK-AREA DTSBX344 01569 FSKL-REC. DTSBX344 01570 S931-EXIT. DTSBX344 01571 EXIT. DTSBX344 01572 DTSBX344 01573 S999-ABEND. DTSBX344 01574 DISPLAY '*** DTSBE335 ABENDING. ' DTSBX344 01575 ABEND-MSG. DTSBX344 01576 DTSBX344 01577 CALL 'DTSBU999' USING W-ABEND-CD. DTSBX344 01578 S999-EXIT. DTSBX344 01579 EXIT. DTSBX344