00001 IDENTIFICATION DIVISION. 02/07/12 00002 PROGRAM-ID. DTSBD314. DTSBD314 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV010 00004 DATE-WRITTEN. JULY 1994. DTSBD314 00005 DATE-COMPILED. DTSBD314 00006 SKIP3 DTSBD314 00007 ***** DTSBD314 00008 * DTSBD314 00009 * FUNCTION: CYCLE A PROCESSING. DTSBD314 00010 * DTSBD314 00011 * DTSBD314 00012 * MODIFICATION LOG: DTSBD314 00013 * DTSBD314 00014 * 07/28/94 FROM VERMONT TXBD316. DTSBD314 00015 * WORK ORDER: PROGRAMMER: RHC DTSBD314 00016 * DTSBD314 00017 * 03/11/95 CHANGE THE NUMBER OF DAYS BETWEEN STEP 3 AND STEP DTSBD314 00018 * 4 FROM 15 DAYS TO 30 DAYS. PER DREA. DTSBD314 00019 * WORK ORDER: PROGRAMMER: EHH DTSBD314 00020 * DTSBD314 00021 * 03/13/95 DON'T PRINT R104 WHEN NO IN-STATE FIELD REP. DTSBD314 00022 * WORK ORDER: CR049 PROGRAMMER: RHC DTSBD314 00023 * DTSBD314 00024 * 03/26/95 ADD THE LETTER 3 TICKLER STEP TO CYCLE A. REPLACE DTSBD314 00025 * THE FIELD ASSIGNMENT GENERATION WITH A TICKLER. DTSBD314 00026 * THE FIELD ASSIGNMENT GENERATION CODE IS COMMENTED DTSBD314 00027 * OUT (RATHER THAN BEING DELETED). DTSBD314 00028 * WORK ORDER: CR065 PROGRAMMER: EHH DTSBD314 00029 * DTSBD314 00030 * 06/13/96 RECOMPILED TO INCORPORATE CHANGES TO DTSIR901. DTSBD314 00031 * REFERENCE RFP: #WARP II PROGRAMMER: MJA DTSBD314 00032 * DTSBD314 00033 * 10/15/1998 REVIEWED AND MODIFIED FOR DC. DTSBD314 00034 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD314 00035 * DTSBD314 00036 * 06/01/2000 MODIFIED TO PRINT LABELS FOR ALL LETTERS DTSBD314 00037 * AND THE NEW MERA LABEL INDICATOR. DTSBD314 00038 * REFERENCE: SPEC012 PROGRAMMER: ZL1 DTSBD314 00039 * DTSBD314 00040 * 06/15/2005 MODIFIED TO PRINT LABELS FOR ALL SECOND LETTERS. DTSBD314 00041 * REFERENCE: PROGRAMMER: GD DTSBD314 00042 * DTSBD314 00043 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD314 00044 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD314 00045 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD314 00046 * DTSBD314 00047 * DTSBD314 00048 * DESCRIPTION: DTSBD314 00049 * DTSBD314 00050 * IF, FOR A GIVEN EMP-NO, DTSBD314 IS CALLED MORE THAN ONCE, DTSBD314 00051 * THEN BYPASS PROCESSING ON ALL CALLS OTHER THAN THE FIRST. DTSBD314 00052 * DTSBD314 00053 * IF NO MERA RECORD EXISTS, THEN THE MTCK-TYPE-CYCLE-A-88 DTSBD314 00054 * MTCK RECORDS ARE DELETED BUT NOTHING ELSE HAPPENS. DTSBD314 00055 * DTSBD314 00056 * IF A MERA RECORD EXISTS, THEN THE MTCK-TYPE-CYCLE-A-88 DTSBD314 00057 * MTCK RECORDS ARE DELETED; THE MERA RECORD IS EVALUATED DTSBD314 00058 * AND (IF INDICATED BY THE EVALUATION) REPORT RECORDS DTSBD314 00059 * REPRESENTING THE NEXT STEP IN THE CYCLE ARE WRITTEN; DTSBD314 00060 * THE MERA RECORD IS UPDATED; AN MEVL RECORD IS WRITTEN; DTSBD314 00061 * AND A MTCK-TYPE-CYCLE-A-88 RECORD IS WRITTEN (THE DTSBD314 00062 * TRIGGER FOR THE NEXT STEP IN THE CYCLE). DTSBD314 00063 * DTSBD314 00064 * SET MERA-STATUS-CD AND MERA-MAILING-DATES AS APPROPRIATE. DTSBD314 00065 * RESET MERA-LABEL-CNT TO 0. DTSBD314 00066 * DTSBD314 00067 * PLEASE SEE PRINTED OUTPUTS DESCRIPTIONS AND LAYOUTS DTSBD314 00068 * FOR FURTHER INFOMATION. DTSBD314 00069 * DTSBD314 00070 * DTSBD314 00071 * MASTER FILE RECORDS READ: DTSBD314 00072 * DTSBD314 00073 * MPRF DTSBD314 00074 * MERA DTSBD314 00075 * MTCK DTSBD314 00076 * DTSBD314 00077 * DTSBD314 00078 * MASTER FILE RECORDS UPDATED: DTSBD314 00079 * DTSBD314 00080 * MERA (REWRITE) DTSBD314 00081 * MTCK (DELETE, WRITE) DTSBD314 00082 * MEVL (WRITE) DTSBD314 00083 * MFAS (WRITE) DTSBD314 00084 * DTSBD314 00085 * DTSBD314 00086 * REFERENCE FILE RECORD READ: DTSBD314 00087 * DTSBD314 00088 * FFAZ DTSBD314 00089 * FFAT DTSBD314 00090 * DTSBD314 00091 * DTSBD314 00092 * REPORT RECORDS WRITTEN: DTSBD314 00093 * DTSBD314 00094 * R102 EMPLOYER REGISTRATION CYCLE A (LETTER 1). DTSBD314 00095 * R103 EMPLOYER REGISTRATION CYCLE A (LETTER 2). DTSBD314 00096 * R104 EMPLOYER REGISTRATION CYCLE A (LETTER 3). DTSBD314 00097 * R127 REGISTRATION FORM. DTSBD314 00098 * R901 LABELS. DTSBD314 00099 * R907 UNUSUAL CONDITION ENCOUNTERED. DTSBD314 00100 * DTSBD314 00101 * DTSBD314 00102 * MODULES CALLED: DTSBD314 00103 * DTSBD314 00104 * DTSBU001 DATE CONVERSION/EDIT. DTSBD314 00105 * DTSBU005 TIME CONVERSION. DTSBD314 00106 * DTSBU061 FIELD ZIP / FIELD REP ID. DTSBD314 00107 * DTSBU075 COOPERATING AGENCY ADDRESS LOOKUP. DTSBD314 00108 * DTSBU111 ADDRESS LOOKUP. DTSBD314 00109 * DTSBU112 ADDRESS FORMAT. DTSBD314 00110 * DTSBU910 MASTER FILE I/O. DTSBD314 00111 * DTSBU931 REFERENCE FILE I/O. DTSBD314 00112 * DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1. DTSBD314 00113 * DTSBD314 00114 * DTSBD314 00115 ***** DTSBD314 00116 SKIP3 DTSBD314 00117 ENVIRONMENT DIVISION. DTSBD314 00118 EJECT DTSBD314 00119 DATA DIVISION. DTSBD314 00120 SKIP3 DTSBD314 00121 WORKING-STORAGE SECTION. DTSBD314 001215 77 PAN-VALET PICTURE X(24) VALUE '010DTSBD314 02/07/12'. DTSBD314 00122 SKIP3 DTSBD314 00123 01 WRK-AREA. DTSBD314 00124 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +314. DTSBD314 00125 DTSBD314 00126 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD314'. DTSBD314 00127 DTSBD314 00128 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBD314 00129 DTSBD314 00130 05 WRK-ASSIGN-DUE-DATE PIC S9(09) COMP-3. DTSBD314 00131 DTSBD314 00132 05 WRK-EMP-NO PIC S9(07) COMP-3. DTSBD314 00133 DTSBD314 00134 05 WRK-LABEL-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD314 00135 DTSBD314 00136 05 WRK-OP-ID PIC X(08). DTSBD314 00137 DTSBD314 00138 05 WRK-NN-DAYS PIC S9(08) COMP. DTSBD314 00139 88 ADD-15-DAYS VALUE +15. DTSBD314 00140 88 ADD-30-DAYS VALUE +30. DTSBD314 00141 DTSBD314 00142 05 WRK-FLD-REP-FOR-ZIP-IND PIC X(01). DTSBD314 00143 88 WRK-FLD-REP-FOR-ZIP-NO-88 VALUE 'N'. DTSBD314 00144 88 WRK-FLD-REP-FOR-ZIP-YES-88 VALUE 'Y'. DTSBD314 00145 DTSBD314 00146 05 WRK-EVENT-TXT. DTSBD314 00147 10 FILLER PIC X(10) DTSBD314 00148 VALUE 'CYCLE A - '. DTSBD314 00149 10 FILLER PIC X(40). DTSBD314 00150 88 DOC-NONE-88 VALUE LOW-VALUE. DTSBD314 00151 88 DOC-LTR1-R102 VALUE 'FIRST LETTER GENERATED'. DTSBD314 00152 88 DOC-LTR2-R103 VALUE 'SECOND LETTER GENERATED'. DTSBD314 00153 88 DOC-COOP-R105 VALUE DTSBD314 00154 'COOPERATING AGENCY LETTER GENERATED'. DTSBD314 00155 88 DOC-FLD-ASSIGN VALUE DTSBD314 00156 'FIELD ASSIGNMENT GENERATED'. DTSBD314 00157 DTSBD314 00158 05 MSG691-TEXT. DTSBD314 00159 10 FILLER PIC X(40) DTSBD314 00160 VALUE 'EMPLOYER REGISTRATION CYCLE A FILE ASSIG'. DTSBD314 00161 10 FILLER PIC X(40) DTSBD314 00162 VALUE 'NMENT TYPE NOT FOUND - NO ASSIGNMENT GEN'. DTSBD314 00163 10 FILLER PIC X(40) DTSBD314 00164 VALUE 'ERATED. '. DTSBD314 00165 EJECT DTSBD314 00166 01 L910-LINK-AREA. DTSBD314 00167 ++INCLUDE DTSIL910 DTSBD314 00168 SKIP3 DTSBD314 00169 01 MSKL-REC. DTSBD314 00170 ++INCLUDE DTSIMSKL DTSBD314 00171 SKIP3 DTSBD314 00172 01 MERA-REC. DTSBD314 00173 ++INCLUDE DTSIMERA DTSBD314 00174 SKIP3 DTSBD314 00175 01 MEVL-REC. DTSBD314 00176 ++INCLUDE DTSIMEVL DTSBD314 00177 SKIP3 DTSBD314 00178 01 MFAS-REC. DTSBD314 00179 ++INCLUDE DTSIMFAS DTSBD314 00180 SKIP3 DTSBD314 00181 01 MTAD-REC. DTSBD314 00182 ++INCLUDE DTSIMTAD DTSBD314 00183 SKIP3 DTSBD314 00184 01 MTCK-REC. DTSBD314 00185 ++INCLUDE DTSIMTCK DTSBD314 00186 EJECT DTSBD314 00187 01 L931-LINK-AREA. DTSBD314 00188 ++INCLUDE DTSIL931 DTSBD314 00189 SKIP3 DTSBD314 00190 01 FSKL-REC. DTSBD314 00191 ++INCLUDE DTSIFSKL DTSBD314 00192 SKIP3 DTSBD314 00193 01 FFAT-REC. DTSBD314 00194 ++INCLUDE DTSIFFAT DTSBD314 00195 SKIP3 DTSBD314 00196 01 FFAZ-REC. DTSBD314 00197 ++INCLUDE DTSIFFAZ DTSBD314 00198 EJECT DTSBD314 00199 01 RSKL-REC. DTSBD314 00200 ++INCLUDE DTSIRSK3 DTSBD314 00201 SKIP3 DTSBD314 00202 01 R102-REC. DTSBD314 00203 ++INCLUDE DTSIR102 DTSBD314 00204 SKIP3 DTSBD314 00205 01 R103-REC. DTSBD314 00206 ++INCLUDE DTSIR103 DTSBD314 00207 SKIP3 DTSBD314 00208 01 R105-REC. DTSBD314 00209 ++INCLUDE DTSIR105 DTSBD314 00210 SKIP3 DTSBD314 00211 01 R127-REC. DTSBD314 00212 ++INCLUDE DTSIR127 DTSBD314 00213 SKIP3 DTSBD314 00214 01 R901-REC. DTSBD314 00215 ++INCLUDE DTSIR901 DTSBD314 00216 SKIP3 DTSBD314 00217 01 R907-REC. DTSBD314 00218 ++INCLUDE DTSIR907 DTSBD314 00219 SKIP3 DTSBD314 00220 01 L001-LINK-AREA. DTSBD314 00221 ++INCLUDE DTSIL001 DTSBD314 00222 SKIP3 DTSBD314 00223 01 L004-LINK-AREA. DTSBD314 00224 ++INCLUDE DTSIL004 DTSBD314 00225 SKIP3 DTSBD314 00226 01 L005-LINK-AREA. DTSBD314 00227 ++INCLUDE DTSIL005 DTSBD314 00228 SKIP3 DTSBD314 00229 01 L061-LINK-AREA. DTSBD314 00230 ++INCLUDE DTSIL061 DTSBD314 00231 SKIP3 DTSBD314 00232 01 L075-LINK-AREA. DTSBD314 00233 ++INCLUDE DTSIL075 DTSBD314 00234 SKIP3 DTSBD314 00235 01 L111-LINK-AREA. DTSBD314 00236 ++INCLUDE DTSIL111 DTSBD314 00237 SKIP3 DTSBD314 00238 01 L112-LINK-AREA. DTSBD314 00239 ++INCLUDE DTSIL112 DTSBD314 00240 SKIP3 DTSBD314 00241 LINKAGE SECTION. DTSBD314 00242 SKIP3 DTSBD314 00243 01 LBCM-LINK-AREA. DTSBD314 00244 ++INCLUDE DTSILBCM DTSBD314 00245 EJECT DTSBD314 00246 01 MPRF-REC. DTSBD314 00247 ++INCLUDE DTSIMPRF DTSBD314 00248 EJECT DTSBD314 00249 01 T001-REC. DTSBD314 00250 ++INCLUDE DTSIT001 DTSBD314 00251 EJECT DTSBD314 00252 PROCEDURE DIVISION USING LBCM-LINK-AREA DTSBD314 00253 MPRF-REC DTSBD314 00254 T001-REC. DTSBD314 00255 DTSBD314 00256 DTSBD314 00257 IF FIRST-TIME-IND = 'Y' DTSBD314 00258 PERFORM I0000-INITIATE THRU I0000-EXIT DTSBD314 00259 MOVE 'N' TO FIRST-TIME-IND. DTSBD314 00260 DTSBD314 00261 DTSBD314 00262 IF MPRF-EMP-NO NOT = WRK-EMP-NO DTSBD314 00263 MOVE MPRF-EMP-NO TO WRK-EMP-NO DTSBD314 00264 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBD314 00265 DTSBD314 00266 DTSBD314 00267 GOBACK. DTSBD314 00268 EJECT DTSBD314 00269 I0000-INITIATE. DTSBD314 00270 MOVE +0 TO WRK-EMP-NO DTSBD314 00271 WRK-LABEL-CNT. DTSBD314 00272 DTSBD314 00273 MOVE WRK-MOD-NAME TO L910-MOD-NAME DTSBD314 00274 L931-MOD-NAME DTSBD314 00275 R907-MODULE-NAME. DTSBD314 00276 DTSBD314 00277 DTSBD314 00278 MOVE LBCM-TRACE-IND TO L910-TRACE-IND DTSBD314 00279 L931-TRACE-IND. DTSBD314 00280 DTSBD314 00281 DTSBD314 00282 MOVE LENGTH OF R102-REC TO R102-LENGTH. DTSBD314 00283 DTSBD314 00284 MOVE LENGTH OF R103-REC TO R103-LENGTH. DTSBD314 00285 DTSBD314 00286 MOVE LENGTH OF R105-REC TO R105-LENGTH. DTSBD314 00287 DTSBD314 00288 MOVE LENGTH OF R127-REC TO R127-LENGTH. DTSBD314 00289 DTSBD314 00290 MOVE LENGTH OF R901-REC TO R901-LENGTH. DTSBD314 00291 DTSBD314 00292 MOVE LENGTH OF R907-REC TO R907-LENGTH. DTSBD314 00293 DTSBD314 00294 DTSBD314 00295 SET FFAT-CYCLE-A-ASSIGN-NO-88 TO TRUE. DTSBD314 00296 DTSBD314 00297 MOVE LOW-VALUES TO FSKL-KEY-AREA. DTSBD314 00298 DTSBD314 00299 SET FSKL-FAT-88 TO TRUE. DTSBD314 00300 DTSBD314 00301 PERFORM S931-START-BROWSE THRU S931-EXIT. DTSBD314 00302 DTSBD314 00303 PERFORM DTSBD314 00304 UNTIL (L931-NO-REC-88) DTSBD314 00305 OR DTSBD314 00306 (FFAT-CYCLE-A-ASSIGN-YES-88) DTSBD314 00307 MOVE FSKL-REC TO FFAT-REC DTSBD314 00308 PERFORM S931-READ-NEXT THRU S931-EXIT DTSBD314 00309 END-PERFORM. DTSBD314 00310 DTSBD314 00311 DTSBD314 00312 MOVE LBCM-CURR-MAIL-DATE TO WRK-ASSIGN-DUE-DATE. DTSBD314 00313 DTSBD314 00314 IF FFAT-CYCLE-A-ASSIGN-YES-88 DTSBD314 00315 PERFORM I1000-FIND-ASSIGN-DUE-DATE THRU I1000-EXIT. DTSBD314 00316 I0000-EXIT. EXIT. DTSBD314 00317 SKIP3 DTSBD314 00318 I1000-FIND-ASSIGN-DUE-DATE. DTSBD314 00319 IF FFAT-DEFAULT-DUE-NXT-Q-END-88 DTSBD314 00320 MOVE LBCM-CURR-MAIL-DATE TO L004-DATE DTSBD314 00321 PERFORM S004-FROM-DATE THRU S004-EXIT DTSBD314 00322 ADD +1 TO L004-ABS-QTR DTSBD314 00323 PERFORM S004-FROM-ABS THRU S004-EXIT DTSBD314 00324 MOVE L004-QTR-END-DATE TO WRK-ASSIGN-DUE-DATE DTSBD314 00325 ELSE DTSBD314 00326 MOVE LBCM-CURR-MAIL-DATE TO L001-FED-8-DATE-9 DTSBD314 00327 SET L001-FROM-FED-8 TO TRUE DTSBD314 00328 PERFORM S001-CONVERT-DATE THRU S001-EXIT DTSBD314 00329 ADD FFAT-DEFAULT-DUE-DAYS TO L001-JUL-ABS-DAY DTSBD314 00330 SET L001-FROM-ABS-DAY TO TRUE DTSBD314 00331 PERFORM S001-CONVERT-DATE THRU S001-EXIT DTSBD314 00332 MOVE L001-FED-8-DATE-9 TO WRK-ASSIGN-DUE-DATE. DTSBD314 00333 I1000-EXIT. DTSBD314 00334 EXIT. DTSBD314 00335 EJECT DTSBD314 00336 P0000-PROCESS. DTSBD314 00337 SET DOC-NONE-88 TO TRUE. DTSBD314 00338 DTSBD314 00339 PERFORM P1000-DELETE-MTCK THRU P1000-EXIT. DTSBD314 00340 DTSBD314 00341 MOVE LOW-VALUE TO MSKL-KEY-AREA. DTSBD314 00342 DTSBD314 00343 MOVE WRK-EMP-NO TO MSKL-EMP-NO. DTSBD314 00344 DTSBD314 00345 SET MSKL-ERA-88 TO TRUE. DTSBD314 00346 DTSBD314 00347 PERFORM S910-READ THRU S910-EXIT. DTSBD314 00348 DTSBD314 00349 IF L910-NO-REC-88 DTSBD314 00350 GO TO P0000-EXIT. DTSBD314 00351 DTSBD314 00352 MOVE MSKL-REC TO MERA-REC. DTSBD314 00353 DTSBD314 00354 PERFORM P2000-MODIFY-MERA THRU P2000-EXIT. DTSBD314 00355 DTSBD314 00356 IF DOC-NONE-88 DTSBD314 00357 NEXT SENTENCE DTSBD314 00358 ELSE DTSBD314 00359 PERFORM P3000-GENERATE-DOC THRU P3000-EXIT DTSBD314 00360 MOVE +0 TO MERA-LABEL-CNT. DTSBD314 00361 DTSBD314 00362 *& DTSBD314 00363 DISPLAY 'BD314 P0000 ' MPRF-EMP-NO DTSBD314 00364 ' CNT ' MERA-LABEL-CNT ' WRK ' WRK-LABEL-CNT. DTSBD314 00365 *& DTSBD314 00366 IF WRK-LABEL-CNT > ZERO DTSBD314 00367 IF DOC-NONE-88 DTSBD314 00368 PERFORM S2000-GET-DEFAULT-ADDRESS THRU S2000-EXIT DTSBD314 00369 END-IF DTSBD314 00370 PERFORM P4100-GENERATE-LABEL THRU P4100-EXIT DTSBD314 00371 END-IF. DTSBD314 00372 DTSBD314 00373 MOVE LBCM-CURR-RUN-DATE TO MERA-CHNG-DATE. DTSBD314 00374 DTSBD314 00375 MOVE MERA-REC TO MSKL-REC. DTSBD314 00376 DTSBD314 00377 PERFORM S910-REWRITE THRU S910-EXIT. DTSBD314 00378 DTSBD314 00379 PERFORM P4000-GENERATE-TICKLER THRU P4000-EXIT. DTSBD314 00380 P0000-EXIT. EXIT. DTSBD314 00381 EJECT DTSBD314 00382 P1000-DELETE-MTCK. DTSBD314 00383 MOVE LOW-VALUE TO MTCK-KEY-AREA. DTSBD314 00384 DTSBD314 00385 MOVE WRK-EMP-NO TO MTCK-EMP-NO. DTSBD314 00386 DTSBD314 00387 SET MTCK-TCK-88 TO TRUE. DTSBD314 00388 DTSBD314 00389 MOVE +0 TO MTCK-ESTB-ABSTIME. DTSBD314 00390 DTSBD314 00391 MOVE MTCK-KEY-AREA TO MSKL-KEY-AREA. DTSBD314 00392 DTSBD314 00393 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD314 00394 DTSBD314 00395 PERFORM P1100-MTCK-SCAN THRU P1100-EXIT DTSBD314 00396 UNTIL L910-NO-REC-88. DTSBD314 00397 P1000-EXIT. EXIT. DTSBD314 00398 SKIP3 DTSBD314 00399 P1100-MTCK-SCAN. DTSBD314 00400 MOVE MSKL-REC TO MTCK-REC. DTSBD314 00401 DTSBD314 00402 IF MTCK-TYPE-CYCLE-A-88 DTSBD314 00403 PERFORM S910-DELETE THRU S910-EXIT. DTSBD314 00404 DTSBD314 00405 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBD314 00406 P1100-EXIT. EXIT. DTSBD314 00407 EJECT DTSBD314 00408 P2000-MODIFY-MERA. DTSBD314 00409 *& DTSBD314 00410 DISPLAY 'BD314 P2000 FIRST ' MPRF-EMP-NO DTSBD314 00411 ' ' MERA-FIRST-LABEL-IND DTSBD314 00412 ' CNT ' MERA-LABEL-CNT ' WRK ' WRK-LABEL-CNT. DTSBD314 00413 *& DTSBD314 00414 DTSBD314 00415 IF MERA-FIRST-LABEL-NEEDED-88 DTSBD314 00416 ADD +1 TO WRK-LABEL-CNT DTSBD314 00417 SET MERA-FIRST-LABEL-PRINTED-88 TO TRUE DTSBD314 00418 END-IF. DTSBD314 00419 DTSBD314 00420 IF MPRF-CLASS-CHG-ONLY-88 DTSBD314 00421 SET MERA-STATUS-NOT-LIAB-88 TO TRUE DTSBD314 00422 MOVE LBCM-CURR-RUN-DATE TO MERA-STATUS-CHNG-DATE DTSBD314 00423 GO TO P2000-EXIT. DTSBD314 00424 DTSBD314 00425 IF MERA-STATUS-SETUP-88 DTSBD314 00426 SET MERA-STATUS-LTR1-88 TO TRUE DTSBD314 00427 MOVE LBCM-CURR-RUN-DATE TO MERA-STATUS-CHNG-DATE DTSBD314 00428 PERFORM P2100-FIRST-STEP THRU P2100-EXIT DTSBD314 00429 GO TO P2000-EXIT. DTSBD314 00430 DTSBD314 00431 IF MERA-STATUS-LTR1-88 DTSBD314 00432 IF MERA-MAIL-DATE-1 = 0 DTSBD314 00433 PERFORM P2100-FIRST-STEP THRU P2100-EXIT DTSBD314 00434 GO TO P2000-EXIT DTSBD314 00435 ELSE DTSBD314 00436 MOVE MERA-MAIL-DATE-1 TO L001-FED-8-DATE-9 DTSBD314 00437 PERFORM S1000-ADD-30-DAYS THRU S1000-EXIT DTSBD314 00438 IF L001-FED-8-DATE-9 > LBCM-CURR-RUN-DATE DTSBD314 00439 GO TO P2000-EXIT DTSBD314 00440 ELSE DTSBD314 00441 SET MERA-STATUS-LTR2-88 TO TRUE DTSBD314 00442 MOVE LBCM-CURR-RUN-DATE TO MERA-STATUS-CHNG-DATE DTSBD314 00443 PERFORM P2200-SECOND-STEP THRU P2200-EXIT DTSBD314 00444 GO TO P2000-EXIT. DTSBD314 00445 DTSBD314 00446 IF MERA-STATUS-LTR2-88 DTSBD314 00447 IF MERA-MAIL-DATE-2 = 0 DTSBD314 00448 PERFORM P2200-SECOND-STEP THRU P2200-EXIT DTSBD314 00449 GO TO P2000-EXIT DTSBD314 00450 ELSE DTSBD314 00451 MOVE MERA-MAIL-DATE-2 TO L001-FED-8-DATE-9 DTSBD314 00452 PERFORM S1000-ADD-15-DAYS THRU S1000-EXIT DTSBD314 00453 IF L001-FED-8-DATE-9 > LBCM-CURR-RUN-DATE DTSBD314 00454 GO TO P2000-EXIT DTSBD314 00455 ELSE DTSBD314 00456 SET WRK-FLD-REP-FOR-ZIP-NO-88 TO TRUE DTSBD314 00457 PERFORM S6000-FLD-REP-FOR-ZIP THRU S6000-EXIT DTSBD314 00458 IF WRK-FLD-REP-FOR-ZIP-YES-88 DTSBD314 00459 IF FFAT-CYCLE-A-ASSIGN-NO-88 DTSBD314 00460 PERFORM P2010-NO-CYCLE-A-ASSIGN-TYPE DTSBD314 00461 THRU P2010-EXIT DTSBD314 00462 ELSE DTSBD314 00463 SET MERA-STATUS-ASSGN-GEN-88 TO TRUE DTSBD314 00464 MOVE LBCM-CURR-RUN-DATE DTSBD314 00465 TO MERA-STATUS-CHNG-DATE DTSBD314 00466 PERFORM P2600-FLD-ASSIGN-GEN-STEP DTSBD314 00467 THRU P2600-EXIT DTSBD314 00468 GO TO P2000-EXIT DTSBD314 00469 ELSE DTSBD314 00470 SET MERA-STATUS-COOP-88 TO TRUE DTSBD314 00471 MOVE LBCM-CURR-RUN-DATE DTSBD314 00472 TO MERA-STATUS-CHNG-DATE DTSBD314 00473 PERFORM P2500-INTERSTATE-STEP THRU P2500-EXITDTSBD314 00474 GO TO P2000-EXIT. DTSBD314 00475 DTSBD314 00476 IF MERA-STATUS-COOP-88 DTSBD314 00477 IF MERA-COOP-AGENCY-REQ-DATE = 0 DTSBD314 00478 PERFORM P2500-INTERSTATE-STEP THRU P2500-EXIT DTSBD314 00479 GO TO P2000-EXIT. DTSBD314 00480 DTSBD314 00481 IF MERA-STATUS-ASSGN-GEN-88 DTSBD314 00482 IF MERA-FIELD-ASSIGN-DATE = 0 DTSBD314 00483 IF FFAT-CYCLE-A-ASSIGN-NO-88 DTSBD314 00484 PERFORM P2010-NO-CYCLE-A-ASSIGN-TYPE DTSBD314 00485 THRU P2010-EXIT DTSBD314 00486 ELSE DTSBD314 00487 PERFORM P2600-FLD-ASSIGN-GEN-STEP DTSBD314 00488 THRU P2600-EXIT DTSBD314 00489 GO TO P2000-EXIT. DTSBD314 00490 P2000-EXIT. EXIT. DTSBD314 00491 SKIP3 DTSBD314 00492 P2010-NO-CYCLE-A-ASSIGN-TYPE. DTSBD314 00493 MOVE '691' TO R907-MSG-ID. DTSBD314 00494 DTSBD314 00495 MOVE WRK-EMP-NO TO R907-EMP-NO. DTSBD314 00496 DTSBD314 00497 MOVE MSG691-TEXT TO R907-MSG-TEXT. DTSBD314 00498 DTSBD314 00499 MOVE R907-REC TO RSKL-REC. DTSBD314 00500 DTSBD314 00501 PERFORM S946-RPT-O THRU S946-EXIT. DTSBD314 00502 P2010-EXIT. DTSBD314 00503 EXIT. DTSBD314 00504 EJECT DTSBD314 00505 P2100-FIRST-STEP. DTSBD314 00506 MOVE LBCM-CURR-MAIL-DATE TO MERA-MAIL-DATE-1. DTSBD314 00507 DTSBD314 00508 MOVE +0 TO MERA-MAIL-DATE-2 DTSBD314 00509 MERA-COOP-AGENCY-REQ-DATE DTSBD314 00510 MERA-FIELD-ASSIGN-DATE DTSBD314 00511 MERA-RECEIVED-DATE DTSBD314 00512 MERA-DETER-NOTSUB-DATE. DTSBD314 00513 DTSBD314 00514 ADD MERA-LABEL-CNT TO WRK-LABEL-CNT. DTSBD314 00515 DISPLAY 'P2100 MERA LABEL CNT ' MERA-LABEL-CNT DTSBD314 00516 IF WRK-LABEL-CNT = ZERO DTSBD314 00517 MOVE +1 TO WRK-LABEL-CNT DTSBD314 00518 END-IF. DTSBD314 00519 DISPLAY 'P2100 MERA LABEL CNT ' MERA-LABEL-CNT DTSBD314 00520 DTSBD314 00521 SET DOC-LTR1-R102 TO TRUE. DTSBD314 00522 DTSBD314 00523 P2100-EXIT. EXIT. DTSBD314 00524 SKIP3 DTSBD314 00525 P2200-SECOND-STEP. DTSBD314 00526 *& DTSBD314 00527 DISPLAY 'BD314 P2200 - 1 ' MPRF-EMP-NO DTSBD314 00528 ' CNT ' MERA-LABEL-CNT ' WRK ' WRK-LABEL-CNT. DTSBD314 00529 *& DTSBD314 00530 MOVE LBCM-CURR-MAIL-DATE TO MERA-MAIL-DATE-2. DTSBD314 00531 DTSBD314 00532 MOVE +0 TO MERA-COOP-AGENCY-REQ-DATE DTSBD314 00533 MERA-FIELD-ASSIGN-DATE DTSBD314 00534 MERA-RECEIVED-DATE DTSBD314 00535 MERA-DETER-NOTSUB-DATE. DTSBD314 00536 DTSBD314 00537 ADD MERA-LABEL-CNT TO WRK-LABEL-CNT. DTSBD314 00538 IF WRK-LABEL-CNT = ZERO DTSBD314 00539 MOVE +1 TO WRK-LABEL-CNT DTSBD314 00540 END-IF. DTSBD314 00541 DTSBD314 00542 SET DOC-LTR2-R103 TO TRUE. DTSBD314 00543 *& DTSBD314 00544 DISPLAY 'BD314 P2200 - 2 ' MPRF-EMP-NO DTSBD314 00545 ' CNT ' MERA-LABEL-CNT ' WRK ' WRK-LABEL-CNT. DTSBD314 00546 *& DTSBD314 00547 P2200-EXIT. EXIT. DTSBD314 00548 SKIP3 DTSBD314 00549 P2500-INTERSTATE-STEP. DTSBD314 00550 MOVE LBCM-CURR-MAIL-DATE TO MERA-COOP-AGENCY-REQ-DATE. DTSBD314 00551 DTSBD314 00552 MOVE +0 TO MERA-FIELD-ASSIGN-DATE DTSBD314 00553 MERA-RECEIVED-DATE DTSBD314 00554 MERA-DETER-NOTSUB-DATE. DTSBD314 00555 DTSBD314 00556 SET DOC-COOP-R105 TO TRUE. DTSBD314 00557 P2500-EXIT. EXIT. DTSBD314 00558 SKIP3 DTSBD314 00559 P2600-FLD-ASSIGN-GEN-STEP. DTSBD314 00560 MOVE LBCM-CURR-MAIL-DATE TO MERA-FIELD-ASSIGN-DATE. DTSBD314 00561 DTSBD314 00562 MOVE +0 TO MERA-COOP-AGENCY-REQ-DATE DTSBD314 00563 MERA-RECEIVED-DATE DTSBD314 00564 MERA-DETER-NOTSUB-DATE. DTSBD314 00565 DTSBD314 00566 SET DOC-FLD-ASSIGN TO TRUE. DTSBD314 00567 P2600-EXIT. EXIT. DTSBD314 00568 EJECT DTSBD314 00569 P3000-GENERATE-DOC. DTSBD314 00570 *& DTSBD314 00571 DISPLAY 'BD314 P3000 ' MPRF-EMP-NO DTSBD314 00572 ' ' MERA-FIRST-LABEL-IND DTSBD314 00573 ' CNT ' MERA-LABEL-CNT ' WRK ' WRK-LABEL-CNT. DTSBD314 00574 *& DTSBD314 00575 PERFORM S2000-GET-DEFAULT-ADDRESS THRU S2000-EXIT. DTSBD314 00576 DTSBD314 00577 MOVE MERA-RESPONSIBLE-OP-ID TO WRK-OP-ID. DTSBD314 00578 DTSBD314 00579 IF MERA-STATUS-LTR1-88 DTSBD314 00580 PERFORM P3100-LTR1-R102 THRU P3100-EXIT DTSBD314 00581 ELSE DTSBD314 00582 IF MERA-STATUS-LTR2-88 DTSBD314 00583 PERFORM P3200-LTR2-R103 THRU P3200-EXIT DTSBD314 00584 ELSE DTSBD314 00585 IF MERA-STATUS-COOP-88 DTSBD314 00586 PERFORM P3500-COOP-R105 THRU P3500-EXIT DTSBD314 00587 ELSE DTSBD314 00588 IF MERA-STATUS-ASSGN-GEN-88 DTSBD314 00589 PERFORM P3600-ASSGN-GENERATE THRU P3600-EXIT. DTSBD314 00590 P3000-EXIT. EXIT. DTSBD314 00591 EJECT DTSBD314 00592 P3100-LTR1-R102. DTSBD314 00593 MOVE WRK-OP-ID TO R102-OP-ID. DTSBD314 00594 DTSBD314 00595 IF MERA-LETTER-GENERIC-88 DTSBD314 00596 SET R102-GENERIC-88 TO TRUE DTSBD314 00597 ELSE DTSBD314 00598 IF MERA-LETTER-EMP-REQUEST-88 DTSBD314 00599 SET R102-EMP-REQUEST-88 TO TRUE DTSBD314 00600 ELSE DTSBD314 00601 IF MERA-LETTER-UC30-RCVD-88 DTSBD314 00602 SET R102-UC30-RCVD-88 TO TRUE DTSBD314 00603 ELSE DTSBD314 00604 IF MERA-LETTER-CLAIMNT-WGS-88 DTSBD314 00605 SET R102-CLAIMANT-WGS-88 TO TRUE DTSBD314 00606 ELSE DTSBD314 00607 SET R102-GENERIC-88 TO TRUE. DTSBD314 00608 DTSBD314 00609 MOVE WRK-EMP-NO TO R102-EMP-NO. DTSBD314 00610 DTSBD314 00611 MOVE LOW-VALUE TO R102-DATA-AREA. DTSBD314 00612 DTSBD314 00613 INITIALIZE R102-DATA-AREA. DTSBD314 00614 DTSBD314 00615 MOVE LBCM-CURR-MAIL-DATE TO R102-MAIL-DATE. DTSBD314 00616 DTSBD314 00617 MOVE L112-MAILING-ADDRESS TO R102-FMT-ADDR. DTSBD314 00618 DTSBD314 00619 MOVE L112-ZIP TO R102-ZIP. DTSBD314 00620 DTSBD314 00621 MOVE L112-ADVANCED-BARCODE TO R102-ADVANCED-BARCODE. DTSBD314 00622 DTSBD314 00623 IF R102-CLAIMANT-WGS-88 DTSBD314 00624 MOVE MERA-CLAIMANT-NAME TO R102-CLAIMANT-NAME DTSBD314 00625 MOVE MERA-CLAIMANT-SSN TO R102-CLAIMANT-SSN. DTSBD314 00626 DTSBD314 00627 MOVE R102-REC TO RSKL-REC. DTSBD314 00628 DTSBD314 00629 PERFORM S3000-WRITE-RPT-AND-MEVL THRU S3000-EXIT. DTSBD314 00630 DTSBD314 00631 DTSBD314 00632 SET R127-GENED-WITH-LETTER-ONE-88 TO TRUE. DTSBD314 00633 DTSBD314 00634 MOVE WRK-OP-ID TO R127-OP-ID. DTSBD314 00635 DTSBD314 00636 MOVE R102-LETTER-TYPE TO R127-LETTER-ONE-TYPE. DTSBD314 00637 DTSBD314 00638 MOVE WRK-EMP-NO TO R127-EMP-NO. DTSBD314 00639 DTSBD314 00640 PERFORM S5000-R127-DATA-AREA THRU S5000-EXIT. DTSBD314 00641 DTSBD314 00642 MOVE R127-REC TO RSKL-REC. DTSBD314 00643 DTSBD314 00644 PERFORM S946-RPT-O THRU S946-EXIT. DTSBD314 00645 P3100-EXIT. EXIT. DTSBD314 00646 EJECT DTSBD314 00647 P3200-LTR2-R103. DTSBD314 00648 MOVE WRK-OP-ID TO R103-OP-ID. DTSBD314 00649 DTSBD314 00650 MOVE WRK-EMP-NO TO R103-EMP-NO. DTSBD314 00651 DTSBD314 00652 MOVE LBCM-CURR-MAIL-DATE TO R103-MAIL-DATE. DTSBD314 00653 DTSBD314 00654 MOVE L112-MAILING-ADDRESS TO R103-FMT-ADDR. DTSBD314 00655 DTSBD314 00656 MOVE L112-ZIP TO R103-ZIP. DTSBD314 00657 DTSBD314 00658 MOVE L112-ADVANCED-BARCODE TO R103-ADVANCED-BARCODE. DTSBD314 00659 DTSBD314 00660 MOVE R103-REC TO RSKL-REC. DTSBD314 00661 DTSBD314 00662 PERFORM S3000-WRITE-RPT-AND-MEVL THRU S3000-EXIT. DTSBD314 00663 DTSBD314 00664 DTSBD314 00665 SET R127-GENED-WITH-LETTER-TWO-88 TO TRUE. DTSBD314 00666 DTSBD314 00667 MOVE WRK-OP-ID TO R127-OP-ID. DTSBD314 00668 DTSBD314 00669 MOVE LOW-VALUES TO R127-LETTER-ONE-TYPE. DTSBD314 00670 DTSBD314 00671 MOVE WRK-EMP-NO TO R127-EMP-NO. DTSBD314 00672 DTSBD314 00673 PERFORM S5000-R127-DATA-AREA THRU S5000-EXIT. DTSBD314 00674 DTSBD314 00675 MOVE R127-REC TO RSKL-REC. DTSBD314 00676 DTSBD314 00677 PERFORM S946-RPT-O THRU S946-EXIT. DTSBD314 00678 P3200-EXIT. EXIT. DTSBD314 00679 EJECT DTSBD314 00680 P3500-COOP-R105. DTSBD314 00681 MOVE WRK-OP-ID TO R105-OP-ID. DTSBD314 00682 DTSBD314 00683 MOVE WRK-EMP-NO TO R105-EMP-NO. DTSBD314 00684 DTSBD314 00685 MOVE LOW-VALUE TO R105-DATA-AREA. DTSBD314 00686 DTSBD314 00687 INITIALIZE R105-DATA-AREA. DTSBD314 00688 DTSBD314 00689 MOVE LBCM-CURR-MAIL-DATE TO R105-MAIL-DATE. DTSBD314 00690 DTSBD314 00691 MOVE L112-MAILING-ADDRESS TO R105-FMT-ADDR. DTSBD314 00692 DTSBD314 00693 SET L075-LOOKUP-ADDR-88 TO TRUE. DTSBD314 00694 DTSBD314 00695 MOVE L112-ST TO L075-LOOKUP-STATE. DTSBD314 00696 DTSBD314 00697 PERFORM S075-LOOKUP-COOP-AGENCY THRU S075-EXIT. DTSBD314 00698 DTSBD314 00699 IF L075-ADDR-NOT-FOUND-88 DTSBD314 00700 MOVE ALL '?' TO R105-AGENCY-FMT-ADDR DTSBD314 00701 R105-AGENCY-ZIP DTSBD314 00702 R105-AGENCY-ADVANCED-BARCODE DTSBD314 00703 ELSE DTSBD314 00704 SET L112-TAA-ADDR-88 TO TRUE DTSBD314 00705 SET L112-ANCHOR-LAST-88 TO TRUE DTSBD314 00706 MOVE LOW-VALUE TO L112-PRIMARY-NAME DTSBD314 00707 L112-NAME-ADDRESS-AREA DTSBD314 00708 MOVE L075-NAME TO L112-NAME DTSBD314 00709 MOVE L075-ADDRESS TO L112-ADDRESS DTSBD314 00710 PERFORM S112-FORMAT-ADDRESS THRU S112-EXIT DTSBD314 00711 MOVE L112-MAILING-ADDRESS TO R105-AGENCY-FMT-ADDR DTSBD314 00712 MOVE L112-ZIP TO R105-AGENCY-ZIP DTSBD314 00713 MOVE L112-ADVANCED-BARCODE DTSBD314 00714 TO R105-AGENCY-ADVANCED-BARCODE. DTSBD314 00715 DTSBD314 00716 MOVE R105-REC TO RSKL-REC. DTSBD314 00717 DTSBD314 00718 PERFORM S3000-WRITE-RPT-AND-MEVL THRU S3000-EXIT. DTSBD314 00719 DTSBD314 00720 DTSBD314 00721 SET R127-GENED-WITH-COOP-LETTER-88 TO TRUE. DTSBD314 00722 DTSBD314 00723 MOVE WRK-OP-ID TO R127-OP-ID. DTSBD314 00724 DTSBD314 00725 MOVE LOW-VALUES TO R127-LETTER-ONE-TYPE. DTSBD314 00726 DTSBD314 00727 MOVE WRK-EMP-NO TO R127-EMP-NO. DTSBD314 00728 DTSBD314 00729 PERFORM S5000-R127-DATA-AREA THRU S5000-EXIT. DTSBD314 00730 DTSBD314 00731 MOVE R127-REC TO RSKL-REC. DTSBD314 00732 DTSBD314 00733 PERFORM S946-RPT-O THRU S946-EXIT. DTSBD314 00734 P3500-EXIT. EXIT. DTSBD314 00735 EJECT DTSBD314 00736 P3600-ASSGN-GENERATE. DTSBD314 00737 MOVE LOW-VALUES TO MFAS-REC. DTSBD314 00738 DTSBD314 00739 DTSBD314 00740 MOVE WRK-EMP-NO TO MFAS-EMP-NO. DTSBD314 00741 DTSBD314 00742 SET MFAS-FAS-88 TO TRUE. DTSBD314 00743 DTSBD314 00744 ADD +1 TO LBCM-LAST-USED-ASSIGN-NO. DTSBD314 00745 DTSBD314 00746 MOVE LBCM-LAST-USED-ASSIGN-NO TO MFAS-ASSIGN-NO. DTSBD314 00747 DTSBD314 00748 MOVE +0 TO MFAS-PURGE-DATE. DTSBD314 00749 DTSBD314 00750 SET MFAS-STATUS-ACTIVE-88 TO TRUE. DTSBD314 00751 DTSBD314 00752 MOVE MPRF-FLD-ZIP-ST TO L061-FLD-ZIP-ST. DTSBD314 00753 DTSBD314 00754 MOVE WRK-EMP-NO TO L061-EMP-NO. DTSBD314 00755 DTSBD314 00756 PERFORM S061-LOOKUP-FLD-REP-ID THRU S061-EXIT. DTSBD314 00757 DTSBD314 00758 *****IF L061-FLD-DESK-88 DTSBD314 00759 *********SET MFAS-FLD-REP-FIELD-DESK-88 TO TRUE DTSBD314 00760 *****ELSE DTSBD314 00761 *********MOVE L061-FLD-REP-ID TO MFAS-FLD-REP-ID. DTSBD314 00762 DTSBD314 00763 IF FFAT-ACCOUNTING-DESK-YES-88 DTSBD314 00764 SET MFAS-FLD-REP-ACCTNG-DESK-88 TO TRUE DTSBD314 00765 ELSE DTSBD314 00766 SET MFAS-FLD-REP-FIELD-DESK-88 TO TRUE. DTSBD314 00767 DTSBD314 00768 MOVE FFAT-TYPE TO MFAS-ASSIGN-TYPE. DTSBD314 00769 DTSBD314 00770 MOVE FFAT-DEFAULT-ATTACH-IND TO MFAS-ATTACHMENTS-IND. DTSBD314 00771 DTSBD314 00772 MOVE FFAT-AUDIT-IND TO MFAS-AUDIT-IND. DTSBD314 00773 DTSBD314 00774 MOVE FFAT-ACCOUNTING-DESK-IND DTSBD314 00775 TO MFAS-ACCOUNTING-DESK-IND. DTSBD314 00776 DTSBD314 00777 MOVE LBCM-CURR-MAIL-DATE TO MFAS-START-DATE. DTSBD314 00778 DTSBD314 00779 MOVE WRK-ASSIGN-DUE-DATE TO MFAS-DUE-DATE. DTSBD314 00780 DTSBD314 00781 MOVE +0 TO MFAS-COMPLETED-DATE DTSBD314 00782 MFAS-PROCESSED-DATE DTSBD314 00783 MFAS-TAX-DOWNLOAD-DATE DTSBD314 00784 MFAS-WAGE-DOWNLOAD-DATE. DTSBD314 00785 DTSBD314 00786 MOVE WRK-OP-ID TO MFAS-SOURCE-OP-ID. DTSBD314 00787 DTSBD314 00788 MOVE MERA-CLAIMANT-SSN TO MFAS-CLAIMANT-SSN. DTSBD314 00789 DTSBD314 00790 MOVE MERA-CLAIMANT-NAME TO MFAS-CLAIMANT-NAME. DTSBD314 00791 DTSBD314 00792 MOVE MERA-POT-PRED-EMP-NO TO MFAS-RELATED-EMP-NO. DTSBD314 00793 DTSBD314 00794 MOVE +0 TO MFAS-START-YRQ DTSBD314 00795 MFAS-END-YRQ. DTSBD314 00796 DTSBD314 00797 MOVE MPRF-SIC-CD TO MFAS-SIC-CD. DTSBD314 00798 DTSBD314 00799 MOVE MPRF-NAICS-CD TO MFAS-NAICS-CD. DTSBD314 00800 DTSBD314 00801 MOVE MPRF-OWN-CD TO MFAS-OWN-CD. DTSBD314 00802 DTSBD314 00803 SET MFAS-EMP-NON-AUDIT-88 TO TRUE. DTSBD314 00804 DTSBD314 00805 MOVE +0 TO MFAS-SEL-CNT. DTSBD314 00806 DTSBD314 00807 SET MFAS-NOT-CONVERTED-88 TO TRUE. DTSBD314 00808 DTSBD314 00809 MOVE LBCM-CURR-RUN-DATE TO MFAS-ESTB-DATE DTSBD314 00810 MFAS-CHNG-DATE. DTSBD314 00811 DTSBD314 00812 MOVE +1 TO MFAS-TEXT-CNT. DTSBD314 00813 DTSBD314 00814 MOVE DTSBD314 00815 'ASSIGNMENT GENERATED BY EMPLOYER REGISTRATION CYCLE A' DTSBD314 00816 TO MFAS-TEXT (1). DTSBD314 00817 DTSBD314 00818 MOVE MFAS-REC TO MSKL-REC. DTSBD314 00819 DTSBD314 00820 PERFORM S910-WRITE THRU S910-EXIT. DTSBD314 00821 DTSBD314 00822 SET MPRF-MFAS-EXISTS-88 TO TRUE. DTSBD314 00823 DTSBD314 00824 PERFORM S3100-WRITE-MEVL THRU S3100-EXIT. DTSBD314 00825 P3600-EXIT. DTSBD314 00826 EXIT. DTSBD314 00827 EJECT DTSBD314 00828 P4000-GENERATE-TICKLER. DTSBD314 00829 PERFORM S4000-INITIALIZE-MTCK THRU S4000-EXIT. DTSBD314 00830 DTSBD314 00831 SET MTCK-TYPE-CYCLE-A-88 TO TRUE. DTSBD314 00832 DTSBD314 00833 IF MERA-STATUS-LTR1-88 DTSBD314 00834 MOVE MERA-MAIL-DATE-1 TO L001-FED-8-DATE-9 DTSBD314 00835 PERFORM S1000-ADD-30-DAYS THRU S1000-EXIT DTSBD314 00836 MOVE L001-FED-8-DATE-9 TO MTCK-TRIGGER-DATE DTSBD314 00837 ELSE DTSBD314 00838 IF MERA-STATUS-LTR2-88 DTSBD314 00839 MOVE MERA-MAIL-DATE-2 TO L001-FED-8-DATE-9 DTSBD314 00840 PERFORM S1000-ADD-15-DAYS THRU S1000-EXIT DTSBD314 00841 MOVE L001-FED-8-DATE-9 TO MTCK-TRIGGER-DATE DTSBD314 00842 ELSE DTSBD314 00843 IF MERA-STATUS-SETUP-88 DTSBD314 00844 IF MPRF-CLASS-CHG-ONLY-88 DTSBD314 00845 GO TO P4000-EXIT DTSBD314 00846 ELSE DTSBD314 00847 MOVE LBCM-CURR-MAIL-DATE TO MTCK-TRIGGER-DATE DTSBD314 00848 ELSE DTSBD314 00849 IF MERA-STATUS-ASSGN-GEN-88 DTSBD314 00850 IF MERA-FIELD-ASSIGN-DATE = 0 DTSBD314 00851 MOVE LBCM-CURR-MAIL-DATE TO MTCK-TRIGGER-DATE DTSBD314 00852 ELSE DTSBD314 00853 CONTINUE DTSBD314 00854 ELSE DTSBD314 00855 CONTINUE. DTSBD314 00856 DTSBD314 00857 DTSBD314 00858 IF MTCK-TRIGGER-DATE = +0 DTSBD314 00859 GO TO P4000-EXIT. DTSBD314 00860 DTSBD314 00861 DTSBD314 00862 SET MTCK-DEST-SYSTEM-88 TO TRUE. DTSBD314 00863 DTSBD314 00864 MOVE MTCK-REC TO MSKL-REC. DTSBD314 00865 DTSBD314 00866 PERFORM S910-WRITE THRU S910-EXIT. DTSBD314 00867 P4000-EXIT. EXIT. DTSBD314 00868 EJECT DTSBD314 00869 P4100-GENERATE-LABEL. DTSBD314 00870 *& DTSBD314 00871 DISPLAY 'BD314 P4100 ' MPRF-EMP-NO DTSBD314 00872 ' CNT ' MERA-LABEL-CNT ' WRK ' WRK-LABEL-CNT. DTSBD314 00873 *& DTSBD314 00874 DTSBD314 00875 MOVE MERA-RESPONSIBLE-OP-ID TO WRK-OP-ID. DTSBD314 00876 DTSBD314 00877 MOVE WRK-LABEL-CNT TO R901-LABEL-CNT. DTSBD314 00878 SET R901-EMP-REG-A-88 TO TRUE. DTSBD314 00879 MOVE LOW-VALUE TO R901-SORT-VAR-AREA. DTSBD314 00880 MOVE WRK-OP-ID TO R901-GRP2-OP-ID. DTSBD314 00881 MOVE WRK-EMP-NO TO R901-GRP2-EMP-NO DTSBD314 00882 R901-EMP-NO. DTSBD314 00883 MOVE L112-MAILING-ADDRESS TO R901-FMT-ADDR. DTSBD314 00884 MOVE L112-ZIP TO R901-ZIP. DTSBD314 00885 MOVE L112-ADVANCED-BARCODE TO R901-ADVANCED-BARCODE. DTSBD314 00886 MOVE R901-REC TO RSKL-REC. DTSBD314 00887 PERFORM S946-RPT-O THRU S946-EXIT. DTSBD314 00888 DTSBD314 00889 MOVE ZEROS TO WRK-LABEL-CNT. DTSBD314 00890 DTSBD314 00891 P4100-EXIT. EXIT. DTSBD314 00892 EJECT DTSBD314 00893 SKIP3 DTSBD314 00894 S001-CONVERT-DATE. DTSBD314 00895 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBD314 00896 S001-EXIT. EXIT. DTSBD314 00897 SKIP3 DTSBD314 00898 S004-FROM-ABS. DTSBD314 00899 SET L004-FROM-ABS TO TRUE. DTSBD314 00900 GO TO S004-CONVERT-YRQ. DTSBD314 00901 DTSBD314 00902 S004-FROM-DATE. DTSBD314 00903 SET L004-FROM-DATE TO TRUE. DTSBD314 00904 GO TO S004-CONVERT-YRQ. DTSBD314 00905 DTSBD314 00906 S004-CONVERT-YRQ. DTSBD314 00907 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBD314 00908 S004-EXIT. DTSBD314 00909 EXIT. DTSBD314 00910 SKIP3 DTSBD314 00911 S005-CONVERT-TIME. DTSBD314 00912 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBD314 00913 S005-EXIT. EXIT. DTSBD314 00914 SKIP3 DTSBD314 00915 S061-LOOKUP-FLD-REP-ID. DTSBD314 00916 CALL 'DTSBU061' USING L061-LINK-AREA. DTSBD314 00917 S061-EXIT. EXIT. DTSBD314 00918 SKIP3 DTSBD314 00919 S075-LOOKUP-COOP-AGENCY. DTSBD314 00920 CALL 'DTSBU075' USING L075-LINK-AREA. DTSBD314 00921 S075-EXIT. EXIT. DTSBD314 00922 SKIP3 DTSBD314 00923 S111-LOOKUP-ADDRESS. DTSBD314 00924 CALL 'DTSBU111' USING L111-LINK-AREA. DTSBD314 00925 S111-EXIT. EXIT. DTSBD314 00926 SKIP3 DTSBD314 00927 S112-FORMAT-ADDRESS. DTSBD314 00928 CALL 'DTSBU112' USING L112-LINK-AREA. DTSBD314 00929 S112-EXIT. EXIT. DTSBD314 00930 EJECT DTSBD314 00931 S910-READ. DTSBD314 00932 SET L910-READ-88 TO TRUE. DTSBD314 00933 GO TO S910-MSTR-IO. DTSBD314 00934 DTSBD314 00935 S910-START-BROWSE. DTSBD314 00936 SET L910-START-BROWSE-88 TO TRUE. DTSBD314 00937 GO TO S910-MSTR-IO. DTSBD314 00938 DTSBD314 00939 S910-READ-NEXT. DTSBD314 00940 SET L910-READ-NEXT-88 TO TRUE. DTSBD314 00941 GO TO S910-MSTR-IO. DTSBD314 00942 DTSBD314 00943 S910-WRITE. DTSBD314 00944 SET L910-WRITE-88 TO TRUE. DTSBD314 00945 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD314 00946 GO TO S910-MSTR-IO. DTSBD314 00947 DTSBD314 00948 S910-REWRITE. DTSBD314 00949 SET L910-REWRITE-88 TO TRUE. DTSBD314 00950 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD314 00951 GO TO S910-MSTR-IO. DTSBD314 00952 DTSBD314 00953 S910-DELETE. DTSBD314 00954 SET L910-DELETE-88 TO TRUE. DTSBD314 00955 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD314 00956 GO TO S910-MSTR-IO. DTSBD314 00957 DTSBD314 00958 S910-MSTR-IO. DTSBD314 00959 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD314 00960 MSKL-REC. DTSBD314 00961 S910-EXIT. EXIT. DTSBD314 00962 SKIP3 DTSBD314 00963 S931-READ. DTSBD314 00964 SET L931-READ-88 TO TRUE. DTSBD314 00965 GO TO S931-REF-IO. DTSBD314 00966 DTSBD314 00967 S931-START-BROWSE. DTSBD314 00968 SET L931-START-BROWSE-88 TO TRUE. DTSBD314 00969 GO TO S931-REF-IO. DTSBD314 00970 DTSBD314 00971 S931-READ-NEXT. DTSBD314 00972 SET L931-READ-NEXT-88 TO TRUE. DTSBD314 00973 GO TO S931-REF-IO. DTSBD314 00974 DTSBD314 00975 S931-REF-IO. DTSBD314 00976 CALL 'DTSBU931' USING L931-LINK-AREA DTSBD314 00977 FSKL-REC. DTSBD314 00978 S931-EXIT. EXIT. DTSBD314 00979 SKIP3 DTSBD314 00980 S946-RPT-O. DTSBD314 00981 CALL 'DTSBU946' USING RSKL-REC. DTSBD314 00982 S946-EXIT. EXIT. DTSBD314 00983 SKIP3 DTSBD314 00984 S999-ABEND. DTSBD314 00985 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD314 00986 S999-EXIT. EXIT. DTSBD314 00987 EJECT DTSBD314 00988 S1000-ADD-15-DAYS. DTSBD314 00989 SET ADD-15-DAYS TO TRUE. DTSBD314 00990 GO TO S1000-PAST-FUTURE. DTSBD314 00991 DTSBD314 00992 S1000-ADD-30-DAYS. DTSBD314 00993 SET ADD-30-DAYS TO TRUE. DTSBD314 00994 GO TO S1000-PAST-FUTURE. DTSBD314 00995 DTSBD314 00996 S1000-PAST-FUTURE. DTSBD314 00997 *-------------------------------------------------------- DTSBD314 00998 * INPUTS TO THIS ROUTINE: L001-FED-8-DATE-9, WRK-NN-DAYS. DTSBD314 00999 *-------------------------------------------------------- DTSBD314 01000 SET L001-FROM-FED-8 TO TRUE. DTSBD314 01001 DTSBD314 01002 PERFORM S001-CONVERT-DATE THRU S001-EXIT. DTSBD314 01003 DTSBD314 01004 IF L001-INVALID-DATE DTSBD314 01005 PERFORM S999-ABEND THRU S999-EXIT. DTSBD314 01006 DTSBD314 01007 DTSBD314 01008 ADD WRK-NN-DAYS TO L001-JUL-ABS-DAY. DTSBD314 01009 DTSBD314 01010 SET L001-FROM-ABS-DAY TO TRUE. DTSBD314 01011 DTSBD314 01012 PERFORM S001-CONVERT-DATE THRU S001-EXIT. DTSBD314 01013 DTSBD314 01014 IF L001-INVALID-DATE DTSBD314 01015 PERFORM S999-ABEND THRU S999-EXIT. DTSBD314 01016 S1000-EXIT. EXIT. DTSBD314 01017 EJECT DTSBD314 01018 S2000-GET-DEFAULT-ADDRESS. DTSBD314 01019 MOVE WRK-EMP-NO TO L111-EMP-NO. DTSBD314 01020 DTSBD314 01021 SET L111-LOOKUP-TAD-88 TO TRUE. DTSBD314 01022 DTSBD314 01023 SET L111-ID-NO-TAD-MAIL-88 TO TRUE. DTSBD314 01024 DTSBD314 01025 PERFORM S111-LOOKUP-ADDRESS THRU S111-EXIT. DTSBD314 01026 DTSBD314 01027 IF L111-ADDR-FOUND-88 DTSBD314 01028 NEXT SENTENCE DTSBD314 01029 ELSE DTSBD314 01030 MOVE SPACE TO L112-NAME-ADDRESS-AREA DTSBD314 01031 MOVE ALL '?' TO L112-MAILING-ADDRESS DTSBD314 01032 GO TO S2000-EXIT. DTSBD314 01033 DTSBD314 01034 MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME. DTSBD314 01035 DTSBD314 01036 MOVE LOW-VALUES TO L112-NAME-ADDRESS-AREA. DTSBD314 01037 DTSBD314 01038 SET L112-TAD-ADDR-88 TO TRUE. DTSBD314 01039 DTSBD314 01040 SET L112-ANCHOR-LAST-88 TO TRUE. DTSBD314 01041 DTSBD314 01042 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA. DTSBD314 01043 DTSBD314 01044 PERFORM S112-FORMAT-ADDRESS THRU S112-EXIT. DTSBD314 01045 S2000-EXIT. EXIT. DTSBD314 01046 EJECT DTSBD314 01047 S3000-WRITE-RPT-AND-MEVL. DTSBD314 01048 PERFORM S946-RPT-O THRU S946-EXIT. DTSBD314 01049 DTSBD314 01050 PERFORM S3100-WRITE-MEVL THRU S3100-EXIT. DTSBD314 01051 S3000-EXIT. EXIT. DTSBD314 01052 EJECT DTSBD314 01053 S3100-WRITE-MEVL. DTSBD314 01054 MOVE LOW-VALUE TO MEVL-REC. DTSBD314 01055 DTSBD314 01056 MOVE WRK-EMP-NO TO MEVL-EMP-NO. DTSBD314 01057 DTSBD314 01058 SET MEVL-EVL-88 TO TRUE. DTSBD314 01059 DTSBD314 01060 ADD +1000 TO LBCM-EMP-ABSTIME. DTSBD314 01061 DTSBD314 01062 MOVE LBCM-EMP-ABSTIME TO L005-ABSTIME. DTSBD314 01063 DTSBD314 01064 SET L005-FROM-ABSTIME TO TRUE. DTSBD314 01065 DTSBD314 01066 PERFORM S005-CONVERT-TIME THRU S005-EXIT. DTSBD314 01067 DTSBD314 01068 MOVE L005-DATE TO MEVL-DATE. DTSBD314 01069 DTSBD314 01070 MOVE L005-TIME TO MEVL-TIME. DTSBD314 01071 DTSBD314 01072 MOVE +0 TO MEVL-PURGE-DATE. DTSBD314 01073 DTSBD314 01074 MOVE WRK-EVENT-TXT TO MEVL-TEXT. DTSBD314 01075 DTSBD314 01076 SET MEVL-SOURCE-SYSTEM-88 TO TRUE. DTSBD314 01077 DTSBD314 01078 SET MEVL-NOT-CONVERTED-88 TO TRUE. DTSBD314 01079 DTSBD314 01080 MOVE LBCM-CURR-RUN-DATE TO MEVL-ESTB-DATE DTSBD314 01081 MEVL-CHNG-DATE. DTSBD314 01082 DTSBD314 01083 MOVE MEVL-REC TO MSKL-REC. DTSBD314 01084 DTSBD314 01085 PERFORM S910-WRITE THRU S910-EXIT. DTSBD314 01086 S3100-EXIT. EXIT. DTSBD314 01087 EJECT DTSBD314 01088 S4000-INITIALIZE-MTCK. DTSBD314 01089 MOVE LOW-VALUE TO MTCK-REC. DTSBD314 01090 DTSBD314 01091 MOVE WRK-EMP-NO TO MTCK-EMP-NO. DTSBD314 01092 DTSBD314 01093 SET MTCK-TCK-88 TO TRUE. DTSBD314 01094 DTSBD314 01095 ADD +1 TO LBCM-EMP-ABSTIME. DTSBD314 01096 DTSBD314 01097 MOVE LBCM-EMP-ABSTIME TO MTCK-ESTB-ABSTIME. DTSBD314 01098 DTSBD314 01099 MOVE +0 TO MTCK-PURGE-DATE. DTSBD314 01100 DTSBD314 01101 INITIALIZE MTCK-DATA-AREA. DTSBD314 01102 DTSBD314 01103 SET MTCK-SOURCE-SYSTEM-88 TO TRUE. DTSBD314 01104 DTSBD314 01105 SET MTCK-NOT-CONVERTED-88 TO TRUE. DTSBD314 01106 DTSBD314 01107 MOVE LBCM-CURR-RUN-DATE TO MTCK-ESTB-DATE DTSBD314 01108 MTCK-CHNG-DATE. DTSBD314 01109 S4000-EXIT. EXIT. DTSBD314 01110 EJECT DTSBD314 01111 S5000-R127-DATA-AREA. DTSBD314 01112 MOVE SPACES TO R127-DATA-AREA. DTSBD314 01113 DTSBD314 01114 DTSBD314 01115 MOVE MPRF-FEIN TO R127-FEIN. DTSBD314 01116 DTSBD314 01117 MOVE MERA-POT-PRED-EMP-NO TO R127-POT-PRED-EMP-NO. DTSBD314 01118 DTSBD314 01119 MOVE MPRF-PRIMARY-NAME TO R127-PRIMARY-NAME. DTSBD314 01120 DTSBD314 01121 MOVE MPRF-ENTITY-NAME TO R127-ENTITY-NAME. DTSBD314 01122 DTSBD314 01123 DTSBD314 01124 MOVE LOW-VALUES TO MTAD-KEY-AREA. DTSBD314 01125 DTSBD314 01126 MOVE WRK-EMP-NO TO MTAD-EMP-NO. DTSBD314 01127 DTSBD314 01128 SET MTAD-TAD-88 TO TRUE. DTSBD314 01129 DTSBD314 01130 SET MTAD-ID-TAX-MAILING-ADDR-88 TO TRUE. DTSBD314 01131 DTSBD314 01132 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSBD314 01133 DTSBD314 01134 PERFORM S910-READ THRU S910-EXIT. DTSBD314 01135 DTSBD314 01136 IF L910-OK-88 DTSBD314 01137 MOVE MSKL-REC TO MTAD-REC DTSBD314 01138 MOVE MTAD-ADDRESS TO R127-MAILING-ADDRESS DTSBD314 01139 MOVE MTAD-VOICE-1 TO R127-MAILING-VOICE-1 DTSBD314 01140 MOVE MTAD-FAX TO R127-MAILING-FAX DTSBD314 01141 MOVE MTAD-EMAIL-ADDRESS TO R127-MAILING-EMAIL-ADDRESS. DTSBD314 01142 DTSBD314 01143 DTSBD314 01144 MOVE LOW-VALUES TO MTAD-KEY-AREA. DTSBD314 01145 DTSBD314 01146 MOVE WRK-EMP-NO TO MTAD-EMP-NO. DTSBD314 01147 DTSBD314 01148 SET MTAD-TAD-88 TO TRUE. DTSBD314 01149 DTSBD314 01150 SET MTAD-ID-TAX-RECORDS-ADDR-88 TO TRUE. DTSBD314 01151 DTSBD314 01152 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSBD314 01153 DTSBD314 01154 PERFORM S910-READ THRU S910-EXIT. DTSBD314 01155 DTSBD314 01156 IF L910-OK-88 DTSBD314 01157 MOVE MSKL-REC TO MTAD-REC DTSBD314 01158 MOVE MTAD-ADDRESS TO R127-STREET-ADDRESS DTSBD314 01159 MOVE MTAD-VOICE-1 TO R127-STREET-VOICE-1 DTSBD314 01160 MOVE MTAD-FAX TO R127-STREET-FAX. DTSBD314 01161 S5000-EXIT. DTSBD314 01162 EXIT. DTSBD314 01163 EJECT DTSBD314 01164 S6000-FLD-REP-FOR-ZIP. DTSBD314 01165 MOVE LOW-VALUES TO FFAZ-KEY-AREA. DTSBD314 01166 DTSBD314 01167 SET FFAZ-FAZ-88 TO TRUE. DTSBD314 01168 DTSBD314 01169 MOVE MPRF-FLD-ZIP TO FFAZ-FLD-TERRITORY. DTSBD314 01170 DTSBD314 01171 MOVE FFAZ-KEY-AREA TO FSKL-KEY-AREA. DTSBD314 01172 DTSBD314 01173 PERFORM S931-READ THRU S931-EXIT. DTSBD314 01174 DTSBD314 01175 IF L931-OK-88 DTSBD314 01176 SET WRK-FLD-REP-FOR-ZIP-YES-88 TO TRUE. DTSBD314 01177 S6000-EXIT. DTSBD314 01178 EXIT. DTSBD314