00001 IDENTIFICATION DIVISION. 03/12/15 00002 PROGRAM-ID. DTSBD142. DTSBD142 00003 AUTHOR. NORTHROP GRUMMAN. LV009 00004 DATE-WRITTEN. MAY 2005. DTSBD142 00005 DATE-COMPILED. DTSBD142 00006 SKIP3 DTSBD142 00007 ***** DTSBD142 00008 * DTSBD142 00009 * FUNCTION: BUILD MPRF AND MERA DATABASE RECORDS, AND DTSBD142 00010 * T001 AND T031 TRANSACTIONS, BASED ON T002 DTSBD142 00011 * TRANSACTIONS INPUT FROM WEB REGISTRATION DTSBD142 00012 * AND OTHER BATCH PROCESSES. DTSBD142 00013 * DTSBD142 00014 * MODIFICATION LOG: DTSBD142 00015 * DTSBD142 00016 * 06/01/2005 INITIAL DEVELOPMENT DTSBD142 00017 * WORK ORDER: PROGRAMMER: GD DTSBD142 00018 * DTSBD142 00019 * 01/29/2010 MODIFIED P4000, CORRECTING SETTING OF START DTSBD142 00020 * QUARTER FOR MFSC: SHOULD ALWAYS BE THE DTSBD142 00021 * FIRST QUARTER. DTSBD142 00022 * WORK ORDER: PROGRAMMER: GD DTSBD142 00023 * 03/02/2015 MODIFIED TO MOVE THE NAICS CODE FROM ESSP TO DTSBD142 00024 * MPRF RECORD. DTSBD142 00025 * WORK ORDER: PROGRAMMER: ZL1 DTSBD142 00026 * DTSBD142 00027 * 99/99/9999 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD142 00028 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD142 00029 * WORK ORDER: PROGRAMMER: XXX DTSBD142 00030 * DTSBD142 00031 * DESCRIPTION: DTSBD142 00032 * DTSBD142 00033 * INITIATION: DTSBD142 00034 * NONE DTSBD142 00035 * DTSBD142 00036 * INPUT: DTSBD142 00037 * DTSIT002 EMPLOYER UPDATE TRANSACTIONS DTSBD142 00038 * DTSBD142 00039 * DTSBD142 00040 * PROCESSING: DTSBD142 00041 * DTSBD142 00042 * DTSBD142 00043 * DTSBD142 00044 * DTSBD142 00045 * DTSBD142 00046 * DTSBD142 00047 * DTSBD142 00048 * DTSBD142 00049 * DTSBD142 00050 * DTSBD142 00051 * DTSBD142 00052 * DTSBD142 00053 * TERMINATION: DTSBD142 00054 * OUTPUT STATISTICAL RECORDS COUNT. DTSBD142 00055 * DTSBD142 00056 * RECORDS READ: DTSBD142 00057 * MASTER: DTSBD142 00058 * DTSBD142 00059 * DTSBD142 00060 * ALTERNATE INDEX: DTSBD142 00061 * NONE. DTSBD142 00062 * DTSBD142 00063 * REFERENCE: DTSBD142 00064 * NONE. DTSBD142 00065 * DTSBD142 00066 * RECORDS UPDATED: DTSBD142 00067 * MPRF DTSBD142 00068 * MERA DTSBD142 00069 * DTSBD142 00070 * REPORT RECORDS WRITTEN: DTSBD142 00071 * R907 ERROR REPORT RECORDS. DTSBD142 00072 * DTSBD142 00073 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBD142 00074 * T001 RECORDS DTSBD142 00075 * T031 RECORDS DTSBD142 00076 * DTSBD142 00077 * DTSBD142 00078 * MODULES CALLED: DTSBD142 00079 * DTSBU001 DATE CONVERSION/EDIT. DTSBD142 00080 * DTSBU004 QUARERLY SUMMARY REPORT REC. DTSBD142 00081 * DTSBU910 VSAM MASTER FILES I/O. DTSBD142 00082 * DTSBU927 VARIABLE LENGTH RECORDS BTC OUTPUT. DTSBD142 00083 * DTSBU941 VARIABLE LENGTH RECORDS INPUT 1. DTSBD142 00084 * DTSBU947 VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 2. DTSBD142 00085 * DTSBU983 BATCH WAGE TRANSACTION FILE INPUT/OUTPUT. DTSBD142 00086 * DTSBD142 00087 * DTSBD142 00088 ***** DTSBD142 00089 SKIP3 DTSBD142 00090 ENVIRONMENT DIVISION. DTSBD142 00091 DTSBD142 00092 DATA DIVISION. DTSBD142 00093 DTSBD142 00094 WORKING-STORAGE SECTION. DTSBD142 000945 77 PAN-VALET PICTURE X(24) VALUE '009DTSBD142 03/12/15'. DTSBD142 00095 77 PAN-VALET PICTURE X(24) VALUE '003DTSBD142 03/04/15'. DTSBD142 00096 77 PAN-VALET PICTURE X(24) VALUE '007DTSBD142 02/12/14'. DTSBD142 00097 77 PAN-VALET PICTURE X(24) VALUE '008DTSBD142 10/09/13'. DTSBD142 00098 77 PAN-VALET PICTURE X(24) VALUE '005DTSBD142 02/24/10'. DTSBD142 00099 DTSBD142 00100 01 WRK-AREA. DTSBD142 00101 05 W-ABEND-CD PIC S9(04) COMP VALUE +142.DTSBD142 00102 05 W-MOD-NAME PIC X(08) VALUE 'DTSBD142'.DTSBD142 00103 05 W-ABEND-MSG PIC X(60). DTSBD142 00104 DTSBD142 00105 05 W-TRACE-IND PIC X(01) VALUE SPACES. DTSBD142 00106 DTSBD142 00107 05 W-ERROR-IND PIC X(01). DTSBD142 00108 88 W-ERROR-YES-88 VALUE 'Y'. DTSBD142 00109 88 W-ERROR-NO-88 VALUE 'N'. DTSBD142 00110 DTSBD142 00111 05 W-CURR-RUN-DATE PIC S9(09) COMP-3. DTSBD142 00112 05 W-SYS-TIME PIC X(06) VALUE SPACES. DTSBD142 00113 05 W-SYS-DATE PIC X(08) VALUE SPACES. DTSBD142 00114 05 W-SYS-ABSTIME PIC S9(15) COMP-3. DTSBD142 00115 05 W-FIRST-LIAB-YRQ PIC S9(05) COMP-3. DTSBD142 00116 05 W-LAST-LIAB-YRQ PIC S9(05) COMP-3. DTSBD142 00117 05 W-LIAB-DATE PIC S9(09) COMP-3. DTSBD142 00118 05 W-ALL-NINES-QTR PIC S9(05) COMP-3 DTSBD142 00119 VALUE +99999. DTSBD142 00120 05 W-ALL-NINES-DATE PIC S9(09) COMP-3 DTSBD142 00121 VALUE +999999999. DTSBD142 00122 05 W-FOLLOWUP-DT PIC S9(09) COMP-3. DTSBD142 00123 05 W-RUN-DATE-DISP PIC X(10). DTSBD142 00124 DTSBD142 00125 05 W-T002-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD142 00126 05 W-MPRF-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD142 00127 05 W-MERA-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD142 00128 05 W-T001-LIAB-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD142 00129 05 W-T001-FILE-CLERK-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD142 00130 05 W-T031-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD142 00131 05 W-R907-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD142 00132 DTSBD142 00133 05 MSG1-AREA. DTSBD142 00134 10 MSG1-ID PIC X(03) VALUE '101'. DTSBD142 00135 10 MSG1-TEXT. DTSBD142 00136 15 FILLER PIC X(30) DTSBD142 00137 VALUE 'TOTAL WAGES DO NOT = REPORTED'. DTSBD142 00138 15 FILLER PIC X(30) DTSBD142 00139 VALUE ' TOTAL WAGES OR NO WAGES RECS '. DTSBD142 00140 15 FILLER PIC X(02) VALUE SPACES. DTSBD142 00141 15 MSG1-TRACE-NO PIC 9(13). DTSBD142 00142 DTSBD142 00143 01 T002-REC. DTSBD142 00144 ++INCLUDE DTSIT002 DTSBD142 00145 DTSBD142 00146 01 Y104-REC. DTSBD142 00147 ++INCLUDE DTSIY104 DTSBD142 00148 DTSBD142 00149 01 R907-REC. DTSBD142 00150 ++INCLUDE DTSIR907 DTSBD142 00151 DTSBD142 00152 01 L001-LINK-AREA. DTSBD142 00153 ++INCLUDE DTSIL001 DTSBD142 00154 EJECT DTSBD142 00155 01 L003-LINK-AREA. DTSBD142 00156 ++INCLUDE DTSIL003 DTSBD142 00157 EJECT DTSBD142 00158 01 L004-LINK-AREA. DTSBD142 00159 ++INCLUDE DTSIL004 DTSBD142 00160 EJECT DTSBD142 00161 01 L005-COMM-AREA. DTSBD142 00162 ++INCLUDE DTSIL005 DTSBD142 00163 EJECT DTSBD142 00164 01 L331-LINK-AREA. DTSBD142 00165 ++INCLUDE DTSIL331 DTSBD142 00166 EJECT DTSBD142 00167 01 L910-LINK-AREA. DTSBD142 00168 ++INCLUDE DTSIL910 DTSBD142 00169 EJECT DTSBD142 00170 01 MSKL-REC. DTSBD142 00171 ++INCLUDE DTSIMSKL DTSBD142 00172 EJECT DTSBD142 00173 01 MHDR-REC. DTSBD142 00174 ++INCLUDE DTSIMHDR DTSBD142 00175 EJECT DTSBD142 00176 01 MPRF-REC. DTSBD142 00177 ++INCLUDE DTSIMPRF DTSBD142 00178 EJECT DTSBD142 00179 01 MERA-REC. DTSBD142 00180 ++INCLUDE DTSIMERA DTSBD142 00181 EJECT DTSBD142 00182 01 MSOL-REC. DTSBD142 00183 ++INCLUDE DTSIMSOL DTSBD142 00184 EJECT DTSBD142 00185 01 MERD-REC. DTSBD142 00186 ++INCLUDE DTSIMERD DTSBD142 00187 EJECT DTSBD142 00188 01 MEVL-REC. DTSBD142 00189 ++INCLUDE DTSIMEVL DTSBD142 00190 EJECT DTSBD142 00191 01 MFSC-REC. DTSBD142 00192 ++INCLUDE DTSIMFSC DTSBD142 00193 EJECT DTSBD142 00194 01 MTCK-REC. DTSBD142 00195 ++INCLUDE DTSIMTCK DTSBD142 00196 EJECT DTSBD142 00197 01 RSKL-REC. DTSBD142 00198 ++INCLUDE DTSIRSK3 DTSBD142 00199 EJECT DTSBD142 00200 01 T001-REC. DTSBD142 00201 ++INCLUDE DTSIT001 DTSBD142 00202 DTSBD142 00203 01 T031-REC. DTSBD142 00204 ++INCLUDE DTSIT031 DTSBD142 00205 DTSBD142 00206 LINKAGE SECTION. DTSBD142 00207 01 L142-LINK-AREA. DTSBD142 00208 ++INCLUDE DTSIL142 DTSBD142 00209 DTSBD142 00210 01 TSKL-REC. DTSBD142 00211 ++INCLUDE DTSITSKL DTSBD142 00212 DTSBD142 00213 PROCEDURE DIVISION USING DTSBD142 00214 L142-LINK-AREA DTSBD142 00215 TSKL-REC. DTSBD142 00216 DTSBD142 00217 EVALUATE TRUE DTSBD142 00218 WHEN L142-INITIATE-88 DTSBD142 00219 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBD142 00220 DTSBD142 00221 WHEN L142-PROCESS-88 DTSBD142 00222 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBD142 00223 DTSBD142 00224 WHEN L142-TERMINATE-88 DTSBD142 00225 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBD142 00226 DTSBD142 00227 END-EVALUATE. DTSBD142 00228 DTSBD142 00229 GOBACK. DTSBD142 00230 EJECT DTSBD142 00231 I0000-INITIALIZE. DTSBD142 00232 *& DTSBD142 00233 DISPLAY 'DTSBD142 - INITIALIZE'. DTSBD142 00234 *& DTSBD142 00235 PERFORM I1000-SYS-DATE THRU I1000-EXIT. DTSBD142 00236 MOVE L142-CURR-RUN-DATE TO W-CURR-RUN-DATE DTSBD142 00237 L001-FED-8-DATE-9. DTSBD142 00238 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBD142 00239 MOVE L001-SLASH-8-DATE TO W-RUN-DATE-DISP. DTSBD142 00240 DTSBD142 00241 I0000-EXIT. DTSBD142 00242 EXIT. DTSBD142 00243 DTSBD142 00244 I1000-SYS-DATE. DTSBD142 00245 SET L005-FROM-SYS TO TRUE. DTSBD142 00246 PERFORM S005-SYS-DATE THRU S005-EXIT. DTSBD142 00247 MOVE L005-DATE TO W-SYS-DATE. DTSBD142 00248 MOVE L005-TIME TO W-SYS-TIME. DTSBD142 00249 MOVE L005-ABSTIME TO W-SYS-ABSTIME. DTSBD142 00250 DTSBD142 00251 I1000-EXIT. DTSBD142 00252 EXIT. DTSBD142 00253 DTSBD142 00254 DTSBD142 00255 *************************************************************** DTSBD142 00256 *************************************************************** DTSBD142 00257 DTSBD142 00258 P0000-PROCESS. DTSBD142 00259 SET W-ERROR-NO-88 TO TRUE. DTSBD142 00260 ADD +1 TO W-T002-CNT. DTSBD142 00261 IF TSKL-AUTO-EMP-STATUS-88 DTSBD142 00262 MOVE TSKL-REC TO T002-REC DTSBD142 00263 IF T002-DETERM-88 DTSBD142 00264 MOVE T002-DATA-AREA TO Y104-REC DTSBD142 00265 PERFORM P1000-ADD-MPRF THRU P1000-EXIT DTSBD142 00266 IF W-ERROR-NO-88 DTSBD142 00267 PERFORM P2000-ADD-MERA THRU P2000-EXIT DTSBD142 00268 PERFORM P3000-ADD-MEVL THRU P3000-EXIT DTSBD142 00269 PERFORM P4000-CHK-MFSC THRU P4000-EXIT DTSBD142 00270 PERFORM P5000-ADD-T031 THRU P5000-EXIT DTSBD142 00271 END-IF DTSBD142 00272 END-IF DTSBD142 00273 END-IF. DTSBD142 00274 DTSBD142 00275 DTSBD142 00276 P0000-EXIT. DTSBD142 00277 EXIT. DTSBD142 00278 DTSBD142 00279 P1000-ADD-MPRF. DTSBD142 00280 *& DTSBD142 00281 DISPLAY 'BD142 P1000 ' T002-EMP-NO. DTSBD142 00282 *& DTSBD142 00283 DTSBD142 00284 ************************************* DTSBD142 00285 * CHECK FOR DUPLICATE DTSBD142 00286 ************************************* DTSBD142 00287 MOVE LOW-VALUES TO MPRF-REC. DTSBD142 00288 MOVE T002-EMP-NO TO MPRF-EMP-NO. DTSBD142 00289 SET MPRF-PRF-88 TO TRUE. DTSBD142 00290 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. DTSBD142 00291 PERFORM S910-READ THRU S910-EXIT. DTSBD142 00292 IF L910-OK-88 DTSBD142 00293 DISPLAY 'ACCOUNT NBR ALREADY ON FILE: ' DTSBD142 00294 T002-EMP-NO ' ' Y104-FEIN ' SOURCE: ' DTSBD142 00295 Y104-SOURCE-CD DTSBD142 00296 SET W-ERROR-YES-88 TO TRUE DTSBD142 00297 GO TO P1000-EXIT DTSBD142 00298 END-IF. DTSBD142 00299 DTSBD142 00300 MOVE LOW-VALUES TO MPRF-REC. DTSBD142 00301 DTSBD142 00302 MOVE T002-EMP-NO TO MPRF-EMP-NO. DTSBD142 00303 DTSBD142 00304 SET MPRF-PRF-88 TO TRUE. DTSBD142 00305 DTSBD142 00306 MOVE +0 TO MPRF-PURGE-DATE. DTSBD142 00307 DTSBD142 00308 PERFORM P1100-CLASS-STATUS THRU P1100-EXIT. DTSBD142 00309 DTSBD142 00310 IF Y104-SOURCE-FEIN-LIST-88 DTSBD142 00311 SET MPRF-ELIGIBLE-NOT-SUBJECT-88 TO TRUE DTSBD142 00312 ELSE DTSBD142 00313 MOVE Y104-ELIG-CD TO MPRF-ELIGIBLE-CD DTSBD142 00314 END-IF. DTSBD142 00315 DTSBD142 00316 IF Y104-TRADE-NAME = SPACES DTSBD142 00317 MOVE Y104-ENTITY-NAME TO MPRF-PRIMARY-NAME DTSBD142 00318 SET MPRF-PRIMARY-IS-ENTITY-88 TO TRUE DTSBD142 00319 MOVE SPACES TO MPRF-ENTITY-NAME DTSBD142 00320 ELSE DTSBD142 00321 MOVE Y104-TRADE-NAME TO MPRF-PRIMARY-NAME DTSBD142 00322 MOVE Y104-ENTITY-NAME TO MPRF-ENTITY-NAME DTSBD142 00323 SET MPRF-PRIMARY-IS-NOT-ENTITY-88 TO TRUE DTSBD142 00324 END-IF. DTSBD142 00325 DTSBD142 00326 SET MPRF-UC30-MASS-MAIL-YES-88 TO TRUE. DTSBD142 00327 DTSBD142 00328 SET MPRF-UC30-CREDIT-YES-88 TO TRUE. DTSBD142 00329 DTSBD142 00330 SET MPRF-FEIN-HARASS-YES-88 TO TRUE. DTSBD142 00331 DTSBD142 00332 SET MPRF-CHRG-STMT-PRINT-YES-88 TO TRUE. DTSBD142 00333 DTSBD142 00334 SET MPRF-DC-CONTRACTOR-NO-88 TO TRUE. DTSBD142 00335 DTSBD142 00336 MOVE Y104-ORG-TYPE TO MPRF-ORG-TYPE. DTSBD142 00337 DTSBD142 00338 SET MPRF-FISC-AG-NONE-88 TO TRUE. DTSBD142 00339 DTSBD142 00340 MOVE Y104-FEIN TO MPRF-FEIN. DTSBD142 00341 DTSBD142 00342 MOVE +0 TO MPRF-DC-BUSINESS-TAX-ACCT-NO. DTSBD142 00343 DTSBD142 00344 SET MPRF-SUSPEND-COLL-NO-88 TO TRUE. DTSBD142 00345 DTSBD142 00346 SET MPRF-NOT-WRITTEN-OFF-88 TO TRUE. DTSBD142 00347 DTSBD142 00348 SET MPRF-PURGE-ALL-NO-88 TO TRUE. DTSBD142 00349 DTSBD142 00350 SET MPRF-SIC-CD-NONCLASSIF-88 TO TRUE. DTSBD142 00351 DTSBD142 00352 MOVE SPACES TO MPRF-OLD-SIC-CD. DTSBD142 00353 DTSBD142 00354 MOVE +0 TO MPRF-SIC-CHNG-DATE. DTSBD142 00355 DTSBD142 00356 SET MPRF-SIC-AUX-UNK-88 TO TRUE. DTSBD142 00357 DTSBD142 00358 * SET MPRF-NAICS-CD-NONCLASSIF-88 TO TRUE. DTSBD142 00359 MOVE Y104-NAICS TO MPRF-NAICS-CD. DTSBD142 00360 DISPLAY ' >>>>>>>>>>>> ESSP NAICS ' Y104-NAICS. DTSBD142 00361 DISPLAY ' <<<<<<<<<<<< MPRF NAICS ' MPRF-NAICS-CD. DTSBD142 00362 DTSBD142 00363 MOVE SPACES TO MPRF-OLD-NAICS-CD. DTSBD142 00364 DTSBD142 00365 MOVE W-CURR-RUN-DATE TO MPRF-NAICS-CHNG-DATE. DTSBD142 00366 DTSBD142 00367 SET MPRF-NAICS-AUX-UNK-88 TO TRUE. DTSBD142 00368 DTSBD142 00369 SET MPRF-OWN-CD-NONCLASSIF-88 TO TRUE. DTSBD142 00370 DTSBD142 00371 MOVE SPACES TO MPRF-OLD-OWN-CD. DTSBD142 00372 DTSBD142 00373 MOVE +0 TO MPRF-OWN-CHNG-DATE. DTSBD142 00374 DTSBD142 00375 SET MPRF-SINGLE-UNIT-88 TO TRUE. DTSBD142 00376 DTSBD142 00377 SET MPRF-WARD-UNKNOWN-88 TO TRUE. DTSBD142 00378 DTSBD142 00379 MOVE +0 TO MPRF-PURSUED-RPT-CNT. DTSBD142 00380 DTSBD142 00381 MOVE +0 TO MPRF-TOT-BALANCE-AMT. DTSBD142 00382 DTSBD142 00383 MOVE +0 TO MPRF-TOT-CREDIT-AMT. DTSBD142 00384 DTSBD142 00385 SET MPRF-BANKRP-NOT-OPEN-88 TO TRUE. DTSBD142 00386 DTSBD142 00387 MOVE +0 TO MPRF-ARCHIVED-AUDIT-YRQ. DTSBD142 00388 DTSBD142 00389 MOVE 19941 TO MPRF-LAST-ARCHIVED-YRQ. DTSBD142 00390 DTSBD142 00391 SET MPRF-TAX-REC-ADDR-NO-88 TO TRUE. DTSBD142 00392 DTSBD142 00393 SET MPRF-BEN-MAIL-ADDR-NO-88 TO TRUE. DTSBD142 00394 DTSBD142 00395 SET MPRF-RETURN-MAIL-NO-88 TO TRUE. DTSBD142 00396 DTSBD142 00397 MOVE Y104-FIELD-ZIP TO MPRF-FLD-ZIP. DTSBD142 00398 MOVE Y104-FIELD-STATE TO MPRF-FLD-ST. DTSBD142 00399 DTSBD142 00400 SET MPRF-NO-MAPL-88 TO TRUE. DTSBD142 00401 DTSBD142 00402 SET MPRF-NO-MLIN-88 TO TRUE. DTSBD142 00403 DTSBD142 00404 SET MPRF-NO-MDPC-88 TO TRUE. DTSBD142 00405 DTSBD142 00406 SET MPRF-NO-MFAS-88 TO TRUE. DTSBD142 00407 DTSBD142 00408 SET MPRF-UPDATED-NEVER-88 TO TRUE. DTSBD142 00409 DTSBD142 00410 MOVE +0 TO MPRF-UPDATE-TASK-ID. DTSBD142 00411 DTSBD142 00412 MOVE SPACES TO MPRF-UPDATE-OP-ID. DTSBD142 00413 DTSBD142 00414 MOVE SPACES TO MPRF-UPDATE-TERMID. DTSBD142 00415 DTSBD142 00416 MOVE SPACES TO MPRF-UPDATE-NETNAME. DTSBD142 00417 DTSBD142 00418 MOVE +0 TO MPRF-UPDATE-START-DATE. DTSBD142 00419 DTSBD142 00420 MOVE SPACES TO MPRF-UPDATE-SCR-ID. DTSBD142 00421 DTSBD142 00422 MOVE SPACES TO MPRF-UPDATE-FUNCTION. DTSBD142 00423 DTSBD142 00424 SET MPRF-NOT-CONVERTED-88 TO TRUE. DTSBD142 00425 DTSBD142 00426 MOVE W-CURR-RUN-DATE TO MPRF-ESTB-DATE DTSBD142 00427 MPRF-CHNG-DATE. DTSBD142 00428 DTSBD142 00429 MOVE MPRF-REC TO MSKL-REC. DTSBD142 00430 DTSBD142 00431 PERFORM S910-WRITE THRU S910-EXIT. DTSBD142 00432 DTSBD142 00433 ADD +1 TO W-MPRF-CNT. DTSBD142 00434 DTSBD142 00435 P1000-EXIT. DTSBD142 00436 EXIT. DTSBD142 00437 DTSBD142 00438 P1100-CLASS-STATUS. DTSBD142 00439 MOVE Y104-LIAB-CD TO MSOL-LIAB-CD. DTSBD142 00440 DTSBD142 00441 EVALUATE TRUE DTSBD142 00442 WHEN Y104-STAFF-REVIEW-YES-88 DTSBD142 00443 SET MPRF-CLASS-UNK-88 TO TRUE DTSBD142 00444 SET MPRF-STATUS-UNK-88 TO TRUE DTSBD142 00445 DTSBD142 00446 WHEN MSOL-LIAB-REG-88 DTSBD142 00447 SET MPRF-CLASS-RATED-88 TO TRUE DTSBD142 00448 SET MPRF-STATUS-ACT-88 TO TRUE DTSBD142 00449 DTSBD142 00450 WHEN MSOL-LIAB-SELF-88 DTSBD142 00451 SET MPRF-CLASS-SELF-INS-88 TO TRUE DTSBD142 00452 SET MPRF-STATUS-ACT-88 TO TRUE DTSBD142 00453 DTSBD142 00454 WHEN MSOL-LIAB-CD = '00' DTSBD142 00455 SET MPRF-CLASS-UNK-88 TO TRUE DTSBD142 00456 SET MPRF-STATUS-NEVERSUB-88 TO TRUE DTSBD142 00457 DTSBD142 00458 WHEN OTHER DTSBD142 00459 SET MPRF-CLASS-UNK-88 TO TRUE DTSBD142 00460 SET MPRF-STATUS-UNK-88 TO TRUE DTSBD142 00461 DTSBD142 00462 END-EVALUATE. DTSBD142 00463 DTSBD142 00464 P1100-EXIT. DTSBD142 00465 EXIT. DTSBD142 00466 DTSBD142 00467 P2000-ADD-MERA. DTSBD142 00468 *& DTSBD142 00469 * DISPLAY 'BD142 P2000 ' T002-EMP-NO. DTSBD142 00470 *& DTSBD142 00471 MOVE LOW-VALUES TO MERA-REC. DTSBD142 00472 DTSBD142 00473 MOVE MPRF-EMP-NO TO MERA-EMP-NO. DTSBD142 00474 DTSBD142 00475 SET MERA-ERA-88 TO TRUE. DTSBD142 00476 DTSBD142 00477 MOVE +0 TO MERA-PURGE-DATE. DTSBD142 00478 DTSBD142 00479 MOVE Y104-SOURCE-CD TO MERA-SOURCE-CD. DTSBD142 00480 DTSBD142 00481 MOVE +0 TO MERA-CLAIMANT-SSN. DTSBD142 00482 DTSBD142 00483 MOVE SPACE TO MERA-CLAIMANT-NAME. DTSBD142 00484 DTSBD142 00485 MOVE SPACE TO MERA-RESPONSIBLE-OP-ID. DTSBD142 00486 DTSBD142 00487 MOVE +0 TO MERA-POT-PRED-EMP-NO. DTSBD142 00488 DTSBD142 00489 MOVE SPACE TO MERA-NOTE. DTSBD142 00490 DTSBD142 00491 SET MERA-LETTER-GENERIC-88 TO TRUE. DTSBD142 00492 DTSBD142 00493 SET MERA-FIRST-LABEL-NEEDED-88 TO TRUE. DTSBD142 00494 DTSBD142 00495 MOVE +1 TO MERA-LABEL-CNT. DTSBD142 00496 DTSBD142 00497 PERFORM P2100-STATUS THRU P2100-EXIT. DTSBD142 00498 DTSBD142 00499 IF MERA-SOURCE-FEIN-LIST-88 DTSBD142 00500 MOVE ZERO TO MERA-RECEIVED-DATE DTSBD142 00501 ELSE DTSBD142 00502 MOVE W-CURR-RUN-DATE TO MERA-RECEIVED-DATE DTSBD142 00503 END-IF. DTSBD142 00504 DTSBD142 00505 MOVE +0 TO MERA-MAIL-DATE-1 DTSBD142 00506 MERA-MAIL-DATE-2 DTSBD142 00507 MERA-COOP-AGENCY-REQ-DATE DTSBD142 00508 MERA-FIELD-ASSIGN-DATE DTSBD142 00509 MERA-DETER-NOTSUB-DATE. DTSBD142 00510 DTSBD142 00511 SET MERA-NOT-CONVERTED-88 TO TRUE. DTSBD142 00512 DTSBD142 00513 MOVE W-CURR-RUN-DATE TO MERA-ESTB-DATE DTSBD142 00514 MERA-CHNG-DATE. DTSBD142 00515 DTSBD142 00516 MOVE MERA-REC TO MSKL-REC. DTSBD142 00517 DTSBD142 00518 PERFORM S910-WRITE THRU S910-EXIT. DTSBD142 00519 DTSBD142 00520 ADD +1 TO W-MERA-CNT. DTSBD142 00521 DTSBD142 00522 P2000-EXIT. DTSBD142 00523 EXIT. DTSBD142 00524 DTSBD142 00525 P2100-STATUS. DTSBD142 00526 MOVE W-CURR-RUN-DATE TO MERA-STATUS-CHNG-DATE. DTSBD142 00527 DTSBD142 00528 EVALUATE TRUE DTSBD142 00529 WHEN MERA-SOURCE-UC30-88 DTSBD142 00530 SET MERA-STATUS-SETUP-88 TO TRUE DTSBD142 00531 DTSBD142 00532 WHEN MERA-SOURCE-FEIN-LIST-88 DTSBD142 00533 SET MERA-STATUS-SETUP-88 TO TRUE DTSBD142 00534 DTSBD142 00535 WHEN Y104-STAFF-REVIEW-YES-88 DTSBD142 00536 OR Y104-LIAB-CD = ' ' DTSBD142 00537 SET MERA-STATUS-MANUAL-88 TO TRUE DTSBD142 00538 DTSBD142 00539 WHEN Y104-LIAB-CD = '00' DTSBD142 00540 SET MERA-STATUS-NOT-LIAB-88 TO TRUE DTSBD142 00541 DTSBD142 00542 WHEN OTHER DTSBD142 00543 SET MERA-STATUS-LIAB-88 TO TRUE DTSBD142 00544 DTSBD142 00545 END-EVALUATE. DTSBD142 00546 DTSBD142 00547 P2100-EXIT. DTSBD142 00548 EXIT. DTSBD142 00549 DTSBD142 00550 P3000-ADD-MEVL. DTSBD142 00551 MOVE LOW-VALUES TO MEVL-REC. DTSBD142 00552 DTSBD142 00553 MOVE MPRF-EMP-NO TO MEVL-EMP-NO. DTSBD142 00554 DTSBD142 00555 SET MEVL-EVL-88 TO TRUE. DTSBD142 00556 DTSBD142 00557 MOVE L005-DATE TO MEVL-DATE. DTSBD142 00558 DTSBD142 00559 MOVE L005-TIME TO MEVL-TIME. DTSBD142 00560 DTSBD142 00561 MOVE +0 TO MEVL-PURGE-DATE. DTSBD142 00562 DTSBD142 00563 IF MERA-SOURCE-FEIN-LIST-88 DTSBD142 00564 MOVE 'FUTA QUARTERLY EIN' TO MEVL-TEXT DTSBD142 00565 MOVE 'FUTA EIN' TO MEVL-SOURCE DTSBD142 00566 ELSE DTSBD142 00567 MOVE 'WEB REGISTRATION' TO MEVL-TEXT DTSBD142 00568 MOVE 'WEB REG' TO MEVL-SOURCE DTSBD142 00569 END-IF. DTSBD142 00570 DTSBD142 00571 DTSBD142 00572 SET MEVL-NOT-CONVERTED-88 TO TRUE. DTSBD142 00573 DTSBD142 00574 MOVE W-CURR-RUN-DATE TO MEVL-ESTB-DATE DTSBD142 00575 MEVL-CHNG-DATE. DTSBD142 00576 DTSBD142 00577 MOVE MEVL-REC TO MSKL-REC. DTSBD142 00578 DTSBD142 00579 PERFORM S910-WRITE THRU S910-EXIT. DTSBD142 00580 DTSBD142 00581 P3000-EXIT. DTSBD142 00582 EXIT. DTSBD142 00583 DTSBD142 00584 P4000-CHK-MFSC. DTSBD142 00585 IF Y104-ORG-HOUSEHOLD-88 DTSBD142 00586 IF Y104-HH-ANNUAL-88 DTSBD142 00587 OR Y104-HH-QUARTERLY-88 DTSBD142 00588 PERFORM P4100-ADD-MFSC THRU P4100-EXIT DTSBD142 00589 END-IF DTSBD142 00590 END-IF. DTSBD142 00591 DTSBD142 00592 P4000-EXIT. DTSBD142 00593 EXIT. DTSBD142 00594 DTSBD142 00595 P4100-ADD-MFSC. DTSBD142 00596 MOVE Y104-FIRST-WAGE-DT TO L004-DATE DTSBD142 00597 PERFORM S004-FROM-DATE THRU S004-EXIT DTSBD142 00598 IF Y104-HH-ANNUAL-88 DTSBD142 00599 MOVE 1 TO L004-QTR-5-Q DTSBD142 00600 PERFORM S004-FROM-5 THRU S004-EXIT DTSBD142 00601 END-IF. DTSBD142 00602 DTSBD142 00603 DISPLAY 'BD142 ANN ' MPRF-EMP-NO DTSBD142 00604 ' ANN ' Y104-HOUSEHOLD-FILING DTSBD142 00605 ' LIAB ' Y104-FIRST-WAGE-DT DTSBD142 00606 ' QTR ' L004-QTR-5-9. DTSBD142 00607 DTSBD142 00608 MOVE LOW-VALUES TO MFSC-REC. DTSBD142 00609 MOVE MPRF-EMP-NO TO MFSC-EMP-NO. DTSBD142 00610 SET MFSC-FSC-88 TO TRUE. DTSBD142 00611 MOVE L004-ABS-QTR TO MFSC-ABS-QTR. DTSBD142 00612 MOVE W-SYS-ABSTIME TO MFSC-ABSTIME. DTSBD142 00613 MOVE +0 TO MFSC-PURGE-DATE. DTSBD142 00614 SET MFSC-STATUS-OPEN-88 TO TRUE. DTSBD142 00615 MOVE L004-QTR-5-9 TO MFSC-START-YRQ. DTSBD142 00616 MOVE W-ALL-NINES-QTR TO MFSC-END-YRQ. DTSBD142 00617 MOVE Y104-HOUSEHOLD-FILING TO MFSC-FILING-SCHEDULE-CD. DTSBD142 00618 SET MFSC-REQ-LIAB-DETERM-88 TO TRUE. DTSBD142 00619 MOVE SPACES TO MFSC-CHANGE-REASON-CD DTSBD142 00620 MFSC-INIT-NOTICE-TYPE DTSBD142 00621 MFSC-CONFIRM-NOTICE-TYPE DTSBD142 00622 MFSC-DENIAL-NOTICE-TYPE. DTSBD142 00623 MOVE ZERO TO MFSC-INITIAL-MAIL-DATE DTSBD142 00624 MFSC-CONFIRM-MAIL-DATE DTSBD142 00625 MFSC-DENIAL-MAIL-DATE. DTSBD142 00626 MOVE W-CURR-RUN-DATE TO MFSC-ESTB-DATE DTSBD142 00627 MFSC-CHNG-DATE. DTSBD142 00628 MOVE 'WEB REG' TO MFSC-CHNG-OP-ID. DTSBD142 00629 MOVE +0 TO MFSC-NOTE-CNT. DTSBD142 00630 DTSBD142 00631 MOVE MFSC-REC TO MSKL-REC. DTSBD142 00632 DTSBD142 00633 PERFORM S910-WRITE THRU S910-EXIT. DTSBD142 00634 DTSBD142 00635 P4100-EXIT. DTSBD142 00636 EXIT. DTSBD142 00637 DTSBD142 00638 P5000-ADD-T031. DTSBD142 00639 IF MERA-STATUS-LIAB-88 DTSBD142 00640 PERFORM P5100-LIABLE THRU P5100-EXIT DTSBD142 00641 ELSE DTSBD142 00642 IF MERA-SOURCE-FEIN-LIST-88 DTSBD142 00643 PERFORM P5300-POTENTIAL-EMP THRU P5300-EXIT DTSBD142 00644 *** ELSE DTSBD142 00645 *** PERFORM P5200-NOT-LIABLE THRU P5200-EXIT DTSBD142 00646 END-IF. DTSBD142 00647 DTSBD142 00648 P5000-EXIT. DTSBD142 00649 EXIT. DTSBD142 00650 DTSBD142 00651 P5100-LIABLE. DTSBD142 00652 *& DTSBD142 00653 DISPLAY 'BD142 P5100 ' T002-EMP-NO. DTSBD142 00654 *& DTSBD142 00655 MOVE ZERO TO W-FIRST-LIAB-YRQ DTSBD142 00656 W-LAST-LIAB-YRQ. DTSBD142 00657 IF Y104-FIRST-WAGE-DT = ZERO DTSBD142 00658 DISPLAY 'LIABLE EMPLOYER BUT NO FIRST WAGE DT ' DTSBD142 00659 MPRF-EMP-NO DTSBD142 00660 GO TO P5100-EXIT DTSBD142 00661 END-IF. DTSBD142 00662 DTSBD142 00663 PERFORM P5110-LIAB-DATES THRU P5110-EXIT. DTSBD142 00664 DTSBD142 00665 PERFORM P5910-INITIALIZE-T031 THRU P5910-EXIT. DTSBD142 00666 MOVE MPRF-EMP-NO TO T031-EMP-NO. DTSBD142 00667 SET T031-AUTO-PROCESS TO TRUE. DTSBD142 00668 MOVE W-FIRST-LIAB-YRQ TO T031-START-YRQ DTSBD142 00669 MOVE W-LAST-LIAB-YRQ TO T031-END-YRQ DTSBD142 00670 MOVE ZERO TO T031-WAIVER-START-YRQ DTSBD142 00671 T031-WAIVER-END-YRQ DTSBD142 00672 T031-WAIVER-EXT-DATE. DTSBD142 00673 MOVE T031-REC TO RSKL-REC. DTSBD142 00674 DTSBD142 00675 PERFORM S946-WRITE-TRANS THRU S946-EXIT. DTSBD142 00676 ADD +1 TO W-T031-CNT. DTSBD142 00677 DTSBD142 00678 *& DTSBD142 00679 DISPLAY 'BD142 P5100 ' T002-EMP-NO DTSBD142 00680 ' T031 FIRST ' T031-START-YRQ DTSBD142 00681 ' T031 LAST ' T031-END-YRQ. DTSBD142 00682 *& DTSBD142 00683 P5100-EXIT. DTSBD142 00684 EXIT. DTSBD142 00685 DTSBD142 00686 P5110-LIAB-DATES. DTSBD142 00687 MOVE Y104-FIRST-WAGE-DT TO L004-DATE. DTSBD142 00688 PERFORM S004-FROM-DATE THRU S004-EXIT DTSBD142 00689 IF NOT L004-VALID-QTR DTSBD142 00690 DISPLAY 'P5110: INVALID FIRST WAGE DATE ' DTSBD142 00691 MPRF-EMP-NO ' ' Y104-FIRST-WAGE-DT DTSBD142 00692 *** SET W-ERROR-YES-88 TO TRUE DTSBD142 00693 ELSE DTSBD142 00694 MOVE L004-QTR-5-9 TO W-FIRST-LIAB-YRQ DTSBD142 00695 MOVE W-ALL-NINES-QTR TO W-LAST-LIAB-YRQ DTSBD142 00696 MOVE Y104-FIRST-WAGE-DT TO W-LIAB-DATE DTSBD142 00697 *& DTSBD142 00698 DISPLAY 'BD142 P5110 ' T002-EMP-NO DTSBD142 00699 ' FIRST LIAB ' W-FIRST-LIAB-YRQ DTSBD142 00700 ' LAST LIAB ' W-LAST-LIAB-YRQ DTSBD142 00701 *& DTSBD142 00702 END-IF. DTSBD142 00703 DTSBD142 00704 P5110-EXIT. DTSBD142 00705 EXIT. DTSBD142 00706 DTSBD142 00707 *P5200-NOT-LIABLE. DTSBD142 00708 * MOVE ZERO TO W-FOLLOWUP-DT. DTSBD142 00709 * DTSBD142 00710 * IF T002-WAGES-PLANNED-DT > ZERO DTSBD142 00711 * MOVE T002-WAGES-PLANNED-DT TO W-FOLLOWUP-DT DTSBD142 00712 * ELSE DTSBD142 00713 * IF T002-500-PLANNED-QTR > ZERO DTSBD142 00714 * MOVE T002-500-PLANNED-QTR TO L004-QTR-5-9 DTSBD142 00715 * PERFORM S004-FROM-5 THRU S004-EXIT DTSBD142 00716 * IF L004-VALID-QTR DTSBD142 00717 * MOVE L004-QTR-END-DATE TO L001-FED-8-DATE-9 DTSBD142 00718 * PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBD142 00719 * ADD +60 TO L001-JUL-ABS-DAY DTSBD142 00720 * PERFORM S001-FROM-ABS-DAY THRU S001-EXIT DTSBD142 00721 * MOVE L001-FED-8-DATE-9 TO W-FOLLOWUP-DT DTSBD142 00722 * END-IF DTSBD142 00723 * END-IF DTSBD142 00724 * END-IF. DTSBD142 00725 * DTSBD142 00726 * IF W-FOLLOWUP-DT > ZERO DTSBD142 00727 * PERFORM P5210-TICKLER THRU P5210-EXIT DTSBD142 00728 * END-IF. DTSBD142 00729 * DTSBD142 00730 *P5200-EXIT. DTSBD142 00731 * EXIT. DTSBD142 00732 * DTSBD142 00733 *P5210-TICKLER. DTSBD142 00734 * MOVE LOW-VALUES TO MTCK-REC DTSBD142 00735 * MOVE MPRF-EMP-NO TO MTCK-EMP-NO DTSBD142 00736 * SET MTCK-TCK-88 TO TRUE DTSBD142 00737 * ADD +1000 TO L005-ABSTIME. DTSBD142 00738 * MOVE L005-ABSTIME TO MTCK-ESTB-ABSTIME DTSBD142 00739 * MOVE +0 TO MTCK-PURGE-DATE DTSBD142 00740 * SET MTCK-TYPE-MANUAL-88 TO TRUE DTSBD142 00741 * MOVE W-FOLLOWUP-DT TO MTCK-TRIGGER-DATE DTSBD142 00742 * MOVE +0 TO MTCK-ACKNOWLEDGED-DATE DTSBD142 00743 * MOVE W-MOD-NAME TO MTCK-SOURCE-OP-ID DTSBD142 00744 * MOVE 'STATUS' TO MTCK-DEST-OP-ID DTSBD142 00745 * SET MTCK-NOT-CONVERTED-88 TO TRUE DTSBD142 00746 * MOVE W-CURR-RUN-DATE TO MTCK-ESTB-DATE DTSBD142 00747 * MTCK-CHNG-DATE DTSBD142 00748 * MOVE +1 TO MTCK-TEXT-CNT DTSBD142 00749 * MOVE SPACES TO MTCK-TEXT (1) DTSBD142 00750 * STRING 'WEB REGISTRATION - WAGES NOT YET PAID ' DTSBD142 00751 * DELIMITED BY SIZE DTSBD142 00752 * W-RUN-DATE-DISP DTSBD142 00753 * DELIMITED BY SIZE DTSBD142 00754 * '. FOLLOW UP?' DTSBD142 00755 * DELIMITED BY SIZE DTSBD142 00756 * INTO DTSBD142 00757 * MTCK-TEXT (1) DTSBD142 00758 * MOVE MTCK-REC TO MSKL-REC DTSBD142 00759 * PERFORM S910-WRITE THRU S910-EXIT. DTSBD142 00760 * DTSBD142 00761 *P5210-EXIT. DTSBD142 00762 * EXIT. DTSBD142 00763 DTSBD142 00764 P5300-POTENTIAL-EMP. DTSBD142 00765 *& DTSBD142 00766 DISPLAY 'BD142 P5300 ' MPRF-EMP-NO. DTSBD142 00767 *& DTSBD142 00768 MOVE LOW-VALUES TO MTCK-REC DTSBD142 00769 MOVE MPRF-EMP-NO TO MTCK-EMP-NO DTSBD142 00770 SET MTCK-TCK-88 TO TRUE DTSBD142 00771 ADD +1000 TO L005-ABSTIME. DTSBD142 00772 MOVE L005-ABSTIME TO MTCK-ESTB-ABSTIME DTSBD142 00773 MOVE +0 TO MTCK-PURGE-DATE DTSBD142 00774 SET MTCK-TYPE-CYCLE-A-88 TO TRUE DTSBD142 00775 MOVE W-CURR-RUN-DATE TO MTCK-TRIGGER-DATE DTSBD142 00776 MOVE +0 TO MTCK-ACKNOWLEDGED-DATE DTSBD142 00777 SET MTCK-SOURCE-SYSTEM-88 TO TRUE. DTSBD142 00778 SET MTCK-DEST-SYSTEM-88 TO TRUE. DTSBD142 00779 SET MTCK-NOT-CONVERTED-88 TO TRUE DTSBD142 00780 MOVE W-CURR-RUN-DATE TO MTCK-ESTB-DATE DTSBD142 00781 MTCK-CHNG-DATE DTSBD142 00782 MOVE +0 TO MTCK-TEXT-CNT DTSBD142 00783 DTSBD142 00784 MOVE MTCK-REC TO MSKL-REC DTSBD142 00785 PERFORM S910-WRITE THRU S910-EXIT. DTSBD142 00786 DTSBD142 00787 P5300-EXIT. DTSBD142 00788 EXIT. DTSBD142 00789 DTSBD142 00790 P5900-INITIALIZE-T001. DTSBD142 00791 MOVE LENGTH OF T001-REC TO T001-LENGTH. DTSBD142 00792 MOVE 'WEB REG' TO T001-OP-ID. DTSBD142 00793 MOVE SPACES TO T001-SCR-ID. DTSBD142 00794 MOVE L005-DATE TO T001-SYS-DATE. DTSBD142 00795 MOVE L005-TIME TO T001-SYS-TIME. DTSBD142 00796 MOVE SPACES TO T001-RESP-OP-ID. DTSBD142 00797 MOVE SPACES TO T001-INACT-LTR-TYPE DTSBD142 00798 T001-NOT-LIABLE-LTR-TYPE DTSBD142 00799 T001-WELCOME-LTR-IND. DTSBD142 00800 DTSBD142 00801 P5900-EXIT. DTSBD142 00802 EXIT. DTSBD142 00803 DTSBD142 00804 P5910-INITIALIZE-T031. DTSBD142 00805 MOVE LENGTH OF T031-REC TO T031-LENGTH. DTSBD142 00806 MOVE 'WEB REG' TO T031-OP-ID. DTSBD142 00807 MOVE SPACES TO T031-SCR-ID. DTSBD142 00808 MOVE L005-DATE TO T031-SYS-DATE. DTSBD142 00809 MOVE L005-TIME TO T031-SYS-TIME. DTSBD142 00810 MOVE +0 TO T031-START-YRQ DTSBD142 00811 T031-END-YRQ DTSBD142 00812 T031-WAIVER-START-YRQ DTSBD142 00813 T031-WAIVER-END-YRQ DTSBD142 00814 T031-WAIVER-EXT-DATE. DTSBD142 00815 SET T031-TRANSFER-NO-88 TO TRUE. DTSBD142 00816 MOVE +0 TO T031-TRANSFER-TO-EMP-NO. DTSBD142 00817 DTSBD142 00818 P5910-EXIT. DTSBD142 00819 EXIT. DTSBD142 00820 DTSBD142 00821 T0000-TERMINATE. DTSBD142 00822 DTSBD142 00823 DISPLAY ' '. DTSBD142 00824 DISPLAY ' '. DTSBD142 00825 DTSBD142 00826 DISPLAY '*** DTSBD142 TERMINATION STATISTICS ***'. DTSBD142 00827 DTSBD142 00828 DISPLAY ' '. DTSBD142 00829 DISPLAY 'T002 INPUT COUNT :' DTSBD142 00830 W-T002-CNT. DTSBD142 00831 DTSBD142 00832 DISPLAY ' '. DTSBD142 00833 DISPLAY 'MPRF ADDED COUNT :' DTSBD142 00834 W-MPRF-CNT. DTSBD142 00835 DTSBD142 00836 DISPLAY ' '. DTSBD142 00837 DISPLAY 'MERA ADDED COUNT :' DTSBD142 00838 W-MERA-CNT. DTSBD142 00839 DTSBD142 00840 DISPLAY ' '. DTSBD142 00841 DISPLAY 'T001 LIABLE COUNT :' DTSBD142 00842 W-T001-LIAB-CNT. DTSBD142 00843 DTSBD142 00844 DISPLAY 'T001 FILE CLERK LIST COUNT :' DTSBD142 00845 W-T001-FILE-CLERK-CNT. DTSBD142 00846 DTSBD142 00847 DISPLAY ' '. DTSBD142 00848 DISPLAY 'T031 QUARTER PROCESS COUNT :' DTSBD142 00849 W-T031-CNT. DTSBD142 00850 DTSBD142 00851 DISPLAY ' '. DTSBD142 00852 DISPLAY 'R907 ERROR REPORT RECORD COUNT :' DTSBD142 00853 W-R907-CNT. DTSBD142 00854 DTSBD142 00855 T0000-EXIT. DTSBD142 00856 EXIT. DTSBD142 00857 DTSBD142 00858 S1000-INIT-MLOG. DTSBD142 00859 MOVE T002-EMP-NO TO L331-EMP-NO. DTSBD142 00860 MOVE W-CURR-RUN-DATE TO L331-CURR-RUN-DATE. DTSBD142 00861 ADD +1000 TO W-SYS-ABSTIME. DTSBD142 00862 MOVE W-SYS-ABSTIME TO L331-UPDATE-ABSTIME. DTSBD142 00863 MOVE 'WEB REG' TO L331-OP-ID. DTSBD142 00864 SET L005-FROM-ABSTIME TO TRUE. DTSBD142 00865 MOVE W-SYS-ABSTIME TO L005-ABSTIME. DTSBD142 00866 PERFORM S005-SYS-DATE THRU S005-EXIT. DTSBD142 00867 MOVE L005-DATE-8-SLASH-TIME TO L331-REC-OCC-ID. DTSBD142 00868 DTSBD142 00869 S1000-EXIT. DTSBD142 00870 EXIT. DTSBD142 00871 DTSBD142 00872 S001-FROM-FED-8. DTSBD142 00873 SET L001-FROM-FED-8 TO TRUE. DTSBD142 00874 GO TO S001-DATE. DTSBD142 00875 DTSBD142 00876 S001-FROM-ABS-DAY. DTSBD142 00877 SET L001-FROM-ABS-DAY TO TRUE. DTSBD142 00878 GO TO S001-DATE. DTSBD142 00879 DTSBD142 00880 S001-FROM-CAL-6. DTSBD142 00881 SET L001-FROM-CAL-6 TO TRUE. DTSBD142 00882 GO TO S001-DATE. DTSBD142 00883 DTSBD142 00884 S001-DATE. DTSBD142 00885 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBD142 00886 S001-EXIT. DTSBD142 00887 EXIT. DTSBD142 00888 DTSBD142 00889 S003-AGENCY-DAY. DTSBD142 00890 SET L003-AGENCY-DAY TO TRUE. DTSBD142 00891 GO TO S003-WORK-DAY. DTSBD142 00892 DTSBD142 00893 S003-WORK-DAY. DTSBD142 00894 CALL 'DTSBU003' USING L003-LINK-AREA. DTSBD142 00895 S003-EXIT. DTSBD142 00896 EXIT. DTSBD142 00897 DTSBD142 00898 S004-FROM-DATE. DTSBD142 00899 SET L004-FROM-DATE TO TRUE. DTSBD142 00900 GO TO S004-YRQ. DTSBD142 00901 DTSBD142 00902 S004-FROM-5. DTSBD142 00903 SET L004-FROM-5 TO TRUE. DTSBD142 00904 GO TO S004-YRQ. DTSBD142 00905 DTSBD142 00906 S004-YRQ. DTSBD142 00907 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBD142 00908 DTSBD142 00909 S004-EXIT. DTSBD142 00910 EXIT. DTSBD142 00911 DTSBD142 00912 S005-SYS-DATE. DTSBD142 00913 CALL 'DTSBU005' USING L005-COMM-AREA. DTSBD142 00914 DTSBD142 00915 S005-EXIT. DTSBD142 00916 EXIT. DTSBD142 00917 DTSBD142 00918 S331-WRITE-MLOG. DTSBD142 00919 CALL 'DTSBU331' USING L331-LINK-AREA. DTSBD142 00920 DTSBD142 00921 S331-EXIT. DTSBD142 00922 EXIT. DTSBD142 00923 DTSBD142 00924 S910-OPEN-UPDATE. DTSBD142 00925 SET L910-OPEN-UPDATE-88 TO TRUE. DTSBD142 00926 GO TO S910-MSTR-IO. DTSBD142 00927 DTSBD142 00928 S910-READ. DTSBD142 00929 SET L910-READ-88 TO TRUE. DTSBD142 00930 GO TO S910-MSTR-IO. DTSBD142 00931 DTSBD142 00932 S910-START-BROWSE. DTSBD142 00933 SET L910-START-BROWSE-88 TO TRUE. DTSBD142 00934 GO TO S910-MSTR-IO. DTSBD142 00935 DTSBD142 00936 S910-READ-NEXT. DTSBD142 00937 SET L910-READ-NEXT-88 TO TRUE. DTSBD142 00938 GO TO S910-MSTR-IO. DTSBD142 00939 DTSBD142 00940 S910-COUNT. DTSBD142 00941 SET L910-COUNT-88 TO TRUE. DTSBD142 00942 GO TO S910-MSTR-IO. DTSBD142 00943 DTSBD142 00944 S910-WRITE. DTSBD142 00945 SET L910-WRITE-88 TO TRUE. DTSBD142 00946 GO TO S910-MSTR-IO. DTSBD142 00947 DTSBD142 00948 S910-REWRITE. DTSBD142 00949 SET L910-REWRITE-88 TO TRUE. DTSBD142 00950 GO TO S910-MSTR-IO. DTSBD142 00951 DTSBD142 00952 S910-CLOSE. DTSBD142 00953 SET L910-CLOSE-88 TO TRUE. DTSBD142 00954 GO TO S910-MSTR-IO. DTSBD142 00955 DTSBD142 00956 S910-MSTR-IO. DTSBD142 00957 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD142 00958 MSKL-REC. DTSBD142 00959 S910-EXIT. DTSBD142 00960 EXIT. DTSBD142 00961 DTSBD142 00962 S946-WRITE-TRANS. DTSBD142 00963 CALL 'DTSBU946' USING RSKL-REC. DTSBD142 00964 DTSBD142 00965 S946-EXIT. DTSBD142 00966 EXIT. DTSBD142 00967 DTSBD142 00968 S999-ABEND. DTSBD142 00969 DISPLAY '*** DTSBD142 ABENDING : ' DTSBD142 00970 W-ABEND-MSG. DTSBD142 00971 DTSBD142 00972 CALL 'DTSBU999' USING W-ABEND-CD. DTSBD142 00973 S999-EXIT. DTSBD142 00974 EXIT. DTSBD142