00001 IDENTIFICATION DIVISION. 03/22/06 00002 PROGRAM-ID. DTSBR112. DTSBR112 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV028 00004 DATE-WRITTEN. AUGUST 1994. DTSBR112 00005 DATE-COMPILED. DTSBR112 00006 SKIP3 DTSBR112 00007 ***** DTSBR112 00008 * DTSBR112 00009 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR112 00010 * DTSBD311 WHICH UPDATES DTSIR112 DTSBR112 00011 * DTSBR112 READS DTSIR112 RECORDS. DTSBR112 00012 * DTSBR112 00013 * FUNCTION: NOTICE OF SUBJECTIVITY (UI-47) DTSBR112 00014 * DTSBR112 00015 * DTSBR112 00016 * MODIFICATION HISTORY: DTSBR112 00017 * DTSBR112 00018 * 12-10-2001 INITIAL DEVELOPMENT . COPIED FROM DTSBR112. DTSBR112 00019 * REFERENCE RFP: HOUSEHOLD AUTHOR OF CHANGE - ZL1 DTSBR112 00020 * DTSBR112 00021 * 03-02-2006 MODIFIED FOR NEW VERSION OF BU109. DTSBR112 00022 * REFERENCE RFP: ADMIN ASSESS AUTHOR OF CHANGE - GD DTSBR112 00023 * DTSBR112 00024 * DESCRIPTION: DTSBR112 00025 * DTSBR112 00026 * THIS MODULE PRINTS A NOTICE TO EMPLOYERS TELLING THEM DTSBR112 00027 * THEY HAVE BEEN DETERMINED SUBJECT TO THE REPORTING DTSBR112 00028 * PROVISIONS OF THE MONTANA UNEMPLOYMENT INSURANCE LAW. DTSBR112 00029 * DTSBR112 00030 * DTSBR112 00031 * RECORDS READ: DTSBR112 00032 * DTSBR112 00033 * NONE. DTSBR112 00034 * DTSBR112 00035 * DTSBR112 00036 * PRINTED OUTPUTS: DTSBR112 00037 * DTSBR112 00038 * 112R1 NOTICE OF SUBJECTIVITY (UI-47) FOR QTRLY FILERS DTSBR112 00039 * NOTICE OF SUBJECTIVITY (UI-47) FOR ANNUAL FILERS DTSBR112 00040 * DTSBR112 00041 * DTSBR112 00042 * RECORDS WRITTEN: DTSBR112 00043 * DTSBR112 00044 * NONE. DTSBR112 00045 * DTSBR112 00046 * DTSBR112 00047 * MODULES CALLED: DTSBR112 00048 * DTSBR112 00049 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR112 00050 * DTSBU004 QTR EDIT/CONVERSION MODULE DTSBR112 00051 * DTSBU006 RATING YEAR PERIOD START/END MODULE DTSBR112 00052 * DTSBU056 RATE DISPLAY MODULE DTSBR112 00053 * DTSBU057 EMPLOYER DIV CODE EDIT/DESCRIPTION MODULE DTSBR112 00054 * DTSBU071 NAME EDIT/CONVERSION MODULE DTSBR112 00055 * DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE DTSBR112 00056 * DTSBU090 PARAGRAPH FORMATTING MODULE DTSBR112 00057 * DTSBU109 AFT RATE LOOKUP MODULE DTSBR112 00058 * DTSBU119 AGENCY FACTS MODULE DTSBR112 00059 * DTSBR112 00060 * DTSBR112 00061 ***** DTSBR112 00062 EJECT DTSBR112 00063 ENVIRONMENT DIVISION. DTSBR112 00064 SKIP2 DTSBR112 00065 CONFIGURATION SECTION. DTSBR112 00066 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR112 00067 SKIP1 DTSBR112 00068 INPUT-OUTPUT SECTION. DTSBR112 00069 SKIP1 DTSBR112 00070 FILE-CONTROL. DTSBR112 00071 SELECT PRT-FILE1 ASSIGN TO RPT112R1. DTSBR112 00072 SKIP3 DTSBR112 00073 DATA DIVISION. DTSBR112 00074 SKIP3 DTSBR112 00075 FILE SECTION. DTSBR112 00076 SKIP2 DTSBR112 00077 FD PRT-FILE1 DTSBR112 00078 RECORDING MODE IS F DTSBR112 00079 BLOCK CONTAINS 0 RECORDS DTSBR112 00080 LABEL RECORDS ARE OMITTED. DTSBR112 00081 01 XEROX-REPORT. DTSBR112 00082 05 FILLER PIC X(1). DTSBR112 00083 05 XEROX-RPT PIC X(132). DTSBR112 00084 DTSBR112 00085 EJECT DTSBR112 00086 WORKING-STORAGE SECTION. DTSBR112 000865 77 PAN-VALET PICTURE X(24) VALUE '028DTSBR112 03/22/06'. DTSBR112 00087 SKIP3 DTSBR112 00088 01 WRK-AREA. DTSBR112 00089 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +112.DTSBR112 00090 05 SLASH PIC X(01) VALUE '/'. DTSBR112 00091 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR112 00092 05 LAST-RATE-PERIOD-FOUND-IND PIC X(01). DTSBR112 00093 88 LAST-RATE-PERIOD-FOUND-88 VALUE 'Y'. DTSBR112 00094 05 WS-SUB PIC S9(04) COMP. DTSBR112 00095 05 WS-OP-ID-HOLD PIC X(08) VALUE SPACES. DTSBR112 00096 05 WS-LAST-NOTICE-QTR PIC S9(05) COMP-3. DTSBR112 00097 05 WS-UI-RATE-HOLD PIC S9(01)V9(04) DTSBR112 00098 COMP-3. DTSBR112 00099 05 WS-ANN-DUE-DATE PIC 9(08) VALUE ZEROS. DTSBR112 00100 05 WS-ANN-DUE-DATE-X REDEFINES WS-ANN-DUE-DATE. DTSBR112 00101 10 WS-ANN-DUE-YY PIC 9(04). DTSBR112 00102 10 WS-ANN-DUE-MM PIC 9(02). DTSBR112 00103 10 WS-ANN-DUE-DD PIC 9(02). DTSBR112 00104 DTSBR112 00105 05 WS-PROGRAM-VOICE. DTSBR112 00106 10 WS-PRGM-VOICE-AREA PIC X(03) VALUE SPACES. DTSBR112 00107 10 WS-PRGM-VOICE-1 PIC X(03) VALUE SPACES. DTSBR112 00108 10 WS-PRGM-VOICE-2 PIC X(04) VALUE SPACES. DTSBR112 00109 10 WS-PRGM-VOICE-EXT PIC X(04) VALUE SPACES. DTSBR112 00110 DTSBR112 00111 05 WS-PROGRAM-FAX. DTSBR112 00112 10 WS-PRGM-FAX-AREA PIC X(03) VALUE SPACES. DTSBR112 00113 10 WS-PRGM-FAX-1 PIC X(03) VALUE SPACES. DTSBR112 00114 10 WS-PRGM-FAX-2 PIC X(04) VALUE SPACES. DTSBR112 00115 10 WS-PRGM-FAX-EXT PIC X(04) VALUE SPACES. DTSBR112 00116 DTSBR112 00117 SKIP1 DTSBR112 00118 05 WS-AGENCY-FACTS. DTSBR112 00119 10 WS-AGY-NAMEB1-CAPS PIC X(40) VALUE SPACES. DTSBR112 00120 10 WS-AGY-NAMEB2-CAPS PIC X(40) VALUE SPACES. DTSBR112 00121 10 WS-PROGRAM-NAME-CAPS PIC X(50) VALUE SPACES. DTSBR112 00122 * 10 WS-PROGRAM-VOICE PIC X(14) VALUE SPACES. DTSBR112 00123 * 10 WS-PROGRAM-FAX PIC X(14) VALUE SPACES. DTSBR112 00124 10 WS-PROGRAM-TDD PIC X(14) VALUE SPACES. DTSBR112 00125 SKIP1 DTSBR112 00126 05 WS-IND-BASED-RATE-FOUND-IND PIC X(01). DTSBR112 00127 88 WS-IND-BASED-RATE-FOUND-88 VALUE 'Y'. DTSBR112 00128 05 WS-YOUR-INDUSTRY-CLASS-IS PIC X(31) VALUE SPACES. DTSBR112 00129 05 WS-DIV-DSCR-LINE1 PIC X(70) VALUE SPACES. DTSBR112 00130 05 WS-DIV-DSCR-LINE2 PIC X(70) VALUE SPACES. DTSBR112 00131 SKIP1 DTSBR112 00132 05 WS-RATE-PERIOD-COMPARE-FIELDS. DTSBR112 00133 10 WS-RATE-YRQ-LB-9 PIC S9(05) COMP-3. DTSBR112 00134 10 WS-RATE-YRQ-UB-9 PIC S9(05) COMP-3. DTSBR112 00135 10 WS-UI-RATE-9 PIC S9(01)V9(04) COMP-3. DTSBR112 00136 05 WS-RATE-LINE-TABLE-INIT PIC X(234) VALUE SPACES. DTSBR112 00137 05 WS-RATE-LINE-TABLE REDEFINES WS-RATE-LINE-TABLE-INIT. DTSBR112 00138 10 WS-RATE-LINE-OCCURS OCCURS 6 TIMES. DTSBR112 00139 15 WS-RATE-YRQ-LB PIC 9999/9. DTSBR112 00140 15 WS-RATE-YRQ-LB-X REDEFINES WS-RATE-YRQ-LB DTSBR112 00141 PIC X(06). DTSBR112 00142 15 WS-RATE-YRQ-DASH PIC X(01). DTSBR112 00143 15 WS-RATE-YRQ-UB PIC 9999/9. DTSBR112 00144 15 WS-RATE-YRQ-UB-X REDEFINES WS-RATE-YRQ-UB DTSBR112 00145 PIC X(06). DTSBR112 00146 15 WS-UI-RATE-AREA PIC X(12). DTSBR112 00147 15 FILLER REDEFINES WS-UI-RATE-AREA. DTSBR112 00148 20 FILLER PIC X(01). DTSBR112 00149 20 WS-UI-RATE-DISPLAY DTSBR112 00150 PIC X(07). DTSBR112 00151 20 FILLER PIC X(04). DTSBR112 00152 10 FILLER PIC X(84). DTSBR112 00153 DTSBR112 00154 01 VSCA-LINE. DTSBR112 00155 05 VSCA-DATA PIC X(133) VALUE SPACES. DTSBR112 00156 DTSBR112 00157 EJECT DTSBR112 00158 01 L001-LINK-AREA. DTSBR112 00159 ++INCLUDE DTSIL001 DTSBR112 00160 EJECT DTSBR112 00161 01 L002-LINK-AREA. DTSBR112 00162 ++INCLUDE DTSIL002 DTSBR112 00163 EJECT DTSBR112 00164 01 L004-LINK-AREA. DTSBR112 00165 ++INCLUDE DTSIL004 DTSBR112 00166 EJECT DTSBR112 00167 01 L006-LINK-AREA. DTSBR112 00168 ++INCLUDE DTSIL006 DTSBR112 00169 EJECT DTSBR112 00170 01 L056-LINK-AREA. DTSBR112 00171 ++INCLUDE DTSIL056 DTSBR112 00172 EJECT DTSBR112 00173 01 L057-LINK-AREA. DTSBR112 00174 ++INCLUDE DTSIL057 DTSBR112 00175 EJECT DTSBR112 00176 01 L071-LINK-AREA. DTSBR112 00177 ++INCLUDE DTSIL071 DTSBR112 00178 EJECT DTSBR112 00179 01 L082-LINK-AREA. DTSBR112 00180 ++INCLUDE DTSIL082 DTSBR112 00181 EJECT DTSBR112 00182 01 L090-LINK-AREA. DTSBR112 00183 ++INCLUDE DTSIL090 DTSBR112 00184 EJECT DTSBR112 00185 01 L109-LINK-AREA. DTSBR112 00186 ++INCLUDE DTSIL109 DTSBR112 00187 EJECT DTSBR112 00188 01 L119-LINK-AREA. DTSBR112 00189 ++INCLUDE DTSIL119 DTSBR112 00190 EJECT DTSBR112 00191 DTSBR112 00192 01 ROUTE-INFO-LINE12. DTSBR112 00193 05 FILLER PIC X(03) VALUE SPACES. DTSBR112 00194 05 FILLER PIC X(40) DTSBR112 00195 VALUE ALL '*'. DTSBR112 00196 05 FILLER PIC X(90) VALUE SPACES. DTSBR112 00197 01 ROUTE-INFO-LINE13. DTSBR112 00198 05 FILLER PIC X(03) VALUE SPACES. DTSBR112 00199 05 FILLER PIC X(40) DTSBR112 00200 VALUE '* ROUTE REPORT RPT112R1 TO: *'. DTSBR112 00201 05 FILLER PIC X(90) VALUE SPACES. DTSBR112 00202 01 ROUTE-INFO-LINE14. DTSBR112 00203 05 FILLER PIC X(03) VALUE SPACES. DTSBR112 00204 05 FILLER PIC X(01) DTSBR112 00205 VALUE '*'. DTSBR112 00206 05 FILLER PIC X(03) VALUE SPACES. DTSBR112 00207 05 WS-NAME-INFO PIC X(32) VALUE SPACES. DTSBR112 00208 05 FILLER PIC X(03) VALUE SPACES. DTSBR112 00209 05 FILLER PIC X(01) DTSBR112 00210 VALUE '*'. DTSBR112 00211 05 FILLER PIC X(90) VALUE SPACES. DTSBR112 00212 01 ROUTE-INFO-LINE15. DTSBR112 00213 05 FILLER PIC X(03) VALUE SPACES. DTSBR112 00214 05 FILLER PIC X(01) DTSBR112 00215 VALUE '*'. DTSBR112 00216 05 FILLER PIC X(03) VALUE SPACES. DTSBR112 00217 05 WS-UNIT-NAME-INFO PIC X(30) VALUE SPACES. DTSBR112 00218 05 FILLER PIC X(05) VALUE SPACES. DTSBR112 00219 05 FILLER PIC X(01) DTSBR112 00220 VALUE '*'. DTSBR112 00221 05 FILLER PIC X(90) VALUE SPACES. DTSBR112 00222 01 ROUTE-INFO-LINE16. DTSBR112 00223 05 FILLER PIC X(03) VALUE SPACES. DTSBR112 00224 05 FILLER PIC X(40) DTSBR112 00225 VALUE ALL '*'. DTSBR112 00226 05 FILLER PIC X(90) VALUE SPACES. DTSBR112 00227 SKIP2 DTSBR112 00228 01 REPORT-LINES. DTSBR112 00229 05 RPT-LINE-1. DTSBR112 00230 10 FILLER PIC X(13) VALUE SPACES. DTSBR112 00231 10 RPT-MAIL-DATE PIC X(18). DTSBR112 00232 10 FILLER PIC X(58) VALUE SPACES. DTSBR112 00233 SKIP3 DTSBR112 00234 05 RPT-LINE-2. DTSBR112 00235 10 FILLER PIC X(13) VALUE SPACES. DTSBR112 00236 10 FILLER PIC X(13) VALUE DTSBR112 00237 'ACCOUNT NO: '. DTSBR112 00238 10 RPT-EMP-NO PIC 999B999. DTSBR112 00239 10 FILLER PIC X(35) VALUE SPACES. DTSBR112 00240 10 FILLER PIC X(48) VALUE SPACES. DTSBR112 00241 05 RPT-LINE-3. DTSBR112 00242 10 FILLER PIC X(13) VALUE SPACES. DTSBR112 00243 10 RPT-ADDR1 PIC X(40). DTSBR112 00244 10 FILLER PIC X(30) VALUE SPACES. DTSBR112 00245 05 RPT-LINE-4. DTSBR112 00246 10 FILLER PIC X(13) VALUE SPACES. DTSBR112 00247 10 RPT-ADDR2 PIC X(40). DTSBR112 00248 10 FILLER PIC X(30) VALUE SPACES. DTSBR112 00249 05 RPT-LINE-5. DTSBR112 00250 10 FILLER PIC X(13) VALUE SPACES. DTSBR112 00251 10 RPT-ADDR3 PIC X(40). DTSBR112 00252 10 FILLER PIC X(30) VALUE SPACES. DTSBR112 00253 05 RPT-LINE-6. DTSBR112 00254 10 FILLER PIC X(13) VALUE SPACES. DTSBR112 00255 10 RPT-ADDR4 PIC X(40). DTSBR112 00256 10 FILLER PIC X(30) VALUE SPACES. DTSBR112 00257 05 RPT-LINE-7. DTSBR112 00258 10 FILLER PIC X(13) VALUE SPACES. DTSBR112 00259 10 RPT-ADDR5 PIC X(40). DTSBR112 00260 10 FILLER PIC X(30) VALUE SPACES. DTSBR112 00261 05 RPT-LINE-7A. DTSBR112 00262 10 FILLER PIC X(13) VALUE SPACES. DTSBR112 00263 10 RPT-RATE PIC X(40) VALUE DTSBR112 00264 'YOUR REGISTRATION RATE IS:'. DTSBR112 00265 05 RPT-LINE-7B. DTSBR112 00266 10 FILLER PIC X(13) VALUE SPACES. DTSBR112 00267 10 RPT-RATE PIC X(40) VALUE DTSBR112 00268 'YOUR REGISTRATION RATES ARE:'. DTSBR112 00269 05 RPT-LINE-8. DTSBR112 00270 10 FILLER PIC X(40) VALUE SPACES. DTSBR112 00271 10 RPT-RATE-YRQ-LB-X-1 PIC X(06). DTSBR112 00272 10 FILLER PIC X(01) VALUE SPACE. DTSBR112 00273 10 RPT-RATE-YRQ-DASH-1 PIC X(01). DTSBR112 00274 10 FILLER PIC X(01) VALUE SPACE. DTSBR112 00275 10 RPT-RATE-YRQ-UB-X-1 PIC X(06). DTSBR112 00276 10 FILLER PIC X(20) VALUE SPACES. DTSBR112 00277 10 RPT-UI-RATE-AREA-1 PIC X(12). DTSBR112 00278 05 RPT-LINE-9. DTSBR112 00279 10 FILLER PIC X(40) VALUE SPACES. DTSBR112 00280 10 RPT-RATE-YRQ-LB-X-2 PIC X(06). DTSBR112 00281 10 FILLER PIC X(01) VALUE SPACE. DTSBR112 00282 10 RPT-RATE-YRQ-DASH-2 PIC X(01). DTSBR112 00283 10 FILLER PIC X(01) VALUE SPACE. DTSBR112 00284 10 RPT-RATE-YRQ-UB-X-2 PIC X(06). DTSBR112 00285 10 FILLER PIC X(20) VALUE SPACES. DTSBR112 00286 10 RPT-UI-RATE-AREA-2 PIC X(12). DTSBR112 00287 05 RPT-LINE-10. DTSBR112 00288 10 FILLER PIC X(40) VALUE SPACES. DTSBR112 00289 10 RPT-RATE-YRQ-LB-X-3 PIC X(06). DTSBR112 00290 10 FILLER PIC X(01) VALUE SPACE. DTSBR112 00291 10 RPT-RATE-YRQ-DASH-3 PIC X(01). DTSBR112 00292 10 FILLER PIC X(01) VALUE SPACE. DTSBR112 00293 10 RPT-RATE-YRQ-UB-X-3 PIC X(06). DTSBR112 00294 10 FILLER PIC X(20) VALUE SPACES. DTSBR112 00295 10 RPT-UI-RATE-AREA-3 PIC X(12). DTSBR112 00296 05 RPT-LINE-11. DTSBR112 00297 10 FILLER PIC X(40) VALUE SPACES. DTSBR112 00298 10 RPT-RATE-YRQ-LB-X-4 PIC X(06). DTSBR112 00299 10 FILLER PIC X(01) VALUE SPACE. DTSBR112 00300 10 RPT-RATE-YRQ-DASH-4 PIC X(01). DTSBR112 00301 10 FILLER PIC X(01) VALUE SPACE. DTSBR112 00302 10 RPT-RATE-YRQ-UB-X-4 PIC X(06). DTSBR112 00303 10 FILLER PIC X(20) VALUE SPACES. DTSBR112 00304 10 RPT-UI-RATE-AREA-4 PIC X(12). DTSBR112 00305 05 RPT-LINE-12. DTSBR112 00306 10 FILLER PIC X(40) VALUE SPACES. DTSBR112 00307 10 RPT-RATE-YRQ-LB-X-5 PIC X(06). DTSBR112 00308 10 FILLER PIC X(01) VALUE SPACE. DTSBR112 00309 10 RPT-RATE-YRQ-DASH-5 PIC X(01). DTSBR112 00310 10 FILLER PIC X(01) VALUE SPACE. DTSBR112 00311 10 RPT-RATE-YRQ-UB-X-5 PIC X(06). DTSBR112 00312 10 FILLER PIC X(20) VALUE SPACES. DTSBR112 00313 10 RPT-UI-RATE-AREA-5 PIC X(12). DTSBR112 00314 05 RPT-LINE-13. DTSBR112 00315 10 FILLER PIC X(40) VALUE SPACES. DTSBR112 00316 10 RPT-RATE-YRQ-LB-X-6 PIC X(06). DTSBR112 00317 10 FILLER PIC X(01) VALUE SPACE. DTSBR112 00318 10 RPT-RATE-YRQ-DASH-6 PIC X(01). DTSBR112 00319 10 FILLER PIC X(01) VALUE SPACE. DTSBR112 00320 10 RPT-RATE-YRQ-UB-X-6 PIC X(06). DTSBR112 00321 10 FILLER PIC X(20) VALUE SPACES. DTSBR112 00322 10 RPT-UI-RATE-AREA-6 PIC X(12). DTSBR112 00323 05 RPT-LINE-14. DTSBR112 00324 10 FILLER PIC X(41) VALUE SPACES. DTSBR112 00325 10 RPT-ANN-CAL-YEAR PIC 9(04). DTSBR112 00326 10 FILLER PIC X(11). DTSBR112 00327 10 RPT-ANN-JAN-DATE PIC 9(04). DTSBR112 00328 10 FILLER PIC X(01). DTSBR112 00329 05 RPT-LINE-15. DTSBR112 00330 10 FILLER PIC X(22) VALUE SPACES. DTSBR112 00331 10 RPT-ANN-DUE-MM PIC X(02). DTSBR112 00332 10 RPT-SLASH1 PIC X(01) VALUE SPACES. DTSBR112 00333 10 RPT-ANN-DUE-DD PIC X(02). DTSBR112 00334 10 RPT-SLASH2 PIC X(01) VALUE SPACES. DTSBR112 00335 10 RPT-ANN-DUE-YY PIC X(04). DTSBR112 00336 10 FILLER PIC X(12). DTSBR112 00337 ++INCLUDE DTSXL112 DTSBR112 00338 EJECT DTSBR112 00339 LINKAGE SECTION. DTSBR112 00340 SKIP3 DTSBR112 00341 01 LRCM-LINK-AREA. DTSBR112 00342 ++INCLUDE DTSILRCM DTSBR112 00343 EJECT DTSBR112 00344 01 R112-REC. DTSBR112 00345 ++INCLUDE DTSIR112 DTSBR112 00346 EJECT DTSBR112 00347 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR112 00348 R112-REC. DTSBR112 00349 SKIP2 DTSBR112 00350 IF FIRST-TIME-IND = 'Y' DTSBR112 00351 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR112 00352 MOVE 'N' TO FIRST-TIME-IND. DTSBR112 00353 SKIP1 DTSBR112 00354 IF LRCM-EOR-88 DTSBR112 00355 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR112 00356 ELSE DTSBR112 00357 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR112 00358 SKIP2 DTSBR112 00359 GOBACK. DTSBR112 00360 EJECT DTSBR112 00361 I1000-INITIATE. DTSBR112 00362 SKIP1 DTSBR112 00363 OPEN OUTPUT PRT-FILE1. DTSBR112 00364 MOVE SPACES TO XEROX-REPORT. DTSBR112 00365 MOVE SPACES TO WS-OP-ID-HOLD. DTSBR112 00366 MOVE ZEROES TO WS-RATE-YRQ-UB-9. DTSBR112 00367 SKIP1 DTSBR112 00368 SET L119-REQ-CAPS-88 TO TRUE. DTSBR112 00369 SET L119-REQ-NO-UNIT-88 TO TRUE. DTSBR112 00370 PERFORM S119-AGENCY-FACTS THRU S119-EXIT. DTSBR112 00371 MOVE L119-UC-OFFICE-VOICE TO WS-PROGRAM-VOICE. DTSBR112 00372 MOVE L119-UC-OFFICE-FAX TO WS-PROGRAM-FAX. DTSBR112 00373 SKIP1 DTSBR112 00374 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE DTSBR112 00375 AFTER ADVANCING TOP-OF-PAGE. DTSBR112 00376 I1000-EXIT. DTSBR112 00377 EXIT. DTSBR112 00378 EJECT DTSBR112 00379 P1000-PROCESS. DTSBR112 00380 SKIP1 DTSBR112 00381 IF R112-OP-ID = WS-OP-ID-HOLD DTSBR112 00382 NEXT SENTENCE DTSBR112 00383 ELSE DTSBR112 00384 MOVE R112-OP-ID TO WS-OP-ID-HOLD DTSBR112 00385 L082-OP-ID DTSBR112 00386 PERFORM S082-OP-ID-INFO THRU S082-EXIT DTSBR112 00387 MOVE L082-NAME TO L071-NAM DTSBR112 00388 MOVE 2 TO L071-NAME-FORMAT DTSBR112 00389 PERFORM S071-DESLASH-NAME THRU S071-EXIT DTSBR112 00390 DTSBR112 00391 MOVE L071-NAM TO WS-NAME-INFO DTSBR112 00392 MOVE L082-UNIT-NAME TO WS-UNIT-NAME-INFO DTSBR112 00393 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR112 00394 AFTER ADVANCING TOP-OF-PAGE DTSBR112 00395 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 9 DTSBR112 00396 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE12 DTSBR112 00397 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE13 DTSBR112 00398 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE14 DTSBR112 00399 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE15 DTSBR112 00400 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE16. DTSBR112 00401 DTSBR112 00402 SKIP1 DTSBR112 00403 MOVE R112-RUN-DATE TO L001-FED-8-DATE-9. DTSBR112 00404 SET L001-FROM-FED-8 TO TRUE. DTSBR112 00405 PERFORM S001-DATE THRU S001-EXIT. DTSBR112 00406 SKIP1 DTSBR112 00407 *****MOVE R112-RUN-DATE TO L004-DATE. DTSBR112 00408 *****SET L004-FROM-DATE TO TRUE. DTSBR112 00409 *****PERFORM S004-CONVERT-QTR THRU S004-EXIT. DTSBR112 00410 *****MOVE L004-QTR-5-9 TO L006-YRQ. DTSBR112 00411 *****SET L006-FROM-QTR TO TRUE. DTSBR112 00412 *****MOVE R112-EMP-CLASS TO L006-EMP-CLASS. DTSBR112 00413 *****PERFORM S006-RATING-PERIOD THRU S006-EXIT. DTSBR112 00414 *****IF R112-LAST-LIAB-YRQ < L006-RTE-YR-END-YRQ DTSBR112 00415 *********MOVE R112-LAST-LIAB-YRQ TO WS-LAST-NOTICE-QTR DTSBR112 00416 *****ELSE DTSBR112 00417 *********MOVE L006-RTE-YR-END-YRQ TO WS-LAST-NOTICE-QTR. DTSBR112 00418 SKIP1 DTSBR112 00419 IF R112-RATE-CNT > +0 DTSBR112 00420 MOVE R112-RATE-END-YRQ (R112-RATE-CNT) DTSBR112 00421 TO WS-LAST-NOTICE-QTR DTSBR112 00422 ELSE DTSBR112 00423 MOVE R112-LAST-RATE-END-YRQ TO WS-LAST-NOTICE-QTR. DTSBR112 00424 DTSBR112 00425 IF R112-LAST-LIAB-YRQ < WS-LAST-NOTICE-QTR DTSBR112 00426 MOVE R112-LAST-LIAB-YRQ TO WS-LAST-NOTICE-QTR. DTSBR112 00427 SKIP1 DTSBR112 00428 MOVE SPACES TO WS-RATE-LINE-TABLE-INIT DTSBR112 00429 WS-YOUR-INDUSTRY-CLASS-IS DTSBR112 00430 WS-DIV-DSCR-LINE1 DTSBR112 00431 WS-DIV-DSCR-LINE2. DTSBR112 00432 MOVE 'N' TO WS-IND-BASED-RATE-FOUND-IND. DTSBR112 00433 PERFORM P2000-SET-RATE-LINE-TABLE THRU P2000-EXIT. DTSBR112 00434 SKIP1 DTSBR112 00435 IF WS-IND-BASED-RATE-FOUND-88 DTSBR112 00436 PERFORM P1050-SET-DESCRIPTION THRU P1050-EXIT. DTSBR112 00437 SKIP1 DTSBR112 00438 PERFORM P3000-PRINT-NOTICE-PAGE THRU P3000-EXIT. DTSBR112 00439 SKIP2 DTSBR112 00440 P1000-EXIT. DTSBR112 00441 EXIT. DTSBR112 00442 EJECT DTSBR112 00443 P1050-SET-DESCRIPTION. DTSBR112 00444 SKIP1 DTSBR112 00445 * MOVE R112-SIC-DIVISION TO L057-DIVISION-CODE. DTSBR112 00446 * PERFORM S057-DIV-DESCRIPTION THRU S057-EXIT. DTSBR112 00447 * MOVE 'YOUR INDUSTRY CLASSIFICATION IS' DTSBR112 00448 * TO L090-PHRASE-TABLE (1). DTSBR112 00449 * MOVE L057-DESCRIPTION1 DTSBR112 00450 * TO L090-PHRASE-TABLE (2). DTSBR112 00451 * IF L057-DESCRIPTION2 = SPACES DTSBR112 00452 * MOVE '.' TO L090-PHRASE-TABLE (3) DTSBR112 00453 * MOVE +3 TO L090-PHRASE-CNT DTSBR112 00454 * ELSE DTSBR112 00455 * MOVE L057-DESCRIPTION2 DTSBR112 00456 * TO L090-PHRASE-TABLE (3) DTSBR112 00457 * MOVE '.' TO L090-PHRASE-TABLE (4) DTSBR112 00458 * MOVE +4 TO L090-PHRASE-CNT. DTSBR112 00459 MOVE +69 TO L090-DESIRED-LINE-LIMIT. DTSBR112 00460 P1050-EXIT. DTSBR112 00461 EXIT. DTSBR112 00462 EJECT DTSBR112 00463 P2000-SET-RATE-LINE-TABLE. DTSBR112 00464 MOVE SPACES TO WS-RATE-LINE-TABLE-INIT. DTSBR112 00465 SKIP1 DTSBR112 00466 MOVE R112-FIRST-LIAB-YRQ TO L004-QTR-5-9. DTSBR112 00467 SET L004-FROM-5 TO TRUE. DTSBR112 00468 PERFORM S004-CONVERT-QTR THRU S004-EXIT. DTSBR112 00469 MOVE R112-EMP-CLASS TO L109-EMP-CLASS. DTSBR112 00470 MOVE L004-QTR-5-9 TO L109-YRQ. DTSBR112 00471 DTSBR112 00472 IF R112-RPT-TYPE = 'A' DTSBR112 00473 MOVE L004-ANN-DEFAULT-DUE-DATE TO WS-ANN-DUE-DATE DTSBR112 00474 MOVE SLASH TO RPT-SLASH1 RPT-SLASH2 DTSBR112 00475 MOVE WS-ANN-DUE-YY TO RPT-ANN-DUE-YY DTSBR112 00476 MOVE WS-ANN-DUE-MM TO RPT-ANN-DUE-MM DTSBR112 00477 MOVE WS-ANN-DUE-DD TO RPT-ANN-DUE-DD DTSBR112 00478 MOVE L004-SLASH-5-YR TO RPT-ANN-CAL-YEAR DTSBR112 00479 ADD 1 TO L004-SLASH-5-YR GIVING RPT-ANN-JAN-DATE. DTSBR112 00480 DTSBR112 00481 IF R112-CLASS-RATED-88 DTSBR112 00482 MOVE -9.9999 TO WS-UI-RATE-HOLD DTSBR112 00483 PERFORM P2015-FIND-UI-RATE THRU P2015-EXIT DTSBR112 00484 VARYING R112-RATE-IDX FROM +1 BY +1 DTSBR112 00485 UNTIL R112-RATE-IDX > R112-RATE-CNT. DTSBR112 00486 MOVE +0 TO WS-SUB. DTSBR112 00487 MOVE 'N' TO LAST-RATE-PERIOD-FOUND-IND. DTSBR112 00488 PERFORM P2030-INITIAL-COMPARE-FIELDS THRU P2030-EXIT. DTSBR112 00489 PERFORM P2010-RATE-LOOP THRU P2010-EXIT DTSBR112 00490 UNTIL LAST-RATE-PERIOD-FOUND-88. DTSBR112 00491 SKIP2 DTSBR112 00492 P2000-EXIT. DTSBR112 00493 EXIT. DTSBR112 00494 EJECT DTSBR112 00495 P2010-RATE-LOOP. DTSBR112 00496 SKIP1 DTSBR112 00497 ADD +1 TO L004-ABS-QTR. DTSBR112 00498 SET L004-FROM-ABS TO TRUE. DTSBR112 00499 PERFORM S004-CONVERT-QTR THRU S004-EXIT. DTSBR112 00500 MOVE R112-EMP-CLASS TO L109-EMP-CLASS. DTSBR112 00501 MOVE L004-QTR-5-9 TO L109-YRQ. DTSBR112 00502 IF R112-CLASS-RATED-88 DTSBR112 00503 MOVE -9.9999 TO WS-UI-RATE-HOLD DTSBR112 00504 PERFORM P2015-FIND-UI-RATE THRU P2015-EXIT DTSBR112 00505 VARYING R112-RATE-IDX FROM +1 BY +1 DTSBR112 00506 UNTIL R112-RATE-IDX > R112-RATE-CNT. DTSBR112 00507 IF L004-QTR-5-9 > WS-RATE-YRQ-UB-9 DTSBR112 00508 PERFORM P2020-SET-DISPLAY-LINE THRU P2020-EXIT DTSBR112 00509 PERFORM P2030-INITIAL-COMPARE-FIELDS THRU P2030-EXIT DTSBR112 00510 GO TO P2010-EXIT. DTSBR112 00511 SKIP1 DTSBR112 00512 IF ((R112-CLASS-RATED-88) DTSBR112 00513 AND DTSBR112 00514 (WS-UI-RATE-HOLD NOT = WS-UI-RATE-9)) DTSBR112 00515 SUBTRACT +1 FROM L004-ABS-QTR DTSBR112 00516 SET L004-FROM-ABS TO TRUE DTSBR112 00517 PERFORM S004-CONVERT-QTR THRU S004-EXIT DTSBR112 00518 MOVE L004-QTR-5-9 TO WS-RATE-YRQ-UB-9 DTSBR112 00519 PERFORM P2020-SET-DISPLAY-LINE THRU P2020-EXIT DTSBR112 00520 ADD +1 TO L004-ABS-QTR DTSBR112 00521 SET L004-FROM-ABS TO TRUE DTSBR112 00522 PERFORM S004-CONVERT-QTR THRU S004-EXIT DTSBR112 00523 PERFORM P2030-INITIAL-COMPARE-FIELDS THRU P2030-EXIT DTSBR112 00524 GO TO P2010-EXIT. DTSBR112 00525 SKIP2 DTSBR112 00526 P2010-EXIT. DTSBR112 00527 EXIT. DTSBR112 00528 EJECT DTSBR112 00529 P2015-FIND-UI-RATE. DTSBR112 00530 SKIP1 DTSBR112 00531 IF (R112-RATE-EFF-YRQ (R112-RATE-IDX) <= L004-QTR-5-9) DTSBR112 00532 AND DTSBR112 00533 (R112-RATE-END-YRQ (R112-RATE-IDX) >= L004-QTR-5-9) DTSBR112 00534 MOVE R112-UI-RATE (R112-RATE-IDX) TO WS-UI-RATE-HOLD. DTSBR112 00535 SKIP2 DTSBR112 00536 P2015-EXIT. DTSBR112 00537 EXIT. DTSBR112 00538 EJECT DTSBR112 00539 P2020-SET-DISPLAY-LINE. DTSBR112 00540 SKIP1 DTSBR112 00541 MOVE WS-RATE-YRQ-LB-9 TO WS-RATE-YRQ-LB (WS-SUB). DTSBR112 00542 MOVE '-' TO WS-RATE-YRQ-DASH (WS-SUB). DTSBR112 00543 MOVE WS-RATE-YRQ-UB-9 TO WS-RATE-YRQ-UB (WS-SUB). DTSBR112 00544 SKIP1 DTSBR112 00545 IF R112-CLASS-RATED-88 DTSBR112 00546 SET L056-DISP3-RIGHT-88 TO TRUE DTSBR112 00547 ELSE DTSBR112 00548 SET L056-DISP4-RIGHT-88 TO TRUE. DTSBR112 00549 SKIP1 DTSBR112 00550 IF R112-CLASS-RATED-88 DTSBR112 00551 IF WS-UI-RATE-9 = -9.9999 DTSBR112 00552 MOVE 'NOT COMPUTED' TO WS-UI-RATE-AREA (WS-SUB) DTSBR112 00553 ELSE DTSBR112 00554 MOVE SPACES TO WS-UI-RATE-AREA (WS-SUB) DTSBR112 00555 MOVE WS-UI-RATE-9 TO L056-RATE DTSBR112 00556 IF R112-CLASS-RATED-88 DTSBR112 00557 SET L056-DISP3-RIGHT-88 TO TRUE DTSBR112 00558 ELSE DTSBR112 00559 SET L056-DISP4-RIGHT-88 TO TRUE DTSBR112 00560 END-IF DTSBR112 00561 PERFORM S056-RATE-DISPLAY THRU S056-EXIT DTSBR112 00562 MOVE L056-DISP-RATE TO WS-UI-RATE-DISPLAY (WS-SUB) DTSBR112 00563 IF R112-CLASS-RATED-88 DTSBR112 00564 SET L056-DISP3-RIGHT-88 TO TRUE DTSBR112 00565 ELSE DTSBR112 00566 SET L056-DISP4-RIGHT-88 TO TRUE DTSBR112 00567 END-IF. DTSBR112 00568 SKIP2 DTSBR112 00569 P2020-EXIT. DTSBR112 00570 EXIT. DTSBR112 00571 EJECT DTSBR112 00572 P2030-INITIAL-COMPARE-FIELDS. DTSBR112 00573 SKIP1 DTSBR112 00574 IF L004-QTR-5-9 > WS-LAST-NOTICE-QTR DTSBR112 00575 SET LAST-RATE-PERIOD-FOUND-88 TO TRUE DTSBR112 00576 GO TO P2030-EXIT. DTSBR112 00577 SKIP1 DTSBR112 00578 ADD +1 TO WS-SUB. DTSBR112 00579 IF WS-SUB > +6 DTSBR112 00580 PERFORM DTSBR112 00581 VARYING WS-SUB FROM +2 BY +1 UNTIL WS-SUB > +6 DTSBR112 00582 MOVE WS-RATE-LINE-OCCURS (WS-SUB) DTSBR112 00583 TO WS-RATE-LINE-OCCURS (WS-SUB - 1) DTSBR112 00584 END-PERFORM DTSBR112 00585 MOVE +6 TO WS-SUB. DTSBR112 00586 SKIP1 DTSBR112 00587 MOVE L004-QTR-5-9 TO WS-RATE-YRQ-LB-9 DTSBR112 00588 L006-YRQ. DTSBR112 00589 SET L006-FROM-QTR TO TRUE. DTSBR112 00590 * MOVE R112-EMP-CLASS TO L006-EMP-CLASS. DTSBR112 00591 PERFORM S006-RATING-PERIOD THRU S006-EXIT. DTSBR112 00592 IF L006-RTE-YR-END-YRQ < WS-LAST-NOTICE-QTR DTSBR112 00593 MOVE L006-RTE-YR-END-YRQ TO WS-RATE-YRQ-UB-9 DTSBR112 00594 ELSE DTSBR112 00595 MOVE WS-LAST-NOTICE-QTR TO WS-RATE-YRQ-UB-9. DTSBR112 00596 SKIP1 DTSBR112 00597 IF R112-CLASS-RATED-88 DTSBR112 00598 MOVE WS-UI-RATE-HOLD TO WS-UI-RATE-9. DTSBR112 00599 SKIP2 DTSBR112 00600 P2030-EXIT. DTSBR112 00601 EXIT. DTSBR112 00602 EJECT DTSBR112 00603 P3000-PRINT-NOTICE-PAGE. DTSBR112 00604 IF R112-RPT-TYPE = 'A' DTSBR112 00605 MOVE 'FORMS=T112R2,''' TO XEROX-FORMS DTSBR112 00606 ELSE DTSBR112 00607 MOVE 'FORMS=T112R1,''' TO XEROX-FORMS. DTSBR112 00608 DTSBR112 00609 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE DTSBR112 00610 AFTER ADVANCING TOP-OF-PAGE. DTSBR112 00611 DTSBR112 00612 * MOVE WS-PRGM-VOICE-1 TO WS-PROGRAM-VOICE-ONE. DTSBR112 00613 * MOVE WS-PRGM-VOICE-2 TO WS-PROGRAM-VOICE-TWO. DTSBR112 00614 * MOVE WS-PRGM-FAX-1 TO WS-PROGRAM-FAX-ONE. DTSBR112 00615 * MOVE WS-PRGM-FAX-2 TO WS-PROGRAM-FAX-TWO. DTSBR112 00616 MOVE R112-RUN-DATE TO L002-DATE. DTSBR112 00617 SET L002-MIXED-CASE TO TRUE. DTSBR112 00618 PERFORM S002-ALPHA-DATE THRU S002-EXIT. DTSBR112 00619 DTSBR112 00620 MOVE L002-LONG-TEXT-AREA TO RPT-MAIL-DATE. DTSBR112 00621 MOVE R112-EMP-NO TO RPT-EMP-NO. DTSBR112 00622 MOVE R112-FMT-LINE (1) TO RPT-ADDR1. DTSBR112 00623 MOVE R112-FMT-LINE (2) TO RPT-ADDR2. DTSBR112 00624 MOVE R112-FMT-LINE (3) TO RPT-ADDR3. DTSBR112 00625 MOVE R112-FMT-LINE (4) TO RPT-ADDR4. DTSBR112 00626 MOVE R112-FMT-LINE (5) TO RPT-ADDR5. DTSBR112 00627 PERFORM P4000-YRQ-RATE-MOVING THRU P4000-EXIT. DTSBR112 00628 DTSBR112 00629 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR112 00630 AFTER ADVANCING 9 LINES. DTSBR112 00631 WRITE XEROX-REPORT FROM RPT-LINE-1 AFTER ADVANCING 1 LINE. DTSBR112 00632 WRITE XEROX-REPORT FROM RPT-LINE-3 AFTER ADVANCING 1 LINE. DTSBR112 00633 WRITE XEROX-REPORT FROM RPT-LINE-4 AFTER ADVANCING 1 LINE. DTSBR112 00634 WRITE XEROX-REPORT FROM RPT-LINE-5 AFTER ADVANCING 1 LINE. DTSBR112 00635 WRITE XEROX-REPORT FROM RPT-LINE-6 AFTER ADVANCING 1 LINE. DTSBR112 00636 WRITE XEROX-REPORT FROM RPT-LINE-7 AFTER ADVANCING 1 LINE. DTSBR112 00637 WRITE XEROX-REPORT FROM RPT-LINE-2 AFTER ADVANCING 2 LINE. DTSBR112 00638 DTSBR112 00639 IF R112-RATE-CNT = 1 DTSBR112 00640 IF R112-RPT-TYPE = 'A' DTSBR112 00641 WRITE XEROX-REPORT FROM RPT-LINE-7A DTSBR112 00642 AFTER ADVANCING 11 LINES DTSBR112 00643 ELSE DTSBR112 00644 WRITE XEROX-REPORT FROM RPT-LINE-7A DTSBR112 00645 AFTER ADVANCING 09 LINES DTSBR112 00646 ELSE DTSBR112 00647 IF R112-RPT-TYPE = 'A' DTSBR112 00648 WRITE XEROX-REPORT FROM RPT-LINE-7B DTSBR112 00649 AFTER ADVANCING 11 LINES DTSBR112 00650 ELSE DTSBR112 00651 WRITE XEROX-REPORT FROM RPT-LINE-7B DTSBR112 00652 AFTER ADVANCING 09 LINES. DTSBR112 00653 DTSBR112 00654 WRITE XEROX-REPORT FROM RPT-LINE-8 AFTER ADVANCING 4 LINES.DTSBR112 00655 WRITE XEROX-REPORT FROM RPT-LINE-9 AFTER ADVANCING 1 LINE. DTSBR112 00656 WRITE XEROX-REPORT FROM RPT-LINE-10 AFTER ADVANCING 1 LINE. DTSBR112 00657 WRITE XEROX-REPORT FROM RPT-LINE-11 AFTER ADVANCING 1 LINE. DTSBR112 00658 WRITE XEROX-REPORT FROM RPT-LINE-12 AFTER ADVANCING 1 LINE. DTSBR112 00659 WRITE XEROX-REPORT FROM RPT-LINE-13 AFTER ADVANCING 1 LINE. DTSBR112 00660 DTSBR112 00661 * IF R112-RPT-TYPE = 'A' DTSBR112 00662 * WRITE XEROX-REPORT FROM RPT-LINE-14 AFTER DTSBR112 00663 * ADVANCING 08 LINE DTSBR112 00664 * WRITE XEROX-REPORT FROM RPT-LINE-15 AFTER DTSBR112 00665 * ADVANCING 2 LINE. DTSBR112 00666 DTSBR112 00667 P3000-EXIT. DTSBR112 00668 EXIT. DTSBR112 00669 DTSBR112 00670 P4000-YRQ-RATE-MOVING. DTSBR112 00671 MOVE WS-RATE-YRQ-LB-X (1) TO RPT-RATE-YRQ-LB-X-1. DTSBR112 00672 MOVE WS-RATE-YRQ-DASH (1) TO RPT-RATE-YRQ-DASH-1. DTSBR112 00673 MOVE WS-RATE-YRQ-UB-X (1) TO RPT-RATE-YRQ-UB-X-1. DTSBR112 00674 MOVE WS-UI-RATE-AREA (1) TO RPT-UI-RATE-AREA-1. DTSBR112 00675 DTSBR112 00676 MOVE WS-RATE-YRQ-LB-X (2) TO RPT-RATE-YRQ-LB-X-2. DTSBR112 00677 MOVE WS-RATE-YRQ-DASH (2) TO RPT-RATE-YRQ-DASH-2. DTSBR112 00678 MOVE WS-RATE-YRQ-UB-X (2) TO RPT-RATE-YRQ-UB-X-2. DTSBR112 00679 MOVE WS-UI-RATE-AREA (2) TO RPT-UI-RATE-AREA-2. DTSBR112 00680 DTSBR112 00681 MOVE WS-RATE-YRQ-LB-X (3) TO RPT-RATE-YRQ-LB-X-3. DTSBR112 00682 MOVE WS-RATE-YRQ-DASH (3) TO RPT-RATE-YRQ-DASH-3. DTSBR112 00683 MOVE WS-RATE-YRQ-UB-X (3) TO RPT-RATE-YRQ-UB-X-3. DTSBR112 00684 MOVE WS-UI-RATE-AREA (3) TO RPT-UI-RATE-AREA-3. DTSBR112 00685 DTSBR112 00686 MOVE WS-RATE-YRQ-LB-X (4) TO RPT-RATE-YRQ-LB-X-4. DTSBR112 00687 MOVE WS-RATE-YRQ-DASH (4) TO RPT-RATE-YRQ-DASH-4. DTSBR112 00688 MOVE WS-RATE-YRQ-UB-X (4) TO RPT-RATE-YRQ-UB-X-4. DTSBR112 00689 MOVE WS-UI-RATE-AREA (4) TO RPT-UI-RATE-AREA-4. DTSBR112 00690 DTSBR112 00691 MOVE WS-RATE-YRQ-LB-X (5) TO RPT-RATE-YRQ-LB-X-5. DTSBR112 00692 MOVE WS-RATE-YRQ-DASH (5) TO RPT-RATE-YRQ-DASH-5. DTSBR112 00693 MOVE WS-RATE-YRQ-UB-X (5) TO RPT-RATE-YRQ-UB-X-5. DTSBR112 00694 MOVE WS-UI-RATE-AREA (5) TO RPT-UI-RATE-AREA-5. DTSBR112 00695 DTSBR112 00696 MOVE WS-RATE-YRQ-LB-X (6) TO RPT-RATE-YRQ-LB-X-6. DTSBR112 00697 MOVE WS-RATE-YRQ-DASH (6) TO RPT-RATE-YRQ-DASH-6. DTSBR112 00698 MOVE WS-RATE-YRQ-UB-X (6) TO RPT-RATE-YRQ-UB-X-6. DTSBR112 00699 MOVE WS-UI-RATE-AREA (6) TO RPT-UI-RATE-AREA-6. DTSBR112 00700 DTSBR112 00701 P4000-EXIT. DTSBR112 00702 EXIT. DTSBR112 00703 DTSBR112 00704 T1000-TERMINATE. DTSBR112 00705 SKIP1 DTSBR112 00706 CLOSE PRT-FILE1. DTSBR112 00707 SKIP2. DTSBR112 00708 T1000-EXIT. DTSBR112 00709 EXIT. DTSBR112 00710 EJECT DTSBR112 00711 S001-DATE. DTSBR112 00712 SKIP1 DTSBR112 00713 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR112 00714 SKIP2 DTSBR112 00715 S001-EXIT. DTSBR112 00716 EXIT. DTSBR112 00717 S002-ALPHA-DATE. DTSBR112 00718 SKIP1 DTSBR112 00719 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR112 00720 SKIP2 DTSBR112 00721 S002-EXIT. DTSBR112 00722 EXIT. DTSBR112 00723 SKIP3 DTSBR112 00724 S004-CONVERT-QTR. DTSBR112 00725 SKIP1 DTSBR112 00726 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR112 00727 SKIP2 DTSBR112 00728 S004-EXIT. DTSBR112 00729 EXIT. DTSBR112 00730 SKIP3 DTSBR112 00731 S006-RATING-PERIOD. DTSBR112 00732 SKIP1 DTSBR112 00733 CALL 'DTSBU006' USING L006-LINK-AREA. DTSBR112 00734 SKIP2 DTSBR112 00735 S006-EXIT. DTSBR112 00736 EXIT. DTSBR112 00737 SKIP3 DTSBR112 00738 S056-RATE-DISPLAY. DTSBR112 00739 SKIP1 DTSBR112 00740 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR112 00741 SKIP2 DTSBR112 00742 S056-EXIT. DTSBR112 00743 EXIT. DTSBR112 00744 SKIP3 DTSBR112 00745 S057-DIV-DESCRIPTION. DTSBR112 00746 SKIP1 DTSBR112 00747 CALL 'DTSBU057' USING L057-LINK-AREA. DTSBR112 00748 SKIP2 DTSBR112 00749 S057-EXIT. DTSBR112 00750 EXIT. DTSBR112 00751 SKIP3 DTSBR112 00752 S071-DESLASH-NAME. DTSBR112 00753 SKIP1 DTSBR112 00754 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR112 00755 SKIP2 DTSBR112 00756 S071-EXIT. DTSBR112 00757 EXIT. DTSBR112 00758 SKIP3 DTSBR112 00759 S082-OP-ID-INFO. DTSBR112 00760 SKIP1 DTSBR112 00761 CALL 'DTSBU082' USING L082-LINK-AREA. DTSBR112 00762 SKIP2 DTSBR112 00763 S082-EXIT. DTSBR112 00764 EXIT. DTSBR112 00765 SKIP3 DTSBR112 00766 S119-AGENCY-FACTS. DTSBR112 00767 SKIP1 DTSBR112 00768 CALL 'DTSBU119' USING L119-LINK-AREA. DTSBR112 00769 SKIP2 DTSBR112 00770 S119-EXIT. DTSBR112 00771 EXIT. DTSBR112 00772 SKIP3 DTSBR112 00773 S999-ABEND. DTSBR112 00774 SKIP1 DTSBR112 00775 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR112 00776 SKIP2 DTSBR112 00777 S999-EXIT. DTSBR112 00778 EXIT. DTSBR112