00001 IDENTIFICATION DIVISION. 06/11/08 00002 PROGRAM-ID. DTSBR902. DTSBR902 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV088 00004 DATE-WRITTEN. SEPTEMBER 1994. DTSBR902 00005 DATE-COMPILED. DTSBR902 00006 SKIP3 DTSBR902 00007 ***** DTSBR902 00008 * CALLING SEQUENCE: DTSBE351 WRITES DTSIR902 RECORDS DTSBR902 00009 * DTSBD800 CALLS DTSBR902 WHICH DTSBR902 00010 * PRODUCES THE QUARTERLY WAGE REPORT. DTSBR902 00011 * DTSBR902 00012 * DTSBR902 00013 * FUNCTION: QUARTERLY WAGE REPORTS UC-30 DTSBR902 00014 * DTSBR902 00015 * DTSBR902 00016 * MODIFICATION HISTORY: DTSBR902 00017 * DTSBR902 00018 * 09-17-94 INITIAL DEVELOPMENT DTSBR902 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR902 00020 * DTSBR902 00021 * DTSBR902 00022 * 11-28-97 RECOMPILED TO INCOPORATE CHANGE TO DTSIL119. CHANGED DTSBR902 00023 * REFERENCES TO L119-TAX-BUR TO L119-PROGRAM. DTSBR902 00024 * REFERENCE RFP #TCL 208 PROGRAMMER: EHH DTSBR902 00025 * DTSBR902 00026 * 03-30-99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS. DTSBR902 00027 * REFERENCE RFP #**** PROGRAMMER: DVS DTSBR902 00028 * DTSBR902 00029 * 01-19-01 MODIFIED TO PRINT UC30 ON LAZER PRINTER. DTSBR902 00030 * REFERENCE : DOES MOVE TO DHS PROGRAMMER: ZL1 DTSBR902 00031 * DTSBR902 00032 * 01-06-06 MODIFIED TO PRINT UC30 ON A RPT902R2 FILE IF THE DTSBR902 00033 * DAILY INPUT YEAR-QUARTER IS EQUAL OR DTSBR902 00034 * GREATER THAN 1ST JANUARY 2006. THE UC30 DTSBR902 00035 * FORM LINE 6 CONTAIN A NEW ADMINISTRATIVE DTSBR902 00036 * ASSESSMENT DUE INSTRUTION TO CALCULATE THE DTSBR902 00037 * ADMINISTRATIVE FEE MUTIPLY TAXABLE WAGE DTSBR902 00038 * PAID BY 0.02%. DTSBR902 00039 * REFERENCE RFP ## PROGRAMMER: RW1 DTSBR902 00040 * DTSBR902 00041 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR902 00042 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR902 00043 * REFERENCE RFP #**** PROGRAMMER: XXX DTSBR902 00044 * DTSBR902 00045 * DTSBR902 00046 * DESCRIPTION: DTSBR902 00047 * DTSBR902 00048 * THIS MODULE PRINTS THE QUARTERLY WAGE REPORT, BOTH FROM DTSBR902 00049 * DAILY BATCH PROCESSES AND THE QUARTERLY MASS MAILING, DTSBR902 00050 * FOR RATED (UC-30) AND SELF-INSURED EMPLOYERS. DTSBR902 00051 * DTSBR902 00052 * RECORDS READ: DTSBR902 00053 * DTSBR902 00054 * NONE. DTSBR902 00055 * DTSBR902 00056 * DTSBR902 00057 * PRINTED OUTPUTS: DTSBR902 00058 * DTSBR902 00059 * 902R1 QUARTERLY WAGE REPORT (UC-30) DTSBR902 00060 * DTSBR902 00061 * DTSBR902 00062 * RECORDS WRITTEN: DTSBR902 00063 * DTSBR902 00064 * NONE. DTSBR902 00065 * DTSBR902 00066 * DTSBR902 00067 * MODULES CALLED: DTSBR902 00068 * DTSBR902 00069 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR902 00070 * DTSBU002 DATE EDIT/CONVERSION MODULE DTSBR902 00071 * DTSBU004 DATE EDIT/CONVERSION MODULE DTSBR902 00072 * DTSBU008 QUARTER ALPHA CONVERSION MODULE DTSBR902 00073 * DTSBU009 TRANSLATE TO UPPER CASE MODULE DTSBR902 00074 * DTSBU056 RATE DISPLAY MODULE DTSBR902 00075 * DTSBU071 NAME EDIT/CONVERSION MODULE DTSBR902 00076 * DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE DTSBR902 00077 * DTSBU109 AFT RATE LOOKUP MODULE DTSBR902 00078 * DTSBU119 AGENCY FACTS MODULE DTSBR902 00079 * DTSBU143 CHARACTER STRING BUILDING MODULE DTSBR902 00080 * DTSBR902 00081 * DTSBR902 00082 ***** DTSBR902 00083 EJECT DTSBR902 00084 ENVIRONMENT DIVISION. DTSBR902 00085 DTSBR902 00086 CONFIGURATION SECTION. DTSBR902 00087 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR902 00088 DTSBR902 00089 INPUT-OUTPUT SECTION. DTSBR902 00090 DTSBR902 00091 FILE-CONTROL. DTSBR902 00092 SELECT PRT-FILE1 ASSIGN TO DTS902F1. DTSBR902 00093 SELECT PRT-FILE2 ASSIGN TO RPT902R1. DTSBR902 00094 SELECT PRT-FILE3 ASSIGN TO RPT902R2. DTSBR902 00095 DTSBR902 00096 DATA DIVISION. DTSBR902 00097 DTSBR902 00098 FILE SECTION. DTSBR902 00099 DTSBR902 00100 FD PRT-FILE1 DTSBR902 00101 RECORDING MODE IS F. DTSBR902 00102 01 UC30-QTRLY-DATA PIC X(385). DTSBR902 00103 DTSBR902 00104 FD PRT-FILE2 DTSBR902 00105 RECORDING MODE IS F. DTSBR902 00106 01 UC30-REPORT PIC X(133). DTSBR902 00107 DTSBR902 00108 FD PRT-FILE3 DTSBR902 00109 RECORDING MODE IS F. DTSBR902 00110 01 UC30-REPORT3 PIC X(133). DTSBR902 00111 DTSBR902 00112 WORKING-STORAGE SECTION. DTSBR902 001125 77 PAN-VALET PICTURE X(24) VALUE '088DTSBR902 06/11/08'. DTSBR902 00113 DTSBR902 00114 01 WRK-AREA. DTSBR902 00115 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +902.DTSBR902 00116 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR902 00117 05 WS-DAILY-OP-ID-HOLD PIC X(08) VALUE SPACES.DTSBR902 00118 05 WS-DAILY-OP-ID-HOLD1 PIC X(08) VALUE SPACES.DTSBR902 00119 05 WS-BLANK-LINE PIC X(133) VALUE SPACES.DTSBR902 00120 05 WS-YRQ-UNPACK PIC 9(05) VALUE ZEROS. DTSBR902 00121 05 WS-EMP-CLASS PIC X(01). DTSBR902 00122 88 WS-RATED-88 VALUE 'R'. DTSBR902 00123 88 WS-SELF-INS-88 VALUE 'S'. DTSBR902 00124 05 UC30-NEW-YRQ PIC 9(05) VALUE 20061. DTSBR902 00125 DTSBR902 00126 05 WS-BREAK-LINE1 PIC X(33) VALUE DTSBR902 00127 '*********************************'. DTSBR902 00128 05 WS-BREAK-LINE2 PIC X(33) VALUE DTSBR902 00129 '* ROUTE FOLLOWING FORMS TO: *'. DTSBR902 00130 05 WRK-OPR-NAME. DTSBR902 00131 10 FILLER PIC X(02) VALUE '* '. DTSBR902 00132 10 WS-OPR-NAME PIC X(30). DTSBR902 00133 10 FILLER PIC X(01) VALUE '*'. DTSBR902 00134 05 WRK-OPR-UNIT-NAME. DTSBR902 00135 10 FILLER PIC X(02) VALUE '* '. DTSBR902 00136 10 WS-OPR-UNIT-NAME PIC X(30). DTSBR902 00137 10 FILLER PIC X(01) VALUE '*'. DTSBR902 00138 DTSBR902 00139 05 WS-WAIVER-MSG-INIT PIC X(115) VALUE SPACES.DTSBR902 00140 05 WS-WAIVER-MSG-TBL REDEFINES WS-WAIVER-MSG-INIT. DTSBR902 00141 10 WS-WAIVER-MSG-LINE OCCURS 5 TIMES PIC X(23). DTSBR902 00142 05 WS-SNGL-WAIVER-MSG-INIT. DTSBR902 00143 10 FILLER PIC X(23) DTSBR902 00144 VALUE 'REPORT AND PAYMENT FOR '. DTSBR902 00145 10 WS-SNGL-WAIVER-YRQ-DISP PIC 99/9. DTSBR902 00146 10 FILLER PIC X(22) DTSBR902 00147 VALUE ' MUST BE RETURNED BY '. DTSBR902 00148 10 WS-SNGL-WAIVER-DATE-DISP PIC X(08). DTSBR902 00149 10 FILLER PIC X(32) DTSBR902 00150 VALUE ' TO AVOID PENALTY AND INTEREST'. DTSBR902 00151 10 FILLER PIC X(11) DTSBR902 00152 VALUE ' CHARGES.'. DTSBR902 00153 10 FILLER PIC X(15) DTSBR902 00154 VALUE SPACES. DTSBR902 00155 05 WS-MLTPL-WAIVER-MSG-INIT. DTSBR902 00156 10 FILLER PIC X(27) DTSBR902 00157 VALUE 'REPORTS AND PAYMENTS FOR '. DTSBR902 00158 10 WS-MLTPL-WAIVER-YRQ1-DISP DTSBR902 00159 PIC 99/9. DTSBR902 00160 10 FILLER PIC X(03) DTSBR902 00161 VALUE ' - '. DTSBR902 00162 10 WS-MLTPL-WAIVER-YRQ2-DISP DTSBR902 00163 PIC 99/9. DTSBR902 00164 10 FILLER PIC X(23) DTSBR902 00165 VALUE ' MUST BE RETURNED BY '. DTSBR902 00166 10 WS-MLTPL-WAIVER-DATE-DISP DTSBR902 00167 PIC X(08). DTSBR902 00168 10 FILLER PIC X(40) DTSBR902 00169 VALUE 'TO AVOID PENALTY AND INTEREST CHARGES.'. DTSBR902 00170 10 FILLER PIC X(06) DTSBR902 00171 VALUE SPACES. DTSBR902 00172 DTSBR902 00173 05 TEMP-EMP-NO PIC 9(06). DTSBR902 00174 88 TEMP-EMP-PRINT-88 VALUE 153333 DTSBR902 00175 136679 DTSBR902 00176 063302 DTSBR902 00177 153001 DTSBR902 00178 200100 DTSBR902 00179 076805 DTSBR902 00180 148664 DTSBR902 00181 000001 THRU 010000 DTSBR902 00182 089000 THRU 100000. DTSBR902 00183 EJECT DTSBR902 00184 ++INCLUDE DTSXL902 DTSBR902 00185 EJECT DTSBR902 00186 01 L001-LINK-AREA. DTSBR902 00187 ++INCLUDE DTSIL001 DTSBR902 00188 EJECT DTSBR902 00189 01 L002-LINK-AREA. DTSBR902 00190 ++INCLUDE DTSIL002 DTSBR902 00191 EJECT DTSBR902 00192 01 L004-LINK-AREA. DTSBR902 00193 ++INCLUDE DTSIL004 DTSBR902 00194 EJECT DTSBR902 00195 01 L008-LINK-AREA. DTSBR902 00196 ++INCLUDE DTSIL008 DTSBR902 00197 EJECT DTSBR902 00198 01 L009-LINK-AREA. DTSBR902 00199 ++INCLUDE DTSIL009 DTSBR902 00200 EJECT DTSBR902 00201 01 L056-LINK-AREA. DTSBR902 00202 ++INCLUDE DTSIL056 DTSBR902 00203 EJECT DTSBR902 00204 01 L071-LINK-AREA. DTSBR902 00205 ++INCLUDE DTSIL071 DTSBR902 00206 EJECT DTSBR902 00207 01 L082-LINK-AREA. DTSBR902 00208 ++INCLUDE DTSIL082 DTSBR902 00209 EJECT DTSBR902 00210 *01 L109-LINK-AREA. DTSBR902 00211 **+INCLUDE DTSIL109 DTSBR902 00212 ** EJECT DTSBR902 00213 01 L119-LINK-AREA. DTSBR902 00214 ++INCLUDE DTSIL119 DTSBR902 00215 EJECT DTSBR902 00216 01 L143-LINK-AREA. DTSBR902 00217 ++INCLUDE DTSIL143 DTSBR902 00218 01 ROUTE-INFO-AREA. DTSBR902 00219 05 RTE-LINE-1. DTSBR902 00220 10 FILLER PIC X(27) VALUE SPACES. DTSBR902 00221 10 FILLER PIC X(33) DTSBR902 00222 VALUE '*********** DTSP902 **********'. DTSBR902 00223 05 RTE-LINE-2. DTSBR902 00224 10 FILLER PIC X(27) VALUE SPACES. DTSBR902 00225 10 FILLER PIC X(13) DTSBR902 00226 VALUE '** '. DTSBR902 00227 10 RTE-SYS-DATE PIC X(08) VALUE SPACES. DTSBR902 00228 10 FILLER PIC X(13) DTSBR902 00229 VALUE ' ** '. DTSBR902 00230 05 RTE-LINE-3. DTSBR902 00231 10 FILLER PIC X(27) VALUE SPACES. DTSBR902 00232 10 FILLER PIC X(33) DTSBR902 00233 VALUE '*********** UC30-OLD **********'. DTSBR902 00234 05 RTE-LINE-4. DTSBR902 00235 10 FILLER PIC X(27) VALUE SPACES. DTSBR902 00236 10 FILLER PIC X(33) DTSBR902 00237 VALUE '*********** UC30-NEW **********'. DTSBR902 00238 DTSBR902 00239 01 UC30-REPORT-DETAIL1. DTSBR902 00240 05 U30-LINE-1. DTSBR902 00241 10 FILLER PIC X(04) VALUE SPACES. DTSBR902 00242 10 U30-EMP-NO PIC 999B999. DTSBR902 00243 10 FILLER PIC X(08) VALUE SPACES. DTSBR902 00244 10 U30-PRI-NAME-FIRST4 PIC X(4) VALUE SPACES. DTSBR902 00245 10 FILLER PIC X(04) VALUE SPACES. DTSBR902 00246 10 U30-FMT-LINE-1 PIC X(40) VALUE SPACES. DTSBR902 00247 10 FILLER PIC X(01) VALUE SPACES. DTSBR902 00248 10 U30-FEIN-DISP PIC 99B9999999. DTSBR902 00249 10 U30-FEIN-DISP-X DTSBR902 00250 REDEFINES U30-FEIN-DISP PIC X(10). DTSBR902 00251 10 FILLER PIC X(05) VALUE SPACES. DTSBR902 00252 DTSBR902 00253 05 U30-LINE-2. DTSBR902 00254 10 FILLER PIC X(27) VALUE SPACES. DTSBR902 00255 10 U30-FMT-LINE-2 PIC X(40) VALUE SPACES. DTSBR902 00256 DTSBR902 00257 05 U30-LINE-3. DTSBR902 00258 10 FILLER PIC X(10) VALUE SPACES. DTSBR902 00259 10 U30-UI-RATE PIC X(06) VALUE SPACES. DTSBR902 00260 10 U30-PCENT PIC X(03) VALUE ' %'. DTSBR902 00261 10 FILLER PIC X(08) VALUE SPACES. DTSBR902 00262 10 U30-FMT-LINE-3 PIC X(40) VALUE SPACES. DTSBR902 00263 10 FILLER PIC X(01) VALUE SPACES. DTSBR902 00264 10 U30-RPT-QTR-END-DISP PIC X(18). DTSBR902 00265 10 FILLER PIC X(05) VALUE SPACES. DTSBR902 00266 DTSBR902 00267 05 U30-LINE-4. DTSBR902 00268 10 FILLER PIC X(27) VALUE SPACES. DTSBR902 00269 10 U30-FMT-LINE-4 PIC X(40). DTSBR902 00270 DTSBR902 00271 05 U30-LINE-5. DTSBR902 00272 10 FILLER PIC X(08) VALUE SPACES. DTSBR902 00273 10 U30-TAX-WAGE-BASE PIC ZZZZZZ9.99. DTSBR902 00274 10 U30-TAX-WAGE-BASE-X REDEFINES DTSBR902 00275 U30-TAX-WAGE-BASE PIC X(10). DTSBR902 00276 10 FILLER PIC X(09) VALUE SPACES. DTSBR902 00277 10 U30-FMT-LINE-5 PIC X(40). DTSBR902 00278 10 FILLER PIC X(01) VALUE SPACES. DTSBR902 00279 10 U30-RPT-DUE-DATE-DISP PIC X(18). DTSBR902 00280 10 FILLER PIC X(05) VALUE SPACES. DTSBR902 00281 DTSBR902 00282 05 U30-LINE-6. DTSBR902 00283 10 FILLER PIC X(75) VALUE SPACES. DTSBR902 00284 10 U30-NONTAX-WAGE PIC ZZZ,ZZZ,ZZ9.99. DTSBR902 00285 DTSBR902 00286 05 U30-LINE-7. DTSBR902 00287 10 FILLER PIC X(75) VALUE SPACES. DTSBR902 00288 10 U30-TAX-WAGE PIC ZZZ,ZZZ,ZZ9.99. DTSBR902 00289 DTSBR902 00290 05 U30-LINE-8. DTSBR902 00291 10 FILLER PIC X(38) VALUE SPACES. DTSBR902 00292 10 U30-UI-TAX-RATE-SI PIC X(6) VALUE SPACES. DTSBR902 00293 10 FILLER PIC X(14) VALUE SPACES. DTSBR902 00294 10 U30-CONTRIB-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR902 00295 DTSBR902 00296 05 U30-LINE-8R. DTSBR902 00297 10 FILLER PIC X(38) VALUE SPACES. DTSBR902 00298 10 U30-UI-TAX-RATE-RATED PIC X(6) VALUE SPACES. DTSBR902 00299 DTSBR902 00300 05 U30-LINE-9. DTSBR902 00301 10 FILLER PIC X(58) VALUE SPACES. DTSBR902 00302 10 U30-INTREST-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR902 00303 DTSBR902 00304 05 U30-LINE-10. DTSBR902 00305 10 FILLER PIC X(58) VALUE SPACES. DTSBR902 00306 10 U30-PENALTY-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR902 00307 DTSBR902 00308 05 U30-LINE-11. DTSBR902 00309 10 FILLER PIC X(58) VALUE SPACES. DTSBR902 00310 10 U30-CREDIT-AMT PIC ZZZ,ZZZ,ZZ9.99 DTSBR902 00311 BLANK WHEN ZEROS. DTSBR902 00312 05 U30-LINE-12. DTSBR902 00313 10 FILLER PIC X(75) VALUE SPACES. DTSBR902 00314 10 U30-TOTAL-AMT PIC ZZZ,ZZZ,ZZ9.99. DTSBR902 00315 DTSBR902 00316 DTSBR902 00317 01 UC30-DATA-FILE. DTSBR902 00318 10 FILLER PIC X(04) VALUE SPACES. DTSBR902 00319 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00320 10 Q30-EMP-NO PIC 999B999. DTSBR902 00321 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00322 10 Q30-PRI-NAME-FIRST4 PIC X(4) VALUE SPACES. DTSBR902 00323 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00324 10 Q30-FMT-LINE-1 PIC X(36) VALUE SPACES. DTSBR902 00325 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00326 10 Q30-FEIN-DISP PIC 99B9999999. DTSBR902 00327 10 Q30-FEIN-DISP-X DTSBR902 00328 REDEFINES Q30-FEIN-DISP PIC X(10). DTSBR902 00329 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00330 10 Q30-FMT-LINE-2 PIC X(36) VALUE SPACES. DTSBR902 00331 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00332 10 Q30-UI-RATE PIC X(06) VALUE SPACES. DTSBR902 00333 10 Q30-PCENT PIC X(03) VALUE ' %'. DTSBR902 00334 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00335 10 Q30-FMT-LINE-3 PIC X(36) VALUE SPACES. DTSBR902 00336 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00337 10 Q30-RPT-QTR-END-DISP PIC X(18). DTSBR902 00338 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00339 10 Q30-FMT-LINE-4 PIC X(36). DTSBR902 00340 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00341 10 Q30-TAX-WAGE-BASE PIC ZZZZZZ9.99. DTSBR902 00342 10 Q30-TAX-WAGE-BASE-X REDEFINES DTSBR902 00343 Q30-TAX-WAGE-BASE PIC X(10). DTSBR902 00344 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00345 10 Q30-FMT-LINE-5 PIC X(36). DTSBR902 00346 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00347 10 Q30-RPT-DUE-DATE-DISP PIC X(18). DTSBR902 00348 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00349 10 Q30-NONTAX-WAGE PIC ZZZ,ZZZ,ZZ9.99. DTSBR902 00350 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00351 10 Q30-TAX-WAGE PIC ZZZ,ZZZ,ZZ9.99. DTSBR902 00352 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00353 10 Q30-UI-TAX-RATE-SI PIC X(6) VALUE SPACES. DTSBR902 00354 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00355 10 Q30-CONTRIB-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR902 00356 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00357 10 Q30-INTREST-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR902 00358 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00359 10 Q30-PENALTY-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR902 00360 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00361 10 Q30-CREDIT-AMT PIC ZZZ,ZZZ,ZZ9.99. DTSBR902 00362 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00363 10 Q30-TOTAL-AMT PIC ZZZ,ZZZ,ZZ9.99. DTSBR902 00364 10 FILLER PIC X(01) VALUE ';'. DTSBR902 00365 DTSBR902 00366 EJECT DTSBR902 00367 LINKAGE SECTION. DTSBR902 00368 DTSBR902 00369 01 LRCM-LINK-AREA. DTSBR902 00370 ++INCLUDE DTSILRCM DTSBR902 00371 EJECT DTSBR902 00372 01 R902-REC. DTSBR902 00373 ++INCLUDE DTSIR902 DTSBR902 00374 EJECT DTSBR902 00375 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR902 00376 R902-REC. DTSBR902 00377 IF FIRST-TIME-IND = 'Y' DTSBR902 00378 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR902 00379 MOVE 'N' TO FIRST-TIME-IND. DTSBR902 00380 DTSBR902 00381 IF LRCM-EOR-88 DTSBR902 00382 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR902 00383 ELSE DTSBR902 00384 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR902 00385 DTSBR902 00386 GOBACK. DTSBR902 00387 EJECT DTSBR902 00388 I1000-INITIATE. DTSBR902 00389 DTSBR902 00390 OPEN OUTPUT PRT-FILE1 PRT-FILE2 PRT-FILE3. DTSBR902 00391 MOVE SPACES TO UC30-QTRLY-DATA DTSBR902 00392 UC30-REPORT UC30-REPORT3. DTSBR902 00393 MOVE SPACES TO WS-DAILY-OP-ID-HOLD. DTSBR902 00394 MOVE SPACES TO WS-DAILY-OP-ID-HOLD1. DTSBR902 00395 MOVE LRCM-SYS-DATE TO RTE-SYS-DATE. DTSBR902 00396 *R1 DTSBR902 00397 WRITE UC30-REPORT FROM XEROX-CNTL-LINE AFTER TOP-OF-PAGE. DTSBR902 00398 WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER 5. DTSBR902 00399 WRITE UC30-REPORT FROM RTE-LINE-1 AFTER 7. DTSBR902 00400 WRITE UC30-REPORT FROM RTE-LINE-2 AFTER 1. DTSBR902 00401 WRITE UC30-REPORT FROM RTE-LINE-3 AFTER 1. DTSBR902 00402 WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR902 00403 WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER 2. DTSBR902 00404 WRITE UC30-REPORT FROM RTE-LINE-1 AFTER 7. DTSBR902 00405 WRITE UC30-REPORT FROM RTE-LINE-2 AFTER 1. DTSBR902 00406 WRITE UC30-REPORT FROM RTE-LINE-3 AFTER 1. DTSBR902 00407 DTSBR902 00408 WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR902 00409 WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR902 00410 *R2 DTSBR902 00411 WRITE UC30-REPORT3 FROM XEROX-CNTL-LINE1 AFTER TOP-OF-PAGE. DTSBR902 00412 WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER 5. DTSBR902 00413 WRITE UC30-REPORT3 FROM RTE-LINE-1 AFTER 7. DTSBR902 00414 WRITE UC30-REPORT3 FROM RTE-LINE-2 AFTER 1. DTSBR902 00415 WRITE UC30-REPORT3 FROM RTE-LINE-4 AFTER 1. DTSBR902 00416 WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR902 00417 WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER 2. DTSBR902 00418 WRITE UC30-REPORT3 FROM RTE-LINE-1 AFTER 7. DTSBR902 00419 WRITE UC30-REPORT3 FROM RTE-LINE-2 AFTER 1. DTSBR902 00420 WRITE UC30-REPORT3 FROM RTE-LINE-4 AFTER 1. DTSBR902 00421 DTSBR902 00422 WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR902 00423 WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR902 00424 DTSBR902 00425 I1000-EXIT. DTSBR902 00426 EXIT. DTSBR902 00427 DTSBR902 00428 P1000-PROCESS. DTSBR902 00429 DTSBR902 00430 IF R902-SORT-TYPE-QTR-88 DTSBR902 00431 PERFORM P2000-UC30-QTRLY-FILE THRU P2000-EXIT DTSBR902 00432 ELSE DTSBR902 00433 IF R902-DAILY-YRQ < 20061 DTSBR902 00434 PERFORM P3010-BREAK-USERID THRU P3010-EXIT DTSBR902 00435 PERFORM P3000-UC30-DAILY-RPT THRU P3000-EXIT DTSBR902 00436 ELSE DTSBR902 00437 PERFORM P4010-BREAK-USERID THRU P4010-EXIT DTSBR902 00438 PERFORM P4000-UC30-DAILY-RPT THRU P4000-EXIT DTSBR902 00439 END-IF DTSBR902 00440 END-IF. DTSBR902 00441 DTSBR902 00442 P1000-EXIT. DTSBR902 00443 EXIT. DTSBR902 00444 EJECT DTSBR902 00445 P2000-UC30-QTRLY-FILE. DTSBR902 00446 MOVE R902-QUARTERLY-EMP-CLASS TO WS-EMP-CLASS. DTSBR902 00447 MOVE R902-QUARTERLY-YRQ TO WS-YRQ-UNPACK. DTSBR902 00448 DISPLAY ' R902-QUARTERLY-YRQ = ' WS-YRQ-UNPACK. DTSBR902 00449 MOVE R902-QUARTERLY-EMP-NO TO Q30-EMP-NO. DTSBR902 00450 DTSBR902 00451 IF R902-QTRLY-CR-AMT > +0 DTSBR902 00452 MOVE R902-QTRLY-CR-AMT TO Q30-CREDIT-AMT DTSBR902 00453 ELSE DTSBR902 00454 MOVE ZEROS TO Q30-CREDIT-AMT DTSBR902 00455 END-IF. DTSBR902 00456 DTSBR902 00457 DTSBR902 00458 SET L004-FROM-5 TO TRUE. DTSBR902 00459 MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA. DTSBR902 00460 PERFORM S004-DATE THRU S004-EXIT. DTSBR902 00461 DTSBR902 00462 MOVE L004-QTR-END-DATE TO L002-DATE. DTSBR902 00463 SET L002-UPPER-CASE TO TRUE. DTSBR902 00464 PERFORM S002-DATE THRU S002-EXIT. DTSBR902 00465 MOVE L002-LONG-TEXT-AREA TO Q30-RPT-QTR-END-DISP. DTSBR902 00466 DTSBR902 00467 MOVE R902-RPT-DUE-DATE TO L002-DATE. DTSBR902 00468 SET L002-UPPER-CASE TO TRUE. DTSBR902 00469 PERFORM S002-DATE THRU S002-EXIT. DTSBR902 00470 MOVE L002-LONG-TEXT-AREA TO Q30-RPT-DUE-DATE-DISP. DTSBR902 00471 DTSBR902 00472 MOVE R902-PRI-NAME-FIRST4 TO Q30-PRI-NAME-FIRST4. DTSBR902 00473 DTSBR902 00474 IF R902-FEIN = ZEROES DTSBR902 00475 MOVE SPACES TO Q30-FEIN-DISP-X DTSBR902 00476 ELSE DTSBR902 00477 MOVE R902-FEIN TO Q30-FEIN-DISP. DTSBR902 00478 DTSBR902 00479 IF WS-RATED-88 DTSBR902 00480 MOVE R902-TAX-WAGE-BASE TO Q30-TAX-WAGE-BASE DTSBR902 00481 MOVE R902-UI-RATE TO L056-RATE DTSBR902 00482 SET L056-DISP1-RIGHT-PCT-88 TO TRUE DTSBR902 00483 PERFORM S056-RATE-DISPLAY THRU S056-EXIT DTSBR902 00484 MOVE L056-DISP-RATE TO Q30-UI-RATE DTSBR902 00485 Q30-UI-TAX-RATE-SI DTSBR902 00486 MOVE ' %' TO Q30-PCENT DTSBR902 00487 ELSE DTSBR902 00488 MOVE 'SI' TO Q30-UI-RATE DTSBR902 00489 MOVE SPACES TO Q30-UI-TAX-RATE-SI DTSBR902 00490 MOVE SPACES TO Q30-PCENT DTSBR902 00491 MOVE SPACES TO Q30-TAX-WAGE-BASE-X DTSBR902 00492 MOVE ZEROS TO Q30-NONTAX-WAGE DTSBR902 00493 Q30-TAX-WAGE DTSBR902 00494 Q30-CONTRIB-DUE DTSBR902 00495 Q30-INTREST-DUE DTSBR902 00496 Q30-PENALTY-DUE DTSBR902 00497 Q30-TOTAL-AMT DTSBR902 00498 END-IF. DTSBR902 00499 DTSBR902 00500 MOVE R902-FMT-LINE (1) TO Q30-FMT-LINE-1. DTSBR902 00501 MOVE R902-FMT-LINE (2) TO Q30-FMT-LINE-2. DTSBR902 00502 MOVE R902-FMT-LINE (3) TO Q30-FMT-LINE-3. DTSBR902 00503 MOVE R902-FMT-LINE (4) TO Q30-FMT-LINE-4. DTSBR902 00504 MOVE R902-FMT-LINE (5) TO Q30-FMT-LINE-5. DTSBR902 00505 DTSBR902 00506 WRITE UC30-QTRLY-DATA FROM UC30-DATA-FILE. DTSBR902 00507 DTSBR902 00508 P2000-EXIT. DTSBR902 00509 EXIT. DTSBR902 00510 DTSBR902 00511 P3000-UC30-DAILY-RPT. DTSBR902 00512 DTSBR902 00513 MOVE R902-DAILY-EMP-CLASS TO WS-EMP-CLASS. DTSBR902 00514 MOVE R902-DAILY-YRQ TO WS-YRQ-UNPACK. DTSBR902 00515 DISPLAY 'R902-DAILY-YRQ = ' WS-YRQ-UNPACK. DTSBR902 00516 MOVE R902-DAILY-EMP-NO TO U30-EMP-NO. DTSBR902 00517 DTSBR902 00518 SET L004-FROM-5 TO TRUE. DTSBR902 00519 MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA. DTSBR902 00520 PERFORM S004-DATE THRU S004-EXIT. DTSBR902 00521 DTSBR902 00522 MOVE L004-QTR-END-DATE TO L002-DATE. DTSBR902 00523 SET L002-UPPER-CASE TO TRUE. DTSBR902 00524 PERFORM S002-DATE THRU S002-EXIT. DTSBR902 00525 MOVE L002-LONG-TEXT-AREA TO U30-RPT-QTR-END-DISP. DTSBR902 00526 DTSBR902 00527 MOVE R902-RPT-DUE-DATE TO L002-DATE. DTSBR902 00528 SET L002-UPPER-CASE TO TRUE. DTSBR902 00529 PERFORM S002-DATE THRU S002-EXIT. DTSBR902 00530 MOVE L002-LONG-TEXT-AREA TO U30-RPT-DUE-DATE-DISP. DTSBR902 00531 DTSBR902 00532 MOVE R902-PRI-NAME-FIRST4 TO U30-PRI-NAME-FIRST4. DTSBR902 00533 DTSBR902 00534 IF R902-FEIN = ZEROES DTSBR902 00535 MOVE SPACES TO U30-FEIN-DISP-X DTSBR902 00536 ELSE DTSBR902 00537 MOVE R902-FEIN TO U30-FEIN-DISP. DTSBR902 00538 DTSBR902 00539 IF WS-RATED-88 DTSBR902 00540 MOVE R902-TAX-WAGE-BASE TO U30-TAX-WAGE-BASE DTSBR902 00541 MOVE R902-UI-RATE TO L056-RATE DTSBR902 00542 SET L056-DISP1-RIGHT-PCT-88 TO TRUE DTSBR902 00543 PERFORM S056-RATE-DISPLAY THRU S056-EXIT DTSBR902 00544 MOVE L056-DISP-RATE TO U30-UI-RATE DTSBR902 00545 U30-UI-TAX-RATE-RATED DTSBR902 00546 MOVE ' %' TO U30-PCENT DTSBR902 00547 ELSE DTSBR902 00548 MOVE 'SI' TO U30-UI-RATE DTSBR902 00549 MOVE SPACES TO U30-PCENT DTSBR902 00550 MOVE SPACES TO U30-UI-TAX-RATE-SI DTSBR902 00551 MOVE SPACES TO U30-TAX-WAGE-BASE-X DTSBR902 00552 MOVE ZEROS TO U30-NONTAX-WAGE DTSBR902 00553 U30-TAX-WAGE DTSBR902 00554 U30-CONTRIB-DUE DTSBR902 00555 U30-INTREST-DUE DTSBR902 00556 U30-PENALTY-DUE DTSBR902 00557 U30-TOTAL-AMT DTSBR902 00558 END-IF. DTSBR902 00559 DTSBR902 00560 MOVE R902-FMT-LINE (1) TO U30-FMT-LINE-1. DTSBR902 00561 MOVE R902-FMT-LINE (2) TO U30-FMT-LINE-2. DTSBR902 00562 MOVE R902-FMT-LINE (3) TO U30-FMT-LINE-3. DTSBR902 00563 MOVE R902-FMT-LINE (4) TO U30-FMT-LINE-4. DTSBR902 00564 MOVE R902-FMT-LINE (5) TO U30-FMT-LINE-5. DTSBR902 00565 DTSBR902 00566 PERFORM P3030-GENERATE-UC30-REPORT THRU P3030-EXIT. DTSBR902 00567 DTSBR902 00568 P3000-EXIT. DTSBR902 00569 EXIT. DTSBR902 00570 DTSBR902 00571 P3010-BREAK-USERID. DTSBR902 00572 DTSBR902 00573 IF R902-DAILY-OP-ID NOT = WS-DAILY-OP-ID-HOLD DTSBR902 00574 MOVE R902-DAILY-OP-ID TO WS-DAILY-OP-ID-HOLD DTSBR902 00575 PERFORM P3020-OPID-BREAK THRU P3020-EXIT DTSBR902 00576 PERFORM P3030-GENERATE-UC30-REPORT THRU P3030-EXIT DTSBR902 00577 END-IF. DTSBR902 00578 DTSBR902 00579 P3010-EXIT. DTSBR902 00580 EXIT. DTSBR902 00581 EJECT DTSBR902 00582 P3020-OPID-BREAK. DTSBR902 00583 DTSBR902 00584 MOVE R902-DAILY-OP-ID TO L082-OP-ID DTSBR902 00585 DTSBR902 00586 PERFORM S082-OP-ID-INFO THRU S082-EXIT DTSBR902 00587 MOVE L082-NAME TO L071-NAM DTSBR902 00588 MOVE 2 TO L071-NAME-FORMAT DTSBR902 00589 PERFORM S071-DESLASH-NAME THRU S071-EXIT DTSBR902 00590 MOVE L071-NAM TO L009-DATA DTSBR902 00591 DTSBR902 00592 PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT DTSBR902 00593 MOVE L009-DATA TO WS-OPR-NAME DTSBR902 00594 MOVE L082-UNIT-NAME TO L009-DATA DTSBR902 00595 DTSBR902 00596 PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT DTSBR902 00597 MOVE L009-DATA TO WS-OPR-UNIT-NAME. DTSBR902 00598 DTSBR902 00599 MOVE SPACES TO U30-LINE-1 DTSBR902 00600 U30-LINE-2 DTSBR902 00601 U30-LINE-3 DTSBR902 00602 U30-LINE-4 DTSBR902 00603 U30-LINE-5. DTSBR902 00604 MOVE WS-BREAK-LINE1 TO U30-FMT-LINE-1. DTSBR902 00605 MOVE WS-BREAK-LINE2 TO U30-FMT-LINE-2. DTSBR902 00606 MOVE WRK-OPR-NAME TO U30-FMT-LINE-3. DTSBR902 00607 MOVE WRK-OPR-UNIT-NAME TO U30-FMT-LINE-4. DTSBR902 00608 MOVE WS-BREAK-LINE1 TO U30-FMT-LINE-5. DTSBR902 00609 DTSBR902 00610 P3020-EXIT. DTSBR902 00611 EXIT. DTSBR902 00612 P3030-GENERATE-UC30-REPORT. DTSBR902 00613 DTSBR902 00614 WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR902 00615 WRITE UC30-REPORT FROM U30-LINE-1 AFTER 8. DTSBR902 00616 WRITE UC30-REPORT FROM U30-LINE-2 AFTER 1. DTSBR902 00617 WRITE UC30-REPORT FROM U30-LINE-3 AFTER 1. DTSBR902 00618 WRITE UC30-REPORT FROM U30-LINE-4 AFTER 1. DTSBR902 00619 WRITE UC30-REPORT FROM U30-LINE-5 AFTER 1. DTSBR902 00620 DTSBR902 00621 IF WS-RATED-88 DTSBR902 00622 WRITE UC30-REPORT FROM U30-LINE-8R AFTER 13 DTSBR902 00623 *RW1 DTSBR902 00624 MOVE SPACES TO U30-UI-TAX-RATE-RATED DTSBR902 00625 *RW2 DTSBR902 00626 WRITE UC30-REPORT FROM U30-LINE-11 AFTER 4 DTSBR902 00627 ELSE DTSBR902 00628 WRITE UC30-REPORT FROM U30-LINE-6 AFTER 10 DTSBR902 00629 WRITE UC30-REPORT FROM U30-LINE-7 AFTER 2 DTSBR902 00630 WRITE UC30-REPORT FROM U30-LINE-8 AFTER 1 DTSBR902 00631 WRITE UC30-REPORT FROM U30-LINE-9 AFTER 2 DTSBR902 00632 WRITE UC30-REPORT FROM U30-LINE-10 AFTER 1 DTSBR902 00633 WRITE UC30-REPORT FROM U30-LINE-11 AFTER 1 DTSBR902 00634 WRITE UC30-REPORT FROM U30-LINE-12 AFTER 2. DTSBR902 00635 DTSBR902 00636 WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR902 00637 WRITE UC30-REPORT FROM U30-LINE-1 AFTER 8. DTSBR902 00638 WRITE UC30-REPORT FROM U30-LINE-2 AFTER 1. DTSBR902 00639 WRITE UC30-REPORT FROM U30-LINE-3 AFTER 1. DTSBR902 00640 WRITE UC30-REPORT FROM U30-LINE-4 AFTER 1. DTSBR902 00641 WRITE UC30-REPORT FROM U30-LINE-5 AFTER 1. DTSBR902 00642 WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR902 00643 WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR902 00644 DTSBR902 00645 P3030-EXIT. DTSBR902 00646 EXIT. DTSBR902 00647 DTSBR902 00648 P4000-UC30-DAILY-RPT. DTSBR902 00649 DTSBR902 00650 MOVE R902-DAILY-EMP-CLASS TO WS-EMP-CLASS. DTSBR902 00651 MOVE R902-DAILY-YRQ TO WS-YRQ-UNPACK. DTSBR902 00652 DISPLAY 'R902-DAILY-YRQ = ' WS-YRQ-UNPACK. DTSBR902 00653 MOVE R902-DAILY-EMP-NO TO U30-EMP-NO. DTSBR902 00654 DTSBR902 00655 SET L004-FROM-5 TO TRUE. DTSBR902 00656 MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA. DTSBR902 00657 PERFORM S004-DATE THRU S004-EXIT. DTSBR902 00658 DTSBR902 00659 MOVE L004-QTR-END-DATE TO L002-DATE. DTSBR902 00660 SET L002-UPPER-CASE TO TRUE. DTSBR902 00661 PERFORM S002-DATE THRU S002-EXIT. DTSBR902 00662 MOVE L002-LONG-TEXT-AREA TO U30-RPT-QTR-END-DISP. DTSBR902 00663 DTSBR902 00664 MOVE R902-RPT-DUE-DATE TO L002-DATE. DTSBR902 00665 SET L002-UPPER-CASE TO TRUE. DTSBR902 00666 PERFORM S002-DATE THRU S002-EXIT. DTSBR902 00667 MOVE L002-LONG-TEXT-AREA TO U30-RPT-DUE-DATE-DISP. DTSBR902 00668 DTSBR902 00669 MOVE R902-PRI-NAME-FIRST4 TO U30-PRI-NAME-FIRST4. DTSBR902 00670 DTSBR902 00671 IF R902-FEIN = ZEROES DTSBR902 00672 MOVE SPACES TO U30-FEIN-DISP-X DTSBR902 00673 ELSE DTSBR902 00674 MOVE R902-FEIN TO U30-FEIN-DISP. DTSBR902 00675 DTSBR902 00676 IF WS-RATED-88 DTSBR902 00677 MOVE R902-TAX-WAGE-BASE TO U30-TAX-WAGE-BASE DTSBR902 00678 MOVE R902-UI-RATE TO L056-RATE DTSBR902 00679 SET L056-DISP1-RIGHT-PCT-88 TO TRUE DTSBR902 00680 PERFORM S056-RATE-DISPLAY THRU S056-EXIT DTSBR902 00681 MOVE L056-DISP-RATE TO U30-UI-RATE DTSBR902 00682 U30-UI-TAX-RATE-RATED DTSBR902 00683 MOVE ' %' TO U30-PCENT DTSBR902 00684 ELSE DTSBR902 00685 MOVE 'SI' TO U30-UI-RATE DTSBR902 00686 MOVE SPACES TO U30-PCENT DTSBR902 00687 MOVE SPACES TO U30-UI-TAX-RATE-SI DTSBR902 00688 MOVE SPACES TO U30-TAX-WAGE-BASE-X DTSBR902 00689 MOVE ZEROS TO U30-NONTAX-WAGE DTSBR902 00690 U30-TAX-WAGE DTSBR902 00691 U30-CONTRIB-DUE DTSBR902 00692 U30-INTREST-DUE DTSBR902 00693 U30-PENALTY-DUE DTSBR902 00694 U30-TOTAL-AMT DTSBR902 00695 END-IF. DTSBR902 00696 DTSBR902 00697 MOVE R902-FMT-LINE (1) TO U30-FMT-LINE-1. DTSBR902 00698 MOVE R902-FMT-LINE (2) TO U30-FMT-LINE-2. DTSBR902 00699 MOVE R902-FMT-LINE (3) TO U30-FMT-LINE-3. DTSBR902 00700 MOVE R902-FMT-LINE (4) TO U30-FMT-LINE-4. DTSBR902 00701 MOVE R902-FMT-LINE (5) TO U30-FMT-LINE-5. DTSBR902 00702 DTSBR902 00703 PERFORM P4030-GENERATE-UC30-REPORT THRU P4030-EXIT. DTSBR902 00704 DTSBR902 00705 P4000-EXIT. DTSBR902 00706 EXIT. DTSBR902 00707 DTSBR902 00708 P4010-BREAK-USERID. DTSBR902 00709 DTSBR902 00710 IF R902-DAILY-OP-ID NOT = WS-DAILY-OP-ID-HOLD1 DTSBR902 00711 MOVE R902-DAILY-OP-ID TO WS-DAILY-OP-ID-HOLD1 DTSBR902 00712 PERFORM P4020-OPID-BREAK THRU P4020-EXIT DTSBR902 00713 PERFORM P4030-GENERATE-UC30-REPORT THRU P4030-EXIT DTSBR902 00714 END-IF. DTSBR902 00715 DTSBR902 00716 P4010-EXIT. DTSBR902 00717 EXIT. DTSBR902 00718 DTSBR902 00719 P4020-OPID-BREAK. DTSBR902 00720 DTSBR902 00721 MOVE R902-DAILY-OP-ID TO L082-OP-ID DTSBR902 00722 DTSBR902 00723 PERFORM S082-OP-ID-INFO THRU S082-EXIT DTSBR902 00724 MOVE L082-NAME TO L071-NAM DTSBR902 00725 MOVE 2 TO L071-NAME-FORMAT DTSBR902 00726 PERFORM S071-DESLASH-NAME THRU S071-EXIT DTSBR902 00727 MOVE L071-NAM TO L009-DATA DTSBR902 00728 DTSBR902 00729 PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT DTSBR902 00730 MOVE L009-DATA TO WS-OPR-NAME DTSBR902 00731 MOVE L082-UNIT-NAME TO L009-DATA DTSBR902 00732 DTSBR902 00733 PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT DTSBR902 00734 MOVE L009-DATA TO WS-OPR-UNIT-NAME. DTSBR902 00735 DTSBR902 00736 MOVE SPACES TO U30-LINE-1 DTSBR902 00737 U30-LINE-2 DTSBR902 00738 U30-LINE-3 DTSBR902 00739 U30-LINE-4 DTSBR902 00740 U30-LINE-5. DTSBR902 00741 MOVE WS-BREAK-LINE1 TO U30-FMT-LINE-1. DTSBR902 00742 MOVE WS-BREAK-LINE2 TO U30-FMT-LINE-2. DTSBR902 00743 MOVE WRK-OPR-NAME TO U30-FMT-LINE-3. DTSBR902 00744 MOVE WRK-OPR-UNIT-NAME TO U30-FMT-LINE-4. DTSBR902 00745 MOVE WS-BREAK-LINE1 TO U30-FMT-LINE-5. DTSBR902 00746 DTSBR902 00747 P4020-EXIT. DTSBR902 00748 EXIT. DTSBR902 00749 DTSBR902 00750 P4030-GENERATE-UC30-REPORT. DTSBR902 00751 DTSBR902 00752 WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR902 00753 WRITE UC30-REPORT3 FROM U30-LINE-1 AFTER 8. DTSBR902 00754 WRITE UC30-REPORT3 FROM U30-LINE-2 AFTER 1. DTSBR902 00755 WRITE UC30-REPORT3 FROM U30-LINE-3 AFTER 1. DTSBR902 00756 WRITE UC30-REPORT3 FROM U30-LINE-4 AFTER 1. DTSBR902 00757 WRITE UC30-REPORT3 FROM U30-LINE-5 AFTER 1. DTSBR902 00758 DTSBR902 00759 IF WS-RATED-88 DTSBR902 00760 WRITE UC30-REPORT3 FROM U30-LINE-8R AFTER 13 DTSBR902 00761 *RW1 DTSBR902 00762 MOVE SPACES TO U30-UI-TAX-RATE-RATED DTSBR902 00763 *RW2 DTSBR902 00764 WRITE UC30-REPORT3 FROM U30-LINE-11 AFTER 4 DTSBR902 00765 ELSE DTSBR902 00766 WRITE UC30-REPORT3 FROM U30-LINE-6 AFTER 10 DTSBR902 00767 WRITE UC30-REPORT3 FROM U30-LINE-7 AFTER 2 DTSBR902 00768 WRITE UC30-REPORT3 FROM U30-LINE-8 AFTER 1 DTSBR902 00769 WRITE UC30-REPORT3 FROM U30-LINE-9 AFTER 2 DTSBR902 00770 WRITE UC30-REPORT3 FROM U30-LINE-10 AFTER 1 DTSBR902 00771 WRITE UC30-REPORT3 FROM U30-LINE-11 AFTER 1 DTSBR902 00772 WRITE UC30-REPORT3 FROM U30-LINE-12 AFTER 2. DTSBR902 00773 DTSBR902 00774 WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR902 00775 WRITE UC30-REPORT3 FROM U30-LINE-1 AFTER 8. DTSBR902 00776 WRITE UC30-REPORT3 FROM U30-LINE-2 AFTER 1. DTSBR902 00777 WRITE UC30-REPORT3 FROM U30-LINE-3 AFTER 1. DTSBR902 00778 WRITE UC30-REPORT3 FROM U30-LINE-4 AFTER 1. DTSBR902 00779 WRITE UC30-REPORT3 FROM U30-LINE-5 AFTER 1. DTSBR902 00780 WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR902 00781 WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR902 00782 DTSBR902 00783 P4030-EXIT. DTSBR902 00784 EXIT. DTSBR902 00785 DTSBR902 00786 T1000-TERMINATE. DTSBR902 00787 DTSBR902 00788 CLOSE PRT-FILE1 PRT-FILE2 PRT-FILE3. DTSBR902 00789 DTSBR902 00790 T1000-EXIT. DTSBR902 00791 EXIT. DTSBR902 00792 DTSBR902 00793 S001-DATE. DTSBR902 00794 DTSBR902 00795 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR902 00796 DTSBR902 00797 S001-EXIT. DTSBR902 00798 EXIT. DTSBR902 00799 DTSBR902 00800 S002-DATE. DTSBR902 00801 DTSBR902 00802 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR902 00803 DTSBR902 00804 S002-EXIT. DTSBR902 00805 EXIT. DTSBR902 00806 DTSBR902 00807 S004-DATE. DTSBR902 00808 DTSBR902 00809 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR902 00810 DTSBR902 00811 S004-EXIT. DTSBR902 00812 EXIT. DTSBR902 00813 DTSBR902 00814 S008-YRQ-ALPHA. DTSBR902 00815 DTSBR902 00816 CALL 'DTSBU008' USING L008-LINK-AREA. DTSBR902 00817 DTSBR902 00818 S008-EXIT. DTSBR902 00819 EXIT. DTSBR902 00820 DTSBR902 00821 S009-UPPER-CASE-TRANSLATE. DTSBR902 00822 DTSBR902 00823 CALL 'DTSBU009' USING L009-LINK-AREA. DTSBR902 00824 DTSBR902 00825 S009-EXIT. DTSBR902 00826 EXIT. DTSBR902 00827 DTSBR902 00828 S056-RATE-DISPLAY. DTSBR902 00829 DTSBR902 00830 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR902 00831 DTSBR902 00832 S056-EXIT. DTSBR902 00833 EXIT. DTSBR902 00834 DTSBR902 00835 S071-DESLASH-NAME. DTSBR902 00836 DTSBR902 00837 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR902 00838 DTSBR902 00839 S071-EXIT. DTSBR902 00840 EXIT. DTSBR902 00841 DTSBR902 00842 S082-OP-ID-INFO. DTSBR902 00843 DTSBR902 00844 CALL 'DTSBU082' USING L082-LINK-AREA. DTSBR902 00845 DTSBR902 00846 S082-EXIT. DTSBR902 00847 EXIT. DTSBR902 00848 DTSBR902 00849 *S109-SUR-RATE. DTSBR902 00850 * DTSBR902 00851 * CALL 'DTSBU109' USING L109-LINK-AREA. DTSBR902 00852 * DTSBR902 00853 *S109-EXIT. DTSBR902 00854 EXIT. DTSBR902 00855 DTSBR902 00856 S119-AGENCY-FACTS. DTSBR902 00857 DTSBR902 00858 CALL 'DTSBU119' USING L119-LINK-AREA. DTSBR902 00859 DTSBR902 00860 S119-EXIT. DTSBR902 00861 EXIT. DTSBR902 00862 DTSBR902 00863 S143-BUILD-STRING. DTSBR902 00864 DTSBR902 00865 CALL 'DTSBU143' USING L143-LINK-AREA. DTSBR902 00866 DTSBR902 00867 S143-EXIT. DTSBR902 00868 EXIT. DTSBR902 00869 DTSBR902 00870 *S999-ABEND. DTSBR902 00871 * DTSBR902 00872 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR902 00873 * DTSBR902 00874 *S999-EXIT. DTSBR902 00875 * EXIT. DTSBR902 00876 DTSBR902