1973 lines
156 KiB
COBOL
1973 lines
156 KiB
COBOL
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
|