1581 lines
125 KiB
COBOL
1581 lines
125 KiB
COBOL
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
|