00001 IDENTIFICATION DIVISION. 01/20/04 00002 PROGRAM-ID. DTSBR452. DTSBR452 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV001 00004 MODIFIED BY TRW S&ITG. DTSBR452 00005 DATE-WRITTEN. AUGUST 2002. DTSBR452 00006 DATE-COMPILED. DTSBR452 00007 SKIP3 DTSBR452 00008 ***** DTSBR452 00009 * DTSBR452 00010 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR452 00011 * DTSBE451 WHICH UPDATES DTSIR452 DTSBR452 00012 * DTSBR452 READS DTSIR452 RECORDS. DTSBR452 00013 * DTSBR452 00014 * FUNCTION: DELINQUENT ACCOUNT NUMBER LIST(ANNUAL). DTSBR452 00015 * DTSBR452 00016 * DTSBR452 00017 * MODIFICATION HISTORY: DTSBR452 00018 * DTSBR452 00019 * 08-20-02 INITIAL DEVELOPMENT. COPIED FROM DTSBR418 DTSBR452 00020 * REFERENCE RFP #RAP AUTHOR OF CHANGE - ZL1 DTSBR452 00021 * DTSBR452 00022 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR452 00023 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR452 00024 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR452 00025 * DTSBR452 00026 * DTSBR452 00027 * DESCRIPTION: DTSBR452 00028 * DTSBR452 00029 * THIS MODULE PRODUCES THE DELINQUENT ACCOUNT NUMBER LIST. DTSBR452 00030 * FOR HOUSEHOLD EMPLOYERS DTSBR452 00031 * DTSBR452 00032 * RECORDS READ: DTSBR452 00033 * DTSBR452 00034 * NONE. DTSBR452 00035 * DTSBR452 00036 * DTSBR452 00037 * PRINTED OUTPUTS: DTSBR452 00038 * DTSBR452 00039 * 452R1 DELINQUENT HOUSEHOLD ACCOUNT NUMBER LIST DTSBR452 00040 * DTSBR452 00041 * DTSBR452 00042 * RECORDS WRITTEN: DTSBR452 00043 * DTSBR452 00044 * NONE. DTSBR452 00045 * DTSBR452 00046 * DTSBR452 00047 * MODULES CALLED: DTSBR452 00048 * DTSBR452 00049 * DTSBU004 QUARTER CONVERT. DTSBR452 00050 * DTSBU056 RATE FORMAT. DTSBR452 00051 * DTSBR452 00052 * DTSBR452 00053 ***** DTSBR452 00054 EJECT DTSBR452 00055 ENVIRONMENT DIVISION. DTSBR452 00056 DTSBR452 00057 CONFIGURATION SECTION. DTSBR452 00058 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR452 00059 DTSBR452 00060 INPUT-OUTPUT SECTION. DTSBR452 00061 FILE-CONTROL. DTSBR452 00062 SELECT PRT-FILE ASSIGN TO RPT452R1. DTSBR452 00063 DTSBR452 00064 DATA DIVISION. DTSBR452 00065 FILE SECTION. DTSBR452 00066 DTSBR452 00067 FD PRT-FILE DTSBR452 00068 RECORDING MODE IS F. DTSBR452 00069 01 REPORT-LISTING1 PIC X(133). DTSBR452 00070 DTSBR452 00071 WORKING-STORAGE SECTION. DTSBR452 000715 77 PAN-VALET PICTURE X(24) VALUE '001DTSBR452 01/20/04'. DTSBR452 00072 DTSBR452 00073 01 WRK-AREA. DTSBR452 00074 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +452.DTSBR452 00075 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR452 00076 DTSBR452 00077 05 WS-BLANK-PAGE PIC X(133) VALUE SPACES. DTSBR452 00078 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR452 00079 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR452 00080 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR452 00081 05 WS-FOOT-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. DTSBR452 00082 05 WRK-SUBJECT-YEAR PIC S9(04) VALUE ZERO. DTSBR452 00083 DTSBR452 00084 05 WRK-ADDR PIC X(07). DTSBR452 00085 DTSBR452 00086 EJECT DTSBR452 00087 01 L004-LINK-AREA. DTSBR452 00088 ++INCLUDE DTSIL004 DTSBR452 00089 EJECT DTSBR452 00090 01 L056-LINK-AREA. DTSBR452 00091 ++INCLUDE DTSIL056 DTSBR452 00092 EJECT DTSBR452 00093 01 PAGE-HEADING. DTSBR452 00094 05 HDR1-LINE-1. DTSBR452 00095 10 FILLER PIC X(01) VALUE SPACE. DTSBR452 00096 10 FILLER PIC X(05) DTSBR452 00097 VALUE '452R1'. DTSBR452 00098 10 FILLER PIC X(35) VALUE SPACES. DTSBR452 00099 10 HDR1-AGY-NAME-LINE1 PIC X(50). DTSBR452 00100 10 FILLER PIC X(27) VALUE SPACES. DTSBR452 00101 10 FILLER PIC X(05) DTSBR452 00102 VALUE 'DATE:'. DTSBR452 00103 10 FILLER PIC X(01) VALUE SPACE. DTSBR452 00104 10 HDR1-SYS-DATE PIC X(08). DTSBR452 00105 05 HDR1-LINE-2. DTSBR452 00106 10 FILLER PIC X(41) VALUE SPACES. DTSBR452 00107 10 HDR1-AGY-NAME-LINE2 PIC X(50). DTSBR452 00108 10 FILLER PIC X(27) VALUE SPACES. DTSBR452 00109 10 FILLER PIC X(05) DTSBR452 00110 VALUE 'TIME:'. DTSBR452 00111 10 FILLER PIC X(01) VALUE SPACE. DTSBR452 00112 10 HDR1-SYS-TIME PIC X(08). DTSBR452 00113 05 HDR1-LINE-3. DTSBR452 00114 10 FILLER PIC X(01) VALUE SPACE. DTSBR452 00115 10 FILLER PIC X(27) DTSBR452 00116 VALUE 'ROUTE TO: ENFORCEMENT UNIT'. DTSBR452 00117 10 FILLER PIC X(90) VALUE SPACES. DTSBR452 00118 10 FILLER PIC X(05) DTSBR452 00119 VALUE 'PAGE:'. DTSBR452 00120 10 FILLER PIC X(03) VALUE SPACES. DTSBR452 00121 10 HDR1-PAGE-CNT PIC ZZ,ZZ9. DTSBR452 00122 05 HDR1-LINE-4. DTSBR452 00123 10 FILLER PIC X(41) VALUE SPACES. DTSBR452 00124 10 FILLER PIC X(43) DTSBR452 00125 VALUE 'HOUSEHOLD DELINQUENT ACCOUNT NUMBER LIST'. DTSBR452 00126 05 HDR1-LINE-5 PIC X(133) VALUE SPACES. DTSBR452 00127 05 HDR1-LINE-6. DTSBR452 00128 10 FILLER PIC X(01) VALUE SPACE. DTSBR452 00129 10 FILLER PIC X(12) DTSBR452 00130 VALUE 'SUBJECT YR:'. DTSBR452 00131 10 FILLER PIC X(01) VALUE SPACE. DTSBR452 00132 10 WRK-SUBJECT-SLASH-QTR PIC X(04). DTSBR452 00133 05 HDR1-LINE-7 PIC X(133) VALUE SPACES. DTSBR452 00134 05 HDR1-LINE-8. DTSBR452 00135 10 FILLER PIC X(09) VALUE SPACES. DTSBR452 00136 10 FILLER PIC X(08) DTSBR452 00137 VALUE 'SUBJ YR'. DTSBR452 00138 10 FILLER PIC X(48) VALUE SPACES. DTSBR452 00139 10 FILLER PIC X(07) DTSBR452 00140 VALUE 'SENT TO'. DTSBR452 00141 05 HDR1-LINE-9. DTSBR452 00142 10 FILLER PIC X(01) VALUE SPACE. DTSBR452 00143 10 FILLER PIC X(06) DTSBR452 00144 VALUE 'EMP NO'. DTSBR452 00145 10 FILLER PIC X(02) VALUE SPACES. DTSBR452 00146 10 FILLER PIC X(08) DTSBR452 00147 VALUE 'TOT RATE'. DTSBR452 00148 10 FILLER PIC X(07) VALUE SPACES. DTSBR452 00149 10 FILLER PIC X(13) DTSBR452 00150 VALUE 'PRIMARY NAME'. DTSBR452 00151 10 FILLER PIC X(28) VALUE SPACES. DTSBR452 00152 10 FILLER PIC X(08) DTSBR452 00153 VALUE 'TAX ADDR'. DTSBR452 00154 10 FILLER PIC X(06) VALUE SPACES. DTSBR452 00155 10 FILLER PIC X(04) DTSBR452 00156 VALUE 'CITY'. DTSBR452 00157 10 FILLER PIC X(21) VALUE SPACES. DTSBR452 00158 10 FILLER PIC X(05) DTSBR452 00159 VALUE 'STATE'. DTSBR452 00160 10 FILLER PIC X(03) VALUE SPACES. DTSBR452 00161 10 FILLER PIC X(03) DTSBR452 00162 VALUE 'ZIP'. DTSBR452 00163 10 FILLER PIC X(09) VALUE SPACES. DTSBR452 00164 10 FILLER PIC X(08) DTSBR452 00165 VALUE 'FLD CODE'. DTSBR452 00166 DTSBR452 00167 01 DETAIL-LINE. DTSBR452 00168 05 DTL1-LINE-3. DTSBR452 00169 10 FILLER PIC X(01) VALUE SPACE. DTSBR452 00170 10 DTL1-EMP-NO PIC 999B999. DTSBR452 00171 10 FILLER PIC X(01) VALUE SPACE. DTSBR452 00172 10 DTL1-DISP-RATE PIC X(07). DTSBR452 00173 10 FILLER PIC X(08) VALUE SPACES. DTSBR452 00174 10 DTL1-PRIMARY-NAME PIC X(40). DTSBR452 00175 10 FILLER PIC X(01) VALUE SPACE. DTSBR452 00176 10 DTL1-ADDR PIC X(07). DTSBR452 00177 10 FILLER PIC X(05) VALUE SPACES. DTSBR452 00178 10 DTL1-CITY PIC X(25). DTSBR452 00179 10 FILLER PIC X(04) VALUE SPACES. DTSBR452 00180 10 DTL1-STATE PIC X(02). DTSBR452 00181 10 FILLER PIC X(04) VALUE SPACES. DTSBR452 00182 10 DTL1-ZIP PIC X(10). DTSBR452 00183 10 FILLER PIC X(05) VALUE SPACES. DTSBR452 00184 10 DTL1-FIELD-REP-ID PIC X(02). DTSBR452 00185 DTSBR452 00186 05 DTL1-LINE-5. DTSBR452 00187 10 FILLER PIC X(03) VALUE SPACES. DTSBR452 00188 10 FILLER PIC X(20) DTSBR452 00189 VALUE 'ADDITIONAL DELQ YR:'. DTSBR452 00190 10 FILLER PIC X(02) VALUE SPACES. DTSBR452 00191 10 DTL1-ADD-RPT-YRQ-1 PIC X(04) VALUE SPACES. DTSBR452 00192 10 FILLER PIC X(02) VALUE SPACES. DTSBR452 00193 10 DTL1-ADD-RPT-YRQ-2 PIC X(04) VALUE SPACES. DTSBR452 00194 10 FILLER PIC X(02) VALUE SPACES. DTSBR452 00195 10 DTL1-ADD-RPT-YRQ-3 PIC X(04) VALUE SPACES. DTSBR452 00196 10 FILLER PIC X(02) VALUE SPACES. DTSBR452 00197 10 DTL1-ADD-RPT-YRQ-4 PIC X(04) VALUE SPACES. DTSBR452 00198 10 FILLER PIC X(02) VALUE SPACES. DTSBR452 00199 10 DTL1-ADD-RPT-YRQ-5 PIC X(04) VALUE SPACES. DTSBR452 00200 DTSBR452 00201 01 CONTROL-FOOTING-FINAL. DTSBR452 00202 05 CTF-LINE-3. DTSBR452 00203 10 FILLER PIC X(15) VALUE SPACES. DTSBR452 00204 10 CTF-REC-CNT PIC ZZ,ZZ9. DTSBR452 00205 10 FILLER PIC X(01) VALUE SPACE. DTSBR452 00206 10 FILLER PIC X(40) DTSBR452 00207 VALUE 'EMPLOYERS WITH MISSING ANNUAL REPORTS AR'. DTSBR452 00208 10 FILLER PIC X(11) DTSBR452 00209 VALUE 'E LISTED '. DTSBR452 00210 EJECT DTSBR452 00211 LINKAGE SECTION. DTSBR452 00212 SKIP3 DTSBR452 00213 01 LRCM-LINK-AREA. DTSBR452 00214 ++INCLUDE DTSILRCM DTSBR452 00215 EJECT DTSBR452 00216 01 R452-REC. DTSBR452 00217 ++INCLUDE DTSIR452 DTSBR452 00218 EJECT DTSBR452 00219 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR452 00220 R452-REC. DTSBR452 00221 DTSBR452 00222 IF FIRST-TIME-IND = 'Y' DTSBR452 00223 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR452 00224 MOVE 'N' TO FIRST-TIME-IND. DTSBR452 00225 DTSBR452 00226 IF LRCM-EOR-88 DTSBR452 00227 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR452 00228 ELSE DTSBR452 00229 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR452 00230 DTSBR452 00231 GOBACK. DTSBR452 00232 EJECT DTSBR452 00233 I1000-INITIATE. DTSBR452 00234 DTSBR452 00235 MOVE R452-YRQ TO L004-QTR-5-9. DTSBR452 00236 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR452 00237 MOVE L004-QTR-5-YR TO WRK-SUBJECT-SLASH-QTR DTSBR452 00238 WRK-SUBJECT-YEAR. DTSBR452 00239 OPEN OUTPUT PRT-FILE. DTSBR452 00240 MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE. DTSBR452 00241 MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME. DTSBR452 00242 MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1. DTSBR452 00243 MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2. DTSBR452 00244 MOVE SPACES TO REPORT-LISTING1. DTSBR452 00245 DTSBR452 00246 I1000-EXIT. DTSBR452 00247 EXIT. DTSBR452 00248 DTSBR452 00249 P1000-PROCESS. DTSBR452 00250 DTSBR452 00251 MOVE R452-TOTAL-RATE TO L056-RATE. DTSBR452 00252 PERFORM S056-RATE-FORMAT THRU S056-EXIT. DTSBR452 00253 DTSBR452 00254 IF R452-ADDRESS1-SENT-YES DTSBR452 00255 IF R452-ADDRESS2-SENT-YES DTSBR452 00256 IF R452-ADDRESS3-SENT-YES DTSBR452 00257 MOVE '1, 2, 3' TO WRK-ADDR DTSBR452 00258 ELSE DTSBR452 00259 MOVE '1, 2' TO WRK-ADDR DTSBR452 00260 ELSE DTSBR452 00261 IF R452-ADDRESS3-SENT-YES DTSBR452 00262 MOVE '1, 3' TO WRK-ADDR DTSBR452 00263 ELSE DTSBR452 00264 MOVE '1' TO WRK-ADDR DTSBR452 00265 ELSE DTSBR452 00266 IF R452-ADDRESS2-SENT-YES DTSBR452 00267 IF R452-ADDRESS3-SENT-YES DTSBR452 00268 MOVE '2, 3' TO WRK-ADDR DTSBR452 00269 ELSE DTSBR452 00270 MOVE '2' TO WRK-ADDR DTSBR452 00271 ELSE DTSBR452 00272 IF R452-ADDRESS3-SENT-YES DTSBR452 00273 MOVE '3' TO WRK-ADDR DTSBR452 00274 ELSE DTSBR452 00275 MOVE 'XXX' TO WRK-ADDR. DTSBR452 00276 DTSBR452 00277 MOVE R452-EMP-NO TO DTL1-EMP-NO. DTSBR452 00278 MOVE L056-DISP-RATE TO DTL1-DISP-RATE. DTSBR452 00279 MOVE R452-PRIMARY-NAME TO DTL1-PRIMARY-NAME. DTSBR452 00280 MOVE WRK-ADDR TO DTL1-ADDR. DTSBR452 00281 MOVE R452-CITY TO DTL1-CITY. DTSBR452 00282 MOVE R452-STATE TO DTL1-STATE. DTSBR452 00283 MOVE R452-ZIP TO DTL1-ZIP. DTSBR452 00284 MOVE R452-FIELD-REP-ID TO DTL1-FIELD-REP-ID. DTSBR452 00285 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR452 00286 WRITE REPORT-LISTING1 FROM DTL1-LINE-3 AFTER 3. DTSBR452 00287 ADD +3 TO WS-LINE-CNT2. DTSBR452 00288 ADD +1 TO WS-FOOT-NUMBER-ONE. DTSBR452 00289 DTSBR452 00290 IF R452-ADDITIONAL-RPT-CNT = 0 DTSBR452 00291 GO TO P1000-EXIT. DTSBR452 00292 DTSBR452 00293 MOVE SPACES TO DTL1-ADD-RPT-YRQ-1 DTSBR452 00294 DTL1-ADD-RPT-YRQ-2 DTSBR452 00295 DTL1-ADD-RPT-YRQ-3 DTSBR452 00296 DTL1-ADD-RPT-YRQ-4 DTSBR452 00297 DTL1-ADD-RPT-YRQ-5. DTSBR452 00298 DTSBR452 00299 IF R452-ADDITIONAL-RPT-YRQ(1) = 0 DTSBR452 00300 NEXT SENTENCE DTSBR452 00301 ELSE DTSBR452 00302 MOVE R452-ADDITIONAL-RPT-YRQ(1) TO L004-QTR-5-9 DTSBR452 00303 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR452 00304 IF WRK-SUBJECT-YEAR NOT = L004-QTR-5-YR DTSBR452 00305 IF L004-QTR-5-Q NOT = 0 DTSBR452 00306 MOVE L004-SLASH-QTR TO DTL1-ADD-RPT-YRQ-1 DTSBR452 00307 ELSE DTSBR452 00308 MOVE L004-QTR-5-YR TO DTL1-ADD-RPT-YRQ-1 DTSBR452 00309 END-IF DTSBR452 00310 END-IF DTSBR452 00311 END-IF. DTSBR452 00312 DTSBR452 00313 IF R452-ADDITIONAL-RPT-YRQ(2) = 0 DTSBR452 00314 NEXT SENTENCE DTSBR452 00315 ELSE DTSBR452 00316 MOVE R452-ADDITIONAL-RPT-YRQ(2) TO L004-QTR-5-9 DTSBR452 00317 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR452 00318 IF WRK-SUBJECT-YEAR NOT = L004-QTR-5-YR DTSBR452 00319 IF L004-QTR-5-Q NOT = 0 DTSBR452 00320 MOVE L004-SLASH-QTR TO DTL1-ADD-RPT-YRQ-2 DTSBR452 00321 ELSE DTSBR452 00322 MOVE L004-QTR-5-YR TO DTL1-ADD-RPT-YRQ-2 DTSBR452 00323 END-IF DTSBR452 00324 END-IF DTSBR452 00325 END-IF. DTSBR452 00326 DTSBR452 00327 IF R452-ADDITIONAL-RPT-YRQ(3) = 0 DTSBR452 00328 NEXT SENTENCE DTSBR452 00329 ELSE DTSBR452 00330 MOVE R452-ADDITIONAL-RPT-YRQ(3) TO L004-QTR-5-9 DTSBR452 00331 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR452 00332 IF WRK-SUBJECT-YEAR NOT = L004-QTR-5-YR DTSBR452 00333 IF L004-QTR-5-Q NOT = 0 DTSBR452 00334 MOVE L004-SLASH-QTR TO DTL1-ADD-RPT-YRQ-3 DTSBR452 00335 ELSE DTSBR452 00336 MOVE L004-QTR-5-YR TO DTL1-ADD-RPT-YRQ-3 DTSBR452 00337 END-IF DTSBR452 00338 END-IF DTSBR452 00339 END-IF. DTSBR452 00340 IF R452-ADDITIONAL-RPT-YRQ(4) = 0 DTSBR452 00341 NEXT SENTENCE DTSBR452 00342 ELSE DTSBR452 00343 MOVE R452-ADDITIONAL-RPT-YRQ(4) TO L004-QTR-5-9 DTSBR452 00344 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR452 00345 IF WRK-SUBJECT-YEAR NOT = L004-QTR-5-YR DTSBR452 00346 IF L004-QTR-5-Q NOT = 0 DTSBR452 00347 MOVE L004-SLASH-QTR TO DTL1-ADD-RPT-YRQ-4 DTSBR452 00348 ELSE DTSBR452 00349 MOVE L004-QTR-5-YR TO DTL1-ADD-RPT-YRQ-4 DTSBR452 00350 END-IF DTSBR452 00351 END-IF DTSBR452 00352 END-IF. DTSBR452 00353 DTSBR452 00354 IF R452-ADDITIONAL-RPT-YRQ(5) = 0 DTSBR452 00355 NEXT SENTENCE DTSBR452 00356 ELSE DTSBR452 00357 MOVE R452-ADDITIONAL-RPT-YRQ(5) TO L004-QTR-5-9 DTSBR452 00358 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR452 00359 IF WRK-SUBJECT-YEAR NOT = L004-QTR-5-YR DTSBR452 00360 IF L004-QTR-5-Q NOT = 0 DTSBR452 00361 MOVE L004-SLASH-QTR TO DTL1-ADD-RPT-YRQ-5 DTSBR452 00362 ELSE DTSBR452 00363 MOVE L004-QTR-5-YR TO DTL1-ADD-RPT-YRQ-5 DTSBR452 00364 END-IF DTSBR452 00365 END-IF DTSBR452 00366 END-IF. DTSBR452 00367 DTSBR452 00368 WRITE REPORT-LISTING1 FROM DTL1-LINE-5 AFTER 2 DTSBR452 00369 ADD +2 TO WS-LINE-CNT2. DTSBR452 00370 DTSBR452 00371 P1000-EXIT. DTSBR452 00372 EXIT. DTSBR452 00373 DTSBR452 00374 P2000-PRINT-HEADER. DTSBR452 00375 DTSBR452 00376 IF WS-LINE-CNT GREATER 56 OR DTSBR452 00377 WS-LINE-CNT2 GREATER 56 DTSBR452 00378 MOVE +0 TO WS-LINE-CNT DTSBR452 00379 MOVE +0 TO WS-LINE-CNT2 DTSBR452 00380 ADD +1 TO WS-PAGE-CNT DTSBR452 00381 MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT DTSBR452 00382 WRITE REPORT-LISTING1 FROM HDR1-LINE-1 DTSBR452 00383 AFTER TOP-OF-PAGE DTSBR452 00384 WRITE REPORT-LISTING1 FROM HDR1-LINE-2 AFTER 1 DTSBR452 00385 WRITE REPORT-LISTING1 FROM HDR1-LINE-3 AFTER 1 DTSBR452 00386 WRITE REPORT-LISTING1 FROM HDR1-LINE-4 AFTER 1 DTSBR452 00387 WRITE REPORT-LISTING1 FROM HDR1-LINE-5 AFTER 1 DTSBR452 00388 WRITE REPORT-LISTING1 FROM HDR1-LINE-6 AFTER 1 DTSBR452 00389 WRITE REPORT-LISTING1 FROM HDR1-LINE-7 AFTER 1 DTSBR452 00390 WRITE REPORT-LISTING1 FROM HDR1-LINE-8 AFTER 1 DTSBR452 00391 WRITE REPORT-LISTING1 FROM HDR1-LINE-9 AFTER 1 DTSBR452 00392 ADD +9 TO WS-LINE-CNT2. DTSBR452 00393 DTSBR452 00394 P2000-EXIT. DTSBR452 00395 EXIT. DTSBR452 00396 DTSBR452 00397 T1000-TERMINATE. DTSBR452 00398 DTSBR452 00399 MOVE WS-FOOT-NUMBER-ONE TO CTF-REC-CNT. DTSBR452 00400 WRITE REPORT-LISTING1 FROM CTF-LINE-3 AFTER 3. DTSBR452 00401 CLOSE PRT-FILE. DTSBR452 00402 DTSBR452 00403 T1000-EXIT. DTSBR452 00404 EXIT. DTSBR452 00405 DTSBR452 00406 S004-FROM-5. DTSBR452 00407 DTSBR452 00408 SET L004-FROM-5 TO TRUE. DTSBR452 00409 DTSBR452 00410 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR452 00411 DTSBR452 00412 S004-EXIT. DTSBR452 00413 EXIT. DTSBR452 00414 DTSBR452 00415 S056-RATE-FORMAT. DTSBR452 00416 DTSBR452 00417 SET L056-DISP2-RIGHT-PCT-88 TO TRUE. DTSBR452 00418 DTSBR452 00419 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR452 00420 DTSBR452 00421 S056-EXIT. DTSBR452 00422 EXIT. DTSBR452 00423 DTSBR452 00424 *S999-ABEND. DTSBR452 00425 * DTSBR452 00426 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR452 00427 * DTSBR452 00428 *S999-EXIT. DTSBR452 00429 * EXIT. DTSBR452 00430 DTSBR452