00001 IDENTIFICATION DIVISION. 03/24/08 00002 PROGRAM-ID. DTSBR910. DTSBR910 00003 AUTHOR. TRW. LV007 00004 DATE-WRITTEN. NOVEMBER 2001. DTSBR910 00005 DATE-COMPILED. DTSBR910 00006 SKIP3 DTSBR910 00007 ***** DTSBR910 00008 * PRODUCED DAILY THROUGH REGISTRATION PROCESS AND IN DTSBR910 00009 * ANNUAL MASS MAILING. DTSBR910 00010 * DTSBR910 00011 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR910 00012 * DTSBE352 WHICH UPDATES DTSIR910 DTSBR910 00013 * DTSBR910 READS DTSIR910 RECORDS. DTSBR910 00014 * DTSBR910 00015 * FUNCTION: PRINT ANNUAL CONTRIBUTION AND WAGE REPORTS UC-30H DTSBR910 00016 * DTSBR910 00017 * DTSBR910 00018 * MODIFICATION HISTORY: DTSBR910 00019 * DTSBR910 00020 * 11-10-2001 MODIFIED FROM DTSBR902 DTSBR910 00021 * REFERENCE RFP HOUSEHOLD AUTHOR OF CHANGE - GD DTSBR910 00022 * DTSBR910 00023 * DTSBR910 00024 * 04-13-06 MODIFIED TO PRINT UC30 ON A RPT910R2 FILE IF THE DTSBR910 00025 * DAILY INPUT YEAR-QUARTER IS EQUAL OR GREATER THAN DTSBR910 00026 * 1ST JANUARY 2006. THE UC30 FORM LINE 6 CONTAIN A DTSBR910 00027 * NEW ADMINISTRATIVE ASSESSMENT DUE INSTRUCTION TO DTSBR910 00028 * CALCULATE THE ADMINISTRATION FEE MULTIPLY TAXABLE DTSBR910 00029 * WAGES PAID BY 0.02%. DTSBR910 00030 * REFERENCE RFP ## PROGRAMMER: RW1 DTSBR910 00031 * DTSBR910 00032 * DTSBR910 00033 * 03-24-2008 FIXED BUG TO PRINT THE CORRECT UC30H FORM DTSBR910 00034 * REFERENCE RFP HOUSEHOLD AUTHOR OF CHANGE - ZL1DTSBR910 00035 * DTSBR910 00036 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR910 00037 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR910 00038 * REFERENCE RFP #**** PROGRAMMER: XXXDTSBR910 00039 * DTSBR910 00040 * DTSBR910 00041 * DESCRIPTION: DTSBR910 00042 * DTSBR910 00043 * THIS MODULE PRINTS THE ANNUAL WAGE REPORT, BOTH FROM DTSBR910 00044 * DAILY BATCH PROCESSES AND THE ANNUAL MASS MAILING, DTSBR910 00045 * FOR HOUSEHOLD EMPLOYERS FILING ANNUALLY. DTSBR910 00046 * DTSBR910 00047 * RECORDS READ: DTSBR910 00048 * DTSBR910 00049 * NONE. DTSBR910 00050 * DTSBR910 00051 * DTSBR910 00052 * PRINTED OUTPUTS: DTSBR910 00053 * DTSBR910 00054 * 910R1 ANNUAL WAGE REPORT (UC-30H) DTSBR910 00055 * 910R2 ANNUAL WAGE REPORT (UC-30H) AFTER 01/01/2006 DTSBR910 00056 * DTSBR910 00057 * DTSBR910 00058 * RECORDS WRITTEN: DTSBR910 00059 * DTSBR910 00060 * NONE. DTSBR910 00061 * DTSBR910 00062 * DTSBR910 00063 * MODULES CALLED: DTSBR910 00064 * DTSBR910 00065 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR910 00066 * DTSBU002 DATE EDIT/CONVERSION MODULE DTSBR910 00067 * DTSBU004 DATE EDIT/CONVERSION MODULE DTSBR910 00068 * DTSBU008 QUARTER ALPHA CONVERSION MODULE DTSBR910 00069 * DTSBU009 TRANSLATE TO UPPER CASE MODULE DTSBR910 00070 * DTSBU056 RATE DISPLAY MODULE DTSBR910 00071 * DTSBU071 NAME EDIT/CONVERSION MODULE DTSBR910 00072 * DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE DTSBR910 00073 * DTSBU109 AFT RATE LOOKUP MODULE DTSBR910 00074 * DTSBU119 AGENCY FACTS MODULE DTSBR910 00075 * DTSBU143 CHARACTER STRING BUILDING MODULE DTSBR910 00076 * DTSBR910 00077 * DTSBR910 00078 ***** DTSBR910 00079 EJECT DTSBR910 00080 ENVIRONMENT DIVISION. DTSBR910 00081 DTSBR910 00082 CONFIGURATION SECTION. DTSBR910 00083 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR910 00084 DTSBR910 00085 INPUT-OUTPUT SECTION. DTSBR910 00086 DTSBR910 00087 FILE-CONTROL. DTSBR910 00088 SELECT PRT-FILE1 ASSIGN TO DTS910F1. DTSBR910 00089 SELECT PRT-FILE2 ASSIGN TO RPT910R1. DTSBR910 00090 SELECT PRT-FILE3 ASSIGN TO RPT910R2. DTSBR910 00091 DTSBR910 00092 DATA DIVISION. DTSBR910 00093 DTSBR910 00094 FILE SECTION. DTSBR910 00095 DTSBR910 00096 FD PRT-FILE1 DTSBR910 00097 RECORDING MODE IS F. DTSBR910 00098 01 UC30H-DATA PIC X(490). DTSBR910 00099 DTSBR910 00100 FD PRT-FILE2 DTSBR910 00101 RECORDING MODE IS F. DTSBR910 00102 01 UC30H-REPORT PIC X(140). DTSBR910 00103 DTSBR910 00104 FD PRT-FILE3 DTSBR910 00105 RECORDING MODE IS F. DTSBR910 00106 01 UC30H-REPORT3 PIC X(140). DTSBR910 00107 DTSBR910 00108 WORKING-STORAGE SECTION. DTSBR910 001085 77 PAN-VALET PICTURE X(24) VALUE '007DTSBR910 03/24/08'. DTSBR910 00109 01 WRK-TABLE-AREA. DTSBR910 00110 05 TBL-SUB PIC S9(04) COMP. DTSBR910 00111 05 TBL-CNT PIC S9(04) COMP VALUE +0. DTSBR910 00112 05 SSN-SUB PIC S9(04) COMP. DTSBR910 00113 DTSBR910 00114 01 WRK-SSN-TABLE. DTSBR910 00115 05 WRK-SSN OCCURS 250 TIMES PIC S9(09) COMP-3. DTSBR910 00116 DTSBR910 00117 01 WRK-AREA. DTSBR910 00118 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +910.DTSBR910 00119 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR910 00120 05 WS-DAILY-OP-ID-HOLD PIC X(08) VALUE SPACES.DTSBR910 00121 *RW1 DTSBR910 00122 05 FIRST-TIME-LESS-2006-IND PIC X(01) VALUE 'Y'. DTSBR910 00123 05 FIRST-TIME-NOT-LESS-2006-IND PIC X(01) VALUE 'Y'. DTSBR910 00124 05 WS-DAILY-OP-ID-HOLD1 PIC X(08) VALUE SPACES.DTSBR910 00125 05 UC30-NEW-YEAR PIC 9(04) VALUE 2006. DTSBR910 00126 *RW2 DTSBR910 00127 05 WS-BLANK-LINE PIC X(133) VALUE SPACES.DTSBR910 00128 05 WS-YRQ-UNPACK PIC 9(05) VALUE ZEROS. DTSBR910 00129 05 FILLER REDEFINES WS-YRQ-UNPACK. DTSBR910 00130 10 WS-YEAR PIC 9(04). DTSBR910 00131 10 WS-QTR PIC 9(01). DTSBR910 00132 05 WS-WRK-SSN PIC 9(09) VALUE ZEROS. DTSBR910 00133 05 WS-WRK-SSNX REDEFINES WS-WRK-SSN. DTSBR910 00134 10 WS-SSN1 PIC 9(03). DTSBR910 00135 10 WS-SSN2 PIC 9(02). DTSBR910 00136 10 WS-SSN3 PIC 9(04). DTSBR910 00137 05 WS-RPT-SSN. DTSBR910 00138 10 RPT-SSN1 PIC 9(03). DTSBR910 00139 10 FILLER PIC X VALUE '-'. DTSBR910 00140 10 RPT-SSN2 PIC 9(02). DTSBR910 00141 10 FILLER PIC X VALUE '-'. DTSBR910 00142 10 RPT-SSN3 PIC 9(04). DTSBR910 00143 05 WS-BREAK-LINE1 PIC X(40) VALUE DTSBR910 00144 '********************************* '. DTSBR910 00145 05 WS-BREAK-LINE2 PIC X(40) VALUE DTSBR910 00146 '* ROUTE FOLLOWING FORMS TO: * '. DTSBR910 00147 DTSBR910 00148 05 WRK-OPR-NAME. DTSBR910 00149 10 FILLER PIC X(02) VALUE '* '. DTSBR910 00150 10 WS-OPR-NAME PIC X(30). DTSBR910 00151 10 FILLER PIC X(01) VALUE '*'. DTSBR910 00152 05 WRK-OPR-UNIT-NAME. DTSBR910 00153 10 FILLER PIC X(02) VALUE '* '. DTSBR910 00154 10 WS-OPR-UNIT-NAME PIC X(30). DTSBR910 00155 10 FILLER PIC X(01) VALUE '*'. DTSBR910 00156 DTSBR910 00157 05 WS-WAIVER-MSG-INIT PIC X(115) VALUE SPACES.DTSBR910 00158 05 WS-WAIVER-MSG-TBL REDEFINES WS-WAIVER-MSG-INIT. DTSBR910 00159 10 WS-WAIVER-MSG-LINE OCCURS 5 TIMES PIC X(23). DTSBR910 00160 05 WS-SNGL-WAIVER-MSG-INIT. DTSBR910 00161 10 FILLER PIC X(23) DTSBR910 00162 VALUE 'REPORT AND PAYMENT FOR '. DTSBR910 00163 10 WS-SNGL-WAIVER-YRQ-DISP PIC 99/9. DTSBR910 00164 10 FILLER PIC X(22) DTSBR910 00165 VALUE ' MUST BE RETURNED BY '. DTSBR910 00166 10 WS-SNGL-WAIVER-DATE-DISP PIC X(08). DTSBR910 00167 10 FILLER PIC X(32) DTSBR910 00168 VALUE ' TO AVOID PENALTY AND INTEREST'. DTSBR910 00169 10 FILLER PIC X(11) DTSBR910 00170 VALUE ' CHARGES.'. DTSBR910 00171 10 FILLER PIC X(15) DTSBR910 00172 VALUE SPACES. DTSBR910 00173 05 WS-MLTPL-WAIVER-MSG-INIT. DTSBR910 00174 10 FILLER PIC X(27) DTSBR910 00175 VALUE 'REPORTS AND PAYMENTS FOR '. DTSBR910 00176 10 WS-MLTPL-WAIVER-YRQ1-DISP DTSBR910 00177 PIC 99/9. DTSBR910 00178 10 FILLER PIC X(03) DTSBR910 00179 VALUE ' - '. DTSBR910 00180 10 WS-MLTPL-WAIVER-YRQ2-DISP DTSBR910 00181 PIC 99/9. DTSBR910 00182 10 FILLER PIC X(23) DTSBR910 00183 VALUE ' MUST BE RETURNED BY '. DTSBR910 00184 10 WS-MLTPL-WAIVER-DATE-DISP DTSBR910 00185 PIC X(08). DTSBR910 00186 10 FILLER PIC X(40) DTSBR910 00187 VALUE 'TO AVOID PENALTY AND INTEREST CHARGES.'. DTSBR910 00188 10 FILLER PIC X(06) DTSBR910 00189 VALUE SPACES. DTSBR910 00190 DTSBR910 00191 05 TEMP-EMP-NO PIC 9(06). DTSBR910 00192 88 TEMP-EMP-PRINT-88 VALUE 153333 DTSBR910 00193 136679 DTSBR910 00194 063302 DTSBR910 00195 153001 DTSBR910 00196 200100 DTSBR910 00197 076805 DTSBR910 00198 148664 DTSBR910 00199 000001 THRU 010000 DTSBR910 00200 089000 THRU 100000. DTSBR910 00201 EJECT DTSBR910 00202 **+INCLUDE DTSX910W DTSBR910 00203 ++INCLUDE DTSXL910 DTSBR910 00204 EJECT DTSBR910 00205 01 L001-LINK-AREA. DTSBR910 00206 ++INCLUDE DTSIL001 DTSBR910 00207 EJECT DTSBR910 00208 01 L002-LINK-AREA. DTSBR910 00209 ++INCLUDE DTSIL002 DTSBR910 00210 EJECT DTSBR910 00211 01 L004-LINK-AREA. DTSBR910 00212 ++INCLUDE DTSIL004 DTSBR910 00213 EJECT DTSBR910 00214 01 L008-LINK-AREA. DTSBR910 00215 ++INCLUDE DTSIL008 DTSBR910 00216 EJECT DTSBR910 00217 01 L009-LINK-AREA. DTSBR910 00218 ++INCLUDE DTSIL009 DTSBR910 00219 EJECT DTSBR910 00220 01 L056-LINK-AREA. DTSBR910 00221 ++INCLUDE DTSIL056 DTSBR910 00222 EJECT DTSBR910 00223 01 L071-LINK-AREA. DTSBR910 00224 ++INCLUDE DTSIL071 DTSBR910 00225 EJECT DTSBR910 00226 01 L082-LINK-AREA. DTSBR910 00227 ++INCLUDE DTSIL082 DTSBR910 00228 EJECT DTSBR910 00229 01 L119-LINK-AREA. DTSBR910 00230 ++INCLUDE DTSIL119 DTSBR910 00231 EJECT DTSBR910 00232 01 L143-LINK-AREA. DTSBR910 00233 ++INCLUDE DTSIL143 DTSBR910 00234 EJECT DTSBR910 00235 DTSBR910 00236 01 ROUTE-INFO-AREA. DTSBR910 00237 05 RTE-LINE-1. DTSBR910 00238 10 FILLER PIC X(27) VALUE SPACES. DTSBR910 00239 10 FILLER PIC X(33) DTSBR910 00240 VALUE '************ DTS910R1 **********'. DTSBR910 00241 05 RTE-LINE-1A. DTSBR910 00242 10 FILLER PIC X(27) VALUE SPACES. DTSBR910 00243 10 FILLER PIC X(33) DTSBR910 00244 VALUE '************ DTS910R2 **********'. DTSBR910 00245 05 RTE-LINE-2. DTSBR910 00246 10 FILLER PIC X(27) VALUE SPACES. DTSBR910 00247 10 FILLER PIC X(13) DTSBR910 00248 VALUE '** '. DTSBR910 00249 10 RTE-SYS-DATE PIC X(08) VALUE SPACES. DTSBR910 00250 10 FILLER PIC X(13) DTSBR910 00251 VALUE ' ** '. DTSBR910 00252 05 RTE-LINE-3. DTSBR910 00253 10 FILLER PIC X(27) VALUE SPACES. DTSBR910 00254 10 FILLER PIC X(33) DTSBR910 00255 VALUE '************ UC30-OLD ***********'. DTSBR910 00256 05 RTE-LINE-4. DTSBR910 00257 10 FILLER PIC X(27) VALUE SPACES. DTSBR910 00258 10 FILLER PIC X(33) DTSBR910 00259 VALUE '************ UC30-NEW ***********'. DTSBR910 00260 DTSBR910 00261 01 UC30H-REPORT-DETAIL1. DTSBR910 00262 05 U30H-LINE-1. DTSBR910 00263 10 FILLER PIC X(04) VALUE SPACES. DTSBR910 00264 10 U30H-EMP-NO PIC 999B999. DTSBR910 00265 10 FILLER PIC X(08) VALUE SPACES. DTSBR910 00266 10 U30H-PRI-NAME-FIRST4 PIC X(4) VALUE SPACES. DTSBR910 00267 10 FILLER PIC X(04) VALUE SPACES. DTSBR910 00268 10 U30H-FMT-LINE-1 PIC X(40) VALUE SPACES. DTSBR910 00269 10 FILLER PIC X(01) VALUE SPACES. DTSBR910 00270 10 U30H-FEIN-DISP PIC 99B9999999. DTSBR910 00271 10 U30H-FEIN-DISP-X DTSBR910 00272 REDEFINES U30H-FEIN-DISP PIC X(10). DTSBR910 00273 10 FILLER PIC X(05) VALUE SPACES. DTSBR910 00274 DTSBR910 00275 05 U30H-LINE-2. DTSBR910 00276 10 FILLER PIC X(27) VALUE SPACES. DTSBR910 00277 10 U30H-FMT-LINE-2 PIC X(40) VALUE SPACES. DTSBR910 00278 DTSBR910 00279 05 U30H-LINE-3. DTSBR910 00280 10 FILLER PIC X(10) VALUE SPACES. DTSBR910 00281 10 U30H-UI-RATE PIC X(06) VALUE SPACES. DTSBR910 00282 10 U30H-PCENT PIC X(03) VALUE ' %'. DTSBR910 00283 10 FILLER PIC X(08) VALUE SPACES. DTSBR910 00284 10 U30H-FMT-LINE-3 PIC X(40) VALUE SPACES. DTSBR910 00285 10 FILLER PIC X(01) VALUE SPACES. DTSBR910 00286 10 U30H-RPT-QTR-END-DISP PIC X(18). DTSBR910 00287 10 FILLER PIC X(05) VALUE SPACES. DTSBR910 00288 DTSBR910 00289 05 U30H-LINE-4. DTSBR910 00290 10 FILLER PIC X(27) VALUE SPACES. DTSBR910 00291 10 U30H-FMT-LINE-4 PIC X(40). DTSBR910 00292 DTSBR910 00293 05 U30H-LINE-5. DTSBR910 00294 10 FILLER PIC X(08) VALUE SPACES. DTSBR910 00295 10 U30H-TAX-WAGE-BASE PIC ZZZZZZ9.99. DTSBR910 00296 10 U30H-TAX-WAGE-BASE-X REDEFINES DTSBR910 00297 U30H-TAX-WAGE-BASE PIC X(10). DTSBR910 00298 10 FILLER PIC X(09) VALUE SPACES. DTSBR910 00299 10 U30H-FMT-LINE-5 PIC X(40). DTSBR910 00300 10 FILLER PIC X(01) VALUE SPACES. DTSBR910 00301 10 U30H-RPT-DUE-DATE-DISP PIC X(18). DTSBR910 00302 10 FILLER PIC X(05) VALUE SPACES. DTSBR910 00303 DTSBR910 00304 05 U30H-LINE-5A1. DTSBR910 00305 10 FILLER PIC X(53) VALUE SPACES. DTSBR910 00306 10 U30H-YEAR PIC X(04). DTSBR910 00307 DTSBR910 00308 05 U30H-LINE-5A. DTSBR910 00309 10 FILLER PIC X(01) VALUE SPACES. DTSBR910 00310 10 U30H-SSN-1 PIC X(11). DTSBR910 00311 DTSBR910 00312 05 U30H-LINE-5B. DTSBR910 00313 10 FILLER PIC X(01) VALUE SPACES. DTSBR910 00314 10 U30H-SSN-2 PIC X(11). DTSBR910 00315 DTSBR910 00316 05 U30H-LINE-5C. DTSBR910 00317 10 FILLER PIC X(01) VALUE SPACES. DTSBR910 00318 10 U30H-SSN-3 PIC X(11). DTSBR910 00319 DTSBR910 00320 05 U30H-LINE-5D. DTSBR910 00321 10 FILLER PIC X(01) VALUE SPACES. DTSBR910 00322 10 U30H-SSN-4 PIC X(11). DTSBR910 00323 DTSBR910 00324 05 U30H-LINE-5E. DTSBR910 00325 10 FILLER PIC X(01) VALUE SPACES. DTSBR910 00326 10 U30H-SSN-5 PIC X(11). DTSBR910 00327 DTSBR910 00328 05 U30H-LINE-5F. DTSBR910 00329 10 FILLER PIC X(01) VALUE SPACES. DTSBR910 00330 10 U30H-SSN-6 PIC X(11). DTSBR910 00331 DTSBR910 00332 05 U30H-LINE-5G. DTSBR910 00333 10 FILLER PIC X(01) VALUE SPACES. DTSBR910 00334 10 U30H-SSN-7 PIC X(11). DTSBR910 00335 DTSBR910 00336 05 U30H-LINE-5H. DTSBR910 00337 10 FILLER PIC X(01) VALUE SPACES. DTSBR910 00338 10 U30H-SSN-8 PIC X(11). DTSBR910 00339 DTSBR910 00340 05 U30H-LINE-5I. DTSBR910 00341 10 FILLER PIC X(01) VALUE SPACES. DTSBR910 00342 10 U30H-SSN-9 PIC X(11). DTSBR910 00343 DTSBR910 00344 05 U30H-LINE-5J. DTSBR910 00345 10 FILLER PIC X(01) VALUE SPACES. DTSBR910 00346 10 U30H-SSN-10 PIC X(11). DTSBR910 00347 DTSBR910 00348 05 U30H-LINE-6. DTSBR910 00349 10 FILLER PIC X(75) VALUE SPACES. DTSBR910 00350 10 U30H-NONTAX-WAGE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910 00351 DTSBR910 00352 05 U30H-LINE-7. DTSBR910 00353 10 FILLER PIC X(75) VALUE SPACES. DTSBR910 00354 10 U30H-TAX-WAGE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910 00355 DTSBR910 00356 05 U30H-LINE-8. DTSBR910 00357 10 FILLER PIC X(38) VALUE SPACES. DTSBR910 00358 10 U30H-UI-TAX-RATE-SI PIC X(6) VALUE SPACES. DTSBR910 00359 10 FILLER PIC X(14) VALUE SPACES. DTSBR910 00360 10 U30H-CONTRIB-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910 00361 DTSBR910 00362 05 U30H-LINE-8R. DTSBR910 00363 10 FILLER PIC X(37) VALUE SPACES. DTSBR910 00364 10 U30H-UI-TAX-RATE-RATED PIC X(6) VALUE SPACES. DTSBR910 00365 DTSBR910 00366 05 U30H-LINE-9. DTSBR910 00367 10 FILLER PIC X(58) VALUE SPACES. DTSBR910 00368 10 U30H-INTREST-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910 00369 DTSBR910 00370 05 U30H-LINE-10. DTSBR910 00371 10 FILLER PIC X(58) VALUE SPACES. DTSBR910 00372 10 U30H-PENALTY-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910 00373 DTSBR910 00374 05 U30H-LINE-11. DTSBR910 00375 10 FILLER PIC X(50) VALUE SPACES. DTSBR910 00376 10 U30H-CREDIT-AMT PIC ZZZ,ZZZ,ZZ9.99. DTSBR910 00377 DTSBR910 00378 05 U30H-LINE-12. DTSBR910 00379 10 FILLER PIC X(75) VALUE SPACES. DTSBR910 00380 10 U30H-TOTAL-AMT PIC ZZZ,ZZZ,ZZ9.99. DTSBR910 00381 DTSBR910 00382 DTSBR910 00383 01 UC30H-DATA-FILE. DTSBR910 00384 10 FILLER PIC X(04) VALUE SPACES. DTSBR910 00385 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00386 10 Q30-EMP-NO PIC 999B999. DTSBR910 00387 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00388 10 Q30-PRI-NAME-FIRST4 PIC X(4) VALUE SPACES. DTSBR910 00389 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00390 10 Q30-FMT-LINE-1 PIC X(36) VALUE SPACES. DTSBR910 00391 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00392 10 Q30-FEIN-DISP PIC 99B9999999. DTSBR910 00393 10 Q30-FEIN-DISP-X DTSBR910 00394 REDEFINES Q30-FEIN-DISP PIC X(10). DTSBR910 00395 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00396 10 Q30-FMT-LINE-2 PIC X(36) VALUE SPACES. DTSBR910 00397 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00398 10 Q30-UI-RATE PIC X(06) VALUE SPACES. DTSBR910 00399 10 Q30-PCENT PIC X(03) VALUE ' %'. DTSBR910 00400 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00401 10 Q30-FMT-LINE-3 PIC X(36) VALUE SPACES. DTSBR910 00402 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00403 10 Q30-RPT-QTR-END-DISP PIC X(18). DTSBR910 00404 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00405 10 Q30-FMT-LINE-4 PIC X(36). DTSBR910 00406 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00407 10 Q30-TAX-WAGE-BASE PIC ZZZZZZ9.99. DTSBR910 00408 10 Q30-TAX-WAGE-BASE-X REDEFINES DTSBR910 00409 Q30-TAX-WAGE-BASE PIC X(10). DTSBR910 00410 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00411 10 Q30-FMT-LINE-5 PIC X(36). DTSBR910 00412 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00413 10 Q30-RPT-DUE-DATE-DISP PIC X(18). DTSBR910 00414 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00415 10 Q30-NONTAX-WAGE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910 00416 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00417 10 Q30-TAX-WAGE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910 00418 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00419 10 Q30-UI-TAX-RATE-SI PIC X(6) VALUE SPACES. DTSBR910 00420 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00421 10 Q30-CONTRIB-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910 00422 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00423 10 Q30-INTREST-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910 00424 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00425 10 Q30-PENALTY-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910 00426 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00427 10 Q30-CREDIT-AMT PIC ZZZ,ZZZ,ZZ9.99. DTSBR910 00428 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00429 10 Q30-TOTAL-AMT PIC ZZZ,ZZZ,ZZ9.99. DTSBR910 00430 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00431 10 Q30-YEAR PIC X(04). DTSBR910 00432 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00433 10 Q30-SSN-1 PIC 9(09) BLANK WHEN ZERO. DTSBR910 00434 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00435 10 Q30-SSN-2 PIC 9(09) BLANK WHEN ZERO. DTSBR910 00436 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00437 10 Q30-SSN-3 PIC 9(09) BLANK WHEN ZERO. DTSBR910 00438 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00439 10 Q30-SSN-4 PIC 9(09) BLANK WHEN ZERO. DTSBR910 00440 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00441 10 Q30-SSN-5 PIC 9(09) BLANK WHEN ZERO. DTSBR910 00442 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00443 10 Q30-SSN-6 PIC 9(09) BLANK WHEN ZERO. DTSBR910 00444 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00445 10 Q30-SSN-7 PIC 9(09) BLANK WHEN ZERO. DTSBR910 00446 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00447 10 Q30-SSN-8 PIC 9(09) BLANK WHEN ZERO. DTSBR910 00448 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00449 10 Q30-SSN-9 PIC 9(09) BLANK WHEN ZERO. DTSBR910 00450 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00451 10 Q30-SSN-10 PIC 9(09) BLANK WHEN ZERO. DTSBR910 00452 10 FILLER PIC X(01) VALUE ';'. DTSBR910 00453 DTSBR910 00454 EJECT DTSBR910 00455 LINKAGE SECTION. DTSBR910 00456 DTSBR910 00457 01 LRCM-LINK-AREA. DTSBR910 00458 ++INCLUDE DTSILRCM DTSBR910 00459 EJECT DTSBR910 00460 01 R910-REC. DTSBR910 00461 ++INCLUDE DTSIR910 DTSBR910 00462 EJECT DTSBR910 00463 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR910 00464 R910-REC. DTSBR910 00465 DTSBR910 00466 IF FIRST-TIME-IND = 'Y' DTSBR910 00467 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR910 00468 MOVE 'N' TO FIRST-TIME-IND. DTSBR910 00469 * DTSBR910 00470 ****** I1100 BLANK FORMS WILL PRINT BLANK COPIES OF THE DTSBR910 00471 * HOUSEHOLD EMPLOYER WORKSHEET UC30HW. DTSBR910 00472 * DTSBR910 00473 * DTSBR910 00474 * PERFORM I1100-BLANK-FORMS THRU I1100-EXIT 3000 TIMES. DTSBR910 00475 * CLOSE PRT-FILE1 PRT-FILE2. DTSBR910 00476 * GOBACK. DTSBR910 00477 * DTSBR910 00478 IF LRCM-EOR-88 DTSBR910 00479 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR910 00480 ELSE DTSBR910 00481 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR910 00482 DTSBR910 00483 GOBACK. DTSBR910 00484 EJECT DTSBR910 00485 I1000-INITIATE. DTSBR910 00486 DTSBR910 00487 OPEN OUTPUT PRT-FILE1 DTSBR910 00488 PRT-FILE2 DTSBR910 00489 PRT-FILE3. DTSBR910 00490 MOVE SPACES TO UC30H-DATA DTSBR910 00491 UC30H-REPORT DTSBR910 00492 UC30H-REPORT3. DTSBR910 00493 MOVE SPACES TO WS-DAILY-OP-ID-HOLD. DTSBR910 00494 MOVE SPACES TO WS-DAILY-OP-ID-HOLD1. DTSBR910 00495 MOVE LRCM-SYS-DATE TO RTE-SYS-DATE. DTSBR910 00496 DTSBR910 00497 I1000-EXIT. DTSBR910 00498 EXIT. DTSBR910 00499 *R1 DTSBR910 00500 I1100-INITIATE-XEROX-CNTL. DTSBR910 00501 WRITE UC30H-REPORT FROM XEROX-CNTL-LINE2 AFTER TOP-OF-PAGE. DTSBR910 00502 WRITE UC30H-REPORT FROM XEROX-CNTL-LINE1 AFTER 1. DTSBR910 00503 WRITE UC30H-REPORT FROM WS-BLANK-LINE AFTER 6. DTSBR910 00504 WRITE UC30H-REPORT FROM RTE-LINE-1 AFTER 9. DTSBR910 00505 WRITE UC30H-REPORT FROM RTE-LINE-2 AFTER 1. DTSBR910 00506 WRITE UC30H-REPORT FROM RTE-LINE-3 AFTER 1. DTSBR910 00507 DTSBR910 00508 I1100-EXIT. DTSBR910 00509 EXIT. DTSBR910 00510 DTSBR910 00511 *R2 DTSBR910 00512 I1200-INITIATE-XEROX-CNTL. DTSBR910 00513 WRITE UC30H-REPORT3 FROM XEROX-CNTL-LINE AFTER TOP-OF-PAGE. DTSBR910 00514 WRITE UC30H-REPORT3 FROM XEROX-CNTL-LINE1 AFTER 1. DTSBR910 00515 WRITE UC30H-REPORT3 FROM WS-BLANK-LINE AFTER 6. DTSBR910 00516 WRITE UC30H-REPORT3 FROM RTE-LINE-1A AFTER 9. DTSBR910 00517 WRITE UC30H-REPORT3 FROM RTE-LINE-2 AFTER 1. DTSBR910 00518 WRITE UC30H-REPORT3 FROM RTE-LINE-4 AFTER 1. DTSBR910 00519 DTSBR910 00520 I1200-EXIT. DTSBR910 00521 EXIT. DTSBR910 00522 DTSBR910 00523 *I1100-BLANK-FORMS. DTSBR910 00524 * WRITE UC30H-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR910 00525 *I1100-EXIT. DTSBR910 00526 * EXIT. DTSBR910 00527 DTSBR910 00528 P1000-PROCESS. DTSBR910 00529 DTSBR910 00530 IF R910-SORT-TYPE-ANN-88 DTSBR910 00531 PERFORM P2000-UC30H-ANNUAL-FILE THRU P2000-EXIT DTSBR910 00532 ELSE DTSBR910 00533 IF R910-DAILY-YR < 2006 DTSBR910 00534 IF FIRST-TIME-LESS-2006-IND = 'Y' DTSBR910 00535 PERFORM I1100-INITIATE-XEROX-CNTL THRU I1100-EXIT DTSBR910 00536 MOVE 'N' TO FIRST-TIME-LESS-2006-IND DTSBR910 00537 END-IF DTSBR910 00538 PERFORM P3010-BREAK-USERID THRU P3010-EXIT DTSBR910 00539 PERFORM P3000-UC30H-DAILY-RPT THRU P3000-EXIT DTSBR910 00540 ELSE DTSBR910 00541 IF FIRST-TIME-NOT-LESS-2006-IND = 'Y' DTSBR910 00542 PERFORM I1200-INITIATE-XEROX-CNTL THRU I1200-EXIT DTSBR910 00543 MOVE 'N' TO FIRST-TIME-NOT-LESS-2006-IND DTSBR910 00544 END-IF DTSBR910 00545 PERFORM P4010-BREAK-USERID THRU P4010-EXIT DTSBR910 00546 PERFORM P4000-UC30H-NEW-DAILY-RPT THRU P4000-EXIT DTSBR910 00547 END-IF DTSBR910 00548 END-IF. DTSBR910 00549 DTSBR910 00550 P1000-EXIT. DTSBR910 00551 EXIT. DTSBR910 00552 DTSBR910 00553 P2000-UC30H-ANNUAL-FILE. DTSBR910 00554 MOVE R910-ANNUAL-EMP-NO TO Q30-EMP-NO. DTSBR910 00555 DTSBR910 00556 IF R910-ANN-CR-AMT > +0 DTSBR910 00557 MOVE R910-ANN-CR-AMT TO Q30-CREDIT-AMT DTSBR910 00558 ELSE DTSBR910 00559 MOVE ZEROS TO Q30-CREDIT-AMT DTSBR910 00560 END-IF. DTSBR910 00561 DTSBR910 00562 DTSBR910 00563 MOVE R910-ANNUAL-YR TO WS-YEAR. DTSBR910 00564 MOVE WS-YEAR TO Q30-YEAR. DTSBR910 00565 MOVE 4 TO WS-QTR. DTSBR910 00566 *& DTSBR910 00567 *& DTSBR910 00568 SET L004-FROM-5 TO TRUE. DTSBR910 00569 MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA. DTSBR910 00570 PERFORM S004-DATE THRU S004-EXIT. DTSBR910 00571 DTSBR910 00572 DTSBR910 00573 MOVE L004-QTR-END-DATE TO L002-DATE. DTSBR910 00574 SET L002-UPPER-CASE TO TRUE. DTSBR910 00575 PERFORM S002-DATE THRU S002-EXIT. DTSBR910 00576 MOVE L002-LONG-TEXT-AREA TO Q30-RPT-QTR-END-DISP. DTSBR910 00577 DTSBR910 00578 MOVE R910-RPT-DUE-DATE TO L002-DATE. DTSBR910 00579 SET L002-UPPER-CASE TO TRUE. DTSBR910 00580 PERFORM S002-DATE THRU S002-EXIT. DTSBR910 00581 MOVE L002-LONG-TEXT-AREA TO Q30-RPT-DUE-DATE-DISP. DTSBR910 00582 DTSBR910 00583 MOVE R910-PRI-NAME-FIRST4 TO Q30-PRI-NAME-FIRST4. DTSBR910 00584 DTSBR910 00585 IF R910-FEIN = ZEROES DTSBR910 00586 MOVE SPACES TO Q30-FEIN-DISP-X DTSBR910 00587 ELSE DTSBR910 00588 MOVE R910-FEIN TO Q30-FEIN-DISP. DTSBR910 00589 DTSBR910 00590 MOVE R910-TAX-WAGE-BASE TO Q30-TAX-WAGE-BASE. DTSBR910 00591 MOVE R910-UI-RATE TO L056-RATE. DTSBR910 00592 SET L056-DISP1-RIGHT-PCT-88 TO TRUE. DTSBR910 00593 PERFORM S056-RATE-DISPLAY THRU S056-EXIT. DTSBR910 00594 MOVE L056-DISP-RATE TO Q30-UI-RATE DTSBR910 00595 Q30-UI-TAX-RATE-SI. DTSBR910 00596 MOVE ' %' TO Q30-PCENT. DTSBR910 00597 DTSBR910 00598 MOVE R910-FMT-LINE (1) TO Q30-FMT-LINE-1. DTSBR910 00599 MOVE R910-FMT-LINE (2) TO Q30-FMT-LINE-2. DTSBR910 00600 MOVE R910-FMT-LINE (3) TO Q30-FMT-LINE-3. DTSBR910 00601 MOVE R910-FMT-LINE (4) TO Q30-FMT-LINE-4. DTSBR910 00602 MOVE R910-FMT-LINE (5) TO Q30-FMT-LINE-5. DTSBR910 00603 DTSBR910 00604 IF R910-SSN-LINE-CNT > 10 DTSBR910 00605 NEXT SENTENCE DTSBR910 00606 ELSE DTSBR910 00607 MOVE R910-SSN-LINE (1) TO Q30-SSN-1 DTSBR910 00608 MOVE R910-SSN-LINE (2) TO Q30-SSN-2 DTSBR910 00609 MOVE R910-SSN-LINE (3) TO Q30-SSN-3 DTSBR910 00610 MOVE R910-SSN-LINE (4) TO Q30-SSN-4 DTSBR910 00611 MOVE R910-SSN-LINE (5) TO Q30-SSN-5 DTSBR910 00612 MOVE R910-SSN-LINE (6) TO Q30-SSN-6 DTSBR910 00613 MOVE R910-SSN-LINE (7) TO Q30-SSN-7 DTSBR910 00614 MOVE R910-SSN-LINE (8) TO Q30-SSN-8 DTSBR910 00615 MOVE R910-SSN-LINE (9) TO Q30-SSN-9 DTSBR910 00616 MOVE R910-SSN-LINE (10) TO Q30-SSN-10. DTSBR910 00617 DTSBR910 00618 WRITE UC30H-DATA FROM UC30H-DATA-FILE. DTSBR910 00619 DTSBR910 00620 P2000-EXIT. DTSBR910 00621 EXIT. DTSBR910 00622 DTSBR910 00623 P3000-UC30H-DAILY-RPT. DTSBR910 00624 DTSBR910 00625 MOVE R910-DAILY-EMP-NO TO U30H-EMP-NO. DTSBR910 00626 DTSBR910 00627 IF R910-ANN-CR-AMT > +0 DTSBR910 00628 MOVE R910-ANN-CR-AMT TO U30H-CREDIT-AMT DTSBR910 00629 ELSE DTSBR910 00630 MOVE ZEROS TO U30H-CREDIT-AMT DTSBR910 00631 END-IF. DTSBR910 00632 DTSBR910 00633 MOVE R910-DAILY-YR TO WS-YEAR. DTSBR910 00634 MOVE WS-YEAR TO U30H-YEAR. DTSBR910 00635 MOVE 4 TO WS-QTR. DTSBR910 00636 *& DTSBR910 00637 *& DTSBR910 00638 SET L004-FROM-5 TO TRUE. DTSBR910 00639 MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA. DTSBR910 00640 PERFORM S004-DATE THRU S004-EXIT. DTSBR910 00641 DTSBR910 00642 MOVE L004-QTR-END-DATE TO L002-DATE. DTSBR910 00643 SET L002-UPPER-CASE TO TRUE. DTSBR910 00644 PERFORM S002-DATE THRU S002-EXIT. DTSBR910 00645 MOVE L002-LONG-TEXT-AREA TO U30H-RPT-QTR-END-DISP. DTSBR910 00646 DTSBR910 00647 MOVE R910-RPT-DUE-DATE TO L002-DATE. DTSBR910 00648 SET L002-UPPER-CASE TO TRUE. DTSBR910 00649 PERFORM S002-DATE THRU S002-EXIT. DTSBR910 00650 MOVE L002-LONG-TEXT-AREA TO U30H-RPT-DUE-DATE-DISP. DTSBR910 00651 DTSBR910 00652 MOVE R910-PRI-NAME-FIRST4 TO U30H-PRI-NAME-FIRST4. DTSBR910 00653 DTSBR910 00654 IF R910-FEIN = ZEROES DTSBR910 00655 MOVE SPACES TO U30H-FEIN-DISP-X DTSBR910 00656 ELSE DTSBR910 00657 MOVE R910-FEIN TO U30H-FEIN-DISP. DTSBR910 00658 DTSBR910 00659 MOVE R910-TAX-WAGE-BASE TO U30H-TAX-WAGE-BASE. DTSBR910 00660 MOVE R910-UI-RATE TO L056-RATE. DTSBR910 00661 SET L056-DISP1-RIGHT-PCT-88 TO TRUE. DTSBR910 00662 PERFORM S056-RATE-DISPLAY THRU S056-EXIT. DTSBR910 00663 MOVE L056-DISP-RATE TO U30H-UI-RATE DTSBR910 00664 U30H-UI-TAX-RATE-RATED. DTSBR910 00665 MOVE ' %' TO U30H-PCENT. DTSBR910 00666 DTSBR910 00667 MOVE R910-FMT-LINE (1) TO U30H-FMT-LINE-1. DTSBR910 00668 MOVE R910-FMT-LINE (2) TO U30H-FMT-LINE-2. DTSBR910 00669 MOVE R910-FMT-LINE (3) TO U30H-FMT-LINE-3. DTSBR910 00670 MOVE R910-FMT-LINE (4) TO U30H-FMT-LINE-4. DTSBR910 00671 MOVE R910-FMT-LINE (5) TO U30H-FMT-LINE-5. DTSBR910 00672 DTSBR910 00673 IF R910-SSN-LINE-CNT = +0 DTSBR910 00674 NEXT SENTENCE DTSBR910 00675 ELSE DTSBR910 00676 PERFORM DTSBR910 00677 VARYING TBL-SUB FROM +1 BY +1 DTSBR910 00678 UNTIL TBL-SUB > R910-SSN-LINE-CNT DTSBR910 00679 MOVE R910-SSN-LINE (TBL-SUB) TO WS-WRK-SSN DTSBR910 00680 MOVE WS-SSN1 TO RPT-SSN1 DTSBR910 00681 MOVE WS-SSN2 TO RPT-SSN2 DTSBR910 00682 MOVE WS-SSN3 TO RPT-SSN3 DTSBR910 00683 PERFORM P3031-MOVE-SSN THRU P3031-EXIT DTSBR910 00684 END-PERFORM DTSBR910 00685 END-IF. DTSBR910 00686 DTSBR910 00687 PERFORM P3030-GENERATE-UC30H-REPORT THRU P3030-EXIT. DTSBR910 00688 DTSBR910 00689 P3000-EXIT. DTSBR910 00690 EXIT. DTSBR910 00691 P3010-BREAK-USERID. DTSBR910 00692 DTSBR910 00693 IF R910-DAILY-OP-ID NOT = WS-DAILY-OP-ID-HOLD DTSBR910 00694 MOVE R910-DAILY-OP-ID TO WS-DAILY-OP-ID-HOLD DTSBR910 00695 PERFORM P3020-OPID-BREAK THRU P3020-EXIT DTSBR910 00696 PERFORM P3030-GENERATE-UC30H-REPORT THRU P3030-EXIT DTSBR910 00697 END-IF. DTSBR910 00698 DTSBR910 00699 P3010-EXIT. DTSBR910 00700 EXIT. DTSBR910 00701 EJECT DTSBR910 00702 P3020-OPID-BREAK. DTSBR910 00703 DTSBR910 00704 MOVE R910-DAILY-OP-ID TO L082-OP-ID DTSBR910 00705 DTSBR910 00706 PERFORM S082-OP-ID-INFO THRU S082-EXIT DTSBR910 00707 MOVE L082-NAME TO L071-NAM DTSBR910 00708 MOVE 2 TO L071-NAME-FORMAT DTSBR910 00709 PERFORM S071-DESLASH-NAME THRU S071-EXIT DTSBR910 00710 MOVE L071-NAM TO L009-DATA DTSBR910 00711 DTSBR910 00712 PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT DTSBR910 00713 MOVE L009-DATA TO WS-OPR-NAME DTSBR910 00714 MOVE L082-UNIT-NAME TO L009-DATA DTSBR910 00715 DTSBR910 00716 PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT DTSBR910 00717 MOVE L009-DATA TO WS-OPR-UNIT-NAME. DTSBR910 00718 DTSBR910 00719 MOVE SPACES TO U30H-LINE-1 DTSBR910 00720 U30H-LINE-2 DTSBR910 00721 U30H-LINE-3 DTSBR910 00722 U30H-LINE-4 DTSBR910 00723 U30H-LINE-5 DTSBR910 00724 U30H-LINE-5A1. DTSBR910 00725 DTSBR910 00726 MOVE WS-BREAK-LINE1 TO U30H-FMT-LINE-1. DTSBR910 00727 MOVE WS-BREAK-LINE2 TO U30H-FMT-LINE-2. DTSBR910 00728 MOVE WRK-OPR-NAME TO U30H-FMT-LINE-3. DTSBR910 00729 MOVE WRK-OPR-UNIT-NAME TO U30H-FMT-LINE-4. DTSBR910 00730 MOVE WS-BREAK-LINE1 TO U30H-FMT-LINE-5. DTSBR910 00731 DTSBR910 00732 P3020-EXIT. DTSBR910 00733 EXIT. DTSBR910 00734 P3030-GENERATE-UC30H-REPORT. DTSBR910 00735 DTSBR910 00736 WRITE UC30H-REPORT FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR910 00737 WRITE UC30H-REPORT FROM U30H-LINE-1 AFTER 11. DTSBR910 00738 WRITE UC30H-REPORT FROM U30H-LINE-2 AFTER 1. DTSBR910 00739 WRITE UC30H-REPORT FROM U30H-LINE-3 AFTER 1. DTSBR910 00740 WRITE UC30H-REPORT FROM U30H-LINE-4 AFTER 1. DTSBR910 00741 WRITE UC30H-REPORT FROM U30H-LINE-5 AFTER 1. DTSBR910 00742 DTSBR910 00743 WRITE UC30H-REPORT FROM U30H-LINE-5A1 AFTER 6. DTSBR910 00744 WRITE UC30H-REPORT FROM U30H-LINE-5A AFTER 3. DTSBR910 00745 WRITE UC30H-REPORT FROM U30H-LINE-5B AFTER 1. DTSBR910 00746 WRITE UC30H-REPORT FROM U30H-LINE-5C AFTER 1. DTSBR910 00747 WRITE UC30H-REPORT FROM U30H-LINE-5D AFTER 1. DTSBR910 00748 WRITE UC30H-REPORT FROM U30H-LINE-5E AFTER 1. DTSBR910 00749 WRITE UC30H-REPORT FROM U30H-LINE-5F AFTER 1. DTSBR910 00750 WRITE UC30H-REPORT FROM U30H-LINE-5G AFTER 1. DTSBR910 00751 WRITE UC30H-REPORT FROM U30H-LINE-5H AFTER 1. DTSBR910 00752 WRITE UC30H-REPORT FROM U30H-LINE-5I AFTER 1. DTSBR910 00753 WRITE UC30H-REPORT FROM U30H-LINE-5J AFTER 1. DTSBR910 00754 WRITE UC30H-REPORT FROM WS-BLANK-LINE AFTER 1. DTSBR910 00755 WRITE UC30H-REPORT FROM U30H-LINE-8R AFTER 4. DTSBR910 00756 DTSBR910 00757 WRITE UC30H-REPORT FROM U30H-LINE-11 AFTER 5. DTSBR910 00758 DTSBR910 00759 P3030-EXIT. DTSBR910 00760 EXIT. DTSBR910 00761 DTSBR910 00762 DTSBR910 00763 P3031-MOVE-SSN. DTSBR910 00764 DTSBR910 00765 IF TBL-SUB = 1 DTSBR910 00766 MOVE WS-RPT-SSN TO U30H-SSN-1 DTSBR910 00767 ELSE DTSBR910 00768 IF TBL-SUB = 2 DTSBR910 00769 MOVE WS-RPT-SSN TO U30H-SSN-2 DTSBR910 00770 ELSE DTSBR910 00771 IF TBL-SUB = 3 DTSBR910 00772 MOVE WS-RPT-SSN TO U30H-SSN-3 DTSBR910 00773 ELSE DTSBR910 00774 IF TBL-SUB = 4 DTSBR910 00775 MOVE WS-RPT-SSN TO U30H-SSN-4 DTSBR910 00776 ELSE DTSBR910 00777 IF TBL-SUB = 5 DTSBR910 00778 MOVE WS-RPT-SSN TO U30H-SSN-5 DTSBR910 00779 ELSE DTSBR910 00780 IF TBL-SUB = 6 DTSBR910 00781 MOVE WS-RPT-SSN TO U30H-SSN-6 DTSBR910 00782 ELSE DTSBR910 00783 IF TBL-SUB = 7 DTSBR910 00784 MOVE WS-RPT-SSN TO U30H-SSN-7 DTSBR910 00785 ELSE DTSBR910 00786 IF TBL-SUB = 8 DTSBR910 00787 MOVE WS-RPT-SSN TO U30H-SSN-8 DTSBR910 00788 ELSE DTSBR910 00789 IF TBL-SUB = 9 DTSBR910 00790 MOVE WS-RPT-SSN TO U30H-SSN-9 DTSBR910 00791 ELSE DTSBR910 00792 IF TBL-SUB = 10 DTSBR910 00793 MOVE WS-RPT-SSN TO U30H-SSN-10 DTSBR910 00794 ELSE DTSBR910 00795 DISPLAY ' SSN LINE CNT GT 10 '. DTSBR910 00796 DTSBR910 00797 P3031-EXIT. DTSBR910 00798 EXIT. DTSBR910 00799 DTSBR910 00800 P4000-UC30H-NEW-DAILY-RPT. DTSBR910 00801 DTSBR910 00802 MOVE R910-DAILY-EMP-NO TO U30H-EMP-NO. DTSBR910 00803 DTSBR910 00804 IF R910-ANN-CR-AMT > +0 DTSBR910 00805 MOVE R910-ANN-CR-AMT TO U30H-CREDIT-AMT DTSBR910 00806 ELSE DTSBR910 00807 MOVE ZEROS TO U30H-CREDIT-AMT DTSBR910 00808 END-IF. DTSBR910 00809 DTSBR910 00810 MOVE R910-DAILY-YR TO WS-YEAR. DTSBR910 00811 MOVE WS-YEAR TO U30H-YEAR. DTSBR910 00812 MOVE 4 TO WS-QTR. DTSBR910 00813 *& DTSBR910 00814 *& DTSBR910 00815 SET L004-FROM-5 TO TRUE. DTSBR910 00816 MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA. DTSBR910 00817 PERFORM S004-DATE THRU S004-EXIT. DTSBR910 00818 DTSBR910 00819 MOVE L004-QTR-END-DATE TO L002-DATE. DTSBR910 00820 SET L002-UPPER-CASE TO TRUE. DTSBR910 00821 PERFORM S002-DATE THRU S002-EXIT. DTSBR910 00822 MOVE L002-LONG-TEXT-AREA TO U30H-RPT-QTR-END-DISP. DTSBR910 00823 DTSBR910 00824 MOVE R910-RPT-DUE-DATE TO L002-DATE. DTSBR910 00825 SET L002-UPPER-CASE TO TRUE. DTSBR910 00826 PERFORM S002-DATE THRU S002-EXIT. DTSBR910 00827 MOVE L002-LONG-TEXT-AREA TO U30H-RPT-DUE-DATE-DISP. DTSBR910 00828 DTSBR910 00829 MOVE R910-PRI-NAME-FIRST4 TO U30H-PRI-NAME-FIRST4. DTSBR910 00830 DTSBR910 00831 IF R910-FEIN = ZEROES DTSBR910 00832 MOVE SPACES TO U30H-FEIN-DISP-X DTSBR910 00833 ELSE DTSBR910 00834 MOVE R910-FEIN TO U30H-FEIN-DISP. DTSBR910 00835 DTSBR910 00836 MOVE R910-TAX-WAGE-BASE TO U30H-TAX-WAGE-BASE. DTSBR910 00837 MOVE R910-UI-RATE TO L056-RATE. DTSBR910 00838 SET L056-DISP1-RIGHT-PCT-88 TO TRUE. DTSBR910 00839 PERFORM S056-RATE-DISPLAY THRU S056-EXIT. DTSBR910 00840 MOVE L056-DISP-RATE TO U30H-UI-RATE DTSBR910 00841 U30H-UI-TAX-RATE-RATED. DTSBR910 00842 MOVE ' %' TO U30H-PCENT. DTSBR910 00843 DTSBR910 00844 MOVE R910-FMT-LINE (1) TO U30H-FMT-LINE-1. DTSBR910 00845 MOVE R910-FMT-LINE (2) TO U30H-FMT-LINE-2. DTSBR910 00846 MOVE R910-FMT-LINE (3) TO U30H-FMT-LINE-3. DTSBR910 00847 MOVE R910-FMT-LINE (4) TO U30H-FMT-LINE-4. DTSBR910 00848 MOVE R910-FMT-LINE (5) TO U30H-FMT-LINE-5. DTSBR910 00849 DTSBR910 00850 IF R910-SSN-LINE-CNT = +0 DTSBR910 00851 NEXT SENTENCE DTSBR910 00852 ELSE DTSBR910 00853 PERFORM DTSBR910 00854 VARYING TBL-SUB FROM +1 BY +1 DTSBR910 00855 UNTIL TBL-SUB > R910-SSN-LINE-CNT DTSBR910 00856 MOVE R910-SSN-LINE (TBL-SUB) TO WS-WRK-SSN DTSBR910 00857 MOVE WS-SSN1 TO RPT-SSN1 DTSBR910 00858 MOVE WS-SSN2 TO RPT-SSN2 DTSBR910 00859 MOVE WS-SSN3 TO RPT-SSN3 DTSBR910 00860 PERFORM P4031-MOVE-SSN THRU P4031-EXIT DTSBR910 00861 END-PERFORM DTSBR910 00862 END-IF. DTSBR910 00863 DTSBR910 00864 PERFORM P4030-GENERATE-UC30H-REPORT THRU P4030-EXIT. DTSBR910 00865 DTSBR910 00866 P4000-EXIT. DTSBR910 00867 EXIT. DTSBR910 00868 P4010-BREAK-USERID. DTSBR910 00869 DTSBR910 00870 IF R910-DAILY-OP-ID NOT = WS-DAILY-OP-ID-HOLD1 DTSBR910 00871 MOVE R910-DAILY-OP-ID TO WS-DAILY-OP-ID-HOLD1 DTSBR910 00872 PERFORM P4020-OPID-BREAK THRU P4020-EXIT DTSBR910 00873 PERFORM P4030-GENERATE-UC30H-REPORT THRU P4030-EXIT DTSBR910 00874 END-IF. DTSBR910 00875 DTSBR910 00876 P4010-EXIT. DTSBR910 00877 EXIT. DTSBR910 00878 EJECT DTSBR910 00879 P4020-OPID-BREAK. DTSBR910 00880 DTSBR910 00881 MOVE R910-DAILY-OP-ID TO L082-OP-ID DTSBR910 00882 DTSBR910 00883 PERFORM S082-OP-ID-INFO THRU S082-EXIT DTSBR910 00884 MOVE L082-NAME TO L071-NAM DTSBR910 00885 MOVE 2 TO L071-NAME-FORMAT DTSBR910 00886 PERFORM S071-DESLASH-NAME THRU S071-EXIT DTSBR910 00887 MOVE L071-NAM TO L009-DATA DTSBR910 00888 DTSBR910 00889 PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT DTSBR910 00890 MOVE L009-DATA TO WS-OPR-NAME DTSBR910 00891 MOVE L082-UNIT-NAME TO L009-DATA DTSBR910 00892 DTSBR910 00893 PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT DTSBR910 00894 MOVE L009-DATA TO WS-OPR-UNIT-NAME. DTSBR910 00895 DTSBR910 00896 MOVE SPACES TO U30H-LINE-1 DTSBR910 00897 U30H-LINE-2 DTSBR910 00898 U30H-LINE-3 DTSBR910 00899 U30H-LINE-4 DTSBR910 00900 U30H-LINE-5 DTSBR910 00901 U30H-LINE-5A1. DTSBR910 00902 DTSBR910 00903 MOVE WS-BREAK-LINE1 TO U30H-FMT-LINE-1. DTSBR910 00904 MOVE WS-BREAK-LINE2 TO U30H-FMT-LINE-2. DTSBR910 00905 MOVE WRK-OPR-NAME TO U30H-FMT-LINE-3. DTSBR910 00906 MOVE WRK-OPR-UNIT-NAME TO U30H-FMT-LINE-4. DTSBR910 00907 MOVE WS-BREAK-LINE1 TO U30H-FMT-LINE-5. DTSBR910 00908 DTSBR910 00909 P4020-EXIT. DTSBR910 00910 EXIT. DTSBR910 00911 P4030-GENERATE-UC30H-REPORT. DTSBR910 00912 DTSBR910 00913 WRITE UC30H-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR910 00914 WRITE UC30H-REPORT3 FROM U30H-LINE-1 AFTER 11. DTSBR910 00915 WRITE UC30H-REPORT3 FROM U30H-LINE-2 AFTER 1. DTSBR910 00916 WRITE UC30H-REPORT3 FROM U30H-LINE-3 AFTER 1. DTSBR910 00917 WRITE UC30H-REPORT3 FROM U30H-LINE-4 AFTER 1. DTSBR910 00918 WRITE UC30H-REPORT3 FROM U30H-LINE-5 AFTER 1. DTSBR910 00919 DTSBR910 00920 WRITE UC30H-REPORT3 FROM U30H-LINE-5A1 AFTER 6. DTSBR910 00921 WRITE UC30H-REPORT3 FROM U30H-LINE-5A AFTER 3. DTSBR910 00922 WRITE UC30H-REPORT3 FROM U30H-LINE-5B AFTER 1. DTSBR910 00923 WRITE UC30H-REPORT3 FROM U30H-LINE-5C AFTER 1. DTSBR910 00924 WRITE UC30H-REPORT3 FROM U30H-LINE-5D AFTER 1. DTSBR910 00925 WRITE UC30H-REPORT3 FROM U30H-LINE-5E AFTER 1. DTSBR910 00926 WRITE UC30H-REPORT3 FROM U30H-LINE-5F AFTER 1. DTSBR910 00927 WRITE UC30H-REPORT3 FROM U30H-LINE-5G AFTER 1. DTSBR910 00928 WRITE UC30H-REPORT3 FROM U30H-LINE-5H AFTER 1. DTSBR910 00929 WRITE UC30H-REPORT3 FROM U30H-LINE-5I AFTER 1. DTSBR910 00930 WRITE UC30H-REPORT3 FROM U30H-LINE-5J AFTER 1. DTSBR910 00931 WRITE UC30H-REPORT3 FROM U30H-LINE-8R AFTER 4. DTSBR910 00932 DTSBR910 00933 WRITE UC30H-REPORT3 FROM WS-BLANK-LINE AFTER 1. DTSBR910 00934 WRITE UC30H-REPORT3 FROM U30H-LINE-11 AFTER 5. DTSBR910 00935 DTSBR910 00936 P4030-EXIT. DTSBR910 00937 EXIT. DTSBR910 00938 DTSBR910 00939 P4031-MOVE-SSN. DTSBR910 00940 DTSBR910 00941 IF TBL-SUB = 1 DTSBR910 00942 MOVE WS-RPT-SSN TO U30H-SSN-1 DTSBR910 00943 ELSE DTSBR910 00944 IF TBL-SUB = 2 DTSBR910 00945 MOVE WS-RPT-SSN TO U30H-SSN-2 DTSBR910 00946 ELSE DTSBR910 00947 IF TBL-SUB = 3 DTSBR910 00948 MOVE WS-RPT-SSN TO U30H-SSN-3 DTSBR910 00949 ELSE DTSBR910 00950 IF TBL-SUB = 4 DTSBR910 00951 MOVE WS-RPT-SSN TO U30H-SSN-4 DTSBR910 00952 ELSE DTSBR910 00953 IF TBL-SUB = 5 DTSBR910 00954 MOVE WS-RPT-SSN TO U30H-SSN-5 DTSBR910 00955 ELSE DTSBR910 00956 IF TBL-SUB = 6 DTSBR910 00957 MOVE WS-RPT-SSN TO U30H-SSN-6 DTSBR910 00958 ELSE DTSBR910 00959 IF TBL-SUB = 7 DTSBR910 00960 MOVE WS-RPT-SSN TO U30H-SSN-7 DTSBR910 00961 ELSE DTSBR910 00962 IF TBL-SUB = 8 DTSBR910 00963 MOVE WS-RPT-SSN TO U30H-SSN-8 DTSBR910 00964 ELSE DTSBR910 00965 IF TBL-SUB = 9 DTSBR910 00966 MOVE WS-RPT-SSN TO U30H-SSN-9 DTSBR910 00967 ELSE DTSBR910 00968 IF TBL-SUB = 10 DTSBR910 00969 MOVE WS-RPT-SSN TO U30H-SSN-10 DTSBR910 00970 ELSE DTSBR910 00971 DISPLAY ' SSN LINE CNT GT 10 '. DTSBR910 00972 DTSBR910 00973 P4031-EXIT. DTSBR910 00974 EXIT. DTSBR910 00975 DTSBR910 00976 T1000-TERMINATE. DTSBR910 00977 DTSBR910 00978 CLOSE PRT-FILE1 DTSBR910 00979 PRT-FILE2 DTSBR910 00980 PRT-FILE3. DTSBR910 00981 DTSBR910 00982 T1000-EXIT. DTSBR910 00983 EXIT. DTSBR910 00984 DTSBR910 00985 S001-DATE. DTSBR910 00986 DTSBR910 00987 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR910 00988 DTSBR910 00989 S001-EXIT. DTSBR910 00990 EXIT. DTSBR910 00991 DTSBR910 00992 S002-DATE. DTSBR910 00993 DTSBR910 00994 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR910 00995 DTSBR910 00996 S002-EXIT. DTSBR910 00997 EXIT. DTSBR910 00998 DTSBR910 00999 S004-DATE. DTSBR910 01000 DTSBR910 01001 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR910 01002 DTSBR910 01003 S004-EXIT. DTSBR910 01004 EXIT. DTSBR910 01005 DTSBR910 01006 S008-YRQ-ALPHA. DTSBR910 01007 DTSBR910 01008 CALL 'DTSBU008' USING L008-LINK-AREA. DTSBR910 01009 DTSBR910 01010 S008-EXIT. DTSBR910 01011 EXIT. DTSBR910 01012 DTSBR910 01013 S009-UPPER-CASE-TRANSLATE. DTSBR910 01014 DTSBR910 01015 CALL 'DTSBU009' USING L009-LINK-AREA. DTSBR910 01016 DTSBR910 01017 S009-EXIT. DTSBR910 01018 EXIT. DTSBR910 01019 DTSBR910 01020 S056-RATE-DISPLAY. DTSBR910 01021 DTSBR910 01022 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR910 01023 DTSBR910 01024 S056-EXIT. DTSBR910 01025 EXIT. DTSBR910 01026 DTSBR910 01027 S071-DESLASH-NAME. DTSBR910 01028 DTSBR910 01029 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR910 01030 DTSBR910 01031 S071-EXIT. DTSBR910 01032 EXIT. DTSBR910 01033 DTSBR910 01034 S082-OP-ID-INFO. DTSBR910 01035 DTSBR910 01036 CALL 'DTSBU082' USING L082-LINK-AREA. DTSBR910 01037 DTSBR910 01038 S082-EXIT. DTSBR910 01039 EXIT. DTSBR910 01040 DTSBR910 01041 *S109-SUR-RATE. DTSBR910 01042 * DTSBR910 01043 * CALL 'DTSBU109' USING L109-LINK-AREA. DTSBR910 01044 * DTSBR910 01045 *S109-EXIT. DTSBR910 01046 EXIT. DTSBR910 01047 DTSBR910 01048 S119-AGENCY-FACTS. DTSBR910 01049 DTSBR910 01050 CALL 'DTSBU119' USING L119-LINK-AREA. DTSBR910 01051 DTSBR910 01052 S119-EXIT. DTSBR910 01053 EXIT. DTSBR910 01054 DTSBR910 01055 S143-BUILD-STRING. DTSBR910 01056 DTSBR910 01057 CALL 'DTSBU143' USING L143-LINK-AREA. DTSBR910 01058 DTSBR910 01059 S143-EXIT. DTSBR910 01060 EXIT. DTSBR910 01061 DTSBR910 01062 *S999-ABEND. DTSBR910 01063 * DTSBR910 01064 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR910 01065 * DTSBR910 01066 *S999-EXIT. DTSBR910 01067 * EXIT. DTSBR910 01068 DTSBR910