00001 IDENTIFICATION DIVISION. 11/11/02 00002 PROGRAM-ID. DTSBD360. DTSBD360 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV022 00004 DATE-WRITTEN. SEPTEMBER 1994. DTSBD360 00005 DATE-COMPILED. DTSBD360 00006 SKIP3 DTSBD360 00007 ***** DTSBD360 00008 * DTSBD360 00009 * FUNCTION: DAILY UC-30 PRINTING EVALUATION. DTSBD360 00010 * DTSBD360 00011 * DTSBD360 00012 * MODIFICATION LOG: DTSBD360 00013 * DTSBD360 00014 * 09/06/94 INITIAL DEVELOPMENT. DTSBD360 00015 * WORK ORDER: PROGRAMMER: RHC DTSBD360 00016 * DTSBD360 00017 * 03/13/95 DON'T PRINT R109 WHEN NO IN-STATE FIELD REP. DTSBD360 00018 * WORK ORDER: CR049 PROGRAMMER: RHC DTSBD360 00019 * DTSBD360 00020 * 05/29/96 MODIFIED TO PROCESS CICS ELECTRONIC FILER REQUESTS DTSBD360 00021 * CAUSING AN INDICATOR IN 902 REPORT REC FOR UC30. DTSBD360 00022 * WORK ORDER: NONE PROGRAMMER: SFW DTSBD360 00023 * DTSBD360 00024 * 06-17-96 ADDED SEPARATE ERROR MESSAGE FOR ELECTRONIC FILE- DTSBD360 00025 * ERS WHO DON'T FILE TAX REPORTS ELECTRONICALLY. DTSBD360 00026 * WORK ORDER: WARP II PROGRAMMER: MJA DTSBD360 00027 * DTSBD360 00028 * 07/23/96 ADDED T036-ELF-ADD AS VALID TRANSACTION TYPE TO DTSBD360 00029 * ALLOW UC-30E'S TO PRINT INSTEAD OF FALLING INTO DTSBD360 00030 * MSG1-INVALID-TRN-CD PROCESSING... DTSBD360 00031 * REFERENCE RFP: #BUG PROGRAMMER: MJA DTSBD360 00032 * DTSBD360 00033 * 08/05/96 ADDED R902-ELF-ADD-88 TO DAILY SORT IN DTSIR902. DTSBD360 00034 * ADDED CODE IN P1100-SET-START-YRQ TO PREVENT 902 DTSBD360 00035 * GENERATION FOR T036-ELF-ADD WHEN THE START-YRQ > DTSBD360 00036 * LBCM-LAST-UC30-MASS-MAIL-YRQ. DTSBD360 00037 * REFERENCE RFP: #BUG PROGRAMMER: MJA DTSBD360 00038 * DTSBD360 00039 * 01/16/1999 REVIEWED AND MODIFIED FOR DC. DTSBD360 00040 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD360 00041 * DTSBD360 00042 * 02/27/1999 MODIFIED FOR DC SELF INSURED DEFAULT TAX DUE DTSBD360 00043 * DATE REQUIREMENT. DTSBD360 00044 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD360 00045 * DTSBD360 00046 * 05/13/1999 DO NOT PROCESS YEAR/QUARTERS LESS THAN OR DTSBD360 00047 * EQUAL TO LBCM-PICKUP-YRQ. DTSBD360 00048 * REFERENCE: PICKUP DIR PROGRAMMER: EHH DTSBD360 00049 * DTSBD360 00050 * 06/03/1999 MODFIED R902 GENERATION FOR DC REQUIREMENTS DTSBD360 00051 * REFERENCE: DIR 68 PROGRAMMER: GD DTSBD360 00052 * DTSBD360 00053 * 08/26/1999 MODIFIED ADDRESS LOOKUP LOGIC TO CORRESPOND TO DTSBD360 00054 * T036-ADDR-TYPE LEVEL 88 ENTRIES - WHICH WERE DTSBD360 00055 * CHANGED ON SOME UNKOWN DATE AFTER 06/03/1999. DTSBD360 00056 * REFERENCE: BUG FIX PROGRAMMER: EHH DTSBD360 00057 * DTSBD360 00058 * 08/14/2002 RECOMPILED TO GET NEW VERSION OF DTSIL516 DTSBD360 00059 * REFERENCE: HOUSEHOLD PROGRAMMER: GD DTSBD360 00060 * DTSBD360 00061 * 08/30/2002 RECOMPILED TO GET NEW VERSION OF DTSIR910, DTSBD360 00062 * ADDED CODE TO LIST SSNS ON UC30H REPORT. DTSBD360 00063 * REFERENCE: HOUSEHOLD PROGRAMMER: ZL1 DTSBD360 00064 * DTSBD360 00065 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD360 00066 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD360 00067 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD360 00068 * DTSBD360 00069 * DTSBD360 00070 * DESCRIPTION: DTSBD360 00071 * DTSBD360 00072 * GENERATES UC-30 REPORT RECORDS FOR A RANGE OF QUARTERS DTSBD360 00073 * (T036-START-YRQ THRU T036-END-YRQ). DTSBD360 00074 * DTSBD360 00075 * DTSBD360 00076 * DETERMINE WRK-START-YRQ: DTSBD360 00077 * DTSBD360 00078 * IF T036-START-YRQ NOT = 0 DTSBD360 00079 * MOVE T036-START-YRQ TO WRK-START-YRQ DTSBD360 00080 * ELSE DTSBD360 00081 * MOVE SMALLEST OF MSOL-LIAB-YRQ TO WRK-START-YRQ. DTSBD360 00082 * DTSBD360 00083 * IF WRK-START-YRQ > MPRF-LAST-ARCHIVED-YRQ DTSBD360 00084 * NEXT SENTENCE DTSBD360 00085 * ELSE DTSBD360 00086 * MOVE MPRF-LAST-ARCHIVED-YRQ + 1 TO WRK-START-YRQ. DTSBD360 00087 * DTSBD360 00088 * DTSBD360 00089 * DETERMINE WRK-END-YRQ: DTSBD360 00090 * DTSBD360 00091 * IF T036-END-YRQ NOT (= 0 OR 99999) DTSBD360 00092 * MOVE T036-END-YRQ TO WRK-END-YRQ DTSBD360 00093 * ELSE DTSBD360 00094 * MOVE LARGEST OF CLOSED LIABILITY SPAN DTSBD360 00095 * MSOL-LAST-LIAB-YRQ OR (IF AN OPEN LIABILITY SPAN DTSBD360 00096 * EXISTS) LBCM-LAST-UC30-MASS-MAIL-YRQ TO WRK-END-YRQ. DTSBD360 00097 * DTSBD360 00098 * DTSBD360 00099 * LOCATE ADDRESS: DTSBD360 00100 * DTSBD360 00101 * IF T036-REQUEST DTSBD360 00102 * LOCATE AND FORMAT ADDRESS SPECIFIED BY DTSBD360 00103 * T036-ADDR-TYPE AND T036-ADDR-NO: DTSBD360 00104 * IF ADDRESS NOT FOUND DTSBD360 00105 * FAIL TRANSACTION DTSBD360 00106 * ELSE DTSBD360 00107 * CONTINUE DTSBD360 00108 * ELSE DTSBD360 00109 * LOCATE AND FORMAT MPRF-TAX-ADDR-IND-9. DTSBD360 00110 * DTSBD360 00111 * DTSBD360 00112 * IF WRK-END-YRQ < WRK-START-YRQ DTSBD360 00113 * MOVE WRK-START-YRQ TO WRK-END-YRQ. DTSBD360 00114 * DTSBD360 00115 * IF T036-ELF-ADD AND WRK-START-YRQ > LBCM-LAST-UC30- DTSBD360 00116 * MASS-MAIL-YRQ MOVE +0 TO WRK-START-YRQ. DTSBD360 00117 * DTSBD360 00118 * DTSBD360 00119 * FOR EACH YRQ IN THE WRK-START-YRQ THRU WRK-END-YRQ RANGE: DTSBD360 00120 * DTSBD360 00121 * DTSBD360 00122 * USE HOLD-EMP-NO AND HOLD-YRQ-REPORTED-IND TO LIMIT DTSBD360 00123 * THE NUMBER OF R902 RECORDS GENERATED FOR A GIVEN DTSBD360 00124 * EMP-NO AND YRQ TO ONE. IF GENERATION OF A SECOND DTSBD360 00125 * R902 RECORD IS REQUESTED, THEN WRITE A R907 TELLING DTSBD360 00126 * THE USERS ABOUT THE SITUATION, BUT DON'T GENERATE DTSBD360 00127 * ANOTHER R902. DTSBD360 00128 * DTSBD360 00129 * DTSBD360 00130 * IF T036-FORCE-PRINT DTSBD360 00131 * IF A RATE EXISTS (REGARDLESS OF EMPLOYER SUBJECTIVITY DTSBD360 00132 * IN THE QUARTER; IF SELF INSURED, DON'T CHECK FOR MISSINDTSBD360 00133 * RATE) DTSBD360 00134 * CONSTRUCT AND WRITE A R902 RECORD DTSBD360 00135 * ELSE DTSBD360 00136 * WRITE A R907 RECORD COMPLAINING ABOUT THE SITUATION. DTSBD360 00137 * DTSBD360 00138 * IF T036-NO-FORCE-PRINT DTSBD360 00139 * IF EMPLOYER IS SUBJECT IN THE QUARTER (CALL DTSBU516) DTSBD360 00140 * IF THE REPORT IS MISSING FOR THE YRQ (NO MQTR RECORD DTSBD360 00141 * OR NOT MQTR-CURR-RCVD-88) DTSBD360 00142 * IF A RATE EXISTS (IF SELF-INSURED, DON'T CHECK FOR DTSBD360 00143 * MISSING RATE) DTSBD360 00144 * CONSTRUCT AND WRITE A R902-RECORD DTSBD360 00145 * ELSE DTSBD360 00146 * WRITE A R907 RECORD COMPLAINING ABOUT THE DTSBD360 00147 * SITUATION DTSBD360 00148 * ELSE DTSBD360 00149 * NEXT SENTENCE DTSBD360 00150 * ELSE DTSBD360 00151 * NEXT SENTENCE. DTSBD360 00152 * DTSBD360 00153 * DTSBD360 00154 * SEE THE OUTPUT DESCRIPTION FOR INSTRUCTIONS ON DTSBD360 00155 * CONSTRUCTING THE R902 RECORD. A COUPLE OF HINTS: DTSBD360 00156 * DTSBD360 00157 * . R902-DAILY-WAIVER-* DATA ELEMENTS SHOULD BE ZEROED DTSBD360 00158 * WHEN THE R902 RECORD DOES NOT REPRESENT A QUARTER DTSBD360 00159 * WITHIN T036-WAIVER-START-YRQ THRU T036-WAIVER-END-YRQDTSBD360 00160 * DTSBD360 00161 * . IF A MQTR RECORD EXISTS, THEN MOVE MQTR-RPT-DUE-DATE DTSBD360 00162 * TO R902-RPT-DUE-DATE ELSE MOVE L516-DEFAULT-DUE-DATE DTSBD360 00163 * TO R902-RPT-DUE-DATE. DTSBD360 00164 * DTSBD360 00165 * . IF MQTR-CURR-RCVD-88 (WILL ONLY OCCUR WHEN DTSBD360 00166 * T036-FORCE-PRINT) THEN SET R902-DAILY-SUPL-YES-88 DTSBD360 00167 * TO TRUE; ELSE MOVE SPACES TO R902-DAILY-SUPPLEMENTAL DTSBD360 00168 * -IND. DTSBD360 00169 * DTSBD360 00170 * . MOVE T036-RESP-OP-ID TO R902-DAILY-OP-ID. DTSBD360 00171 * DTSBD360 00172 * . READ FCYR RECORD FOR THE TAXABLE WAGE BASE. IF FCYR DTSBD360 00173 * RECORD NOT FOUND, WRITE AN R907 COMPLAINING AND DTSBD360 00174 * DON'T WRITE A R902 RECORD. (REGULAR ONLY.) DTSBD360 00175 * DTSBD360 00176 * -------------------------------------------------------- DTSBD360 00177 * DTSBD360 00178 * NOTES FOR GENERATION OF R109. DTSBD360 00179 * DTSBD360 00180 * DTSBD360 00181 * . IF NOT T036-LIAB-DETER, THEN BYPASS R109 PROCESSING. DTSBD360 00182 * DTSBD360 00183 * . LOOK FOR A MSOL RECORD WITH T036-START-YRQ WITHIN DTSBD360 00184 * MSOL-FIRST-LIAB-YRQ THRU MSOL-LAST-LIAB-YRQ AND DTSBD360 00185 * MSOL-ESTB-DATE = LBCM-CURR-RUN-DATE. DTSBD360 00186 * IF SUCH A MSOL IS FOUND, IT BECOMES THE "SUBJECT" MSOL DTSBD360 00187 * AND R109-PROCESSING CONTINUES. DTSBD360 00188 * DTSBD360 00189 * . IF SUCH A MSOL IS NOT FOUND, THEN R109 PROCESSING ENDS DTSBD360 00190 * (WRITE A R907 RECORD REPORTING THE SITUATION). DTSBD360 00191 * DTSBD360 00192 * MOVE +0 TO R109-YRQ-COUNT. DTSBD360 00193 * DTSBD360 00194 * BROWSE THE MQTR-RECORDS FROM MSOL-FIRST-LIAB-YRQ THRU DTSBD360 00195 * MSOL-LAST-LIAB-YRQ (OR L910-NO-REC-88 ON THE READ NEXT). DTSBD360 00196 * DTSBD360 00197 * IF MQTR-RPT-IS-PURSUED-88, THEN DTSBD360 00198 * ADD +1 TO R109-YRQ-COUNT DTSBD360 00199 * MOVE MQTR-YRQ TO R109-YRQ. (IF R109-YRQ-CNT NEEDS TO DTSBD360 00200 * EXCEED 24, DON'T UPDATE R109; WRITE R907 - RARER THAN DTSBD360 00201 * HENS TEETH.) DTSBD360 00202 * DTSBD360 00203 * IF R109-YRQ-CNT > +0 DTSBD360 00204 * CONSTRUCT THE REMAINDER OF THE R109 RECORD AND WRITE THE DTSBD360 00205 * R109 RECORD DTSBD360 00206 * ELSE DTSBD360 00207 * NO R109 RECORD IS WRITTEN. DTSBD360 00208 * DTSBD360 00209 * DTSBD360 00210 * R109 CONSTRUCTION HINTS: DTSBD360 00211 * DTSBD360 00212 * . MOVE T036-RESP-OP-ID TO R109-OP-ID. DTSBD360 00213 * DTSBD360 00214 * . MOVE T036-WAIVER-* TO R109-WAIVER-*. DTSBD360 00215 * DTSBD360 00216 * . CALL DTSBU061 TO DETERMINE R109-FLD-REP-ID. DTSBD360 00217 * DTSBD360 00218 * DTSBD360 00219 * DTSBD360 00220 * DTSBD360 00221 * MASTER FILE RECORDS READ: DTSBD360 00222 * DTSBD360 00223 * MSOL DTSBD360 00224 * MQTR DTSBD360 00225 * DTSBD360 00226 * DTSBD360 00227 * REFERENCE FILE RECORDS READ: DTSBD360 00228 * DTSBD360 00229 * FCYR DTSBD360 00230 * DTSBD360 00231 * DTSBD360 00232 * MASTER FILE RECORDS UPDATED: DTSBD360 00233 * DTSBD360 00234 * MEVL (WRITE) DTSBD360 00235 * DTSBD360 00236 * DTSBD360 00237 * REPORT RECORDS WRITTEN: DTSBD360 00238 * DTSBD360 00239 * R109 NOTICE OF MISSING WAGE REPORTS DTSBD360 00240 * R902 QUARTERLY REPORT (UC-30). DTSBD360 00241 * R907 ERROR. DTSBD360 00242 * DTSBD360 00243 * DTSBD360 00244 * MODULES CALLED: DTSBD360 00245 * DTSBD360 00246 * DTSBU004 QUARTER CONVERSION/EDIT. DTSBD360 00247 * DTSBU005 TIME CONVERSION/EDIT. DTSBD360 00248 * DTSBU061 FIELD ZIP/FIELD REP ID LOOKUP. DTSBD360 00249 * DTSBU111 ADDRESS LOOKUP. DTSBD360 00250 * DTSBU112 ADDRESS FORMAT. DTSBD360 00251 * DTSBU516 DETERMINE LIABILITY, DUE DATE, AND RATE FOR A DTSBD360 00252 * GIVEN QUARTER. DTSBD360 00253 * DTSBU910 MASTER FILE I/O DRIVER. DTSBD360 00254 * DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1. DTSBD360 00255 * DTSBD360 00256 * DTSBD360 00257 ***** DTSBD360 00258 SKIP3 DTSBD360 00259 ENVIRONMENT DIVISION. DTSBD360 00260 EJECT DTSBD360 00261 DATA DIVISION. DTSBD360 00262 SKIP3 DTSBD360 00263 WORKING-STORAGE SECTION. DTSBD360 002635 77 PAN-VALET PICTURE X(24) VALUE '022DTSBD360 11/11/02'. DTSBD360 00264 SKIP3 DTSBD360 00265 01 WRK-AREA. DTSBD360 00266 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +360.DTSBD360 00267 DTSBD360 00268 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD360'.DTSBD360 00269 DTSBD360 00270 05 WRK-ELECTRNIC-WAGE-FILER-IND PIC X(01). DTSBD360 00271 88 WRK-ELECTRNIC-WAGES-YES-88 VALUE 'Y'. DTSBD360 00272 88 WRK-ELECTRNIC-WAGES-NO-88 VALUE 'N'. DTSBD360 00273 DTSBD360 00274 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBD360 00275 DTSBD360 00276 05 YRQ-NINES-LIT PIC S9(05) COMP-3 DTSBD360 00277 VALUE +99999. DTSBD360 00278 DTSBD360 00279 05 HOLD-EMP-NO PIC S9(07) COMP-3. DTSBD360 00280 DTSBD360 00281 05 WRK-EMP-NO PIC S9(07) COMP-3 VALUE +0. DTSBD360 00282 DTSBD360 00283 05 WRK-PARM-SUBJECT-YRQ PIC S9(05) COMP-3. DTSBD360 00284 DTSBD360 00285 05 WRK-PARM-PRIOR-YRQ PIC S9(05) COMP-3. DTSBD360 00286 DTSBD360 00287 05 HOLD-YRQ-REPORTED-INDS. DTSBD360 00288 10 FILLER OCCURS 400 TIMES PIC X(01). DTSBD360 00289 88 HOLD-YRQ-REPORTED-YES VALUE 'Y'. DTSBD360 00290 88 HOLD-YRQ-REPORTED-NO VALUE 'N'. DTSBD360 00291 DTSBD360 00292 05 HOLD-YEAR-REPORTED-TABLE. DTSBD360 00293 10 YR-SUB PIC S9(04) COMP. DTSBD360 00294 10 HOLD-YEAR-REPORTED-IND PIC X(01). DTSBD360 00295 88 HOLD-YEAR-REPORTED-YES VALUE 'Y'. DTSBD360 00296 88 HOLD-YEAR-REPORTED-NO VALUE 'N'. DTSBD360 00297 10 HOLD-YEAR-TABLE-MAX PIC S9(04) COMP DTSBD360 00298 VALUE +100. DTSBD360 00299 10 HOLD-YEAR-TABLE-CNT PIC S9(04) COMP DTSBD360 00300 VALUE +0. DTSBD360 00301 10 HOLD-YEAR OCCURS 100 TIMES PIC S9(05) COMP-3. DTSBD360 00302 DTSBD360 00303 DTSBD360 00304 05 WRK-START-YRQ PIC S9(05) COMP-3. DTSBD360 00305 DTSBD360 00306 05 WRK-END-YRQ PIC S9(05) COMP-3. DTSBD360 00307 DTSBD360 00308 05 WRK-ABS-YRQ PIC S9(04) COMP. DTSBD360 00309 DTSBD360 00310 05 WRK-YRQ PIC S9(05) COMP-3. DTSBD360 00311 DTSBD360 00312 05 WRK-END-ABS-YRQ PIC S9(04) COMP. DTSBD360 00313 DTSBD360 00314 05 WRK-MQTR-EXISTS-IND PIC X(01). DTSBD360 00315 88 WRK-MQTR-EXISTS-YES VALUE 'Y'. DTSBD360 00316 88 WRK-MQTR-EXISTS-NO VALUE 'N'. DTSBD360 00317 DTSBD360 00318 05 INCONSISTENT-WAIVER-IND PIC X(01). DTSBD360 00319 DTSBD360 00320 *** THE FOLLOWING DATA ELEMENT CONTAINS EITHER THE DTSBD360 00321 *** LBCM-LAST-UC30-MASS-MAIL-YRQ OR THE DTSBD360 00322 *** WRK-UC30H-MASS-MAIL-YRQ DEPENDING ON WHETHER THE EMPLOYER'S DTSBD360 00323 *** MOST RECENT FILING SCHEDULE IS QUARTERLY OR ANNUAL. DTSBD360 00324 05 WRK-LAST-MASS-MAIL-YRQ PIC S9(05) COMP-3. DTSBD360 00325 DTSBD360 00326 05 WRK-UC30H-DATE-AREA. DTSBD360 00327 10 WRK-UC30H-MASS-MAIL-YRQ PIC S9(05) COMP-3. DTSBD360 00328 DTSBD360 00329 05 WRK-ANN-YRQ PIC 9(05). DTSBD360 00330 05 FILLER REDEFINES WRK-ANN-YRQ. DTSBD360 00331 10 WRK-ANN-YEAR PIC 9(04). DTSBD360 00332 10 FILLER PIC X(01). DTSBD360 00333 05 WRK-UC30H-YEAR PIC S9(05) COMP-3. DTSBD360 00334 DTSBD360 00335 05 WRK-R109-YRQ-TABLE OCCURS 24 TIMES. DTSBD360 00336 10 WRK-R109-YRQ PIC S9(05) COMP-3. DTSBD360 00337 10 WRK-R109-RPT-TYPE PIC X(01). DTSBD360 00338 88 WRK-R109-RPT-QTR-88 VALUE 'Q'. DTSBD360 00339 88 WRK-R109-RPT-ANN-88 VALUE 'A'. DTSBD360 00340 DTSBD360 00341 05 WRK-TAB-SUB PIC S9(04) COMP. DTSBD360 00342 05 WRK-R109-SUB PIC S9(04) COMP. DTSBD360 00343 05 WRK-R109-CNT PIC S9(04) COMP. DTSBD360 00344 DTSBD360 00345 05 WRK-QTRLY-RPT-IND PIC X(01). DTSBD360 00346 88 WRK-QTRLY-RPT-YES-88 VALUE 'Y'. DTSBD360 00347 88 WRK-QTRLY-RPT-NO-88 VALUE 'N'. DTSBD360 00348 DTSBD360 00349 05 WRK-ANN-RPT-IND PIC X(01). DTSBD360 00350 88 WRK-ANN-RPT-YES-88 VALUE 'Y'. DTSBD360 00351 88 WRK-ANN-RPT-NO-88 VALUE 'N'. DTSBD360 00352 DTSBD360 00353 05 WRK-SSN-ERROR-IND PIC X(01). DTSBD360 00354 88 WRK-SSN-ERROR-YES-88 VALUE 'Y'. DTSBD360 00355 88 WRK-SSN-ERROR-NO-88 VALUE 'N'. DTSBD360 00356 DTSBD360 00357 05 TBL-SUB PIC S9(04) COMP. DTSBD360 00358 05 TBL-CNT PIC S9(04) COMP VALUE +0. DTSBD360 00359 05 TBL-MAX PIC S9(04) COMP DTSBD360 00360 VALUE +250. DTSBD360 00361 05 SSN-SUB PIC S9(04) COMP. DTSBD360 00362 05 NXT-SUB PIC S9(04) COMP. DTSBD360 00363 05 WRK-MAX-SSN PIC S9(09) COMP-3 VALUE +0. DTSBD360 00364 DTSBD360 00365 05 WRK-INDEX-IND PIC X(01). DTSBD360 00366 88 WRK-INDEX-NULL-88 VALUE '0'. DTSBD360 00367 88 WRK-INDEX-POSITION-FOUND-88 VALUE '1'. DTSBD360 00368 88 WRK-INDEX-SSN-FOUND-88 VALUE '2'. DTSBD360 00369 88 WRK-INDEX-FOUND-88 VALUE '1' '2'. DTSBD360 00370 DTSBD360 00371 01 WRK-SSN-TABLE. DTSBD360 00372 05 WRK-SSN OCCURS 250 TIMES PIC S9(09) COMP-3. DTSBD360 00373 DTSBD360 00374 DTSBD360 00375 01 MSG-TABLE. DTSBD360 00376 05 MSG1-INVALID-TRN-CD. DTSBD360 00377 10 MSG1-ID PIC X(11) VALUE 'DTSBD360905'. DTSBD360 00378 10 MSG1-SHORT-TEXT PIC X(20) VALUE 'INVALID TRN CD'. DTSBD360 00379 10 MSG1-LONG-TEXT. DTSBD360 00380 15 FILLER PIC X(30) DTSBD360 00381 VALUE 'TRANSACTION FAILED - TRANSACTI'. DTSBD360 00382 15 FILLER PIC X(30) DTSBD360 00383 VALUE 'ON CODE NOT VALID '. DTSBD360 00384 DTSBD360 00385 05 MSG2-CHG-ONLY. DTSBD360 00386 10 MSG2-ID PIC X(11) VALUE 'DTSBD360301'. DTSBD360 00387 10 MSG2-SHORT-TEXT PIC X(20) VALUE 'CHARGING ONLY '. DTSBD360 00388 10 MSG2-LONG-TEXT. DTSBD360 00389 15 FILLER PIC X(30) DTSBD360 00390 VALUE 'TRANSACTION FAILED - CHARGING '. DTSBD360 00391 15 FILLER PIC X(30) DTSBD360 00392 VALUE 'ONLY EMPLOYER '. DTSBD360 00393 DTSBD360 00394 05 MSG3-ADDRESS-MISSING. DTSBD360 00395 10 MSG3-ID PIC X(11) VALUE 'DTSBD360909'. DTSBD360 00396 10 MSG3-SHORT-TEXT PIC X(20) VALUE 'ADDRESS MISSING'. DTSBD360 00397 10 MSG3-LONG-TEXT. DTSBD360 00398 15 FILLER PIC X(30) DTSBD360 00399 VALUE 'TRANSACTION FAILED - EXPECTED '. DTSBD360 00400 15 FILLER PIC X(30) DTSBD360 00401 VALUE 'ADDRESS NOT FOUND '. DTSBD360 00402 DTSBD360 00403 DTSBD360 00404 *--- MESSAGES BELOW LEAVE LBCM-TRN-RESULT-IND UNCHANGED DTSBD360 00405 DTSBD360 00406 05 MSG4-DUPLICATE-REQUEST. DTSBD360 00407 10 MSG4-ID. DTSBD360 00408 15 MSG4-ID-1 PIC X(08) VALUE 'DTSBD360'. DTSBD360 00409 15 MSG4-ID-2 PIC X(03) VALUE '391'. DTSBD360 00410 10 MSG4-SHORT-TEXT PIC X(20) VALUE 'DUPLICATE REQ'. DTSBD360 00411 10 MSG4-LONG-TEXT. DTSBD360 00412 15 FILLER PIC X(30) DTSBD360 00413 VALUE 'QUARTERLY REPORT PRINT FAILED '. DTSBD360 00414 15 FILLER PIC X(26) DTSBD360 00415 VALUE '- DUPLICATE REQUEST YRQ = '. DTSBD360 00416 15 MSG4-SLASH-QTR PIC X(04). DTSBD360 00417 DTSBD360 00418 05 MSG5-RATE-MISSING. DTSBD360 00419 10 MSG5-ID. DTSBD360 00420 15 MSG5-ID-1 PIC X(08) VALUE 'DTSBD360'. DTSBD360 00421 15 MSG5-ID-2 PIC X(03) VALUE '392'. DTSBD360 00422 10 MSG5-SHORT-TEXT PIC X(20) VALUE 'RATE MISSING'. DTSBD360 00423 10 MSG5-LONG-TEXT. DTSBD360 00424 15 FILLER PIC X(30) DTSBD360 00425 VALUE 'QUARTERLY REPORT PRINT FAILED '. DTSBD360 00426 15 FILLER PIC X(22) DTSBD360 00427 VALUE '- RATE MISSING YRQ = '. DTSBD360 00428 15 MSG5-SLASH-QTR PIC X(04). DTSBD360 00429 DTSBD360 00430 05 MSG6-MSOL-MISSING. DTSBD360 00431 10 MSG6-ID. DTSBD360 00432 15 MSG6-ID-1 PIC X(08) VALUE 'DTSBD360'. DTSBD360 00433 15 MSG6-ID-2 PIC X(03) VALUE '393'. DTSBD360 00434 10 MSG6-SHORT-TEXT PIC X(20) VALUE 'MSOL NOT FOUND'. DTSBD360 00435 10 MSG6-LONG-TEXT. DTSBD360 00436 15 FILLER PIC X(30) DTSBD360 00437 VALUE 'MISSING REPORT NOTICE PRINT FA'. DTSBD360 00438 15 FILLER PIC X(38) DTSBD360 00439 VALUE 'ILED - MSOL NOT FOUND YRQ = '. DTSBD360 00440 15 MSG6-SLASH-QTR PIC X(04). DTSBD360 00441 DTSBD360 00442 05 MSG7-OVER-24. DTSBD360 00443 10 MSG7-ID. DTSBD360 00444 15 MSG7-ID-1 PIC X(08) VALUE 'DTSBD360'. DTSBD360 00445 15 MSG7-ID-2 PIC X(03) VALUE '394'. DTSBD360 00446 10 MSG7-SHORT-TEXT PIC X(20) VALUE 'OVER 24 PURSUED'. DTSBD360 00447 10 MSG7-LONG-TEXT. DTSBD360 00448 15 FILLER PIC X(30) DTSBD360 00449 VALUE 'MISSING REPORT NOTICE PRINT FA'. DTSBD360 00450 15 FILLER PIC X(30) DTSBD360 00451 VALUE 'ILED - OVER 24 PURSUED REPORTS'. DTSBD360 00452 DTSBD360 00453 05 MSG8-FCYR-MISSING. DTSBD360 00454 10 MSG8-ID. DTSBD360 00455 15 MSG8-ID-1 PIC X(08) VALUE 'DTSBD360'. DTSBD360 00456 15 MSG8-ID-2 PIC X(03) VALUE '395'. DTSBD360 00457 10 MSG8-SHORT-TEXT PIC X(20) VALUE 'FCYR NOT FOUND'. DTSBD360 00458 10 MSG8-LONG-TEXT. DTSBD360 00459 15 FILLER PIC X(31) DTSBD360 00460 VALUE 'UC-30 PRINT FAILED - TAXABLE WA'. DTSBD360 00461 15 FILLER PIC X(26) DTSBD360 00462 VALUE 'GE BASE NOT FOUND YEAR = '. DTSBD360 00463 15 MSG8-YEAR PIC 9(04). DTSBD360 00464 DTSBD360 00465 05 MSG9-NO-WAIVER-MSG. DTSBD360 00466 10 MSG9-ID. DTSBD360 00467 15 MSG9-ID-1 PIC X(08) VALUE 'DTSBD360'. DTSBD360 00468 15 MSG9-ID-2 PIC X(03) VALUE '396'. DTSBD360 00469 10 MSG9-SHORT-TEXT PIC X(20) DTSBD360 00470 VALUE 'INCONSISTENT WAIVER'. DTSBD360 00471 10 MSG9-LONG-TEXT. DTSBD360 00472 15 FILLER PIC X(31) DTSBD360 00473 VALUE 'INCONSISTENCY FOUND WAIVER MSG'. DTSBD360 00474 15 FILLER PIC X(31) DTSBD360 00475 VALUE ' NOT PRINTED ON UC-30(S) (AND M'. DTSBD360 00476 15 FILLER PIC X(14) DTSBD360 00477 VALUE 'ISS RPT NOTICE'. DTSBD360 00478 15 MSG9-SLASH-FROM-QTR PIC X(04). DTSBD360 00479 15 FILLER PIC X(06) DTSBD360 00480 VALUE ' THRU '. DTSBD360 00481 15 MSG9-SLASH-TO-QTR PIC X(04). DTSBD360 00482 DTSBD360 00483 05 MSG10-NO-FLD-REP. DTSBD360 00484 10 MSG10-ID. DTSBD360 00485 15 MSG10-ID-1 PIC X(08) VALUE 'DTSBD360'. DTSBD360 00486 15 MSG10-ID-2 PIC X(03) VALUE '692'. DTSBD360 00487 10 MSG10-SHORT-TEXT PIC X(20) DTSBD360 00488 VALUE 'NO FIELD REP'. DTSBD360 00489 10 MSG10-LONG-TEXT. DTSBD360 00490 15 FILLER PIC X(30) DTSBD360 00491 VALUE 'MISSING REPORT NOTICE NOT PRIN'. DTSBD360 00492 15 FILLER PIC X(30) DTSBD360 00493 VALUE 'TED - NO FIELD REP ASSIGNED '. DTSBD360 00494 DTSBD360 00495 *****05 MSG11-NO-MELF-RECORD. DTSBD360 00496 *********10 MSG11-ID. DTSBD360 00497 *************15 MSG11-ID-1 PIC X(08) VALUE 'DTSBD360'. DTSBD360 00498 *************15 MSG11-ID-2 PIC X(03) VALUE '397'. DTSBD360 00499 *********10 MSG11-SHORT-TEXT PIC X(20) DTSBD360 00500 *************************VALUE 'MELF REC NOT FOUND '. DTSBD360 00501 *********10 MSG11-LONG-TEXT. DTSBD360 00502 *************15 FILLER PIC X(30) DTSBD360 00503 *************************VALUE 'UC-30E NOT PRINTED - NO MELF RE'. DTSBD360 00504 *************15 FILLER PIC X(30) DTSBD360 00505 *************************VALUE 'CORD FOUND '. DTSBD360 00506 DTSBD360 00507 *****05 MSG12-NOT-ELECTRONIC-FILER. DTSBD360 00508 *********10 MSG12-ID. DTSBD360 00509 *************15 MSG12-ID-1 PIC X(08) VALUE 'DTSBD360'. DTSBD360 00510 *************15 MSG12-ID-2 PIC X(03) VALUE '398'. DTSBD360 00511 *********10 MSG12-SHORT-TEXT PIC X(20) DTSBD360 00512 *************************VALUE 'NOT AN ELEC FILER '. DTSBD360 00513 *********10 MSG12-LONG-TEXT. DTSBD360 00514 *************15 FILLER PIC X(30) DTSBD360 00515 *************************VALUE 'UC-30E NOT PRINTED - NOT AN ELE'. DTSBD360 00516 *************15 FILLER PIC X(30) DTSBD360 00517 *************************VALUE 'CTRONIC FILER FOR TAX REPORTS '. DTSBD360 00518 EJECT DTSBD360 00519 01 R109-REC. DTSBD360 00520 ++INCLUDE DTSIR109 DTSBD360 00521 EJECT DTSBD360 00522 01 R902-REC. DTSBD360 00523 ++INCLUDE DTSIR902 DTSBD360 00524 SKIP3 DTSBD360 00525 01 R907-REC. DTSBD360 00526 ++INCLUDE DTSIR907 DTSBD360 00527 EJECT DTSBD360 00528 01 R910-REC. DTSBD360 00529 ++INCLUDE DTSIR910 DTSBD360 00530 EJECT DTSBD360 00531 01 L004-LINK-AREA. DTSBD360 00532 ++INCLUDE DTSIL004 DTSBD360 00533 SKIP3 DTSBD360 00534 01 L005-LINK-AREA. DTSBD360 00535 ++INCLUDE DTSIL005 DTSBD360 00536 SKIP3 DTSBD360 00537 01 L061-LINK-AREA. DTSBD360 00538 ++INCLUDE DTSIL061 DTSBD360 00539 SKIP3 DTSBD360 00540 01 L111-LINK-AREA. DTSBD360 00541 ++INCLUDE DTSIL111 DTSBD360 00542 SKIP3 DTSBD360 00543 01 L112-LINK-AREA. DTSBD360 00544 ++INCLUDE DTSIL112 DTSBD360 00545 SKIP3 DTSBD360 00546 01 L410-LINK-AREA. DTSBD360 00547 ++INCLUDE DTSIL410 DTSBD360 00548 SKIP3 DTSBD360 00549 01 L415-LINK-AREA. DTSBD360 00550 ++INCLUDE DTSIL415 DTSBD360 00551 SKIP3 DTSBD360 00552 01 L516-LINK-AREA. DTSBD360 00553 ++INCLUDE DTSIL516 DTSBD360 00554 EJECT DTSBD360 00555 01 L910-LINK-AREA. DTSBD360 00556 ++INCLUDE DTSIL910 DTSBD360 00557 SKIP3 DTSBD360 00558 01 MSKL-REC. DTSBD360 00559 ++INCLUDE DTSIMSKL DTSBD360 00560 SKIP3 DTSBD360 00561 01 MELF-REC. DTSBD360 00562 ++INCLUDE DTSIMELF DTSBD360 00563 SKIP3 DTSBD360 00564 01 MSOL-REC. DTSBD360 00565 ++INCLUDE DTSIMSOL DTSBD360 00566 SKIP3 DTSBD360 00567 01 MQTR-REC. DTSBD360 00568 ++INCLUDE DTSIMQTR DTSBD360 00569 SKIP3 DTSBD360 00570 01 MEVL-REC. DTSBD360 00571 ++INCLUDE DTSIMEVL DTSBD360 00572 SKIP3 DTSBD360 00573 01 MTAA-REC. DTSBD360 00574 ++INCLUDE DTSIMTAA DTSBD360 00575 SKIP3 DTSBD360 00576 01 MOPO-REC. DTSBD360 00577 ++INCLUDE DTSIMOPO DTSBD360 00578 SKIP3 DTSBD360 00579 *01 MBAA-REC. DTSBD360 00580 ***INCLUDE DTSIMBAA DTSBD360 00581 EJECT DTSBD360 00582 01 L931-LINK-AREA. DTSBD360 00583 ++INCLUDE DTSIL931 DTSBD360 00584 SKIP3 DTSBD360 00585 01 L981-LINK-AREA. DTSBD360 00586 ++INCLUDE DTSIL981 DTSBD360 00587 SKIP3 DTSBD360 00588 01 FSKL-REC. DTSBD360 00589 ++INCLUDE DTSIFSKL DTSBD360 00590 SKIP3 DTSBD360 00591 01 FCYR-REC. DTSBD360 00592 ++INCLUDE DTSIFCYR DTSBD360 00593 EJECT DTSBD360 00594 01 WWGH-REC. DTSBD360 00595 ++INCLUDE DTSIWWGH DTSBD360 00596 EJECT DTSBD360 00597 LINKAGE SECTION. DTSBD360 00598 SKIP3 DTSBD360 00599 01 LBCM-LINK-AREA. DTSBD360 00600 ++INCLUDE DTSILBCM DTSBD360 00601 EJECT DTSBD360 00602 01 MPRF-REC. DTSBD360 00603 ++INCLUDE DTSIMPRF DTSBD360 00604 EJECT DTSBD360 00605 01 T036-REC. DTSBD360 00606 ++INCLUDE DTSIT036 DTSBD360 00607 EJECT DTSBD360 00608 PROCEDURE DIVISION USING LBCM-LINK-AREA DTSBD360 00609 MPRF-REC DTSBD360 00610 T036-REC. DTSBD360 00611 DTSBD360 00612 DTSBD360 00613 IF FIRST-TIME-IND = 'Y' DTSBD360 00614 PERFORM I0000-FIRST-TIME THRU I0000-EXIT DTSBD360 00615 MOVE 'N' TO FIRST-TIME-IND. DTSBD360 00616 DTSBD360 00617 DTSBD360 00618 IF T036-LIAB-DETER DTSBD360 00619 OR T036-REQUEST DTSBD360 00620 OR T036-INACTIVATION DTSBD360 00621 **********OR T036-ELF-ADD DTSBD360 00622 NEXT SENTENCE DTSBD360 00623 ELSE DTSBD360 00624 MOVE MSG1-INVALID-TRN-CD TO LBCM-TRN-MSG-AREA DTSBD360 00625 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD360 00626 GO TO PROCEDURE-EXIT. DTSBD360 00627 DTSBD360 00628 DTSBD360 00629 IF NOT MPRF-CLASS-SUB-88 DTSBD360 00630 MOVE MSG2-CHG-ONLY TO LBCM-TRN-MSG-AREA DTSBD360 00631 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD360 00632 GO TO PROCEDURE-EXIT. DTSBD360 00633 DTSBD360 00634 DTSBD360 00635 PERFORM P0000-TRANS-INIT THRU P0000-EXIT. DTSBD360 00636 DTSBD360 00637 DTSBD360 00638 IF LBCM-TRN-OK-88 DTSBD360 00639 PERFORM P1000-R902-UC30 THRU P1000-EXIT. DTSBD360 00640 DTSBD360 00641 DTSBD360 00642 IF LBCM-TRN-OK-88 DTSBD360 00643 AND T036-LIAB-DETER DTSBD360 00644 PERFORM P2000-R109 THRU P2000-EXIT. DTSBD360 00645 DTSBD360 00646 DTSBD360 00647 PROCEDURE-EXIT. DTSBD360 00648 DTSBD360 00649 GOBACK. DTSBD360 00650 EJECT DTSBD360 00651 I0000-FIRST-TIME. DTSBD360 00652 MOVE LBCM-TRACE-IND TO L910-TRACE-IND DTSBD360 00653 L931-TRACE-IND DTSBD360 00654 L981-TRACE-IND DTSBD360 00655 L516-TRACE-IND. DTSBD360 00656 DTSBD360 00657 MOVE WRK-MOD-NAME TO L910-MOD-NAME DTSBD360 00658 L931-MOD-NAME DTSBD360 00659 L981-MOD-NAME DTSBD360 00660 R907-MODULE-NAME. DTSBD360 00661 DTSBD360 00662 MOVE +0 TO HOLD-EMP-NO. DTSBD360 00663 DTSBD360 00664 MOVE LENGTH OF R109-REC TO R109-LENGTH. DTSBD360 00665 DTSBD360 00666 MOVE LENGTH OF R902-REC TO R902-LENGTH. DTSBD360 00667 DTSBD360 00668 MOVE LENGTH OF R907-REC TO R907-LENGTH. DTSBD360 00669 DTSBD360 00670 MOVE LENGTH OF R910-REC TO R910-LENGTH. DTSBD360 00671 DTSBD360 00672 SET L415-MODE-MOST-RECENT-88 TO TRUE. DTSBD360 00673 PERFORM S415-HOUSEHOLD-DATES THRU S415-EXIT. DTSBD360 00674 MOVE L415-UC30H-MASS-MAIL-END-YRQ DTSBD360 00675 TO WRK-UC30H-MASS-MAIL-YRQ. DTSBD360 00676 DTSBD360 00677 I0000-EXIT. DTSBD360 00678 EXIT. DTSBD360 00679 EJECT DTSBD360 00680 P0000-TRANS-INIT. DTSBD360 00681 IF MPRF-EMP-NO NOT = HOLD-EMP-NO DTSBD360 00682 MOVE MPRF-EMP-NO TO HOLD-EMP-NO DTSBD360 00683 R907-EMP-NO DTSBD360 00684 MOVE ALL 'N' TO HOLD-YRQ-REPORTED-INDS DTSBD360 00685 PERFORM P0500-LAST-MASS-MAIL-YRQ THRU P0500-EXIT DTSBD360 00686 PERFORM P0600-INIT-YEAR-TABLE THRU P0600-EXIT. DTSBD360 00687 DTSBD360 00688 DTSBD360 00689 MOVE MPRF-EMP-NO TO L111-EMP-NO. DTSBD360 00690 DTSBD360 00691 DTSBD360 00692 IF T036-REQUEST DTSBD360 00693 PERFORM P0100-SET-L111-ADDR-TYPE THRU P0100-EXIT DTSBD360 00694 PERFORM P0200-SET-L111-ID-NO THRU P0200-EXIT DTSBD360 00695 IF LBCM-TRN-NOT-OK-88 DTSBD360 00696 GO TO P0000-EXIT DTSBD360 00697 ELSE DTSBD360 00698 NEXT SENTENCE DTSBD360 00699 ELSE DTSBD360 00700 SET L111-LOOKUP-TAD-88 TO TRUE DTSBD360 00701 SET L111-ID-NO-TAD-MAIL-88 TO TRUE. DTSBD360 00702 DTSBD360 00703 DTSBD360 00704 PERFORM S111-LOOKUP-ADDR THRU S111-EXIT. DTSBD360 00705 DTSBD360 00706 IF L111-ADDR-NOT-FOUND-88 DTSBD360 00707 MOVE MSG3-ADDRESS-MISSING TO LBCM-TRN-MSG-AREA DTSBD360 00708 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD360 00709 GO TO P0000-EXIT. DTSBD360 00710 DTSBD360 00711 DTSBD360 00712 MOVE L111-ADDR-TYPE TO L112-ADDR-TYPE. DTSBD360 00713 DTSBD360 00714 SET L112-ANCHOR-LAST-88 TO TRUE. DTSBD360 00715 DTSBD360 00716 MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME. DTSBD360 00717 DTSBD360 00718 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA. DTSBD360 00719 DTSBD360 00720 PERFORM S112-FORMAT-ADDR THRU S112-EXIT. DTSBD360 00721 P0000-EXIT. DTSBD360 00722 EXIT. DTSBD360 00723 SKIP3 DTSBD360 00724 P0100-SET-L111-ADDR-TYPE. DTSBD360 00725 IF T036-TAX-ADDR-88 OR T036-PHY-ADDR-88 DTSBD360 00726 SET L111-LOOKUP-TAD-88 TO TRUE DTSBD360 00727 ELSE DTSBD360 00728 IF T036-TAA-ADDR-88 DTSBD360 00729 SET L111-LOOKUP-TAA-88 TO TRUE DTSBD360 00730 ELSE DTSBD360 00731 IF T036-OPO-ADDR-88 DTSBD360 00732 SET L111-LOOKUP-OPO-88 TO TRUE DTSBD360 00733 *****ELSE DTSBD360 00734 *****IF T036-BAA-ADDR-88 DTSBD360 00735 *********SET L111-LOOKUP-BAA-88 TO TRUE DTSBD360 00736 ELSE DTSBD360 00737 SET L111-LOOKUP-TAD-88 TO TRUE. DTSBD360 00738 P0100-EXIT. DTSBD360 00739 EXIT. DTSBD360 00740 SKIP3 DTSBD360 00741 P0200-SET-L111-ID-NO. DTSBD360 00742 IF T036-TAX-ADDR-88 DTSBD360 00743 SET L111-ID-NO-TAD-MAIL-88 TO TRUE DTSBD360 00744 GO TO P0200-EXIT. DTSBD360 00745 DTSBD360 00746 IF T036-PHY-ADDR-88 DTSBD360 00747 SET L111-ID-NO-TAD-PHYS-88 TO TRUE DTSBD360 00748 GO TO P0200-EXIT. DTSBD360 00749 DTSBD360 00750 IF T036-TAA-ADDR-88 OR T036-OPO-ADDR-88 DTSBD360 00751 NEXT SENTENCE DTSBD360 00752 ELSE DTSBD360 00753 SET L111-ID-NO-TAD-MAIL-88 TO TRUE DTSBD360 00754 GO TO P0200-EXIT. DTSBD360 00755 DTSBD360 00756 MOVE -999 TO L111-ID-NO. DTSBD360 00757 DTSBD360 00758 IF T036-ADDR-ESTB-ABSTIME NUMERIC DTSBD360 00759 IF T036-TAA-ADDR-88 DTSBD360 00760 PERFORM P0210-TAA-ADDR-FIND THRU P0210-EXIT DTSBD360 00761 ELSE DTSBD360 00762 IF T036-OPO-ADDR-88 DTSBD360 00763 PERFORM P0220-OPO-ADDR-FIND THRU P0220-EXIT. DTSBD360 00764 *********ELSE DTSBD360 00765 *********IF T036-BAA-ADDR-88 DTSBD360 00766 *************PERFORM P0230-BAA-ADDR-FIND THRU P0230-EXIT. DTSBD360 00767 DTSBD360 00768 IF L111-ID-NO = -999 DTSBD360 00769 MOVE MSG3-ADDRESS-MISSING TO LBCM-TRN-MSG-AREA DTSBD360 00770 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD360 00771 GO TO P0200-EXIT. DTSBD360 00772 P0200-EXIT. DTSBD360 00773 EXIT. DTSBD360 00774 SKIP3 DTSBD360 00775 P0210-TAA-ADDR-FIND. DTSBD360 00776 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBD360 00777 DTSBD360 00778 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBD360 00779 DTSBD360 00780 SET MSKL-TAA-88 TO TRUE. DTSBD360 00781 DTSBD360 00782 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD360 00783 DTSBD360 00784 PERFORM DTSBD360 00785 UNTIL L910-NO-REC-88 DTSBD360 00786 MOVE MSKL-REC TO MTAA-REC DTSBD360 00787 IF T036-ADDR-ESTB-ABSTIME = MTAA-ESTB-ABSTIME DTSBD360 00788 MOVE MTAA-ID-NO TO L111-ID-NO DTSBD360 00789 END-IF DTSBD360 00790 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD360 00791 END-PERFORM. DTSBD360 00792 P0210-EXIT. DTSBD360 00793 EXIT. DTSBD360 00794 SKIP3 DTSBD360 00795 P0220-OPO-ADDR-FIND. DTSBD360 00796 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBD360 00797 DTSBD360 00798 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBD360 00799 DTSBD360 00800 SET MSKL-OPO-88 TO TRUE. DTSBD360 00801 DTSBD360 00802 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD360 00803 DTSBD360 00804 PERFORM DTSBD360 00805 UNTIL L910-NO-REC-88 DTSBD360 00806 MOVE MSKL-REC TO MOPO-REC DTSBD360 00807 IF T036-ADDR-ESTB-ABSTIME = MOPO-ESTB-ABSTIME DTSBD360 00808 MOVE MOPO-ID-NO TO L111-ID-NO DTSBD360 00809 END-IF DTSBD360 00810 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD360 00811 END-PERFORM. DTSBD360 00812 P0220-EXIT. DTSBD360 00813 EXIT. DTSBD360 00814 SKIP3 DTSBD360 00815 *P0230-BAA-ADDR-FIND. DTSBD360 00816 *****MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBD360 00817 DTSBD360 00818 *****MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBD360 00819 DTSBD360 00820 *****SET MSKL-BAA-88 TO TRUE. DTSBD360 00821 DTSBD360 00822 *****PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD360 00823 DTSBD360 00824 *****PERFORM DTSBD360 00825 *******UNTIL L910-NO-REC-88 DTSBD360 00826 *********MOVE MSKL-REC TO MBAA-REC DTSBD360 00827 *********IF T036-ADDR-ESTB-ABSTIME = MBAA-ESTB-ABSTIME DTSBD360 00828 *************MOVE MBAA-ID-NO TO L111-ID-NO DTSBD360 00829 *********END-IF DTSBD360 00830 *********PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD360 00831 *****END-PERFORM. DTSBD360 00832 *P0230-EXIT. DTSBD360 00833 *****EXIT. DTSBD360 00834 EJECT DTSBD360 00835 ******************************************************************DTSBD360 00836 *** THE FOLLOWING PARAGRAPH SETS WRK-LAST-MASS-MAIL-YRQ TO EITHERDTSBD360 00837 *** LBCM-LAST-UC30-MASS-MAIL-YRQ OR DTSBD360 00838 *** WRK-UC30H-MASS-MAIL-YRQ DEPENDING ON WHETHER THE EMPLOYER'S DTSBD360 00839 *** MOST RECENT FILING SCHEDULE IS QUARTERLY OR ANNUAL. DTSBD360 00840 ******************************************************************DTSBD360 00841 P0500-LAST-MASS-MAIL-YRQ. DTSBD360 00842 IF MPRF-ORG-HSEHLD-DMSTIC-88 DTSBD360 00843 SET L410-MODE-MOST-RECENT-88 TO TRUE DTSBD360 00844 MOVE HOLD-EMP-NO TO L410-EMP-NO DTSBD360 00845 MOVE ZERO TO L410-YRQ DTSBD360 00846 PERFORM S410-FILING-SCHED THRU S410-EXIT DTSBD360 00847 IF L410-ANN-SCHED-88 DTSBD360 00848 MOVE WRK-UC30H-MASS-MAIL-YRQ DTSBD360 00849 TO WRK-LAST-MASS-MAIL-YRQ DTSBD360 00850 ELSE DTSBD360 00851 MOVE LBCM-LAST-UC30-MASS-MAIL-YRQ DTSBD360 00852 TO WRK-LAST-MASS-MAIL-YRQ DTSBD360 00853 ELSE DTSBD360 00854 MOVE LBCM-LAST-UC30-MASS-MAIL-YRQ DTSBD360 00855 TO WRK-LAST-MASS-MAIL-YRQ. DTSBD360 00856 DTSBD360 00857 P0500-EXIT. DTSBD360 00858 EXIT. DTSBD360 00859 DTSBD360 00860 P0600-INIT-YEAR-TABLE. DTSBD360 00861 PERFORM DTSBD360 00862 VARYING YR-SUB FROM +1 BY +1 DTSBD360 00863 UNTIL YR-SUB > HOLD-YEAR-TABLE-MAX DTSBD360 00864 MOVE ZERO TO HOLD-YEAR (YR-SUB) DTSBD360 00865 END-PERFORM. DTSBD360 00866 DTSBD360 00867 P0600-EXIT. DTSBD360 00868 EXIT. DTSBD360 00869 DTSBD360 00870 P1000-R902-UC30. DTSBD360 00871 PERFORM P1100-SET-START-YRQ THRU P1100-EXIT. DTSBD360 00872 DTSBD360 00873 PERFORM P1200-SET-END-YRQ THRU P1200-EXIT. DTSBD360 00874 DTSBD360 00875 IF T036-LIAB-DETER DTSBD360 00876 PERFORM P1010-LIAB-DETER THRU P1010-EXIT. DTSBD360 00877 DTSBD360 00878 IF WRK-START-YRQ = +0 DTSBD360 00879 GO TO P1000-EXIT. DTSBD360 00880 DTSBD360 00881 IF WRK-END-YRQ < WRK-START-YRQ DTSBD360 00882 MOVE WRK-START-YRQ TO WRK-END-YRQ. DTSBD360 00883 DTSBD360 00884 DTSBD360 00885 ***** DTSBD360 00886 * DTSBD360 00887 * THE WAIVER MESSAGE PRINTED ON UC-30S AND ON A R109 DTSBD360 00888 * REFERENCES THE ENTIRE RANGE OF QUARTERS FOR WHICH THE DTSBD360 00889 * WAIVER IS SPECIFIED. THUS, IF AN INCONSISTENCY EXISTS DTSBD360 00890 * BETWEEN ANY ONE OF THE QUARTERS FOR WHICH THE WAIVER DTSBD360 00891 * IS SPECIFIED AND THE WAIVER DEAL REPRESENTED BY DTSBD360 00892 * T036-WAIVER-START-YRQ, T036-WAIVER-END-YRQ, AND T036-WAIVER DTSBD360 00893 * -EXT-DATE, THEN THE WAIVER MESSAGES SHOULD NOT BE DTSBD360 00894 * PRINTED AND AN UNUSUAL EVENT RECORD WRITTEN. DTSBD360 00895 * DTSBD360 00896 ***** DTSBD360 00897 DTSBD360 00898 MOVE 'N' TO INCONSISTENT-WAIVER-IND. DTSBD360 00899 DTSBD360 00900 IF T036-WAIVER-START-YRQ > +0 DTSBD360 00901 MOVE T036-WAIVER-START-YRQ TO L004-QTR-5-9 DTSBD360 00902 PERFORM S004-FROM-5 THRU S004-EXIT DTSBD360 00903 MOVE L004-ABS-QTR TO WRK-ABS-YRQ DTSBD360 00904 MOVE T036-WAIVER-END-YRQ TO L004-QTR-5-9 DTSBD360 00905 PERFORM S004-FROM-5 THRU S004-EXIT DTSBD360 00906 MOVE L004-ABS-QTR TO WRK-END-ABS-YRQ DTSBD360 00907 PERFORM P1020-CHECK-WAIVER THRU P1020-EXIT DTSBD360 00908 VARYING WRK-ABS-YRQ FROM WRK-ABS-YRQ BY 1 DTSBD360 00909 UNTIL (WRK-ABS-YRQ > WRK-END-ABS-YRQ) DTSBD360 00910 OR DTSBD360 00911 (INCONSISTENT-WAIVER-IND = 'Y'). DTSBD360 00912 DTSBD360 00913 IF INCONSISTENT-WAIVER-IND = 'Y' DTSBD360 00914 MOVE T036-WAIVER-START-YRQ TO L004-QTR-5-9 DTSBD360 00915 PERFORM S004-FROM-5 THRU S004-EXIT DTSBD360 00916 MOVE L004-SLASH-QTR TO MSG9-SLASH-FROM-QTR DTSBD360 00917 MOVE T036-WAIVER-END-YRQ TO L004-QTR-5-9 DTSBD360 00918 PERFORM S004-FROM-5 THRU S004-EXIT DTSBD360 00919 MOVE L004-SLASH-QTR TO MSG9-SLASH-TO-QTR DTSBD360 00920 MOVE MSG9-ID-2 TO R907-MSG-ID DTSBD360 00921 MOVE MSG9-LONG-TEXT TO R907-MSG-TEXT DTSBD360 00922 PERFORM S946-WRITE-R907 THRU S946-EXIT. DTSBD360 00923 DTSBD360 00924 DTSBD360 00925 MOVE LOW-VALUES TO MELF-KEY-AREA. DTSBD360 00926 MOVE MPRF-EMP-NO TO MELF-EMP-NO. DTSBD360 00927 SET MELF-ELF-88 TO TRUE. DTSBD360 00928 MOVE MELF-KEY-AREA TO MSKL-KEY-AREA. DTSBD360 00929 PERFORM S910-READ THRU S910-EXIT. DTSBD360 00930 IF L910-NO-REC-88 DTSBD360 00931 SET WRK-ELECTRNIC-WAGES-NO-88 TO TRUE DTSBD360 00932 ELSE DTSBD360 00933 MOVE MSKL-REC TO MELF-REC DTSBD360 00934 IF MELF-WAGES-YES-88 DTSBD360 00935 SET WRK-ELECTRNIC-WAGES-YES-88 TO TRUE DTSBD360 00936 ELSE DTSBD360 00937 SET WRK-ELECTRNIC-WAGES-NO-88 TO TRUE. DTSBD360 00938 DTSBD360 00939 DTSBD360 00940 MOVE WRK-START-YRQ TO L004-QTR-5-9. DTSBD360 00941 DTSBD360 00942 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD360 00943 DTSBD360 00944 MOVE L004-ABS-QTR TO WRK-ABS-YRQ. DTSBD360 00945 DTSBD360 00946 DTSBD360 00947 MOVE WRK-END-YRQ TO L004-QTR-5-9. DTSBD360 00948 DTSBD360 00949 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD360 00950 DTSBD360 00951 MOVE L004-ABS-QTR TO WRK-END-ABS-YRQ. DTSBD360 00952 DTSBD360 00953 DTSBD360 00954 PERFORM P1300-PROCESS-YRQ THRU P1300-EXIT DTSBD360 00955 VARYING WRK-ABS-YRQ FROM WRK-ABS-YRQ BY 1 DTSBD360 00956 UNTIL WRK-ABS-YRQ > WRK-END-ABS-YRQ. DTSBD360 00957 P1000-EXIT. DTSBD360 00958 EXIT. DTSBD360 00959 SKIP3 DTSBD360 00960 P1010-LIAB-DETER. DTSBD360 00961 IF WRK-LAST-MASS-MAIL-YRQ < T036-WAIVER-END-YRQ DTSBD360 00962 IF WRK-START-YRQ > T036-WAIVER-END-YRQ DTSBD360 00963 MOVE +0 TO WRK-START-YRQ DTSBD360 00964 GO TO P1010-EXIT DTSBD360 00965 ELSE DTSBD360 00966 NEXT SENTENCE DTSBD360 00967 ELSE DTSBD360 00968 IF WRK-START-YRQ > WRK-LAST-MASS-MAIL-YRQ DTSBD360 00969 MOVE +0 TO WRK-START-YRQ DTSBD360 00970 GO TO P1010-EXIT DTSBD360 00971 ELSE DTSBD360 00972 NEXT SENTENCE. DTSBD360 00973 DTSBD360 00974 IF WRK-LAST-MASS-MAIL-YRQ < T036-WAIVER-END-YRQ DTSBD360 00975 IF WRK-END-YRQ > T036-WAIVER-END-YRQ DTSBD360 00976 MOVE T036-WAIVER-END-YRQ TO WRK-END-YRQ DTSBD360 00977 ELSE DTSBD360 00978 NEXT SENTENCE DTSBD360 00979 ELSE DTSBD360 00980 IF WRK-END-YRQ > WRK-LAST-MASS-MAIL-YRQ DTSBD360 00981 MOVE WRK-LAST-MASS-MAIL-YRQ TO WRK-END-YRQ DTSBD360 00982 ELSE DTSBD360 00983 NEXT SENTENCE. DTSBD360 00984 P1010-EXIT. DTSBD360 00985 EXIT. DTSBD360 00986 SKIP3 DTSBD360 00987 P1020-CHECK-WAIVER. DTSBD360 00988 MOVE WRK-ABS-YRQ TO L004-ABS-QTR. DTSBD360 00989 DTSBD360 00990 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBD360 00991 DTSBD360 00992 IF L004-INVALID-QTR DTSBD360 00993 MOVE 'Y' TO INCONSISTENT-WAIVER-IND DTSBD360 00994 GO TO P1020-EXIT. DTSBD360 00995 DTSBD360 00996 DTSBD360 00997 MOVE L004-QTR-5-9 TO WRK-YRQ. DTSBD360 00998 DTSBD360 00999 DTSBD360 01000 IF (WRK-YRQ < WRK-START-YRQ) DTSBD360 01001 OR DTSBD360 01002 (WRK-YRQ > WRK-END-YRQ) DTSBD360 01003 MOVE 'Y' TO INCONSISTENT-WAIVER-IND DTSBD360 01004 GO TO P1020-EXIT. DTSBD360 01005 DTSBD360 01006 DTSBD360 01007 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBD360 01008 DTSBD360 01009 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBD360 01010 DTSBD360 01011 SET MQTR-QTR-88 TO TRUE. DTSBD360 01012 DTSBD360 01013 MOVE WRK-YRQ TO MQTR-YRQ. DTSBD360 01014 DTSBD360 01015 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBD360 01016 DTSBD360 01017 PERFORM S910-READ THRU S910-EXIT. DTSBD360 01018 DTSBD360 01019 IF L910-NO-REC-88 DTSBD360 01020 MOVE 'Y' TO INCONSISTENT-WAIVER-IND DTSBD360 01021 GO TO P1020-EXIT. DTSBD360 01022 DTSBD360 01023 DTSBD360 01024 MOVE MSKL-REC TO MQTR-REC. DTSBD360 01025 DTSBD360 01026 DTSBD360 01027 MOVE WRK-YRQ TO L516-YRQ. DTSBD360 01028 DTSBD360 01029 PERFORM S516-LIABILITY-INFO THRU S516-EXIT. DTSBD360 01030 DTSBD360 01031 IF L516-NOT-LIABLE-88 DTSBD360 01032 MOVE 'Y' TO INCONSISTENT-WAIVER-IND DTSBD360 01033 GO TO P1020-EXIT. DTSBD360 01034 DTSBD360 01035 DTSBD360 01036 IF T036-NO-FORCE-PRINT DTSBD360 01037 IF MQTR-CURR-RCVD-88 DTSBD360 01038 MOVE 'Y' TO INCONSISTENT-WAIVER-IND DTSBD360 01039 GO TO P1020-EXIT. DTSBD360 01040 DTSBD360 01041 DTSBD360 01042 IF T036-WAIVER-EXT-DATE NOT = MQTR-RPT-DUE-DATE DTSBD360 01043 MOVE 'Y' TO INCONSISTENT-WAIVER-IND DTSBD360 01044 GO TO P1020-EXIT. DTSBD360 01045 DTSBD360 01046 DTSBD360 01047 IF NOT MPRF-CLASS-SELF-INS-88 DTSBD360 01048 IF L516-NO-RATE-88 DTSBD360 01049 MOVE 'Y' TO INCONSISTENT-WAIVER-IND DTSBD360 01050 GO TO P1020-EXIT. DTSBD360 01051 DTSBD360 01052 DTSBD360 01053 MOVE LOW-VALUES TO FCYR-KEY-AREA. DTSBD360 01054 DTSBD360 01055 SET FCYR-CYR-88 TO TRUE. DTSBD360 01056 DTSBD360 01057 MOVE L004-QTR-5-YR TO FCYR-YR. DTSBD360 01058 DTSBD360 01059 MOVE FCYR-KEY-AREA TO FSKL-KEY-AREA. DTSBD360 01060 DTSBD360 01061 PERFORM S931-READ THRU S931-EXIT. DTSBD360 01062 DTSBD360 01063 IF L931-NO-REC-88 DTSBD360 01064 MOVE 'Y' TO INCONSISTENT-WAIVER-IND DTSBD360 01065 GO TO P1020-EXIT. DTSBD360 01066 DTSBD360 01067 DTSBD360 01068 IF HOLD-YRQ-REPORTED-NO (WRK-ABS-YRQ) DTSBD360 01069 NEXT SENTENCE DTSBD360 01070 ELSE DTSBD360 01071 IF (T036-REQUEST) DTSBD360 01072 AND DTSBD360 01073 (NOT T036-TAX-ADDR-88) DTSBD360 01074 NEXT SENTENCE DTSBD360 01075 ELSE DTSBD360 01076 MOVE 'Y' TO INCONSISTENT-WAIVER-IND DTSBD360 01077 GO TO P1020-EXIT. DTSBD360 01078 P1020-EXIT. DTSBD360 01079 EXIT. DTSBD360 01080 EJECT DTSBD360 01081 P1100-SET-START-YRQ. DTSBD360 01082 IF T036-START-YRQ > +0 DTSBD360 01083 IF T036-START-YRQ > MPRF-LAST-ARCHIVED-YRQ DTSBD360 01084 MOVE T036-START-YRQ TO WRK-START-YRQ DTSBD360 01085 GO TO P1100-EXIT DTSBD360 01086 ELSE DTSBD360 01087 PERFORM P1120-LAST-ARCHIVED-PLUS-1 THRU P1120-EXIT DTSBD360 01088 GO TO P1100-EXIT. DTSBD360 01089 DTSBD360 01090 DTSBD360 01091 MOVE YRQ-NINES-LIT TO WRK-START-YRQ. DTSBD360 01092 DTSBD360 01093 DTSBD360 01094 MOVE LOW-VALUE TO MSKL-KEY-AREA. DTSBD360 01095 DTSBD360 01096 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBD360 01097 DTSBD360 01098 SET MSKL-SOL-88 TO TRUE. DTSBD360 01099 DTSBD360 01100 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD360 01101 DTSBD360 01102 PERFORM UNTIL L910-NO-REC-88 DTSBD360 01103 MOVE MSKL-REC TO MSOL-REC DTSBD360 01104 IF MSOL-FIRST-LIAB-YRQ NOT = 0 DTSBD360 01105 AND MSOL-FIRST-LIAB-YRQ < WRK-START-YRQ DTSBD360 01106 MOVE MSOL-FIRST-LIAB-YRQ TO WRK-START-YRQ DTSBD360 01107 END-IF DTSBD360 01108 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD360 01109 END-PERFORM. DTSBD360 01110 DTSBD360 01111 DTSBD360 01112 *****IF T036-ELF-ADD AND DTSBD360 01113 *********WRK-START-YRQ > LBCM-LAST-UC30-MASS-MAIL-YRQ DTSBD360 01114 *********MOVE +0 TO WRK-START-YRQ DTSBD360 01115 *********GO TO P1100-EXIT. DTSBD360 01116 DTSBD360 01117 DTSBD360 01118 IF WRK-START-YRQ = YRQ-NINES-LIT DTSBD360 01119 MOVE +0 TO WRK-START-YRQ. DTSBD360 01120 DTSBD360 01121 DTSBD360 01122 IF MPRF-LAST-ARCHIVED-YRQ = 0 DTSBD360 01123 OR WRK-START-YRQ > MPRF-LAST-ARCHIVED-YRQ DTSBD360 01124 GO TO P1100-EXIT. DTSBD360 01125 DTSBD360 01126 DTSBD360 01127 PERFORM P1120-LAST-ARCHIVED-PLUS-1 THRU P1120-EXIT. DTSBD360 01128 P1100-EXIT. DTSBD360 01129 EXIT. DTSBD360 01130 SKIP3 DTSBD360 01131 P1120-LAST-ARCHIVED-PLUS-1. DTSBD360 01132 MOVE MPRF-LAST-ARCHIVED-YRQ TO L004-QTR-5-9. DTSBD360 01133 DTSBD360 01134 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD360 01135 DTSBD360 01136 ADD +1 TO L004-ABS-QTR. DTSBD360 01137 DTSBD360 01138 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBD360 01139 DTSBD360 01140 MOVE L004-QTR-5-9 TO WRK-START-YRQ. DTSBD360 01141 P1120-EXIT. DTSBD360 01142 EXIT. DTSBD360 01143 EJECT DTSBD360 01144 P1200-SET-END-YRQ. DTSBD360 01145 IF T036-END-YRQ = +0 DTSBD360 01146 OR T036-END-YRQ = YRQ-NINES-LIT DTSBD360 01147 NEXT SENTENCE DTSBD360 01148 ELSE DTSBD360 01149 MOVE T036-END-YRQ TO WRK-END-YRQ DTSBD360 01150 GO TO P1200-EXIT. DTSBD360 01151 DTSBD360 01152 DTSBD360 01153 MOVE +0 TO WRK-END-YRQ. DTSBD360 01154 DTSBD360 01155 DTSBD360 01156 MOVE LOW-VALUE TO MSKL-KEY-AREA. DTSBD360 01157 DTSBD360 01158 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBD360 01159 DTSBD360 01160 SET MSKL-SOL-88 TO TRUE. DTSBD360 01161 DTSBD360 01162 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD360 01163 DTSBD360 01164 PERFORM UNTIL L910-NO-REC-88 DTSBD360 01165 MOVE MSKL-REC TO MSOL-REC DTSBD360 01166 IF MSOL-LAST-LIAB-YRQ = YRQ-NINES-LIT DTSBD360 01167 IF WRK-LAST-MASS-MAIL-YRQ > WRK-END-YRQ DTSBD360 01168 MOVE WRK-LAST-MASS-MAIL-YRQ TO WRK-END-YRQ DTSBD360 01169 END-IF DTSBD360 01170 ELSE DTSBD360 01171 IF MSOL-LAST-LIAB-YRQ > WRK-END-YRQ DTSBD360 01172 MOVE MSOL-LAST-LIAB-YRQ TO WRK-END-YRQ DTSBD360 01173 END-IF DTSBD360 01174 END-IF DTSBD360 01175 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD360 01176 END-PERFORM. DTSBD360 01177 P1200-EXIT. DTSBD360 01178 EXIT. DTSBD360 01179 EJECT DTSBD360 01180 P1300-PROCESS-YRQ. DTSBD360 01181 MOVE WRK-ABS-YRQ TO L004-ABS-QTR. DTSBD360 01182 DTSBD360 01183 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBD360 01184 DTSBD360 01185 MOVE L004-SLASH-QTR TO MSG4-SLASH-QTR DTSBD360 01186 MSG5-SLASH-QTR. DTSBD360 01187 DTSBD360 01188 DTSBD360 01189 MOVE L004-QTR-5-9 TO WRK-YRQ. DTSBD360 01190 DTSBD360 01191 DTSBD360 01192 IF WRK-YRQ <= LBCM-PICKUP-YRQ DTSBD360 01193 GO TO P1300-EXIT. DTSBD360 01194 DTSBD360 01195 DTSBD360 01196 MOVE WRK-YRQ TO L516-YRQ. DTSBD360 01197 DTSBD360 01198 PERFORM S516-LIABILITY-INFO THRU S516-EXIT. DTSBD360 01199 DTSBD360 01200 DTSBD360 01201 MOVE LOW-VALUE TO MQTR-KEY-AREA. DTSBD360 01202 DTSBD360 01203 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBD360 01204 DTSBD360 01205 SET MQTR-QTR-88 TO TRUE. DTSBD360 01206 DTSBD360 01207 MOVE WRK-YRQ TO MQTR-YRQ. DTSBD360 01208 DTSBD360 01209 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBD360 01210 DTSBD360 01211 PERFORM S910-READ THRU S910-EXIT. DTSBD360 01212 DTSBD360 01213 IF L910-OK-88 DTSBD360 01214 MOVE MSKL-REC TO MQTR-REC DTSBD360 01215 SET WRK-MQTR-EXISTS-YES TO TRUE DTSBD360 01216 ELSE DTSBD360 01217 SET WRK-MQTR-EXISTS-NO TO TRUE. DTSBD360 01218 DTSBD360 01219 IF T036-NO-FORCE-PRINT DTSBD360 01220 IF L516-NOT-LIABLE-88 DTSBD360 01221 GO TO P1300-EXIT DTSBD360 01222 ELSE DTSBD360 01223 IF WRK-MQTR-EXISTS-YES DTSBD360 01224 AND MQTR-CURR-RCVD-88 DTSBD360 01225 GO TO P1300-EXIT. DTSBD360 01226 DTSBD360 01227 DTSBD360 01228 MOVE LOW-VALUE TO FCYR-KEY-AREA. DTSBD360 01229 DTSBD360 01230 SET FCYR-CYR-88 TO TRUE. DTSBD360 01231 DTSBD360 01232 MOVE L004-QTR-5-YR TO FCYR-YR. DTSBD360 01233 DTSBD360 01234 MOVE FCYR-KEY-AREA TO FSKL-KEY-AREA. DTSBD360 01235 DTSBD360 01236 PERFORM S931-READ THRU S931-EXIT. DTSBD360 01237 DTSBD360 01238 IF L931-NO-REC-88 DTSBD360 01239 MOVE MSG8-ID-2 TO R907-MSG-ID DTSBD360 01240 MOVE FCYR-YR TO MSG8-YEAR DTSBD360 01241 MOVE MSG8-LONG-TEXT TO R907-MSG-TEXT DTSBD360 01242 PERFORM S946-WRITE-R907 THRU S946-EXIT DTSBD360 01243 GO TO P1300-EXIT. DTSBD360 01244 DTSBD360 01245 MOVE FSKL-REC TO FCYR-REC. DTSBD360 01246 DTSBD360 01247 DTSBD360 01248 IF NOT MPRF-CLASS-SELF-INS-88 DTSBD360 01249 IF L516-NO-RATE-88 DTSBD360 01250 MOVE MSG5-ID-2 TO R907-MSG-ID DTSBD360 01251 MOVE MSG5-LONG-TEXT TO R907-MSG-TEXT DTSBD360 01252 PERFORM S946-WRITE-R907 THRU S946-EXIT DTSBD360 01253 GO TO P1300-EXIT. DTSBD360 01254 DTSBD360 01255 DTSBD360 01256 IF T036-REQUEST DTSBD360 01257 IF T036-TAX-ADDR-88 DTSBD360 01258 NEXT SENTENCE DTSBD360 01259 ELSE DTSBD360 01260 IF L516-ANN-SCHED-88 DTSBD360 01261 PERFORM P1320-FINISH-R910-UC30H THRU P1320-EXIT DTSBD360 01262 GO TO P1300-EXIT DTSBD360 01263 ELSE DTSBD360 01264 PERFORM P1310-FINISH-R902-UC30 THRU P1310-EXIT DTSBD360 01265 GO TO P1300-EXIT. DTSBD360 01266 DTSBD360 01267 DTSBD360 01268 IF HOLD-YRQ-REPORTED-NO (WRK-ABS-YRQ) DTSBD360 01269 SET HOLD-YRQ-REPORTED-YES (WRK-ABS-YRQ) TO TRUE DTSBD360 01270 ELSE DTSBD360 01271 MOVE MSG4-ID-2 TO R907-MSG-ID DTSBD360 01272 MOVE MSG4-LONG-TEXT TO R907-MSG-TEXT DTSBD360 01273 PERFORM S946-WRITE-R907 THRU S946-EXIT DTSBD360 01274 GO TO P1300-EXIT. DTSBD360 01275 DTSBD360 01276 DTSBD360 01277 IF L516-ANN-SCHED-88 DTSBD360 01278 PERFORM P1320-FINISH-R910-UC30H THRU P1320-EXIT DTSBD360 01279 ELSE DTSBD360 01280 PERFORM P1310-FINISH-R902-UC30 THRU P1310-EXIT. DTSBD360 01281 DTSBD360 01282 P1300-EXIT. DTSBD360 01283 EXIT. DTSBD360 01284 EJECT DTSBD360 01285 P1310-FINISH-R902-UC30. DTSBD360 01286 SET R902-SORT-TYPE-DAILY-88 TO TRUE. DTSBD360 01287 DTSBD360 01288 MOVE LOW-VALUE TO R902-VAR-SORT-AREA. DTSBD360 01289 DTSBD360 01290 IF T036-LIAB-DETER DTSBD360 01291 SET R902-LIAB-DETERM-88 TO TRUE DTSBD360 01292 ELSE DTSBD360 01293 IF T036-REQUEST DTSBD360 01294 SET R902-REQUEST-88 TO TRUE DTSBD360 01295 *****ELSE DTSBD360 01296 *****IF T036-ELF-ADD DTSBD360 01297 *********SET R902-ELF-ADD-88 TO TRUE DTSBD360 01298 ELSE DTSBD360 01299 SET R902-INACT-88 TO TRUE. DTSBD360 01300 DTSBD360 01301 MOVE T036-RESP-OP-ID TO R902-DAILY-OP-ID. DTSBD360 01302 DTSBD360 01303 MOVE MPRF-EMP-CLASS TO R902-DAILY-EMP-CLASS. DTSBD360 01304 DTSBD360 01305 MOVE MPRF-EMP-NO TO R902-DAILY-EMP-NO DTSBD360 01306 WRK-EMP-NO. DTSBD360 01307 DTSBD360 01308 MOVE WRK-YRQ TO R902-DAILY-YRQ. DTSBD360 01309 DTSBD360 01310 DTSBD360 01311 INITIALIZE R902-DATA-AREA. DTSBD360 01312 DTSBD360 01313 DTSBD360 01314 SET R902-DAILY-88 TO TRUE. DTSBD360 01315 DTSBD360 01316 MOVE MPRF-PRIMARY-NAME TO R902-PRI-NAME-FIRST4. DTSBD360 01317 DTSBD360 01318 MOVE L112-MAILING-ADDRESS TO R902-FMT-ADDR. DTSBD360 01319 DTSBD360 01320 MOVE L112-ZIP TO R902-ZIP. DTSBD360 01321 DTSBD360 01322 MOVE L112-ADVANCED-BARCODE TO R902-ADVANCED-BARCODE. DTSBD360 01323 DTSBD360 01324 MOVE FCYR-TAXABLE-WAGE-BASE TO R902-TAX-WAGE-BASE. DTSBD360 01325 DTSBD360 01326 MOVE L516-UI-RATE TO R902-UI-RATE. DTSBD360 01327 DTSBD360 01328 IF WRK-MQTR-EXISTS-NO DTSBD360 01329 OR MQTR-RPT-DUE-DATE = +0 DTSBD360 01330 MOVE L516-DEFAULT-RPT-DUE-DATE TO R902-RPT-DUE-DATE DTSBD360 01331 ELSE DTSBD360 01332 MOVE MQTR-RPT-DUE-DATE TO R902-RPT-DUE-DATE. DTSBD360 01333 DTSBD360 01334 MOVE MPRF-FEIN TO R902-FEIN. DTSBD360 01335 DTSBD360 01336 IF (T036-LIAB-DETER OR T036-REQUEST) DTSBD360 01337 AND (WRK-YRQ NOT < T036-WAIVER-START-YRQ) DTSBD360 01338 AND (WRK-YRQ NOT > T036-WAIVER-END-YRQ) DTSBD360 01339 AND (INCONSISTENT-WAIVER-IND = 'N') DTSBD360 01340 MOVE T036-WAIVER-START-YRQ DTSBD360 01341 TO R902-DAILY-WAIVER-START-YRQ DTSBD360 01342 MOVE T036-WAIVER-END-YRQ DTSBD360 01343 TO R902-DAILY-WAIVER-END-YRQ DTSBD360 01344 MOVE T036-WAIVER-EXT-DATE DTSBD360 01345 TO R902-DAILY-WAIVER-DATE. DTSBD360 01346 DTSBD360 01347 IF WRK-MQTR-EXISTS-YES DTSBD360 01348 AND MQTR-CURR-RCVD-88 DTSBD360 01349 SET R902-DAILY-SUPL-YES-88 TO TRUE. DTSBD360 01350 DTSBD360 01351 IF NOT MPRF-NAICS-CD-NONCLASSIF-88 DTSBD360 01352 MOVE MPRF-NAICS-CD TO R902-INDUSTRY-CD DTSBD360 01353 ELSE DTSBD360 01354 IF NOT MPRF-SIC-CD-NONCLASSIF-88 DTSBD360 01355 MOVE MPRF-SIC-CD TO R902-INDUSTRY-CD. DTSBD360 01356 DTSBD360 01357 MOVE WRK-ELECTRNIC-WAGE-FILER-IND DTSBD360 01358 TO R902-ELECTRNIC-WAGE-FILER-IND. DTSBD360 01359 DTSBD360 01360 PERFORM S946-WRITE-R902 THRU S946-EXIT. DTSBD360 01361 P1310-EXIT. DTSBD360 01362 EXIT. DTSBD360 01363 DTSBD360 01364 P1320-FINISH-R910-UC30H. DTSBD360 01365 MOVE WRK-YRQ TO WRK-ANN-YRQ. DTSBD360 01366 MOVE WRK-ANN-YEAR TO WRK-UC30H-YEAR. DTSBD360 01367 DTSBD360 01368 SET HOLD-YEAR-REPORTED-NO TO TRUE. DTSBD360 01369 PERFORM P1321-CHK-YR-REPORTED THRU P1321-EXIT DTSBD360 01370 IF HOLD-YEAR-REPORTED-YES DTSBD360 01371 GO TO P1320-EXIT. DTSBD360 01372 DTSBD360 01373 SET R910-SORT-TYPE-DAILY-88 TO TRUE. DTSBD360 01374 DTSBD360 01375 MOVE LOW-VALUE TO R910-VAR-SORT-AREA. DTSBD360 01376 DTSBD360 01377 IF T036-LIAB-DETER DTSBD360 01378 SET R910-LIAB-DETERM-88 TO TRUE DTSBD360 01379 ELSE DTSBD360 01380 IF T036-REQUEST DTSBD360 01381 SET R910-REQUEST-88 TO TRUE DTSBD360 01382 ELSE DTSBD360 01383 SET R910-INACT-88 TO TRUE. DTSBD360 01384 DTSBD360 01385 MOVE T036-RESP-OP-ID TO R910-DAILY-OP-ID. DTSBD360 01386 DTSBD360 01387 MOVE MPRF-EMP-NO TO R910-DAILY-EMP-NO DTSBD360 01388 WRK-EMP-NO. DTSBD360 01389 DTSBD360 01390 MOVE WRK-UC30H-YEAR TO R910-DAILY-YR. DTSBD360 01391 DTSBD360 01392 DTSBD360 01393 INITIALIZE R910-DATA-AREA. DTSBD360 01394 DTSBD360 01395 SET R910-DAILY-88 TO TRUE. DTSBD360 01396 DTSBD360 01397 MOVE MPRF-PRIMARY-NAME TO R910-PRI-NAME-FIRST4. DTSBD360 01398 DTSBD360 01399 MOVE L112-MAILING-ADDRESS TO R910-FMT-ADDR. DTSBD360 01400 DTSBD360 01401 MOVE L112-ZIP TO R910-ZIP. DTSBD360 01402 DTSBD360 01403 MOVE L112-ADVANCED-BARCODE TO R910-ADVANCED-BARCODE. DTSBD360 01404 DTSBD360 01405 MOVE FCYR-TAXABLE-WAGE-BASE TO R910-TAX-WAGE-BASE. DTSBD360 01406 DTSBD360 01407 MOVE L516-UI-RATE TO R910-UI-RATE. DTSBD360 01408 DTSBD360 01409 IF WRK-MQTR-EXISTS-NO DTSBD360 01410 OR MQTR-RPT-DUE-DATE = +0 DTSBD360 01411 MOVE L516-DEFAULT-RPT-DUE-DATE TO R910-RPT-DUE-DATE DTSBD360 01412 ELSE DTSBD360 01413 MOVE MQTR-RPT-DUE-DATE TO R910-RPT-DUE-DATE. DTSBD360 01414 DTSBD360 01415 MOVE MPRF-FEIN TO R910-FEIN. DTSBD360 01416 DTSBD360 01417 IF (T036-LIAB-DETER OR T036-REQUEST) DTSBD360 01418 AND (WRK-YRQ NOT < T036-WAIVER-START-YRQ) DTSBD360 01419 AND (WRK-YRQ NOT > T036-WAIVER-END-YRQ) DTSBD360 01420 AND (INCONSISTENT-WAIVER-IND = 'N') DTSBD360 01421 MOVE T036-WAIVER-START-YRQ DTSBD360 01422 TO R910-DAILY-WAIVER-START-YRQ DTSBD360 01423 MOVE T036-WAIVER-END-YRQ DTSBD360 01424 TO R910-DAILY-WAIVER-END-YRQ DTSBD360 01425 MOVE T036-WAIVER-EXT-DATE DTSBD360 01426 TO R910-DAILY-WAIVER-DATE. DTSBD360 01427 DTSBD360 01428 IF WRK-MQTR-EXISTS-YES DTSBD360 01429 AND MQTR-CURR-RCVD-88 DTSBD360 01430 SET R910-DAILY-SUPL-YES-88 TO TRUE. DTSBD360 01431 DTSBD360 01432 MOVE WRK-ELECTRNIC-WAGE-FILER-IND DTSBD360 01433 TO R910-ELECTRNIC-WAGE-FILER-IND. DTSBD360 01434 DTSBD360 01435 PERFORM P3000-GET-SSNS THRU P3000-EXIT. DTSBD360 01436 DTSBD360 01437 IF TBL-CNT < +11 DTSBD360 01438 PERFORM P4000-PRINT-UC30H-WITH-SSN THRU P4000-EXIT DTSBD360 01439 ELSE DTSBD360 01440 PERFORM P5000-PRINT-UC30H-NO-SSN THRU P5000-EXIT. DTSBD360 01441 DTSBD360 01442 P1320-EXIT. DTSBD360 01443 EXIT. DTSBD360 01444 DTSBD360 01445 DTSBD360 01446 P1321-CHK-YR-REPORTED. DTSBD360 01447 PERFORM DTSBD360 01448 VARYING YR-SUB FROM +1 BY +1 DTSBD360 01449 UNTIL HOLD-YEAR-REPORTED-YES DTSBD360 01450 OR YR-SUB > HOLD-YEAR-TABLE-CNT DTSBD360 01451 IF HOLD-YEAR (YR-SUB) = WRK-UC30H-YEAR DTSBD360 01452 SET HOLD-YEAR-REPORTED-YES TO TRUE DTSBD360 01453 END-IF DTSBD360 01454 END-PERFORM. DTSBD360 01455 DTSBD360 01456 IF HOLD-YEAR-REPORTED-NO DTSBD360 01457 ADD +1 TO HOLD-YEAR-TABLE-CNT DTSBD360 01458 MOVE WRK-UC30H-YEAR DTSBD360 01459 TO HOLD-YEAR (HOLD-YEAR-TABLE-CNT). DTSBD360 01460 DTSBD360 01461 P1321-EXIT. DTSBD360 01462 EXIT. DTSBD360 01463 EJECT DTSBD360 01464 P2000-R109. DTSBD360 01465 MOVE LOW-VALUE TO MSKL-KEY-AREA. DTSBD360 01466 DTSBD360 01467 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBD360 01468 DTSBD360 01469 SET MSKL-SOL-88 TO TRUE. DTSBD360 01470 DTSBD360 01471 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD360 01472 DTSBD360 01473 MOVE MSKL-REC TO MSOL-REC. DTSBD360 01474 DTSBD360 01475 PERFORM UNTIL (T036-START-YRQ NOT < MSOL-FIRST-LIAB-YRQ DTSBD360 01476 AND DTSBD360 01477 T036-START-YRQ NOT > MSOL-LAST-LIAB-YRQ) DTSBD360 01478 OR DTSBD360 01479 L910-NO-REC-88 DTSBD360 01480 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD360 01481 MOVE MSKL-REC TO MSOL-REC DTSBD360 01482 END-PERFORM. DTSBD360 01483 DTSBD360 01484 IF L910-NO-REC-88 DTSBD360 01485 MOVE MSG6-ID-2 TO R907-MSG-ID DTSBD360 01486 MOVE T036-START-YRQ TO L004-QTR-5-9 DTSBD360 01487 PERFORM S004-FROM-5 THRU S004-EXIT DTSBD360 01488 MOVE L004-SLASH-QTR TO MSG6-SLASH-QTR DTSBD360 01489 MOVE MSG6-LONG-TEXT TO R907-MSG-TEXT DTSBD360 01490 PERFORM S946-WRITE-R907 THRU S946-EXIT DTSBD360 01491 GO TO P2000-EXIT. DTSBD360 01492 DTSBD360 01493 DTSBD360 01494 MOVE LOW-VALUE TO MQTR-KEY-AREA. DTSBD360 01495 DTSBD360 01496 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBD360 01497 DTSBD360 01498 SET MQTR-QTR-88 TO TRUE. DTSBD360 01499 DTSBD360 01500 MOVE MSOL-FIRST-LIAB-YRQ TO MQTR-YRQ. DTSBD360 01501 DTSBD360 01502 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBD360 01503 DTSBD360 01504 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD360 01505 DTSBD360 01506 MOVE MSKL-REC TO MQTR-REC. DTSBD360 01507 DTSBD360 01508 DTSBD360 01509 INITIALIZE R109-DATA-AREA. DTSBD360 01510 DTSBD360 01511 MOVE +0 TO WRK-R109-CNT. DTSBD360 01512 DTSBD360 01513 SET WRK-QTRLY-RPT-NO-88 TO TRUE. DTSBD360 01514 SET WRK-ANN-RPT-NO-88 TO TRUE. DTSBD360 01515 PERFORM P2100-CHECK-RECEIVED THRU P2100-EXIT DTSBD360 01516 UNTIL MQTR-YRQ > MSOL-LAST-LIAB-YRQ DTSBD360 01517 OR L910-NO-REC-88 DTSBD360 01518 OR WRK-R109-CNT > +24. DTSBD360 01519 DTSBD360 01520 IF WRK-R109-CNT = +0 DTSBD360 01521 OR WRK-R109-CNT > +24 DTSBD360 01522 GO TO P2000-EXIT. DTSBD360 01523 DTSBD360 01524 DTSBD360 01525 DTSBD360 01526 DTSBD360 01527 PERFORM S061-DETERMINE-FLD-REP THRU S061-EXIT. DTSBD360 01528 DTSBD360 01529 IF L061-FLD-REP-ID = '??' DTSBD360 01530 MOVE '692' TO R907-MSG-ID DTSBD360 01531 MOVE MPRF-EMP-NO TO R907-EMP-NO DTSBD360 01532 MOVE MSG10-LONG-TEXT TO R907-MSG-TEXT DTSBD360 01533 PERFORM S946-WRITE-R907 THRU S946-EXIT DTSBD360 01534 ELSE DTSBD360 01535 PERFORM P2200-FINISH-R109 THRU P2200-EXIT DTSBD360 01536 PERFORM P2300-WRITE-MEVL THRU P2300-EXIT. DTSBD360 01537 P2000-EXIT. DTSBD360 01538 EXIT. DTSBD360 01539 EJECT DTSBD360 01540 P2100-CHECK-RECEIVED. DTSBD360 01541 MOVE MQTR-YRQ TO L516-YRQ DTSBD360 01542 PERFORM S516-LIABILITY-INFO THRU S516-EXIT. DTSBD360 01543 DTSBD360 01544 IF MQTR-CURR-RCVD-88 OR MQTR-CURR-PICKUP-88 DTSBD360 01545 NEXT SENTENCE DTSBD360 01546 ELSE DTSBD360 01547 PERFORM P2110-ADD-TO-TABLE THRU P2110-EXIT. DTSBD360 01548 DTSBD360 01549 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD360 01550 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBD360 01551 DTSBD360 01552 MOVE MSKL-REC TO MQTR-REC. DTSBD360 01553 P2100-EXIT. DTSBD360 01554 EXIT. DTSBD360 01555 DTSBD360 01556 P2110-ADD-TO-TABLE. DTSBD360 01557 ADD +1 TO WRK-R109-CNT DTSBD360 01558 IF WRK-R109-CNT > +24 DTSBD360 01559 MOVE MSG7-ID-2 TO R907-MSG-ID DTSBD360 01560 MOVE MSG7-LONG-TEXT TO R907-MSG-TEXT DTSBD360 01561 PERFORM S946-WRITE-R907 THRU S946-EXIT DTSBD360 01562 GO TO P2110-EXIT DTSBD360 01563 ELSE DTSBD360 01564 MOVE MQTR-YRQ TO WRK-R109-YRQ (WRK-R109-CNT) DTSBD360 01565 IF L516-ANN-SCHED-88 DTSBD360 01566 SET WRK-R109-RPT-ANN-88 (WRK-R109-CNT) TO TRUE DTSBD360 01567 SET WRK-ANN-RPT-YES-88 TO TRUE DTSBD360 01568 ELSE DTSBD360 01569 SET WRK-R109-RPT-QTR-88 (WRK-R109-CNT) TO TRUE DTSBD360 01570 SET WRK-QTRLY-RPT-YES-88 TO TRUE. DTSBD360 01571 DTSBD360 01572 P2110-EXIT. DTSBD360 01573 EXIT. DTSBD360 01574 P2200-FINISH-R109. DTSBD360 01575 MOVE T036-RESP-OP-ID TO R109-OP-ID. DTSBD360 01576 DTSBD360 01577 MOVE T036-EMP-NO TO R109-EMP-NO. DTSBD360 01578 DTSBD360 01579 MOVE MSOL-LIAB-DATE TO R109-LIAB-DATE. DTSBD360 01580 DTSBD360 01581 MOVE LBCM-CURR-MAIL-DATE TO R109-MAIL-DATE. DTSBD360 01582 DTSBD360 01583 MOVE L112-MAILING-ADDRESS TO R109-FMT-ADDR. DTSBD360 01584 DTSBD360 01585 MOVE L112-ZIP TO R109-ZIP. DTSBD360 01586 DTSBD360 01587 MOVE L112-ADVANCED-BARCODE TO R109-ADVANCE-BARCODE. DTSBD360 01588 DTSBD360 01589 IF INCONSISTENT-WAIVER-IND = 'N' DTSBD360 01590 MOVE T036-WAIVER-START-YRQ TO R109-WAIVE-START-YRQ DTSBD360 01591 MOVE T036-WAIVER-END-YRQ TO R109-WAIVE-END-YRQ DTSBD360 01592 MOVE T036-WAIVER-EXT-DATE TO R109-WAIVE-DATE DTSBD360 01593 ELSE DTSBD360 01594 MOVE +0 TO R109-WAIVE-START-YRQ DTSBD360 01595 R109-WAIVE-END-YRQ DTSBD360 01596 R109-WAIVE-DATE. DTSBD360 01597 DTSBD360 01598 MOVE L061-FLD-REP-ID TO R109-FLD-REP-ID. DTSBD360 01599 DTSBD360 01600 IF WRK-QTRLY-RPT-YES-88 DTSBD360 01601 PERFORM P2210-ADD-R109R1 THRU P2210-EXIT. DTSBD360 01602 DTSBD360 01603 IF WRK-ANN-RPT-YES-88 DTSBD360 01604 PERFORM P2220-ADD-R109R2 THRU P2220-EXIT. DTSBD360 01605 DTSBD360 01606 P2200-EXIT. DTSBD360 01607 EXIT. DTSBD360 01608 SKIP3 DTSBD360 01609 P2210-ADD-R109R1. DTSBD360 01610 SET R109-RPT-QUARTERLY-88 TO TRUE. DTSBD360 01611 DTSBD360 01612 MOVE ZERO TO WRK-R109-SUB. DTSBD360 01613 DTSBD360 01614 PERFORM DTSBD360 01615 VARYING WRK-TAB-SUB FROM +1 BY +1 DTSBD360 01616 UNTIL WRK-TAB-SUB > WRK-R109-CNT DTSBD360 01617 IF WRK-R109-RPT-QTR-88 (WRK-TAB-SUB) DTSBD360 01618 ADD +1 TO WRK-R109-SUB DTSBD360 01619 MOVE WRK-R109-SUB TO R109-YRQ-CNT DTSBD360 01620 MOVE WRK-R109-YRQ (WRK-TAB-SUB) DTSBD360 01621 TO R109-YRQ (WRK-R109-SUB) DTSBD360 01622 END-IF DTSBD360 01623 END-PERFORM. DTSBD360 01624 DTSBD360 01625 PERFORM S946-WRITE-R109 THRU S946-EXIT. DTSBD360 01626 DTSBD360 01627 P2210-EXIT. DTSBD360 01628 EXIT. DTSBD360 01629 SKIP3 DTSBD360 01630 P2220-ADD-R109R2. DTSBD360 01631 SET R109-RPT-ANNUAL-88 TO TRUE. DTSBD360 01632 DTSBD360 01633 MOVE ZERO TO WRK-R109-SUB. DTSBD360 01634 DTSBD360 01635 PERFORM DTSBD360 01636 VARYING WRK-TAB-SUB FROM +1 BY +1 DTSBD360 01637 UNTIL WRK-TAB-SUB > WRK-R109-CNT DTSBD360 01638 IF WRK-R109-RPT-ANN-88 (WRK-TAB-SUB) DTSBD360 01639 ADD +1 TO WRK-R109-SUB DTSBD360 01640 MOVE WRK-R109-SUB TO R109-YRQ-CNT DTSBD360 01641 MOVE WRK-R109-YRQ (WRK-TAB-SUB) DTSBD360 01642 TO R109-YRQ (WRK-R109-SUB) DTSBD360 01643 END-IF DTSBD360 01644 END-PERFORM. DTSBD360 01645 DTSBD360 01646 PERFORM S946-WRITE-R109 THRU S946-EXIT. DTSBD360 01647 DTSBD360 01648 P2220-EXIT. DTSBD360 01649 EXIT. DTSBD360 01650 SKIP3 DTSBD360 01651 P2300-WRITE-MEVL. DTSBD360 01652 MOVE LOW-VALUE TO MEVL-REC. DTSBD360 01653 DTSBD360 01654 DTSBD360 01655 MOVE MPRF-EMP-NO TO MEVL-EMP-NO. DTSBD360 01656 DTSBD360 01657 SET MEVL-EVL-88 TO TRUE. DTSBD360 01658 DTSBD360 01659 ADD +1000 TO LBCM-EMP-ABSTIME. DTSBD360 01660 DTSBD360 01661 MOVE LBCM-EMP-ABSTIME TO L005-ABSTIME. DTSBD360 01662 DTSBD360 01663 PERFORM S005-FROM-ABS THRU S005-EXIT. DTSBD360 01664 DTSBD360 01665 MOVE L005-DATE TO MEVL-DATE. DTSBD360 01666 DTSBD360 01667 MOVE L005-TIME TO MEVL-TIME. DTSBD360 01668 DTSBD360 01669 MOVE +0 TO MEVL-PURGE-DATE. DTSBD360 01670 DTSBD360 01671 MOVE 'MISSING RPT NOTICE GENED AT SUBJECTIVITY ENTRY' DTSBD360 01672 TO MEVL-TEXT. DTSBD360 01673 DTSBD360 01674 SET MEVL-SOURCE-SYSTEM-88 TO TRUE. DTSBD360 01675 DTSBD360 01676 SET MEVL-NOT-CONVERTED-88 TO TRUE. DTSBD360 01677 DTSBD360 01678 MOVE LBCM-CURR-RUN-DATE TO MEVL-ESTB-DATE DTSBD360 01679 MEVL-CHNG-DATE. DTSBD360 01680 DTSBD360 01681 DTSBD360 01682 MOVE MEVL-REC TO MSKL-REC. DTSBD360 01683 DTSBD360 01684 PERFORM S910-WRITE THRU S910-EXIT. DTSBD360 01685 P2300-EXIT. DTSBD360 01686 EXIT. DTSBD360 01687 EJECT DTSBD360 01688 P3000-GET-SSNS. DTSBD360 01689 MOVE ZERO TO TBL-SUB DTSBD360 01690 TBL-CNT DTSBD360 01691 WRK-MAX-SSN. DTSBD360 01692 SET WRK-SSN-ERROR-NO-88 TO TRUE. DTSBD360 01693 MOVE WRK-YRQ TO L004-QTR-5-9. DTSBD360 01694 SUBTRACT 1 FROM L004-QTR-5-YR. DTSBD360 01695 MOVE 1 TO L004-QTR-5-Q. DTSBD360 01696 PERFORM S004-FROM-5 THRU S004-EXIT DTSBD360 01697 MOVE L004-QTR-5-9 TO WRK-PARM-PRIOR-YRQ. DTSBD360 01698 DTSBD360 01699 MOVE LOW-VALUES TO WWGH-KEY-AREA. DTSBD360 01700 MOVE WRK-EMP-NO TO WWGH-EMP-NO. DTSBD360 01701 MOVE WRK-PARM-PRIOR-YRQ TO WWGH-YRQ. DTSBD360 01702 DTSBD360 01703 PERFORM S981D-START-BROWSE THRU S981D-EXIT. DTSBD360 01704 IF L981-NO-REC-88 DTSBD360 01705 GO TO P3000-EXIT DTSBD360 01706 ELSE DTSBD360 01707 PERFORM P3100-SCAN-WAGES THRU P3100-EXIT DTSBD360 01708 UNTIL L981-NO-REC-88. DTSBD360 01709 P3000-EXIT. DTSBD360 01710 EXIT. DTSBD360 01711 DTSBD360 01712 P3100-SCAN-WAGES. DTSBD360 01713 DTSBD360 01714 IF WWGH-EMP-NO NOT = WRK-EMP-NO DTSBD360 01715 SET L981-NO-REC-88 TO TRUE DTSBD360 01716 GO TO P3100-EXIT DTSBD360 01717 ELSE DTSBD360 01718 IF WWGH-SSN < +1000000 DTSBD360 01719 NEXT SENTENCE DTSBD360 01720 END-IF DTSBD360 01721 PERFORM P3110-FIND-INDEX THRU P3110-EXIT DTSBD360 01722 IF WRK-SSN-ERROR-NO-88 DTSBD360 01723 IF WRK-INDEX-SSN-FOUND-88 DTSBD360 01724 NEXT SENTENCE DTSBD360 01725 ELSE DTSBD360 01726 MOVE WWGH-SSN TO WRK-SSN (TBL-SUB) DTSBD360 01727 ELSE DTSBD360 01728 GO TO P3100-EXIT. DTSBD360 01729 DTSBD360 01730 PERFORM S981E-READ-NEXT THRU S981E-EXIT. DTSBD360 01731 DTSBD360 01732 P3100-EXIT. DTSBD360 01733 EXIT. DTSBD360 01734 DTSBD360 01735 P3110-FIND-INDEX. DTSBD360 01736 SET WRK-INDEX-NULL-88 TO TRUE. DTSBD360 01737 DTSBD360 01738 IF WWGH-SSN > WRK-MAX-SSN DTSBD360 01739 IF TBL-CNT < TBL-MAX DTSBD360 01740 ADD +1 TO TBL-CNT DTSBD360 01741 MOVE TBL-CNT TO TBL-SUB DTSBD360 01742 SET WRK-INDEX-POSITION-FOUND-88 TO TRUE DTSBD360 01743 MOVE WWGH-SSN TO WRK-MAX-SSN DTSBD360 01744 ELSE DTSBD360 01745 SET WRK-SSN-ERROR-YES-88 TO TRUE DTSBD360 01746 END-IF DTSBD360 01747 ELSE DTSBD360 01748 PERFORM P3111-SEARCH-TABLE THRU P3111-EXIT DTSBD360 01749 IF WRK-INDEX-POSITION-FOUND-88 DTSBD360 01750 IF TBL-CNT < TBL-MAX DTSBD360 01751 PERFORM P3112-INSERT-SSN THRU P3112-EXIT DTSBD360 01752 ELSE DTSBD360 01753 SET WRK-SSN-ERROR-YES-88 TO TRUE DTSBD360 01754 END-IF DTSBD360 01755 END-IF DTSBD360 01756 END-IF. DTSBD360 01757 P3110-EXIT. DTSBD360 01758 EXIT. DTSBD360 01759 DTSBD360 01760 DTSBD360 01761 P3111-SEARCH-TABLE. DTSBD360 01762 PERFORM DTSBD360 01763 VARYING SSN-SUB FROM +1 BY +1 DTSBD360 01764 UNTIL WRK-INDEX-FOUND-88 DTSBD360 01765 OR SSN-SUB > TBL-CNT DTSBD360 01766 IF WRK-SSN (SSN-SUB) = WWGH-SSN DTSBD360 01767 SET WRK-INDEX-SSN-FOUND-88 TO TRUE DTSBD360 01768 MOVE SSN-SUB TO TBL-SUB DTSBD360 01769 ELSE DTSBD360 01770 IF WWGH-SSN < WRK-SSN (SSN-SUB) DTSBD360 01771 MOVE SSN-SUB TO TBL-SUB DTSBD360 01772 SET WRK-INDEX-POSITION-FOUND-88 TO TRUE DTSBD360 01773 END-IF DTSBD360 01774 END-IF DTSBD360 01775 END-PERFORM. DTSBD360 01776 P3111-EXIT. DTSBD360 01777 EXIT. DTSBD360 01778 DTSBD360 01779 P3112-INSERT-SSN. DTSBD360 01780 PERFORM DTSBD360 01781 VARYING SSN-SUB FROM TBL-CNT BY -1 DTSBD360 01782 UNTIL SSN-SUB < TBL-SUB DTSBD360 01783 COMPUTE NXT-SUB = SSN-SUB + 1 DTSBD360 01784 MOVE WRK-SSN (SSN-SUB) TO WRK-SSN (NXT-SUB) DTSBD360 01785 END-PERFORM. DTSBD360 01786 DTSBD360 01787 ADD +1 TO TBL-CNT. DTSBD360 01788 DTSBD360 01789 P3112-EXIT. DTSBD360 01790 EXIT. DTSBD360 01791 DTSBD360 01792 P4000-PRINT-UC30H-WITH-SSN. DTSBD360 01793 PERFORM DTSBD360 01794 VARYING TBL-SUB FROM +1 BY +1 DTSBD360 01795 UNTIL TBL-SUB > TBL-CNT DTSBD360 01796 MOVE WRK-SSN (TBL-SUB) TO DTSBD360 01797 R910-SSN-LINE (TBL-SUB) DTSBD360 01798 DISPLAY 'MOVING SSN TO PRINT ' DTSBD360 01799 END-PERFORM. DTSBD360 01800 DTSBD360 01801 DISPLAY 'DISPLAY SSN COUNT ' TBL-CNT. DTSBD360 01802 MOVE TBL-CNT TO R910-SSN-LINE-CNT. DTSBD360 01803 PERFORM S946-WRITE-R910 THRU S946-EXIT. DTSBD360 01804 DTSBD360 01805 P4000-EXIT. DTSBD360 01806 EXIT. DTSBD360 01807 DTSBD360 01808 P5000-PRINT-UC30H-NO-SSN. DTSBD360 01809 PERFORM DTSBD360 01810 VARYING TBL-SUB FROM +1 BY +1 DTSBD360 01811 UNTIL TBL-SUB > TBL-CNT DTSBD360 01812 MOVE ZEROS TO DTSBD360 01813 R910-SSN-LINE (TBL-SUB) DTSBD360 01814 END-PERFORM. DTSBD360 01815 DTSBD360 01816 DISPLAY 'DISPLAY SSN > 10 ' TBL-CNT. DTSBD360 01817 MOVE ZEROS TO R910-SSN-LINE-CNT. DTSBD360 01818 PERFORM S946-WRITE-R910 THRU S946-EXIT. DTSBD360 01819 DTSBD360 01820 DISPLAY 'DISPLAY SSN = 0 ' TBL-CNT. DTSBD360 01821 P5000-EXIT. DTSBD360 01822 EXIT. DTSBD360 01823 DTSBD360 01824 S004-FROM-5. DTSBD360 01825 SET L004-FROM-5 TO TRUE. DTSBD360 01826 GO TO S004-QTR. DTSBD360 01827 DTSBD360 01828 S004-FROM-ABS. DTSBD360 01829 SET L004-FROM-ABS TO TRUE. DTSBD360 01830 GO TO S004-QTR. DTSBD360 01831 DTSBD360 01832 S004-QTR. DTSBD360 01833 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBD360 01834 S004-EXIT. DTSBD360 01835 EXIT. DTSBD360 01836 SKIP3 DTSBD360 01837 S005-FROM-ABS. DTSBD360 01838 SET L005-FROM-ABSTIME TO TRUE. DTSBD360 01839 GO TO S005-TIME. DTSBD360 01840 DTSBD360 01841 S005-TIME. DTSBD360 01842 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBD360 01843 S005-EXIT. DTSBD360 01844 EXIT. DTSBD360 01845 SKIP3 DTSBD360 01846 S061-DETERMINE-FLD-REP. DTSBD360 01847 MOVE MPRF-FLD-ZIP-ST TO L061-FLD-ZIP-ST. DTSBD360 01848 MOVE MPRF-EMP-NO TO L061-EMP-NO. DTSBD360 01849 CALL 'DTSBU061' USING L061-LINK-AREA. DTSBD360 01850 S061-EXIT. DTSBD360 01851 EXIT. DTSBD360 01852 SKIP3 DTSBD360 01853 S111-LOOKUP-ADDR. DTSBD360 01854 CALL 'DTSBU111' USING L111-LINK-AREA. DTSBD360 01855 S111-EXIT. DTSBD360 01856 EXIT. DTSBD360 01857 SKIP3 DTSBD360 01858 S112-FORMAT-ADDR. DTSBD360 01859 CALL 'DTSBU112' USING L112-LINK-AREA. DTSBD360 01860 S112-EXIT. DTSBD360 01861 EXIT. DTSBD360 01862 SKIP3 DTSBD360 01863 S410-FILING-SCHED. DTSBD360 01864 CALL 'DTSBU410' USING L410-LINK-AREA. DTSBD360 01865 S410-EXIT. DTSBD360 01866 EXIT. DTSBD360 01867 SKIP3 DTSBD360 01868 S415-HOUSEHOLD-DATES. DTSBD360 01869 CALL 'DTSBU415' USING L415-LINK-AREA. DTSBD360 01870 S415-EXIT. DTSBD360 01871 EXIT. DTSBD360 01872 SKIP3 DTSBD360 01873 S516-LIABILITY-INFO. DTSBD360 01874 CALL 'DTSBU516' USING L516-LINK-AREA DTSBD360 01875 MPRF-REC. DTSBD360 01876 S516-EXIT. DTSBD360 01877 EXIT. DTSBD360 01878 SKIP3 DTSBD360 01879 S910-READ. DTSBD360 01880 SET L910-READ-88 TO TRUE. DTSBD360 01881 GO TO S910-MSTR-IO. DTSBD360 01882 DTSBD360 01883 S910-START-BROWSE. DTSBD360 01884 SET L910-START-BROWSE-88 TO TRUE. DTSBD360 01885 GO TO S910-MSTR-IO. DTSBD360 01886 DTSBD360 01887 S910-READ-NEXT. DTSBD360 01888 SET L910-READ-NEXT-88 TO TRUE. DTSBD360 01889 GO TO S910-MSTR-IO. DTSBD360 01890 DTSBD360 01891 *S910-COUNT. DTSBD360 01892 *****SET L910-COUNT-88 TO TRUE. DTSBD360 01893 *****GO TO S910-MSTR-IO. DTSBD360 01894 DTSBD360 01895 S910-WRITE. DTSBD360 01896 SET L910-WRITE-88 TO TRUE. DTSBD360 01897 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD360 01898 GO TO S910-MSTR-IO. DTSBD360 01899 DTSBD360 01900 *S910-REWRITE. DTSBD360 01901 *****SET L910-REWRITE-88 TO TRUE. DTSBD360 01902 *****SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD360 01903 *****GO TO S910-MSTR-IO. DTSBD360 01904 DTSBD360 01905 *S910-DELETE. DTSBD360 01906 *****SET L910-DELETE-88 TO TRUE. DTSBD360 01907 *****SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD360 01908 *****GO TO S910-MSTR-IO. DTSBD360 01909 DTSBD360 01910 S910-MSTR-IO. DTSBD360 01911 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD360 01912 MSKL-REC. DTSBD360 01913 S910-EXIT. DTSBD360 01914 EXIT. DTSBD360 01915 SKIP3 DTSBD360 01916 S931-READ. DTSBD360 01917 SET L931-READ-88 TO TRUE. DTSBD360 01918 GO TO S931-REF-I. DTSBD360 01919 DTSBD360 01920 *S931-START-BROWSE. DTSBD360 01921 *****SET L931-START-BROWSE-88 TO TRUE. DTSBD360 01922 *****GO TO S931-REF-I. DTSBD360 01923 DTSBD360 01924 *S931-READ-NEXT. DTSBD360 01925 *****SET L931-READ-NEXT-88 TO TRUE. DTSBD360 01926 *****GO TO S931-REF-I. DTSBD360 01927 DTSBD360 01928 S931-REF-I. DTSBD360 01929 CALL 'DTSBU931' USING L931-LINK-AREA DTSBD360 01930 FSKL-REC. DTSBD360 01931 S931-EXIT. DTSBD360 01932 EXIT. DTSBD360 01933 SKIP3 DTSBD360 01934 S946-WRITE-R109. DTSBD360 01935 CALL 'DTSBU946' USING R109-REC. DTSBD360 01936 GO TO S946-EXIT. DTSBD360 01937 DTSBD360 01938 S946-WRITE-R902. DTSBD360 01939 CALL 'DTSBU946' USING R902-REC. DTSBD360 01940 GO TO S946-EXIT. DTSBD360 01941 DTSBD360 01942 S946-WRITE-R907. DTSBD360 01943 CALL 'DTSBU946' USING R907-REC. DTSBD360 01944 GO TO S946-EXIT. DTSBD360 01945 DTSBD360 01946 S946-WRITE-R910. DTSBD360 01947 CALL 'DTSBU946' USING R910-REC. DTSBD360 01948 GO TO S946-EXIT. DTSBD360 01949 DTSBD360 01950 S946-EXIT. DTSBD360 01951 EXIT. DTSBD360 01952 DTSBD360 01953 S981D-START-BROWSE. DTSBD360 01954 SET L981-START-BROWSE-88 TO TRUE. DTSBD360 01955 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBD360 01956 DTSBD360 01957 S981D-EXIT. DTSBD360 01958 EXIT. DTSBD360 01959 DTSBD360 01960 S981E-READ-NEXT. DTSBD360 01961 SET L981-READ-NEXT-88 TO TRUE. DTSBD360 01962 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBD360 01963 DTSBD360 01964 S981E-EXIT. DTSBD360 01965 EXIT. DTSBD360 01966 DTSBD360 01967 S981Z-WAGE-I. DTSBD360 01968 CALL 'DTSBU981' USING L981-LINK-AREA DTSBD360 01969 WWGH-REC. DTSBD360 01970 S981Z-EXIT. DTSBD360 01971 EXIT. DTSBD360