00001 IDENTIFICATION DIVISION. 10/31/23 00002 PROGRAM-ID. DTSBX657. DTSBX657 00003 AUTHOR. NGUPTA LV002 00004 DATE-WRITTEN. JAN2017 CL154 00005 DATE-COMPILED. DTSBX657 00006 SKIP3 DTSBX657 00007 ***** DTSBX657 00008 * DTSBX657 00009 * FUNCTION: UPDATE MPRF RETURN MAIL FLAG TO Y AND ADD CL217 00010 * EVENT LOGH. CL217 00011 * DTSBX657 00012 ***** DTSBX657 00013 SKIP3 DTSBX657 00014 ENVIRONMENT DIVISION. DTSBX657 00015 SKIP2 DTSBX657 00016 CONFIGURATION SECTION. DTSBX657 00017 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBX657 00018 DTSBX657 00019 INPUT-OUTPUT SECTION. DTSBX657 00020 DTSBX657 00021 FILE-CONTROL. DTSBX657 00022 SELECT EMP-FILE1 ASSIGN TO EMPFILE1 CL122 00023 FILE STATUS IS EXP-STATUS. DTSBX657 00024 DTSBX657 00025 CL*71 00026 DATA DIVISION. DTSBX657 00027 DTSBX657 00028 FILE SECTION. DTSBX657 00029 DTSBX657 00030 FD EMP-FILE1 CL122 00031 RECORDING MODE IS F. DTSBX657 00032 01 EMP-REC1. CL122 00033 05 INEMP-NOA PIC 9(03). CL254 00034 05 FILLER PIC X. CL254 00035 05 INEMP-NOB PIC 9(03). CL254 00036 05 FILLER PIC X(73). CL254 00037 EJECT DTSBX657 00038 DTSBX657 00039 CL*71 00040 WORKING-STORAGE SECTION. DTSBX657 000405 77 PAN-VALET PICTURE X(24) VALUE '002DTSBX657 10/31/23'. DTSBX657 00041 SKIP3 DTSBX657 00042 01 WRK-AREA. DTSBX657 00043 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +400.DTSBX657 00044 05 WRK-SYS-ABSTIME PIC S9(15) COMP-3 VALUE +0. CL211 00045 05 WRK-ABSTIME PIC S9(15) COMP-3 VALUE +1000. CL211 00046 DTSBX657 00047 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD400'.DTSBX657 00048 DTSBX657 00049 ** 05 WRK-RPT-DATE PIC S9(09) COMP-3 DTSBX657 00050 * VALUE +20070328. DTSBX657 00051 * 05 WRK-YRQ PIC S9(05) COMP-3 DTSBX657 00052 ** VALUE +20061. DTSBX657 00053 05 WRK-RPT-DATE PIC S9(09) COMP-3 DTSBX657 00054 VALUE +20170124. CL154 00055 05 WRK-YRQ PIC S9(05) COMP-3 DTSBX657 00056 VALUE +0. DTSBX657 00057 05 WRK-MPRF-REC-CNT PIC S9(07) COMP-3. CL192 00058 05 WRK-RATE-TYPE-AREA. DTSBX657 00059 10 WRK-RATE-YR-SCHED PIC X(01). DTSBX657 00060 88 WRK-RATE-YR-ANN-88 VALUE 'Y'. DTSBX657 00061 10 WRK-RATE-YR-MINUS-1-SCHED PIC X(01). DTSBX657 00062 88 WRK-RATE-YR-MINUS1-ANN-88 VALUE 'Y'. DTSBX657 00063 10 WRK-RATE-YR-MINUS-2-SCHED PIC X(01). DTSBX657 00064 88 WRK-RATE-YR-MINUS2-ANN-88 VALUE 'Y'. DTSBX657 00065 05 FILLER REDEFINES WRK-RATE-TYPE-AREA PIC X(03). DTSBX657 00066 88 WRK-ESTIMATE-NEEDED-88 VALUE 'YYY' 'NYY'. DTSBX657 00067 88 WRK-TRANSITION-YEAR-88 VALUE 'YYN' 'NYN'. DTSBX657 00068 88 WRK-INIT-VALUES-88 VALUE 'NNN'. DTSBX657 00069 DTSBX657 00070 05 WRK-CLASSIFIED-IND PIC X(01). DTSBX657 00071 88 WRK-CLASSIFIED-YES-88 VALUE 'Y'. DTSBX657 00072 88 WRK-CLASSIFIED-NO-88 VALUE 'N'. DTSBX657 00073 05 WRK-EXIT-LOOP-IND PIC X(01). DTSBX657 00074 88 WRK-EXIT-LOOP-YES-88 VALUE 'Y'. DTSBX657 00075 88 WRK-EXIT-LOOP-NO-88 VALUE 'N'. DTSBX657 00076 05 WRK-TEST-EMP PIC S9(07) COMP-3 CL249 00077 VALUE +330099. CL249 00078 05 WRK-BATCH PIC S9(05) COMP-3. CL249 00079 05 WRK-ITEM PIC S9(03) COMP-3. DTSBX657 00080 05 WRK-SEQ PIC 9(05) DTSBX657 00081 VALUE ZERO. DTSBX657 00082 05 WRK-UCFE-FEIN PIC 9(09) CL254 00083 VALUE 000000000. DTSBX657 00084 05 WRK-UCX-FEIN PIC 9(09) DTSBX657 00085 VALUE 330000000. DTSBX657 00086 05 WRK-CWC-FEIN PIC 9(09) DTSBX657 00087 VALUE 440000000. DTSBX657 00088 05 WRK-FED-EMP PIC 9(06). DTSBX657 00089 05 FILLER REDEFINES WRK-FED-EMP. DTSBX657 00090 10 FILLER PIC X(02). DTSBX657 00091 10 WRK-FED-EMP-3 PIC X(01). DTSBX657 00092 88 WRK-FED-EMP-BYPASS-88 VALUE '1'. DTSBX657 00093 10 FILLER PIC 9(03). DTSBX657 00094 05 WRK-ZIP PIC X(10). DTSBX657 00095 05 FILLER REDEFINES WRK-ZIP. DTSBX657 00096 10 WRK-ZIP5 PIC X(05). DTSBX657 00097 10 FILLER PIC X(05). DTSBX657 00098 DTSBX657 00099 05 WS-EMP-NO1. CL255 00100 10 WS-EMP-NOA PIC 9(03). CL255 00101 10 WS-EMP-NOB PIC 9(03). CL255 00102 CL**2 00103 CL**2 00104 05 WS-EMP-NOZ PIC 9(6) VALUE ZERO. CL**2 00105 CL**2 00106 05 EXP-STATUS PIC X(02). DTSBX657 00107 88 EXP-STATUS-OK-88 VALUE '00'. DTSBX657 00108 05 EXP2-STATUS PIC X(02). CL*71 00109 88 EXP2-STATUS-OK-88 VALUE '00'. CL*71 00110 05 WRK-ERROR-IND PIC X(01). DTSBX657 00111 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBX657 00112 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBX657 00113 05 WRK-WRITE-REC-IND PIC X(01). DTSBX657 00114 88 WRK-WRITE-REC-YES-88 VALUE 'Y'. DTSBX657 00115 88 WRK-WRITE-REC-NO-88 VALUE 'N'. DTSBX657 00116 05 WRK-OP-ID PIC X(08). DTSBX657 00117 05 WRK-ASSIGN PIC 9(09). DTSBX657 00118 05 FILLER REDEFINES WRK-ASSIGN. DTSBX657 00119 10 WRK-ASSIGN-CC PIC 9(02). DTSBX657 00120 10 WRK-ASSIGN-YY PIC 9(02). DTSBX657 00121 10 WRK-ASSIGN-NBR PIC 9(05). DTSBX657 00122 05 WRK-FLD-ASSIGN. DTSBX657 00123 10 WRK-FLD-ASSIGN-YEAR PIC 9(02). DTSBX657 00124 10 FILLER PIC X(01) VALUE SPACE. DTSBX657 00125 10 WRK-FLD-ASSIGN-NBR PIC 9(05). DTSBX657 00126 05 WRK-LIEN PIC 9(08). CL*25 00127 05 WRK-LIEN-X REDEFINES WRK-LIEN. CL*25 00128 10 FILLER PIC X(02). CL*26 00129 10 WRK-LIEN6 PIC X(06). CL*25 00130 05 WRK-LIEN-REF. CL*23 00131 10 WRK-LIEN-YR PIC 9(02). CL*23 00132 10 WRK-LIEN-NBR PIC 9(04). CL*23 00133 DTSBX657 00134 05 WRK-IND-CODE PIC X(06). DTSBX657 00135 05 WRK-REC1. DTSBX657 00136 10 REC1-EMP-NO PIC 999999. DTSBX657 00137 10 FILLER PIC X(01) VALUE ';'. DTSBX657 00138 ** 10 REC1-NAME PIC X(32). CL100 00139 ** 10 REC1-EARLY-LIAB-DT PIC X(32). CL110 00140 10 REC1-EARLY-LIAB-DT PIC X(10). CL110 00141 10 FILLER PIC X(01) VALUE ';'. CL*82 00142 ** 10 REC1-YRQ2 PIC X(06). CL100 00143 ** 10 FILLER PIC X(01) VALUE ';'. CL100 00144 10 REC1-FIRS-DATE PIC X(10). CL100 00145 10 FILLER PIC X(01) VALUE ';'. CL*88 00146 10 REC1-PRIOR PIC 9.9999. CL100 00147 10 FILLER PIC X(01) VALUE ';'. CL*95 00148 10 REC1-CURR PIC 9.9999. CL100 00149 10 FILLER PIC X(01) VALUE ';'. CL*98 00150 CL*75 00151 05 WRK-REC1-OLD. CL*15 00152 10 REC1-ESTB-DATE PIC X(10). CL*98 00153 10 REC1-LIEN-NO PIC 9(08). CL*98 00154 10 REC1-STATUS PIC X(01). CL*98 00155 10 REC1-SOURCE PIC X(02). CL*88 00156 10 REC1-YRQ PIC X(06). CL*85 00157 10 REC1-OP-ID PIC X(08). CL*75 00158 10 REC1-STATUS-OP-ID PIC X(08). CL*75 00159 10 REC1-STMT-DATE PIC X(10). CL*95 00160 10 REC1-STATUS-DATE PIC X(10). CL*75 00161 10 REC1-BALANCE PIC --------9.99. CL*75 00162 10 REC1-FREQUENCY PIC X(01). CL*75 00163 10 REC1-START-DATE PIC X(10). CL*75 00164 10 REC1-TAX-DUE PIC --------9.99. CL*75 00165 10 REC1-DATA-ELEMENT PIC X(40). CL*68 00166 10 REC1-PRE-MOD-VALUE PIC X(40). CL*68 00167 10 REC1-POST-MOD-VALUE PIC X(40). CL*68 00168 10 REC1-MLOG-DATE PIC X(10). CL*68 00169 10 REC1-EMP-NAME PIC X(40). CL*68 00170 10 REC1-CURR-RESERVE PIC --------9.99. CL*59 00171 10 REC1-ATTN PIC X(40). CL*57 00172 10 REC1-STREET2 PIC X(40). CL*57 00173 10 REC1-STREET1 PIC X(40). CL*57 00174 10 REC1-CITY PIC X(25). CL*57 00175 10 REC1-STATE PIC X(02). CL*57 00176 10 REC1-ZIP PIC X(10). CL*57 00177 10 REC1-PHONE PIC X(15). CL*57 00178 10 REC1-FAX PIC X(15). CL*57 00179 10 REC1-EMAIL PIC X(40). CL*57 00180 10 REC1-ASSIGN PIC X(08). CL*51 00181 10 REC1-ASSIGN-TYPE PIC X(02). CL*51 00182 10 REC1-PROCESS-DATE PIC X(10). CL*51 00183 10 REC1-COMP-DATE PIC X(10). CL*51 00184 10 REC1-FLD-REP-ID PIC X(02). CL*46 00185 10 REC1-INACT-OPID PIC X(08). CL*43 00186 10 REC1-INACT-ENTER-DT PIC X(10). CL*38 00187 10 REC1-OPO-NAME PIC X(32). CL*27 00188 10 REC1-ELIG-CD PIC 9(03). CL*17 00189 10 REC1-FEIN PIC 9(09). DTSBX657 00190 10 REC1-COUNT PIC 9(07). DTSBX657 00191 10 REC1-CLASS PIC X(02). DTSBX657 00192 10 REC1-MLIN-STATUS PIC X(01). DTSBX657 00193 10 REC1-BATCH PIC 9(05). DTSBX657 00194 10 REC1-ITEM PIC 9(03). DTSBX657 00195 10 REC1-RPTS-DUE PIC 999. DTSBX657 00196 10 REC1-COMPLETE-DATE PIC X(10). DTSBX657 00197 10 REC1-PAY-TYPE PIC X(02). DTSBX657 00198 10 REC1-TAX-PAID PIC --------9.99. DTSBX657 00199 10 REC1-DEPOSIT-DATE PIC X(10). DTSBX657 00200 10 REC1-NAICS PIC X(06). DTSBX657 00201 10 REC1-SIC PIC X(04). DTSBX657 00202 10 REC1-YEAR PIC 9(04). DTSBX657 00203 10 REC1-AMT PIC ----------9.99. DTSBX657 00204 10 REC1-OPO-SSN PIC X(09). DTSBX657 00205 10 REC1-PRIOR-RESERVE PIC --------9.99. DTSBX657 00206 10 REC1-INTEREST PIC --------9.99. DTSBX657 00207 10 REC1-BEN-CHG PIC --------9.99. DTSBX657 00208 10 REC1-AVG-TAX-WAGE PIC --------9.99. DTSBX657 00209 10 REC1-RATE-PCT PIC 9.9. DTSBX657 00210 10 REC1-DUE-DATE PIC X(10). DTSBX657 00211 10 REC1-INACT-YRQ PIC X(06). DTSBX657 00212 10 REC1-RCVD-DATE PIC X(10). DTSBX657 00213 10 REC1-TOT-WAGE PIC ----------9.99. DTSBX657 00214 10 REC1-SUR-BAL PIC ----------9.99. DTSBX657 00215 10 REC1-LP-BAL PIC ----------9.99. DTSBX657 00216 10 REC1-INT-BAL PIC ----------9.99. DTSBX657 00217 10 REC1-SEQ PIC 999999. DTSBX657 00218 10 REC1-PRED PIC 999999. DTSBX657 00219 10 REC1-REL-CD PIC X(02). DTSBX657 00220 10 REC1-TRAN PIC X(02). DTSBX657 00221 10 REC1-CREDIT PIC --------9.99. DTSBX657 00222 10 REC1-ACCOUNT PIC X(02). DTSBX657 00223 10 REC1-NEW-RATE PIC 9.9999. DTSBX657 00224 10 REC1-EMP-TYPE PIC X(05). DTSBX657 00225 10 REC1-CHG PIC --------9.99. DTSBX657 00226 10 REC1-DESC PIC X(40). DTSBX657 00227 10 REC1-LIAB-QTRS PIC 999. DTSBX657 00228 10 REC1-ORG-TYPE PIC X(03). DTSBX657 00229 10 REC1-LIAB-CD PIC X(02). DTSBX657 00230 10 REC1-LP-CHG PIC --------9.99. DTSBX657 00231 10 REC1-INT-CHG PIC --------9.99. DTSBX657 00232 10 REC1-IND-CODE PIC X(06). DTSBX657 00233 10 REC1-LIAB-ENTER-DATE PIC X(10). DTSBX657 00234 10 REC1-INACT-CODE PIC X(05). DTSBX657 00235 88 REC1-INACT-YES-88 VALUE 'INACT'. DTSBX657 00236 88 REC1-INACT-NO-88 VALUE 'ACT '. DTSBX657 00237 10 REC1-REACT PIC X(05). DTSBX657 00238 88 REC1-REACT-NO-88 VALUE 'NEW '. DTSBX657 00239 88 REC1-REACT-YES-88 VALUE 'REACT'. DTSBX657 00240 10 REC1-AREA PIC X(03). DTSBX657 00241 10 REC1-PFX PIC X(03). DTSBX657 00242 10 REC1-SFX PIC X(04). DTSBX657 00243 10 REC1-EXT PIC X(05). DTSBX657 00244 10 REC1-INT-CHARGE-IND PIC X(01). CL*84 00245 88 REC1-INT-CHARGE-MANUAL-88 VALUE 'M'. CL*84 00246 88 REC1-INT-CHARGE-AUTO-88 VALUE 'A'. CL*84 00247 10 FILLER PIC X(01) VALUE ';'. CL*84 00248 10 REC1-INT-START-DATE1 PIC X(10). CL*84 00249 10 FILLER PIC X(01) VALUE ';'. CL*84 00250 10 REC1-INT-END-DATE1 PIC X(10). CL*84 00251 10 FILLER PIC X(01) VALUE ';'. CL*84 00252 10 REC1-INT-RATE1 PIC 9.9999. CL*84 00253 10 FILLER PIC X(01) VALUE ';'. CL*84 00254 10 REC1-INT-START-DATE2 PIC X(10). CL*84 00255 10 FILLER PIC X(01) VALUE ';'. CL*84 00256 10 REC1-INT-END-DATE2 PIC X(10). CL*84 00257 10 FILLER PIC X(01) VALUE ';'. CL*84 00258 10 REC1-INT-RATE2 PIC 9.9999. CL*84 00259 10 FILLER PIC X(01) VALUE ';'. CL*84 00260 10 REC1-WAIVE-INT-START-DATE PIC X(10). CL*84 00261 10 FILLER PIC X(01) VALUE ';'. CL*84 00262 10 REC1-WAIVE-INT-END-DATE PIC X(10). CL*84 00263 CL*71 00264 05 WRK-REC2. CL*71 00265 10 REC2-EMP-NO PIC 999999. CL*71 00266 10 FILLER PIC X(01) VALUE ';'. CL*71 00267 10 REC2-ESTB-DATE PIC X(10). CL*71 00268 10 FILLER PIC X(01) VALUE ';'. CL*71 00269 10 REC2-QTR PIC X(06). CL*71 00270 CL*71 00271 05 WRK-ABS-QTR1 PIC S9(04) COMP-3 DTSBX657 00272 VALUE +0. DTSBX657 00273 05 WRK-ABS-QTR2 PIC S9(04) COMP-3 DTSBX657 00274 VALUE +0. DTSBX657 00275 05 WRK-ABS-DATE1 PIC S9(08) COMP. DTSBX657 00276 05 WRK-ABS-DATE2 PIC S9(08) COMP. DTSBX657 00277 05 WRK-DIFF PIC S9(07) COMP-3. DTSBX657 00278 05 WRK-UNDER-30-CNT PIC S9(04) COMP-3 DTSBX657 00279 VALUE +0. DTSBX657 00280 05 WRK-OVER-31-CNT PIC S9(04) COMP-3 DTSBX657 00281 VALUE +0. DTSBX657 00282 05 WRK-MPRF-CNT PIC S9(07) COMP-3. DTSBX657 00283 05 WRK-FISCAL-AGENT-CD PIC X(03). DTSBX657 00284 05 WRK-BNK-IND PIC X(02). DTSBX657 00285 05 WRK-FIRST-NEW-EMP-NO PIC S9(07) COMP-3. DTSBX657 00286 *& VALUE +123778. DTSBX657 00287 05 WRK-FEIN PIC 9(09). DTSBX657 00288 05 WRK-MQTR-BAL PIC S9(11)V99 COMP-3 VALUE +0. DTSBX657 00289 05 WRK-MQTR-BAL1 PIC S9(11)V99 COMP-3 VALUE +0. DTSBX657 00290 05 WRK-MQTR-BAL2 PIC S9(11)V99 COMP-3 VALUE +0. DTSBX657 00291 05 WRK-MQTR-BAL3 PIC S9(11)V99 COMP-3 VALUE +0. DTSBX657 00292 05 WRK-RESERVE PIC S9(09)V99 COMP-3. DTSBX657 00293 05 WRK-MQTR-CHG PIC S9(09)V99 COMP-3. DTSBX657 00294 05 WRK-MQTR-ANN-BAL PIC S9(07)V99 COMP-3. DTSBX657 00295 05 WRK-MQTR-PEN-BAL PIC S9(07)V99 COMP-3. DTSBX657 00296 05 WRK-MQTR-PEN-CHG PIC S9(07)V99 COMP-3. DTSBX657 00297 05 WRK-MQTR-INT-BAL PIC S9(07)V99 COMP-3. DTSBX657 00298 05 WRK-MQTR-INT-CHG PIC S9(07)V99 COMP-3. DTSBX657 00299 05 WRK-RECEIVED-DATE PIC S9(09) COMP-3 CL*91 00300 VALUE +0. CL*91 00301 05 WRK-RPT-BAL-CNT PIC S9(07) COMP-3. DTSBX657 00302 05 WRK-RPT-CNT PIC S9(07) COMP-3. DTSBX657 00303 05 WRK-BAL-CNT PIC S9(07) COMP-3. DTSBX657 00304 05 WRK-REL-CNT PIC S9(07) COMP-3. DTSBX657 00305 05 WRK-RATED-CNT PIC S9(07) COMP-3. DTSBX657 00306 05 WRK-SELF-INS-CNT PIC S9(07) COMP-3. DTSBX657 00307 05 WRK-HOTEL-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX657 00308 05 WRK-TOT-EMPS PIC S9(07) COMP-3 VALUE +0. DTSBX657 00309 05 WRK-TOT-WORKERS PIC S9(11) COMP-3 VALUE +0. DTSBX657 00310 05 WRK-PURSUED-RPT-CNT PIC S9(07) COMP-3. DTSBX657 00311 05 WRK-LATE-RPT-CNT PIC S9(07) COMP-3. DTSBX657 00312 05 WRK-MEVL-REWRITE-CNT PIC S9(03) COMP-3 VALUE 0. CL141 00313 05 WRK-MEVL-DELETED-CNT PIC S9(03) COMP-3 VALUE 0. CL141 00314 05 WRK-MEVL-FOUND-CNT PIC S9(03) COMP-3 VALUE 0. CL128 00315 05 WRK-MQTR-UPDATED-CNT PIC S9(03) COMP-3 VALUE 0. CL128 00316 05 WRK-MQTR-FOUND-CNT PIC S9(03) COMP-3 VALUE 0. CL128 00317 05 MPRF-REC-CNT PIC S9(03) COMP-3 VALUE 0. CL128 00318 05 MPRF-WRK-CNT PIC S9(03) COMP-3 VALUE 0. CL128 00319 05 IN-REC-CNT PIC S9(03) COMP-3 VALUE 0. CL128 00320 05 WRK-UC30-SENT-CNT PIC S9(07) COMP-3. DTSBX657 00321 05 WRK-UC30-RCVD-CNT PIC S9(07) COMP-3. DTSBX657 00322 05 WRK-OVER-1000-CNT PIC S9(07) COMP-3. DTSBX657 00323 05 WRK-UNDER-1000-CNT PIC S9(07) COMP-3. DTSBX657 00324 05 WRK-HOUSEHOLD-PAYMENTS PIC S9(11)V99 COMP-3. DTSBX657 00325 05 WRK-TOT-WAGES PIC S9(11)V99 COMP-3. DTSBX657 00326 05 WRK-ALL-BNK-RATED PIC S9(11)V99 COMP-3. DTSBX657 00327 05 WRK-OPN-BNK-RATED PIC S9(11)V99 COMP-3. DTSBX657 00328 05 WRK-ALL-BNK-SI PIC S9(11)V99 COMP-3. DTSBX657 00329 05 WRK-OPN-BNK-SI PIC S9(11)V99 COMP-3. DTSBX657 00330 05 WRK-BOND-AMT PIC S9(11)V99 COMP-3. DTSBX657 00331 05 WRK-OVER-100-CNT PIC S9(07) COMP-3 DTSBX657 00332 VALUE +0. DTSBX657 00333 05 WRK-OVER-100-AMT PIC S9(11)V99 COMP-3 DTSBX657 00334 VALUE +0. DTSBX657 00335 05 WRK-1-10-CNT PIC S9(07) COMP-3 DTSBX657 00336 VALUE +0. DTSBX657 00337 05 WRK-1-10-AMT PIC S9(11)V99 COMP-3 DTSBX657 00338 VALUE +0. DTSBX657 00339 05 WRK-11-100-CNT PIC S9(07) COMP-3 DTSBX657 00340 VALUE +0. DTSBX657 00341 05 WRK-11-100-AMT PIC S9(11)V99 COMP-3 DTSBX657 00342 VALUE +0. DTSBX657 00343 05 WRK-OVER-100-WRKRS PIC S9(07) COMP-3. DTSBX657 00344 05 WRK-100-249-CNT PIC S9(07) COMP-3. DTSBX657 00345 05 WRK-100-249-WRKRS PIC S9(07) COMP-3. DTSBX657 00346 05 WRK-50-100-CNT PIC S9(07) COMP-3. DTSBX657 00347 05 WRK-50-100-WRKRS PIC S9(07) COMP-3. DTSBX657 00348 05 WRK-25-49-CNT PIC S9(07) COMP-3. DTSBX657 00349 05 WRK-25-49-WRKRS PIC S9(07) COMP-3. DTSBX657 00350 05 WRK-10-24-CNT PIC S9(07) COMP-3. DTSBX657 00351 05 WRK-10-24-WRKRS PIC S9(07) COMP-3. DTSBX657 00352 05 WRK-6-9-CNT PIC S9(07) COMP-3. DTSBX657 00353 05 WRK-5-9-WRKRS PIC S9(07) COMP-3. DTSBX657 00354 05 WRK-5-CNT PIC S9(07) COMP-3. DTSBX657 00355 05 WRK-4-CNT PIC S9(07) COMP-3. DTSBX657 00356 05 WRK-3-CNT PIC S9(07) COMP-3. DTSBX657 00357 05 WRK-2-CNT PIC S9(07) COMP-3. DTSBX657 00358 05 WRK-1-CNT PIC S9(07) COMP-3. DTSBX657 00359 05 WRK-UNDER-5-CNT PIC S9(07) COMP-3. DTSBX657 00360 05 WRK-UNDER-5-WRKRS PIC S9(07) COMP-3. DTSBX657 00361 05 WRK-UNDER-10-CNT PIC S9(07) COMP-3. DTSBX657 00362 05 WRK-OVER-10-CNT PIC S9(07) COMP-3. DTSBX657 00363 05 WRK-UNDER-10-WRKRS PIC S9(07) COMP-3. DTSBX657 00364 05 WRK-NO-EMPS-CNT PIC S9(07) COMP-3. DTSBX657 00365 05 WRK-MRCT-TOT-WAGES PIC S9(11)V99 COMP-3. DTSBX657 00366 05 WRK-MRCT-TAX-WAGES PIC S9(11)V99 COMP-3. DTSBX657 00367 05 WRK-MRCT-UI-PAID PIC S9(11)V99 COMP-3. DTSBX657 00368 05 WRK-TOT-UI PIC S9(11)V99 COMP-3. DTSBX657 00369 05 WRK-TOT-INT PIC S9(11)V99 COMP-3. DTSBX657 00370 05 WRK-TOT-PEN PIC S9(11)V99 COMP-3. DTSBX657 00371 05 WRK-MQTR-ANN-TOT-WAGE PIC S9(12)V99 COMP-3. DTSBX657 00372 05 WRK-MQTR-ANN-TAX-WAGE PIC S9(12)V99 COMP-3. DTSBX657 00373 05 WRK-MJRN-TOT-NEG-CHG PIC S9(11)V99 COMP-3 DTSBX657 00374 VALUE +0. DTSBX657 00375 05 WRK-MQTR-TOT-UI-CHARGED PIC S9(11)V99 COMP-3. DTSBX657 00376 05 WRK-START-DATE PIC S9(09) COMP-3. DTSBX657 00377 05 WRK-END-DATE PIC S9(09) COMP-3. DTSBX657 00378 05 WRK-LIAB-DATE PIC S9(09) COMP-3. DTSBX657 00379 05 WRK-FIRST-LIAB-DATE PIC S9(09) COMP-3. DTSBX657 00380 05 WRK-ALL-NINES-DATE PIC S9(09) COMP-3 DTSBX657 00381 VALUE +999999999. DTSBX657 00382 CL104 00383 05 WRK-UI-RATE-CATEGORY PIC X(01). CL104 00384 88 WRK-CLASSIFIED-88 VALUE 'C'. CL104 00385 88 WRK-NONCLASSIFIED-88 VALUE 'N'. CL104 00386 CL104 00387 CL104 00388 05 WRK-BNK-PETITION-DATE PIC 9(08). DTSBX657 00389 05 FILLER REDEFINES WRK-BNK-PETITION-DATE. DTSBX657 00390 10 WRK-BNK-PETITION-DATE-YYYY PIC 9(04). DTSBX657 00391 10 WRK-BNK-PETITION-DATE-MM PIC 9(02). DTSBX657 00392 10 WRK-BNK-PETITION-DATE-DD PIC 9(02). DTSBX657 00393 05 WRK-BNK-PETITION-YRQ PIC 9(05). DTSBX657 00394 05 FILLER REDEFINES WRK-BNK-PETITION-YRQ. DTSBX657 00395 10 WRK-BNK-PETITION-YRQ-YYYY PIC 9(04). DTSBX657 00396 10 WRK-BNK-PETITION-YRQ-Q PIC 9(01). DTSBX657 00397 05 WRK-BNK-FIRST-BILL-YRQ PIC S9(05) COMP-3. DTSBX657 00398 05 WRK-EST-RPT-IND PIC X(01). DTSBX657 00399 88 WRK-EST-RPT-YES VALUE 'Y'. DTSBX657 00400 88 WRK-EST-RPT-NO VALUE 'N'. DTSBX657 00401 DTSBX657 00402 05 WRK-ZERO-FOUND-IND PIC X(01). DTSBX657 00403 88 WRK-ZERO-FOUND-YES-88 VALUE 'Y'. DTSBX657 00404 88 WRK-ZERO-FOUND-NO-88 VALUE 'N'. DTSBX657 00405 DTSBX657 00406 05 WRK-WITHDRAWN-IND PIC X(01). DTSBX657 00407 88 WRK-WITHDRAWN-YES VALUE 'Y'. DTSBX657 00408 88 WRK-WITHDRAWN-NO VALUE 'N'. DTSBX657 00409 DTSBX657 00410 05 WRK-ORIG-IND PIC X(01). DTSBX657 00411 88 WRK-ORIG-YES VALUE 'Y'. DTSBX657 00412 88 WRK-ORIG-NO VALUE 'N'. DTSBX657 00413 DTSBX657 00414 05 WRK-MQTR-CNT PIC S9(07) COMP-3. DTSBX657 00415 05 WRK-MRPT-CNT PIC S9(07) COMP-3. DTSBX657 00416 05 WRK-MSOL-CNT PIC S9(07) COMP-3. DTSBX657 00417 05 WRK-MLIN-CNT PIC S9(07) COMP-3. DTSBX657 00418 05 WRK-MFAS-CNT PIC S9(07) COMP-3. DTSBX657 00419 05 WRK-MFAE-CNT PIC S9(07) COMP-3. DTSBX657 00420 05 WRK-MPAY-CNT PIC S9(07) COMP-3. DTSBX657 00421 05 WRK-MADJ-CNT PIC S9(07) COMP-3. DTSBX657 00422 05 WRK-MJRN-CNT PIC S9(08) COMP-3. DTSBX657 00423 05 WRK-MERA-CNT PIC S9(08) COMP-3. DTSBX657 00424 05 WRK-MRTE-CNT PIC S9(08) COMP-3. DTSBX657 00425 05 WRK-MRTE-CNT1 PIC S9(08) COMP-3. DTSBX657 00426 05 WRK-MLOG-CNT PIC S9(08) COMP-3. DTSBX657 00427 05 WRK-MFSC-CNT PIC S9(08) COMP-3 DTSBX657 00428 VALUE +0. DTSBX657 00429 05 WRK-CR-TOL-CNT PIC S9(07) COMP-3. DTSBX657 00430 05 SUB PIC S9(04) COMP. DTSBX657 00431 05 RPT-SUB PIC S9(04) COMP. DTSBX657 00432 05 QTR-SUB PIC S9(04) COMP. DTSBX657 00433 05 WRK-QTR-AREA OCCURS 20 TIMES. DTSBX657 00434 10 WRK-QTR-YRQ PIC S9(05) COMP-3. DTSBX657 00435 10 WRK-QTR-CHG PIC S9(09)V99 COMP-3. DTSBX657 00436 10 WRK-QTR-PAID PIC S9(09)V99 COMP-3. DTSBX657 00437 10 WRK-QTR-WAIVED PIC S9(09)V99 COMP-3. DTSBX657 00438 10 WRK-QTR-TOLERATED PIC S9(09)V99 COMP-3. DTSBX657 00439 05 WRK-JRN-AREA OCCURS 100 TIMES. DTSBX657 00440 *** 10 WRK-JRN-EMP-NO PIC 9(06). DTSBX657 00441 *** 10 WRK-JRN-EMP-NAME PIC X(40). DTSBX657 00442 10 WRK-JRN-RCVD PIC X(10). DTSBX657 00443 10 WRK-JRN-TRAN PIC X(02). DTSBX657 00444 10 WRK-JRN-BATCH PIC 9(05). DTSBX657 00445 10 WRK-JRN-ITEM PIC 9(03). DTSBX657 00446 10 WRK-JRN-AMT PIC --------9.99. DTSBX657 00447 05 WRK-TIMELY-PMT-AREA. DTSBX657 00448 10 WRK-PEN-INT-BAL-CNT PIC S9(07) COMP-3. DTSBX657 00449 10 WRK-INT-MANUAL-CNT PIC S9(07) COMP-3. DTSBX657 00450 10 WRK-QTR-TAX-BAL PIC S9(09)V9(02) COMP-3. DTSBX657 00451 10 WRK-QTR-TAX-CHG PIC S9(09)V9(02) COMP-3. DTSBX657 00452 10 WRK-QTR-INT-PEN-BAL PIC S9(09)V9(02) COMP-3. DTSBX657 00453 10 WRK-AVG-PMT PIC S9(09)V9(02) COMP-3. DTSBX657 00454 10 WRK-TIMELY-PMT PIC S9(09)V9(02) COMP-3. DTSBX657 00455 10 WRK-OLD-PEN-CHG PIC S9(09)V9(02) COMP-3. DTSBX657 00456 DTSBX657 00457 05 WRK-PCT PIC S9(03)V9(04) COMP-3 DTSBX657 00458 VALUE +0. DTSBX657 00459 05 WRK-AVG-PCT PIC S9(09)V9(04) COMP-3 DTSBX657 00460 VALUE +0. DTSBX657 00461 05 WRK-PCT-DISP PIC Z(02)9.9999. DTSBX657 00462 05 WRK-PCT-DISP1 PIC Z(02)9.9999. DTSBX657 00463 05 WRK-UI-RATE PIC S9(01)V9(04) COMP-3. DTSBX657 00464 05 DISP-UI-RATE1 PIC 9.9(04). DTSBX657 00465 05 DISP-UI-RATE2 PIC 9.9(04). DTSBX657 00466 05 AMT-DISP PIC ---,---,--9.99. DTSBX657 00467 05 AMT-DISP1 PIC Z(11)9.99-. DTSBX657 00468 05 AMT-DISP2 PIC Z(11)9.99-. DTSBX657 00469 05 AMT-DISP3 PIC Z(11)9-. DTSBX657 00470 05 EMP-ACCT-DISP PIC 9(06). DTSBX657 00471 05 EMP-SUCC-DISP PIC 9(06). DTSBX657 00472 05 EMP-SUCC-DISP-X REDEFINES EMP-SUCC-DISP DTSBX657 00473 PIC X(06). DTSBX657 00474 05 DISP-DATE1 PIC X(10). DTSBX657 00475 05 DISP-DATE2 PIC X(10). DTSBX657 00476 05 INACT-LBL PIC X(10). DTSBX657 00477 05 WRK-MPRF-IND PIC X(01). DTSBX657 00478 88 WRK-MPRF-OK VALUE 'Y'. DTSBX657 00479 88 WRK-MPRF-NO-REC VALUE 'N'. DTSBX657 00480 05 WRK-MQTR-IND PIC X(01). DTSBX657 00481 88 WRK-MQTR-OK VALUE 'Y'. DTSBX657 00482 88 WRK-MQTR-NO-REC VALUE 'N'. DTSBX657 00483 05 WRK-MRPT-IND PIC X(01). DTSBX657 00484 88 WRK-MRPT-OK VALUE 'Y'. DTSBX657 00485 88 WRK-MRPT-NO-REC VALUE 'N'. DTSBX657 00486 05 WRK-MDST-IND PIC X(01). DTSBX657 00487 88 WRK-MDST-OK VALUE 'Y'. DTSBX657 00488 88 WRK-MDST-NO-REC VALUE 'N'. DTSBX657 00489 05 WRK-MEVL-IND PIC X(01). DTSBX657 00490 88 WRK-MEVL-OK VALUE 'Y'. DTSBX657 00491 88 WRK-MEVL-NO-REC VALUE 'N'. DTSBX657 00492 05 WRK-MLIN-IND PIC X(01). DTSBX657 00493 88 WRK-MLIN-OK VALUE 'Y'. DTSBX657 00494 88 WRK-MLIN-NO-REC VALUE 'N'. DTSBX657 00495 05 WRK-MDPC-IND PIC X(01). DTSBX657 00496 88 WRK-MDPC-OK VALUE 'Y'. DTSBX657 00497 88 WRK-MDPC-NO-REC VALUE 'N'. DTSBX657 00498 05 WRK-MFAS-IND PIC X(01). DTSBX657 00499 88 WRK-MFAS-OK VALUE 'Y'. DTSBX657 00500 88 WRK-MFAS-NO-REC VALUE 'N'. DTSBX657 00501 05 WRK-MFAE-IND PIC X(01). DTSBX657 00502 88 WRK-MFAE-OK VALUE 'Y'. DTSBX657 00503 88 WRK-MFAE-NO-REC VALUE 'N'. DTSBX657 00504 05 WRK-MSOL-IND PIC X(01). DTSBX657 00505 88 WRK-MSOL-OK VALUE 'Y'. DTSBX657 00506 88 WRK-MSOL-NO-REC VALUE 'N'. DTSBX657 00507 05 WRK-MLOG-IND PIC X(01). DTSBX657 00508 88 WRK-MLOG-OK VALUE 'Y'. DTSBX657 00509 88 WRK-MLOG-NO-REC VALUE 'N'. DTSBX657 00510 88 WRK-MLOG-COMPLETE VALUE 'C'. DTSBX657 00511 05 WRK-MRPT-FOUND-IND PIC X(01). DTSBX657 00512 88 WRK-MRPT-FOUND-YES VALUE 'Y'. DTSBX657 00513 88 WRK-MRPT-FOUND-NO VALUE 'N'. DTSBX657 00514 05 WRK-MTAD-FOUND-IND PIC X(01). CL**6 00515 88 WRK-MTAD-FOUND-YES VALUE 'Y'. CL**6 00516 88 WRK-MTAD-FOUND-NO VALUE 'N'. CL**6 00517 05 WRK-CR-TOL-IND PIC X(01). DTSBX657 00518 88 WRK-CR-TOL-YES VALUE 'Y'. DTSBX657 00519 88 WRK-CR-TOL-NO VALUE 'N'. DTSBX657 00520 05 WRK-DUP-FOUND-IND PIC X(01). DTSBX657 00521 88 WRK-DUP-FOUND-YES VALUE 'Y'. DTSBX657 00522 88 WRK-DUP-FOUND-NO VALUE 'N'. DTSBX657 00523 05 WRK-SELECT-IND PIC X(01). DTSBX657 00524 88 WRK-SELECT-YES-88 VALUE 'Y'. DTSBX657 00525 88 WRK-SELECT-NO-88 VALUE 'N'. DTSBX657 00526 05 WRK-LAST-MRPT-TYPE PIC X(02). DTSBX657 00527 05 WRK-DISP-AREA. DTSBX657 00528 10 WRK-DISP-STAR PIC X(01). DTSBX657 00529 10 FILLER PIC X(01) VALUE SPACE. DTSBX657 00530 10 WRK-DISP-AMT PIC Z(10)9.99-. DTSBX657 00531 DTSBX657 00532 05 WRK-INACT-DATE PIC S9(09) COMP-3 DTSBX657 00533 VALUE +0. DTSBX657 00534 05 WRK-INACT-CODE PIC X(02). DTSBX657 00535 05 WRK-INACT-YRQ PIC S9(05) COMP-3 DTSBX657 00536 VALUE +0. DTSBX657 00537 05 WRK-LAST-YRQ PIC S9(05) COMP-3 DTSBX657 00538 VALUE +0. DTSBX657 00539 05 WRK-FIRST-LIAB-YRQ PIC S9(05) COMP-3 DTSBX657 00540 VALUE +0. DTSBX657 00541 05 WRK-LAST-LIAB-YRQ PIC S9(05) COMP-3 DTSBX657 00542 VALUE +0. DTSBX657 00543 05 WRK-NEXT-YRQ PIC S9(05) COMP-3 DTSBX657 00544 VALUE +0. DTSBX657 00545 05 WRK-UPDATED-CNT PIC S9(07) COMP-3. DTSBX657 00546 DTSBX657 00547 05 PARM-REC-CNT PIC S9(07) COMP-3. DTSBX657 00548 DTSBX657 00549 05 PARM-EOF-IND PIC X(01). DTSBX657 00550 DTSBX657 00551 05 WRK-EMP-NO PIC 9(06). DTSBX657 00552 DTSBX657 00553 05 WRK-TRACE-IND PIC X(01). DTSBX657 00554 DTSBX657 00555 05 WRK-MST-OPEN-IND PIC X(01). DTSBX657 00556 DTSBX657 00557 05 WRK-REF-OPEN-IND PIC X(01). DTSBX657 00558 DTSBX657 00559 05 WRK-SIC-SCAN-AREA. DTSBX657 00560 10 WRK-RPT-FOUND-IND PIC X(01). DTSBX657 00561 88 WRK-RPT-FOUND-YES VALUE 'Y'. DTSBX657 00562 88 WRK-RPT-FOUND-NO VALUE 'N'. DTSBX657 00563 10 WRK-EMPL-CNT PIC S9(07) COMP-3. DTSBX657 00564 10 WRK-SIC-4 PIC X(04). DTSBX657 00565 10 FILLER REDEFINES WRK-SIC-4. DTSBX657 00566 15 WRK-SIC-3 PIC X(03). DTSBX657 00567 15 FILLER PIC X(01). DTSBX657 00568 10 WRK-NO-SIC-CNT PIC S9(07) COMP-3. DTSBX657 00569 10 WRK-SIC-7911-AREA. DTSBX657 00570 15 WRK-SIC-7911-WORKERS PIC S9(07) COMP-3. DTSBX657 00571 15 WRK-SIC-7911-BUSINESSES PIC S9(07) COMP-3. DTSBX657 00572 10 WRK-SIC-794-AREA. DTSBX657 00573 15 WRK-SIC-794-WORKERS PIC S9(07) COMP-3. DTSBX657 00574 15 WRK-SIC-794-BUSINESSES PIC S9(07) COMP-3. DTSBX657 00575 10 WRK-SIC-799-AREA. DTSBX657 00576 15 WRK-SIC-799-WORKERS PIC S9(07) COMP-3. DTSBX657 00577 15 WRK-SIC-799-BUSINESSES PIC S9(07) COMP-3. DTSBX657 00578 10 WRK-SIC-8351-AREA. DTSBX657 00579 15 WRK-SIC-8351-WORKERS PIC S9(07) COMP-3. DTSBX657 00580 15 WRK-SIC-8351-BUSINESSES PIC S9(07) COMP-3. DTSBX657 00581 10 WRK-SIC-8641-AREA. DTSBX657 00582 15 WRK-SIC-8641-WORKERS PIC S9(07) COMP-3. DTSBX657 00583 15 WRK-SIC-8641-BUSINESSES PIC S9(07) COMP-3. DTSBX657 00584 10 WRK-NAICS-6 PIC X(06). DTSBX657 00585 10 FILLER REDEFINES WRK-NAICS-6. DTSBX657 00586 15 WRK-NAICS-2 PIC X(02). DTSBX657 00587 15 FILLER PIC X(04). DTSBX657 00588 *RW1 DTSBX657 00589 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. DTSBX657 00590 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBX657 00591 05 WS-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. DTSBX657 00592 DTSBX657 00593 05 DISP-DATE PIC X(08). DTSBX657 00594 05 DISP-TIME PIC X(08). DTSBX657 00595 DTSBX657 00596 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBX657 00597 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBX657 00598 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBX657 00599 05 WRK-T003-CNT PIC S9(07) COMP-3 VALUE +0. CL184 00600 DTSBX657 00601 * 05 EVL-TEXT PIC X(50). CL154 00602 01 MNT-LOG-AREA. CL183 00603 10 WRK-MNTE-MSG-LINE1. CL183 00604 15 FILLER PIC X(53) VALUE CL214 00605 'PER RETURNED TAX RATE NOTICE RECEIVED, RETURN MAIL FL'. CL231 00606 15 FILLER PIC X(20) VALUE CL217 00607 'AG HAS BEEN UPDATED '. CL231 00608 10 WRK-MNTE-MSG-LINE2. CL183 00609 15 FILLER PIC X(53) VALUE CL214 00610 'TO YES. MAILING ADDRESS VERIFICATION PROCESS IN PROGR'. CL231 00611 15 FILLER PIC X(19) VALUE CL214 00612 'ESS. '. CL231 00613 10 WRK-MNTE-MSG-LINE3. CL183 00614 15 FILLER PIC X(53) VALUE CL214 00615 ' '. CL229 00616 15 FILLER PIC X(19) VALUE CL214 00617 ' '. CL216 00618 * 'CORRESPONDENCE RESUMED.'. CL198 00619 * CL190 00620 01 HEADER-1. DTSBX657 00621 05 FILLER PIC X(01) VALUE SPACES. DTSBX657 00622 05 FILLER PIC X(49) VALUE '016R1'. DTSBX657 00623 05 FILLER PIC X(60) VALUE DTSBX657 00624 'DISTRICT OF COLUMBIA'. DTSBX657 00625 05 FILLER PIC X(06) VALUE 'DATE:'. DTSBX657 00626 05 HDR1-LRCM-SYS-DATE PIC X(08). DTSBX657 00627 DTSBX657 00628 01 HEADER-2. DTSBX657 00629 05 FILLER PIC X(54) VALUE SPACES. DTSBX657 00630 05 FILLER PIC X(56) VALUE DTSBX657 00631 'TAX DIVISION'. DTSBX657 00632 05 FILLER PIC X(06) VALUE 'TIME:'. DTSBX657 00633 05 HDR2-LRCM-SYS-TIME PIC X(08). DTSBX657 00634 DTSBX657 00635 01 HEADER-3. DTSBX657 00636 05 FILLER PIC X(01) VALUE SPACES. DTSBX657 00637 05 FILLER PIC X(38) VALUE DTSBX657 00638 'ROUTE TO: ACCOUNTING UNIT'. DTSBX657 00639 05 HDR3-LITERAL PIC X(43) VALUE DTSBX657 00640 ' EMPLOYERS REGISTERED SINCE 09/11/01 '. DTSBX657 00641 05 FILLER PIC X(28) VALUE SPACES. DTSBX657 00642 05 FILLER PIC X(06) VALUE 'PAGE:'. DTSBX657 00643 05 HDR3-PAGE PIC ZZ,ZZ9. DTSBX657 00644 DTSBX657 00645 01 HEADER-4. DTSBX657 00646 05 FILLER PIC X(01) VALUE SPACES. DTSBX657 00647 05 FILLER PIC X(132) VALUE SPACES. DTSBX657 00648 DTSBX657 00649 01 HEADER-5. DTSBX657 00650 05 FILLER PIC X(01) VALUE SPACES. DTSBX657 00651 05 FILLER PIC X(05) VALUE SPACES. DTSBX657 00652 05 FILLER PIC X(06) VALUE DTSBX657 00653 'EMP NO'. DTSBX657 00654 05 FILLER PIC X(05) VALUE SPACES. DTSBX657 00655 05 FILLER PIC X(12) VALUE DTSBX657 00656 'PRIMARY NAME'. DTSBX657 00657 05 FILLER PIC X(28) VALUE SPACES. DTSBX657 00658 05 FILLER PIC X(04) VALUE SPACES. DTSBX657 00659 05 FILLER PIC X(14) VALUE DTSBX657 00660 'LIABILITY DATE'. DTSBX657 00661 05 FILLER PIC X(04) VALUE SPACES. DTSBX657 00662 05 FILLER PIC X(13) VALUE DTSBX657 00663 'INACTIVE DATE'. DTSBX657 00664 05 FILLER PIC X(12) VALUE SPACES. DTSBX657 00665 05 FILLER PIC X(18) VALUE SPACES. DTSBX657 00666 DTSBX657 00667 01 HEADER-6. DTSBX657 00668 05 FILLER PIC X(01) VALUE SPACES. DTSBX657 00669 05 FILLER PIC X(132) VALUE SPACES. DTSBX657 00670 DTSBX657 00671 01 DETAIL-LINE-1. DTSBX657 00672 05 FILLER PIC X(05) VALUE SPACES. DTSBX657 00673 05 WS-EMP-NO PIC 999B999. DTSBX657 00674 05 FILLER PIC X(02) VALUE SPACES. DTSBX657 00675 05 WS-PRIMARY-NAME PIC X(40). DTSBX657 00676 05 FILLER PIC X(02) VALUE SPACES. DTSBX657 00677 05 WS-DATE1 PIC X(10). DTSBX657 00678 05 FILLER PIC X(02) VALUE SPACES. DTSBX657 00679 05 WS-DATE2 PIC X(10). DTSBX657 00680 * 05 FILLER PIC X(05) VALUE SPACES. DTSBX657 00681 * 05 WS-BALANCE-AMT PIC ZZZ,ZZZ,ZZ9.99. DTSBX657 00682 * 05 FILLER PIC X(09) VALUE SPACES. DTSBX657 00683 * 05 WS-PURSUED-RPT PIC ZZ9. DTSBX657 00684 * 05 FILLER PIC X(10) VALUE SPACES. DTSBX657 00685 * 05 WS-DPC PIC X(01). DTSBX657 00686 * 05 FILLER PIC X(06) VALUE SPACES. DTSBX657 00687 * 05 WS-LIEN PIC X(01). DTSBX657 00688 * 05 FILLER PIC X(21) VALUE SPACES. DTSBX657 00689 DTSBX657 00690 01 FOOTING-LINE-1 PIC X(133) VALUE SPACES. DTSBX657 00691 01 FOOTING-LINE-2 PIC X(133) VALUE SPACES. DTSBX657 00692 DTSBX657 00693 01 FOOTING-LINE-3. DTSBX657 00694 05 FILLER PIC X(25) VALUE SPACES. DTSBX657 00695 05 WS-FOOTING-CNT PIC ZZ,ZZ9. DTSBX657 00696 05 FILLER PIC X(02) VALUE SPACES. DTSBX657 00697 05 FILLER PIC X(43) VALUE DTSBX657 00698 'DEBIT WRITE OFF CANDIDATES LISTED ON REPORT'.DTSBX657 00699 05 FILLER PIC X(23) VALUE SPACES. DTSBX657 00700 01 FOOTING-LINE-4 PIC X(133) VALUE SPACES. DTSBX657 00701 01 FOOTING-LINE-5 PIC X(133) VALUE SPACES. DTSBX657 00702 01 FOOTING-LINE-6. DTSBX657 00703 05 FILLER PIC X(25) VALUE SPACES. DTSBX657 00704 05 FILLER PIC X(17) VALUE DTSBX657 00705 '*** END OF REPORT'. DTSBX657 00706 *RW2 DTSBX657 00707 DTSBX657 00708 01 TSKL-REC. CL183 00709 ++INCLUDE DTSITSKL CL183 00710 EJECT CL183 00711 01 T003-REC. CL183 00712 ++INCLUDE DTSIT003 CL183 00713 EJECT CL183 00714 01 L001-LINK-AREA. DTSBX657 00715 ++INCLUDE DTSIL001 DTSBX657 00716 EJECT DTSBX657 00717 01 L005-LINK-AREA. CL157 00718 ++INCLUDE DTSIL005 DTSBX657 00719 EJECT DTSBX657 00720 01 L331-LINK-AREA. CL209 00721 ++INCLUDE DTSIL331 CL209 00722 EJECT DTSBX657 00723 01 L039-LINK-AREA. CL209 00724 ++INCLUDE DTSIL039 CL209 00725 EJECT CL209 00726 01 L101-LINK-AREA. CL*23 00727 ++INCLUDE DTSIL101 CL*23 00728 EJECT DTSBX657 00729 01 L102-LINK-AREA. CL*23 00730 ++INCLUDE DTSIL102 CL*23 00731 EJECT CL*23 00732 01 L109-LINK-AREA. CL*23 00733 ++INCLUDE DTSIL109 CL*23 00734 CL*23 00735 01 L054-LINK-AREA. DTSBX657 00736 ++INCLUDE DTSIL054 DTSBX657 00737 EJECT DTSBX657 00738 01 L410-LINK-AREA. DTSBX657 00739 ++INCLUDE DTSIL410 DTSBX657 00740 EJECT DTSBX657 00741 01 L600-LINK-AREA. DTSBX657 00742 ++INCLUDE DTSIL600 DTSBX657 00743 EJECT DTSBX657 00744 01 L910-LINK-AREA. DTSBX657 00745 ++INCLUDE DTSIL910 DTSBX657 00746 EJECT DTSBX657 00747 01 MSKL-REC. DTSBX657 00748 ++INCLUDE DTSIMSKL DTSBX657 00749 EJECT DTSBX657 00750 01 MLOG-REC. CL240 00751 ++INCLUDE DTSIMLOG CL240 00752 01 MNTE-REC. CL240 00753 ++INCLUDE DTSIMNTE CL240 00754 EJECT CL183 00755 01 MHDR-REC. DTSBX657 00756 ++INCLUDE DTSIMHDR DTSBX657 00757 EJECT DTSBX657 00758 01 MPRF-REC. CL164 00759 ++INCLUDE DTSIMPRF CL164 00760 EJECT CL164 00761 01 MQTR-REC. DTSBX657 00762 ++INCLUDE DTSIMQTR DTSBX657 00763 EJECT DTSBX657 00764 01 MRPT-REC. DTSBX657 00765 ++INCLUDE DTSIMRPT DTSBX657 00766 EJECT DTSBX657 00767 01 MSOL-REC. DTSBX657 00768 ++INCLUDE DTSIMSOL DTSBX657 00769 EJECT DTSBX657 00770 01 MRCT-REC. DTSBX657 00771 ++INCLUDE DTSIMRCT DTSBX657 00772 EJECT DTSBX657 00773 01 MREL-REC. DTSBX657 00774 ++INCLUDE DTSIMREL DTSBX657 00775 EJECT DTSBX657 00776 01 MEVL-REC. DTSBX657 00777 ++INCLUDE DTSIMEVL DTSBX657 00778 EJECT DTSBX657 00779 01 MLIN-REC. DTSBX657 00780 ++INCLUDE DTSIMLIN DTSBX657 00781 EJECT DTSBX657 00782 01 MRTE-REC. DTSBX657 00783 ++INCLUDE DTSIMRTE DTSBX657 00784 EJECT DTSBX657 00785 01 MDST-REC. DTSBX657 00786 ++INCLUDE DTSIMDST DTSBX657 00787 EJECT DTSBX657 00788 01 MPAY-REC. DTSBX657 00789 ++INCLUDE DTSIMPAY DTSBX657 00790 EJECT DTSBX657 00791 01 MADJ-REC. DTSBX657 00792 ++INCLUDE DTSIMADJ DTSBX657 00793 EJECT DTSBX657 00794 01 MJRN-REC. DTSBX657 00795 ++INCLUDE DTSIMJRN DTSBX657 00796 EJECT DTSBX657 00797 01 MERA-REC. DTSBX657 00798 ++INCLUDE DTSIMERA DTSBX657 00799 EJECT DTSBX657 00800 01 MCOL-REC. DTSBX657 00801 ++INCLUDE DTSIMCOL DTSBX657 00802 EJECT DTSBX657 00803 01 MFAS-REC. DTSBX657 00804 ++INCLUDE DTSIMFAS DTSBX657 00805 01 MAUR-REC. DTSBX657 00806 ++INCLUDE DTSIMAUR DTSBX657 00807 EJECT DTSBX657 00808 01 MFAE-REC. DTSBX657 00809 ++INCLUDE DTSIMFAE DTSBX657 00810 EJECT DTSBX657 00811 EJECT DTSBX657 00812 01 MOPO-REC. DTSBX657 00813 ++INCLUDE DTSIMOPO DTSBX657 00814 EJECT DTSBX657 00815 01 MTAD-REC. DTSBX657 00816 ++INCLUDE DTSIMTAD DTSBX657 00817 EJECT DTSBX657 00818 01 MTAA-REC. DTSBX657 00819 ++INCLUDE DTSIMTAA DTSBX657 00820 EJECT DTSBX657 00821 01 MBAA-REC. DTSBX657 00822 ++INCLUDE DTSIMBAA DTSBX657 00823 EJECT DTSBX657 00824 01 MFSC-REC. DTSBX657 00825 ++INCLUDE DTSIMFSC DTSBX657 00826 EJECT DTSBX657 00827 01 MERD-REC. DTSBX657 00828 ++INCLUDE DTSIMERD DTSBX657 00829 EJECT DTSBX657 00830 01 MDPC-REC. DTSBX657 00831 ++INCLUDE DTSIMDPC DTSBX657 00832 EJECT DTSBX657 00833 01 L921-LINK-AREA. DTSBX657 00834 ++INCLUDE DTSIL921 DTSBX657 00835 EJECT DTSBX657 00836 01 ISKL-REC. DTSBX657 00837 ++INCLUDE DTSIISKL DTSBX657 00838 EJECT DTSBX657 00839 01 IPES-REC. DTSBX657 00840 ++INCLUDE DTSIIPES DTSBX657 00841 EJECT DTSBX657 00842 01 L931-LINK-AREA. DTSBX657 00843 ++INCLUDE DTSIL931 DTSBX657 00844 EJECT DTSBX657 00845 01 FSKL-REC. DTSBX657 00846 ++INCLUDE DTSIFSKL DTSBX657 00847 EJECT DTSBX657 00848 01 FQTR-REC. DTSBX657 00849 ++INCLUDE DTSIFQTR DTSBX657 00850 EJECT DTSBX657 00851 01 FFIS-REC. DTSBX657 00852 ++INCLUDE DTSIFFIS DTSBX657 00853 EJECT DTSBX657 00854 01 FFAZ-REC. DTSBX657 00855 ++INCLUDE DTSIFFAZ DTSBX657 00856 EJECT DTSBX657 00857 01 FOPR-REC. DTSBX657 00858 ++INCLUDE DTSIFOPR DTSBX657 00859 EJECT DTSBX657 00860 01 L933-LINK-AREA. DTSBX657 00861 ++INCLUDE DTSIL933 DTSBX657 00862 EJECT DTSBX657 00863 01 XSIC-REC. DTSBX657 00864 ++INCLUDE DTSIXSIC DTSBX657 00865 EJECT DTSBX657 00866 01 L004-COMM-AREA. DTSBX657 00867 ++INCLUDE DTSIL004 DTSBX657 00868 DTSBX657 00869 01 L061-LINK-AREA. DTSBX657 00870 ++INCLUDE DTSIL061 DTSBX657 00871 DTSBX657 00872 01 L062-LINK-AREA. DTSBX657 00873 ++INCLUDE DTSIL062 DTSBX657 00874 DTSBX657 00875 01 L516-LINK-AREA. DTSBX657 00876 ++INCLUDE DTSIL516 DTSBX657 00877 EJECT DTSBX657 00878 01 LBCM-LINK-AREA. CL173 00879 ++INCLUDE DTSILBCM CL173 00880 EJECT CL154 00881 01 L923-LINK-AREA. CL183 00882 ++INCLUDE DTSIL923 CL183 00883 EJECT CL183 00884 01 ASKL-REC. CL183 00885 ++INCLUDE DTSIASKL CL183 00886 EJECT CL183 00887 01 AHDR-REC. CL183 00888 ++INCLUDE DTSIAHDR CL183 00889 EJECT CL183 00890 01 AADJ-REC. CL183 00891 ++INCLUDE DTSIAADJ CL183 00892 EJECT CL183 00893 01 L927-LINK-AREA. CL183 00894 ++INCLUDE DTSIL927 CL183 00895 EJECT CL183 00896 PROCEDURE DIVISION. CL228 00897 CL164 00898 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX657 00899 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBX657 00900 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBX657 00901 SKIP2 DTSBX657 00902 GOBACK. DTSBX657 00903 EJECT DTSBX657 00904 I0000-INITIATE. DTSBX657 00905 SKIP2 DTSBX657 00906 MOVE 'N' TO WRK-TRACE-IND. DTSBX657 00907 SET WRK-ERROR-NO-88 TO TRUE. DTSBX657 00908 MOVE +0 TO WRK-MPRF-REC-CNT CL193 00909 DTSBX657 00910 PERFORM I2000-OPEN-FILES-1 THRU I2000-EXIT. DTSBX657 00911 DTSBX657 00912 MOVE +0 TO WRK-MPRF-CNT CL120 00913 WRK-MQTR-CNT CL120 00914 WRK-MLOG-CNT CL120 00915 WRK-MEVL-DELETED-CNT. CL120 00916 CL120 00917 I0000-EXIT. DTSBX657 00918 EXIT. DTSBX657 00919 I2000-OPEN-FILES-1. DTSBX657 00920 DISPLAY 'UPD RETURN FLAG TO Y - BAD ADDR TAX RATE RETURNED' CL231 00921 DISPLAY ' '. CL220 00922 OPEN INPUT EMP-FILE1. CL120 00923 IF NOT EXP-STATUS-OK-88 DTSBX657 00924 DISPLAY 'CANNOT OPEN EXP FILE ' EXP-STATUS DTSBX657 00925 SET WRK-ERROR-YES-88 TO TRUE DTSBX657 00926 GO TO I2000-EXIT. DTSBX657 00927 MOVE WRK-TRACE-IND TO L910-TRACE-IND. DTSBX657 00928 DTSBX657 00929 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBX657 00930 DTSBX657 00931 * PERFORM S910-OPEN-READ THRU S910-EXIT. CL171 00932 PERFORM S910-OPEN-UPDATE-NO-AIX THRU S910-EXIT. CL176 00933 PERFORM S923-OPEN-UPDATE THRU S923-EXIT. CL189 00934 PERFORM S927-OPEN-UPDATE THRU S927-EXIT. CL189 00935 DTSBX657 00936 * PERFORM S921-OPEN-READ THRU S921-EXIT. CL123 00937 PERFORM S005-FROM-SYS THRU S005-EXIT. CL187 00938 DTSBX657 00939 ** PERFORM S931-OPEN-READ THRU S931-EXIT. CL122 00940 * PERFORM S931-OPEN-UPDATE THRU S931-EXIT. CL176 00941 DTSBX657 00942 MOVE WRK-MOD-NAME TO L933-MOD-NAME. DTSBX657 00943 DTSBX657 00944 *** PERFORM S933-OPEN-READ THRU S933-EXIT. DTSBX657 00945 DTSBX657 00946 I2000-EXIT. DTSBX657 00947 EXIT. DTSBX657 00948 DTSBX657 00949 P0000-PROCESS. DTSBX657 00950 * DISPLAY 'IN P0000-PROCESS'. CL220 00951 READ EMP-FILE1 AT END GO TO P0000-EXIT. CL122 00952 DTSBX657 00953 MOVE INEMP-NOA TO WS-EMP-NOA. CL254 00954 MOVE INEMP-NOB TO WS-EMP-NOB. CL254 00955 ADD 1 TO IN-REC-CNT. CL122 00956 MOVE LOW-VALUES TO MPRF-KEY-AREA. CL129 00957 SET MPRF-PRF-88 TO TRUE. CL129 00958 DTSBX657 00959 MOVE WS-EMP-NO1 TO WS-EMP-NOZ. CL**2 00960 MOVE WS-EMP-NOZ TO MPRF-EMP-NO. CL**2 00961 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. CL119 00962 DTSBX657 00963 PERFORM S910-READ THRU S910-EXIT. DTSBX657 00964 IF L910-NO-REC-88 CL119 00965 DISPLAY ' EMP NOT FOUND ' WS-EMP-NOZ CL**2 00966 GO TO P0000-PROCESS. CL119 00967 ADD 1 TO MPRF-REC-CNT. CL122 00968 MOVE MSKL-REC TO MPRF-REC CL119 00969 CL204 00970 IF MPRF-RETURN-MAIL-YES-88 CL252 00971 DISPLAY MPRF-EMP-NO ' DUTAS RTN MAIL FLAG = Y ' CL252 00972 '----**** FLAG NOT UPDATED' CL252 00973 GO TO P0000-PROCESS. CL252 00974 CL227 00975 MOVE +0 TO WRK-MEVL-REWRITE-CNT CL231 00976 PERFORM P6000-SCAN-EVL THRU P6000-EXIT. CL231 00977 IF WRK-MEVL-REWRITE-CNT = 1 CL231 00978 DISPLAY MPRF-EMP-NO ' DUTAS ADDRESS UPDATED ' CL253 00979 '----++++ FLAG NOT UPDATED' CL253 00980 GO TO P0000-PROCESS. CL231 00981 PERFORM P1100-CHECK-FOR-MLOG THRU P1100-EXIT. CL217 00982 PERFORM P3000-ADD-MNTE THRU P3000-EXIT CL225 00983 SET MPRF-RETURN-MAIL-YES-88 TO TRUE CL221 00984 MOVE L005-DATE TO MPRF-CHNG-DATE CL228 00985 MOVE MPRF-REC TO MSKL-REC CL228 00986 PERFORM S910-REWRITE THRU S910-EXIT CL221 00987 DISPLAY MPRF-EMP-NO ' DUTAS RTN MAIL FLAG UPDATED TO Y ' CL231 00988 '---- RTN FLAG UPDATED' CL231 00989 ADD +1 TO WRK-MPRF-REC-CNT CL221 00990 GO TO P0000-PROCESS. CL155 00991 P0000-EXIT. CL119 00992 EXIT. DTSBX657 00993 P1100-CHECK-FOR-MLOG. CL208 00994 ADD +5000 TO WRK-ABSTIME CL222 00995 PERFORM S005-FROM-SYS THRU S005-EXIT CL208 00996 MOVE L005-ABSTIME TO WRK-SYS-ABSTIME CL208 00997 MOVE MPRF-EMP-NO TO L331-EMP-NO WRK-EMP-NO CL208 00998 MOVE L005-DATE TO L331-CURR-RUN-DATE CL212 00999 ADD WRK-ABSTIME TO WRK-SYS-ABSTIME CL208 01000 MOVE WRK-SYS-ABSTIME TO L331-UPDATE-ABSTIME CL208 01001 MOVE 'DTSBX657' TO L331-OP-ID CL254 01002 MOVE 'RETURN MAIL IND' TO L331-FIELD-NAME CL208 01003 MOVE MPRF-RETURN-MAIL-IND TO L331-FROM-VALUE CL221 01004 * MOVE 'N' TO L331-FROM-VALUE CL221 01005 MOVE 'Y' TO L331-TO-VALUE CL213 01006 MOVE 'Y' TO MPRF-RETURN-MAIL-IND CL213 01007 * MOVE +1 TO WRK-MPRF-MAIL-UPD-CNT CL211 01008 * DISPLAY ' RETURN MAIL UPDATED: ' WRK-EMP-NO CL220 01009 PERFORM S331-WRITE-MLOG THRU S331-EXIT. CL208 01010 P1100-EXIT. EXIT. CL208 01011 CL208 01012 P1600-FIND-QTR. CL208 01013 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBX657 01014 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBX657 01015 SET MQTR-QTR-88 TO TRUE. DTSBX657 01016 MOVE 20134 TO MQTR-YRQ. CL119 01017 MOVE MQTR-REC TO MSKL-REC. DTSBX657 01018 DTSBX657 01019 PERFORM S910-READ THRU S910-EXIT. DTSBX657 01020 IF L910-NO-REC-88 DTSBX657 01021 DISPLAY ' QTR REC NOT FOUND ' MPRF-EMP-NO ' ' MQTR-YRQ CL119 01022 GO TO P1600-EXIT DTSBX657 01023 ELSE DTSBX657 01024 MOVE MSKL-REC TO MQTR-REC. DTSBX657 01025 DTSBX657 01026 ADD 1 TO WRK-MQTR-FOUND-CNT. CL124 01027 DISPLAY MPRF-EMP-NO CL121 01028 'B CURR TYPE ' MQTR-CURR-RPT-TYPE CL121 01029 'B CUTOFF CD ' MQTR-MISS-RPT-CUTOFF-CD CL124 01030 'B PURSUD ID ' MQTR-PURSUED-RPT-IND. CL121 01031 DTSBX657 01032 IF MQTR-CURR-RCVD-88 OR CL135 01033 MQTR-CURR-NOT-LIABLE-88 CL135 01034 * SET MQTR-CURR-ORIG-88 TO TRUE CL133 01035 * SET MQTR-RPT-NOT-PURSUED-88 TO TRUE CL133 01036 SET MQTR-MISS-NOT-YET-RUN-88 TO TRUE CL122 01037 MOVE MQTR-REC TO MSKL-REC CL119 01038 PERFORM S910-REWRITE THRU S910-EXIT CL136 01039 ADD 1 TO WRK-MQTR-UPDATED-CNT CL131 01040 CL122 01041 DISPLAY MPRF-EMP-NO CL122 01042 'A CURR TYPE ' MQTR-CURR-RPT-TYPE CL122 01043 'A CUTOFF CD ' MQTR-MISS-RPT-CUTOFF-CD CL124 01044 'A PURSUD ID ' MQTR-PURSUED-RPT-IND CL134 01045 ELSE CL134 01046 DISPLAY MPRF-EMP-NO CL134 01047 'Z CURR TYPE ' MQTR-CURR-RPT-TYPE CL134 01048 'Z CUTOFF CD ' MQTR-MISS-RPT-CUTOFF-CD CL134 01049 'Z PURSUD ID ' MQTR-PURSUED-RPT-IND. CL134 01050 P1600-EXIT. DTSBX657 01051 EXIT. DTSBX657 01052 DTSBX657 01053 P6000-SCAN-EVL. CL122 01054 SET WRK-MEVL-OK TO TRUE. CL122 01055 MOVE +0 TO WRK-RECEIVED-DATE. CL122 01056 MOVE LOW-VALUES TO MLOG-KEY-AREA CL242 01057 MSKL-KEY-AREA. CL242 01058 MOVE MPRF-EMP-NO TO MLOG-EMP-NO. CL240 01059 SET MLOG-LOG-88 TO TRUE. CL240 01060 MOVE MLOG-KEY-AREA TO MSKL-KEY-AREA. CL240 01061 CL122 01062 PERFORM S910-START-BROWSE THRU S910-EXIT. CL122 01063 IF L910-NO-REC-88 CL122 01064 DISPLAY ' EVENT LOG NOT FOUND ' MPRF-EMP-NO CL122 01065 SET WRK-MEVL-NO-REC TO TRUE CL206 01066 GO TO P6000-EXIT CL122 01067 ELSE CL122 01068 PERFORM P6100-SCAN-MEVL THRU P6100-EXIT CL122 01069 UNTIL WRK-MEVL-NO-REC. CL122 01070 CL122 01071 P6000-EXIT. CL122 01072 EXIT. CL122 01073 P6100-SCAN-MEVL. CL122 01074 MOVE MSKL-REC TO MLOG-REC. CL240 01075 * ADD 1 TO WRK-MEVL-FOUND-CNT. CL127 01076 CL200 01077 * DISPLAY 'MLOG EMP+ ' MLOG-EMP-NO. CL250 01078 * IF MLOG-EMP-NO = 330099 CL252 01079 * DISPLAY 'MLOG DAE+ ' MLOG-ESTB-DATE. CL252 01080 IF MLOG-ESTB-DATE > 20190106 CL251 01081 NEXT SENTENCE CL245 01082 ELSE CL245 01083 GO TO P6100-READ-NEXT. CL251 01084 * SET WRK-MEVL-NO-REC TO TRUE CL251 01085 * MOVE +1 TO WRK-MEVL-REWRITE-CNT CL251 01086 * GO TO P6100-EXIT. CL251 01087 CL200 01088 DISPLAY ' MNTE PRIOR UPD ' MLOG-EMP-NO ' '. CL246 01089 * IF MLOG-EMP-NO = 330099 CL252 01090 IF MLOG-DATA-ELEMENT-NAME = 'MTAD-ATTN-LINE' OR CL244 01091 MLOG-DATA-ELEMENT-NAME = 'MTAD-DELIV-LINE-1' OR CL244 01092 MLOG-DATA-ELEMENT-NAME = 'MTAD-DELIV-LINE-2' OR CL244 01093 MLOG-DATA-ELEMENT-NAME = 'MTAD-CITY' OR CL244 01094 MLOG-DATA-ELEMENT-NAME = 'MTAD-ST' OR CL244 01095 MLOG-DATA-ELEMENT-NAME = 'MTAD-ZIP' CL244 01096 DISPLAY ' MLOG REWRITTEN ' MLOG-EMP-NO ' ' MLOG-ESTB-DATE CL252 01097 SET WRK-MEVL-NO-REC TO TRUE CL252 01098 MOVE +1 TO WRK-MEVL-REWRITE-CNT CL246 01099 GO TO P6100-EXIT. CL237 01100 CL204 01101 GO TO P6100-READ-NEXT. CL204 01102 * MOVE CL231 01103 * 'DELINQUENCY NOTICE FOR 13/1 SENT TO MTAD 1 ' CL231 01104 * TO MEVL-TEXT (1:46) CL231 01105 * MOVE MEVL-REC TO MSKL-REC CL231 01106 * PERFORM S910-REWRITE THRU S910-EXIT CL231 01107 * PERFORM S910-DELETE THRU S910-EXIT CL139 01108 * SET WRK-MEVL-OK-88 TO TRUE CL205 01109 * DISPLAY ' MEVL REWRITTEN ' MEVL-EMP-NO ' ' MEVL-TEXT. CL231 01110 * GO TO P6100-EXIT. CL204 01111 CL122 01112 * IF MEVL-DATE < 20140228 CL133 01113 * SET WRK-MEVL-NO-REC TO TRUE CL133 01114 * GO TO P6100-EXIT. CL133 01115 P6100-READ-NEXT. CL204 01116 CL132 01117 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBX657 01118 IF L910-NO-REC-88 DTSBX657 01119 SET WRK-MEVL-NO-REC TO TRUE. DTSBX657 01120 DTSBX657 01121 P6100-EXIT. DTSBX657 01122 EXIT. DTSBX657 01123 DTSBX657 01124 P6150-MNTE-NOTE. CL237 01125 DISPLAY MNTE-TEXT(MNTE-TEXT-CNT). CL238 01126 P6150-EXIT. CL237 01127 EXIT. CL237 01128 CL237 01129 S6000-WRITE-MEVL. CL154 01130 MOVE LOW-VALUES TO MEVL-REC. CL165 01131 MOVE LOW-VALUES TO LBCM-RUN-AREA. CL173 01132 CL173 01133 MOVE ZERO TO LBCM-EMP-ABSTIME. CL173 01134 MOVE MPRF-EMP-NO TO MEVL-EMP-NO. CL165 01135 DISPLAY'EMPNO:', MPRF-EMP-NO. CL166 01136 SET MEVL-EVL-88 TO TRUE. CL165 01137 ADD +6000 TO LBCM-EMP-ABSTIME. CL182 01138 CL154 01139 MOVE LBCM-EMP-ABSTIME TO L005-ABSTIME. CL173 01140 CL154 01141 PERFORM S005-FROM-ABSTIME THRU S005-A-EXIT. CL173 01142 CL154 01143 CL154 01144 DISPLAY'EMPNO:', MPRF-EMP-NO. CL166 01145 CL154 01146 MOVE L005-DATE TO MEVL-DATE. CL181 01147 CL154 01148 MOVE L005-TIME TO MEVL-TIME. CL181 01149 CL154 01150 DISPLAY'EMPNO:', MPRF-EMP-NO. CL166 01151 CL154 01152 MOVE ZEROS TO MEVL-PURGE-DATE. CL154 01153 CL154 01154 CL154 01155 * MOVE EVL-TEXT TO MEVL-TEXT. CL184 01156 CL154 01157 **** SET MEVL-SOURCE-SYSTEM-88 TO TRUE. CL154 01158 ** MOVE MPAY-RESPONSIBLE-OP-ID TO MEVL-SOURCE. CL180 01159 CL154 01160 SET MEVL-NOT-CONVERTED-88 TO TRUE. CL154 01161 * MOVE LBCM-CURR-RUN-DATE TO MEVL-ESTB-DATE CL180 01162 MOVE 20170127 TO MEVL-ESTB-DATE CL180 01163 MEVL-CHNG-DATE. CL154 01164 CL154 01165 CL154 01166 MOVE MEVL-REC TO MSKL-REC. CL154 01167 CL154 01168 PERFORM S910-WRITE THRU S910-EXIT. CL154 01169 S6000-EXIT. CL154 01170 EXIT. CL154 01171 EJECT CL154 01172 DTSBX657 01173 P3000-ADD-MNTE. CL183 01174 MOVE LENGTH OF T003-REC TO T003-LENGTH. CL183 01175 MOVE '003' TO T003-REC-TYPE. CL183 01176 MOVE 'SYSTEM ' TO T003-ORIGIN. CL183 01177 MOVE L005-DATE TO T003-SYS-DATE. CL183 01178 MOVE L005-TIME TO T003-SYS-TIME. CL183 01179 SET T003-ADD-MNTE-88 TO TRUE. CL183 01180 CL183 01181 MOVE LOW-VALUES TO CL183 01182 MNTE-KEY-AREA. CL183 01183 MOVE MPRF-EMP-NO TO MNTE-EMP-NO. CL183 01184 SET MNTE-NTE-88 TO TRUE. CL183 01185 MOVE +0 TO MNTE-PURGE-DATE. CL183 01186 SET MNTE-NOT-CONVERTED-88 TO TRUE. CL183 01187 CL183 01188 MOVE L005-DATE TO MNTE-ESTB-DATE CL183 01189 MNTE-CHNG-DATE. CL183 01190 MOVE ZERO TO MNTE-KEY-ESTB-ABSTIME CL183 01191 MNTE-DATA-ESTB-ABSTIME CL183 01192 MNTE-CHNG-ABSTIME. CL183 01193 MOVE 'NCOAX655' TO MNTE-ESTB-OP-ID CL228 01194 MNTE-CHNG-OP-ID. CL183 01195 CL183 01196 MOVE 'RETURN MAIL FLAG UPDATED TO YES ' CL229 01197 TO MNTE-SUBJECT. CL183 01198 CL183 01199 MOVE +3 TO MNTE-TEXT-CNT. CL190 01200 CL183 01201 MOVE WRK-MNTE-MSG-LINE1 TO MNTE-TEXT (1). CL183 01202 MOVE WRK-MNTE-MSG-LINE2 TO MNTE-TEXT (2). CL183 01203 * MOVE WRK-MNTE-MSG-LINE3 TO MNTE-TEXT (3). CL229 01204 CL183 01205 MOVE MPRF-EMP-NO TO T003-EMP-NO. CL183 01206 MOVE MNTE-REC TO T003-MNTE-REC. CL183 01207 CL183 01208 MOVE T003-REC TO TSKL-REC. CL183 01209 PERFORM S927-WRITE THRU S927-EXIT. CL183 01210 ADD +1 TO WRK-T003-CNT. CL183 01211 CL183 01212 P3000-EXIT. CL183 01213 EXIT. CL183 01214 CL183 01215 SKIP3 CL183 01216 T0000-TERMINATE. DTSBX657 01217 DTSBX657 01218 DISPLAY ' '. DTSBX657 01219 DTSBX657 01220 DISPLAY '*** DTSZX016 TERMINATION STATISTICS ***'. CL123 01221 DTSBX657 01222 DISPLAY ' '. DTSBX657 01223 DTSBX657 01224 DISPLAY 'INPUT RECORDS READ : ' CL123 01225 IN-REC-CNT CL123 01226 CL123 01227 DISPLAY 'RETURN MAIL UPDATE : ' CL192 01228 WRK-MPRF-REC-CNT CL192 01229 CL192 01230 CL123 01231 DISPLAY 'ACTIVE EMPLOYERS FOUND : ' CL123 01232 MPRF-WRK-CNT. CL123 01233 CL123 01234 DISPLAY 'QTR RECS FOUND : ' CL123 01235 WRK-MQTR-FOUND-CNT. CL123 01236 CL123 01237 DISPLAY 'QTR RECS UPDATED : ' CL123 01238 WRK-MQTR-UPDATED-CNT. CL123 01239 DTSBX657 01240 DISPLAY 'MEVL REC FOUND : ' CL123 01241 WRK-MEVL-FOUND-CNT. CL123 01242 DTSBX657 01243 DISPLAY 'MEVL REC UPDATED : ' CL123 01244 ** WRK-MEVL-DELETED-CNT. CL149 01245 WRK-MEVL-REWRITE-CNT. CL149 01246 CL123 01247 CLOSE EMP-FILE1. CL123 01248 DTSBX657 01249 PERFORM S923-CLOSE THRU S923-EXIT. CL189 01250 PERFORM S927-CLOSE THRU S927-EXIT. CL189 01251 CL183 01252 PERFORM S910-CLOSE THRU S910-EXIT. CL176 01253 * PERFORM S921-CLOSE THRU S921-EXIT. CL123 01254 * PERFORM S931-CLOSE THRU S931-EXIT. CL176 01255 *** PERFORM S933-CLOSE THRU S933-EXIT. DTSBX657 01256 DTSBX657 01257 T0000-EXIT. DTSBX657 01258 EXIT. DTSBX657 01259 EJECT DTSBX657 01260 S001-FROM-FED-8. DTSBX657 01261 SET L001-FROM-FED-8 TO TRUE. DTSBX657 01262 GO TO S001-DATE. DTSBX657 01263 DTSBX657 01264 S001-FROM-ABS-DAY. DTSBX657 01265 SET L001-FROM-ABS-DAY TO TRUE. DTSBX657 01266 GO TO S001-DATE. DTSBX657 01267 DTSBX657 01268 S001-DATE. DTSBX657 01269 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX657 01270 DTSBX657 01271 S001-EXIT. DTSBX657 01272 EXIT. DTSBX657 01273 SKIP3 DTSBX657 01274 S004-FROM-5. DTSBX657 01275 SET L004-FROM-5 TO TRUE. DTSBX657 01276 GO TO S004-EDIT-QTR. DTSBX657 01277 DTSBX657 01278 S004-FROM-ABS. DTSBX657 01279 SET L004-FROM-ABS TO TRUE. DTSBX657 01280 GO TO S004-EDIT-QTR. DTSBX657 01281 DTSBX657 01282 S004-EDIT-QTR. DTSBX657 01283 CALL 'DTSBU004' USING L004-COMM-AREA. DTSBX657 01284 DTSBX657 01285 S004-EXIT. DTSBX657 01286 EXIT. DTSBX657 01287 SKIP3 DTSBX657 01288 DTSBX657 01289 S005-FROM-SYS. CL187 01290 SET L005-FROM-SYS TO TRUE. CL187 01291 CALL 'DTSBU005' USING L005-LINK-AREA. CL187 01292 CL187 01293 S005-EXIT. CL187 01294 EXIT. CL187 01295 CL187 01296 S005-FROM-ABSTIME. CL156 01297 SET L005-FROM-ABSTIME TO TRUE. CL156 01298 GO TO S005-ABSTIME. CL156 01299 CL156 01300 S005-ABSTIME. CL156 01301 CALL 'DTSBU005' USING L005-LINK-AREA. CL156 01302 S005-A-EXIT. CL156 01303 EXIT. CL156 01304 SKIP3 CL156 01305 S910-WRITE. CL156 01306 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. CL173 01307 SET L910-WRITE-88 TO TRUE. CL156 01308 GO TO S910-MSTR-IO. CL156 01309 S039-SIC-EDIT. DTSBX657 01310 CALL 'DTSBU039' USING L039-LINK-AREA. DTSBX657 01311 S039-EXIT. DTSBX657 01312 EXIT. DTSBX657 01313 DTSBX657 01314 S054-RATE-DETERMINATION. DTSBX657 01315 CALL 'DTSBU054' USING L054-LINK-AREA DTSBX657 01316 MRCT-REC. DTSBX657 01317 DTSBX657 01318 S054-EXIT. DTSBX657 01319 EXIT. DTSBX657 01320 SKIP3 DTSBX657 01321 S061-FLD-REP-INFO. DTSBX657 01322 SKIP1 DTSBX657 01323 CALL 'DTSBU061' USING L061-LINK-AREA. DTSBX657 01324 SKIP2 DTSBX657 01325 S061-EXIT. DTSBX657 01326 EXIT. DTSBX657 01327 DTSBX657 01328 S062-FLD-REP-LOOKUP. DTSBX657 01329 DTSBX657 01330 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBX657 01331 DTSBX657 01332 S062-EXIT. DTSBX657 01333 EXIT. DTSBX657 01334 DTSBX657 01335 S101-PER-MONTH-NO. CL*23 01336 SET L101-PER-MONTH-NO-88 TO TRUE. CL*23 01337 GO TO S101-INT-CHARGE. CL*23 01338 CL*23 01339 S101-INT-CHARGE. CL*23 01340 CALL 'DTSBU101' USING L101-LINK-AREA. CL*23 01341 S101-EXIT. CL*23 01342 EXIT. CL*23 01343 CL*23 01344 S109-FIRST-PEN-INT-YRQ. CL*23 01345 SET L109-CMND-PEN-INT-QTR-88 TO TRUE. CL*23 01346 CALL 'DTSBU109' USING L109-LINK-AREA. CL*23 01347 S109-EXIT. CL*23 01348 EXIT. CL*23 01349 S331-WRITE-MLOG. CL210 01350 CALL 'DTSBU331' USING L331-LINK-AREA. CL210 01351 S331-EXIT. CL210 01352 EXIT. CL210 01353 SKIP3 CL210 01354 CL*23 01355 S410-FILING-SCHED. DTSBX657 01356 CALL 'DTSBU410' USING L410-LINK-AREA. DTSBX657 01357 DTSBX657 01358 S410-EXIT. DTSBX657 01359 EXIT. DTSBX657 01360 SKIP3 DTSBX657 01361 S516-LIABILITY. DTSBX657 01362 CALL 'DTSBU516' USING L516-LINK-AREA DTSBX657 01363 MPRF-REC. DTSBX657 01364 DTSBX657 01365 S516-EXIT. DTSBX657 01366 EXIT. DTSBX657 01367 SKIP3 DTSBX657 01368 S910-OPEN-READ. DTSBX657 01369 SET L910-OPEN-READ-88 TO TRUE. DTSBX657 01370 GO TO S910-MSTR-IO. DTSBX657 01371 DTSBX657 01372 S910-OPEN-UPDATE-NO-AIX. DTSBX657 01373 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBX657 01374 GO TO S910-MSTR-IO. DTSBX657 01375 DTSBX657 01376 S910-READ. DTSBX657 01377 SET L910-READ-88 TO TRUE. DTSBX657 01378 GO TO S910-MSTR-IO. DTSBX657 01379 DTSBX657 01380 S910-START-BROWSE. DTSBX657 01381 SET L910-START-BROWSE-88 TO TRUE. DTSBX657 01382 GO TO S910-MSTR-IO. DTSBX657 01383 DTSBX657 01384 S910-READ-NEXT. DTSBX657 01385 SET L910-READ-NEXT-88 TO TRUE. DTSBX657 01386 GO TO S910-MSTR-IO. DTSBX657 01387 DTSBX657 01388 S910-COUNT. DTSBX657 01389 SET L910-COUNT-88 TO TRUE. DTSBX657 01390 GO TO S910-MSTR-IO. DTSBX657 01391 DTSBX657 01392 S910-REWRITE. DTSBX657 01393 SET L910-REWRITE-88 TO TRUE. DTSBX657 01394 GO TO S910-MSTR-IO. DTSBX657 01395 DTSBX657 01396 S910-DELETE. DTSBX657 01397 SET L910-DELETE-88 TO TRUE. DTSBX657 01398 GO TO S910-MSTR-IO. DTSBX657 01399 DTSBX657 01400 S910-CLOSE. DTSBX657 01401 SET L910-CLOSE-88 TO TRUE. DTSBX657 01402 GO TO S910-MSTR-IO. DTSBX657 01403 DTSBX657 01404 S910-MSTR-IO. DTSBX657 01405 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX657 01406 MSKL-REC. DTSBX657 01407 S910-EXIT. DTSBX657 01408 EXIT. DTSBX657 01409 SKIP3 DTSBX657 01410 S921-OPEN-READ. DTSBX657 01411 SET L921-OPEN-READ-88 TO TRUE. DTSBX657 01412 GO TO S921-AIX-IO. DTSBX657 01413 DTSBX657 01414 S921-START-BROWSE. DTSBX657 01415 SET L921-START-BROWSE-88 TO TRUE. DTSBX657 01416 GO TO S921-AIX-IO. DTSBX657 01417 DTSBX657 01418 S921-CLOSE. DTSBX657 01419 SET L921-CLOSE-88 TO TRUE. DTSBX657 01420 GO TO S921-AIX-IO. DTSBX657 01421 DTSBX657 01422 S923-CLOSE. CL183 01423 SET L923-CLOSE-88 TO TRUE. CL183 01424 GO TO S923-ATC-IO. CL183 01425 CL183 01426 S923-ATC-IO. CL183 01427 CALL 'DTSBU923' USING L923-LINK-AREA CL183 01428 ASKL-REC. CL183 01429 S923-EXIT. CL183 01430 EXIT. CL183 01431 SKIP3 CL183 01432 S921-AIX-IO. DTSBX657 01433 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX657 01434 ISKL-REC. DTSBX657 01435 S921-EXIT. DTSBX657 01436 EXIT. DTSBX657 01437 SKIP3 DTSBX657 01438 DTSBX657 01439 S923-OPEN-UPDATE. CL183 01440 SET L923-OPEN-UPDATE-88 TO TRUE. CL183 01441 GO TO S923-ATC-IO. CL183 01442 CL183 01443 SKIP3 CL183 01444 S927-OPEN-UPDATE. CL183 01445 SET L927-OPEN-UPDATE-88 TO TRUE. CL183 01446 GO TO S927-BTC-O. CL183 01447 CL183 01448 S927-WRITE. CL183 01449 SET L927-WRITE-88 TO TRUE. CL183 01450 GO TO S927-BTC-O. CL183 01451 CL183 01452 S927-CLOSE. CL183 01453 SET L927-CLOSE-88 TO TRUE. CL183 01454 GO TO S927-BTC-O. CL183 01455 CL183 01456 S927-BTC-O. CL183 01457 CALL 'DTSBU927' USING L927-LINK-AREA CL183 01458 TSKL-REC. CL183 01459 S927-EXIT. CL183 01460 EXIT. CL183 01461 CL183 01462 SKIP3 CL183 01463 S931-OPEN-READ. DTSBX657 01464 SET L931-OPEN-READ-88 TO TRUE. DTSBX657 01465 GO TO S931-REF-IO. DTSBX657 01466 DTSBX657 01467 S931-OPEN-UPDATE. DTSBX657 01468 SET L931-OPEN-UPDATE-88 TO TRUE. DTSBX657 01469 GO TO S931-REF-IO. DTSBX657 01470 DTSBX657 01471 S931-START-BROWSE. DTSBX657 01472 SET L931-START-BROWSE-88 TO TRUE. DTSBX657 01473 GO TO S931-REF-IO. DTSBX657 01474 DTSBX657 01475 S931-READ. DTSBX657 01476 SET L931-READ-88 TO TRUE. DTSBX657 01477 GO TO S931-REF-IO. DTSBX657 01478 DTSBX657 01479 S931-READ-NEXT. DTSBX657 01480 SET L931-READ-NEXT-88 TO TRUE. DTSBX657 01481 GO TO S931-REF-IO. DTSBX657 01482 DTSBX657 01483 S931-DELETE. DTSBX657 01484 SET L931-DELETE-88 TO TRUE. DTSBX657 01485 GO TO S931-REF-IO. DTSBX657 01486 DTSBX657 01487 S931-REWRITE. DTSBX657 01488 SET L931-REWRITE-88 TO TRUE. DTSBX657 01489 GO TO S931-REF-IO. DTSBX657 01490 DTSBX657 01491 S931-WRITE. DTSBX657 01492 SET L931-WRITE-88 TO TRUE. DTSBX657 01493 GO TO S931-REF-IO. DTSBX657 01494 DTSBX657 01495 S931-CLOSE. DTSBX657 01496 SET L931-CLOSE-88 TO TRUE. DTSBX657 01497 GO TO S931-REF-IO. DTSBX657 01498 DTSBX657 01499 S931-REF-IO. DTSBX657 01500 CALL 'DTSBU931' USING L931-LINK-AREA DTSBX657 01501 FSKL-REC. DTSBX657 01502 S931-EXIT. DTSBX657 01503 EXIT. DTSBX657 01504 SKIP3 DTSBX657 01505 S933-OPEN-READ. DTSBX657 01506 SET L933-OPEN-READ-88 TO TRUE. DTSBX657 01507 GO TO S933-SIC-I. DTSBX657 01508 DTSBX657 01509 S933-CLOSE. DTSBX657 01510 SET L933-CLOSE-88 TO TRUE. DTSBX657 01511 GO TO S933-SIC-I. DTSBX657 01512 DTSBX657 01513 S933-SIC-I. DTSBX657 01514 CALL 'DTSBU933' USING L933-LINK-AREA DTSBX657 01515 XSIC-REC. DTSBX657 01516 S933-EXIT. DTSBX657 01517 EXIT. DTSBX657 01518 DTSBX657 01519 S999-ABEND. DTSBX657 01520 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX657 01521 S999-EXIT. DTSBX657 01522 EXIT. DTSBX657