00001 IDENTIFICATION DIVISION. 01/20/04 00002 PROGRAM-ID. DTSBR454. DTSBR454 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV001 00004 DATE-WRITTEN. DECEMBER 1994. DTSBR454 00005 DATE-COMPILED. DTSBR454 00006 SKIP3 DTSBR454 00007 ***** DTSBR454 00008 * DTSBR454 00009 * CALLING SEQUENCE: DTSBE453 CREATES DTSIR454 RECORDS. DTSBR454 00010 * DTSBD800 CALLS DTSBR454 WHICH PRODUCES DTSBR454 00011 * THE REPORT NOTICE. DTSBR454 00012 * DTSBR454 00013 * FUNCTION: DELINQUENT REPORT LIST. DTSBR454 00014 * DTSBR454 00015 * DTSBR454 00016 * MODIFICATION HISTORY: DTSBR454 00017 * DTSBR454 00018 * 12-29-94 INITIAL DEVELOPMENT DTSBR454 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - RHC DTSBR454 00020 * DTSBR454 00021 * 04-25-95 DROP REMOVED DELINQUENT EMPLOYERS FROM R454R1. SPLIT DTSBR454 00022 * OUT TOTALS BETWEEN REMOVED AND INCLUDED DELINQUENT DTSBR454 00023 * EMPLOYERS IN R454R2. DTSBR454 00024 * REFERENCE RFP #CR082 AUTHOR OF CHANGE - RHC DTSBR454 00025 * DTSBR454 00026 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR454 00027 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR454 00028 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR454 00029 * DTSBR454 00030 * DTSBR454 00031 * DESCRIPTION: DTSBR454 00032 * DTSBR454 00033 * THIS MODULE PRODUCES THE DELINQUENT REPORT LIST. DTSBR454 00034 * DTSBR454 00035 * PAGE COUNTER RESETS WHEN FIELD REP CHANGES. DTSBR454 00036 * DTSBR454 00037 * DTSBR454 00038 * RECORDS READ: DTSBR454 00039 * DTSBR454 00040 * NONE. DTSBR454 00041 * DTSBR454 00042 * DTSBR454 00043 * PRINTED OUTPUTS: DTSBR454 00044 * DTSBR454 00045 * 454R1 DELINQUENT REPORT LIST - FIELD CODE ORDER. DTSBR454 00046 * 454R2 DELINQUENT REPORT LIST - FIELD REP SUMMARY. DTSBR454 00047 * DTSBR454 00048 * DTSBR454 00049 * RECORDS WRITTEN: DTSBR454 00050 * DTSBR454 00051 * NONE. DTSBR454 00052 * DTSBR454 00053 * DTSBR454 00054 * MODULES CALLED: DTSBR454 00055 * DTSBR454 00056 * DTSBU001 DATE CONVERT. DTSBR454 00057 * DTSBU004 QUARTER CONVERT. DTSBR454 00058 * DTSBU056 RATE FORMAT. DTSBR454 00059 * DTSBU062 FIELD REP LOOKUP. DTSBR454 00060 * DTSBR454 00061 * DTSBR454 00062 ***** DTSBR454 00063 EJECT DTSBR454 00064 ENVIRONMENT DIVISION. DTSBR454 00065 DTSBR454 00066 CONFIGURATION SECTION. DTSBR454 00067 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR454 00068 DTSBR454 00069 INPUT-OUTPUT SECTION. DTSBR454 00070 FILE-CONTROL. DTSBR454 00071 SELECT PRT-FILE-1 ASSIGN TO RPT454R1. DTSBR454 00072 SELECT PRT-FILE-2 ASSIGN TO RPT454R2. DTSBR454 00073 DTSBR454 00074 DATA DIVISION. DTSBR454 00075 FILE SECTION. DTSBR454 00076 DTSBR454 00077 FD PRT-FILE-1 DTSBR454 00078 RECORDING MODE IS F. DTSBR454 00079 01 REPORT-LISTING1 PIC X(133). DTSBR454 00080 DTSBR454 00081 FD PRT-FILE-2 DTSBR454 00082 RECORDING MODE IS F. DTSBR454 00083 01 REPORT-LISTING2 PIC X(133). DTSBR454 00084 DTSBR454 00085 EJECT DTSBR454 00086 WORKING-STORAGE SECTION. DTSBR454 000865 77 PAN-VALET PICTURE X(24) VALUE '001DTSBR454 01/20/04'. DTSBR454 00087 DTSBR454 00088 01 WRK-AREA. DTSBR454 00089 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +422.DTSBR454 00090 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR454 00091 05 WRK-CNT PIC S9(04) COMP VALUE ZERO.DTSBR454 00092 05 ODD-PAGE-BLANK PIC S9(04) COMP VALUE ZERO.DTSBR454 00093 05 ZPAGE PIC S9(04) COMP VALUE ZERO.DTSBR454 00094 DTSBR454 00095 05 WS-BLANK-PAGE PIC X(133) VALUE SPACES. DTSBR454 00096 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR454 00097 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR454 00098 05 WS-LINE-CNT3 PIC S9(02) COMP-3 VALUE 60. DTSBR454 00099 05 WS-LINE-CNT4 PIC S9(02) COMP-3 VALUE +0. DTSBR454 00100 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR454 00101 05 WS-PAGE-CNT2 PIC S9(03) COMP-3 VALUE +0. DTSBR454 00102 DTSBR454 00103 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR454 00104 05 WS-NUMBER-TWO PIC S9(03) COMP-3 VALUE +0. DTSBR454 00105 05 WS-FOOT-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. DTSBR454 00106 05 WS-FOOT-NUMBER-TWO PIC S9(05) COMP-3 VALUE +0. DTSBR454 00107 DTSBR454 00108 05 WS-DTLR-DTLI-CNT1 PIC S9(05) COMP-3 VALUE +0. DTSBR454 00109 05 WS-DTLR-CNT1 PIC S9(05) COMP-3 VALUE +0. DTSBR454 00110 05 WS-DTLI-CNT1 PIC S9(05) COMP-3 VALUE +0. DTSBR454 00111 05 WS-DTLR-DTLI-CNT2 PIC S9(05) COMP-3 VALUE +0. DTSBR454 00112 05 WS-DTLR-CNT2 PIC S9(05) COMP-3 VALUE +0. DTSBR454 00113 05 WS-DTLI-CNT2 PIC S9(05) COMP-3 VALUE +0. DTSBR454 00114 05 DTL1-BLANK-LINE PIC X(133) VALUE SPACES. DTSBR454 00115 DTSBR454 00116 05 WRK-PAGE-TRUNCATE PIC 9(01). DTSBR454 00117 88 WRK-ODD-PAGE-88 VALUE 1 3 5 7 9. DTSBR454 00118 DTSBR454 00119 05 WRK-FIELD-ZIP PIC X(05). DTSBR454 00120 DTSBR454 00121 05 WRK-FLD-REP-ID-NAME. DTSBR454 00122 10 WRK-FLD-REP-ID PIC X(02). DTSBR454 00123 10 WRK-FLD-REP-NAME PIC X(32). DTSBR454 00124 DTSBR454 00125 05 WRK-VOICE OCCURS 3 TIMES. DTSBR454 00126 10 WRK-VOICE-LEFT PIC X(01). DTSBR454 00127 10 WRK-VOICE-AREA-CD PIC X(03). DTSBR454 00128 10 WRK-VOICE-RIGHT PIC X(02). DTSBR454 00129 10 WRK-VOICE-PREFIX PIC X(03). DTSBR454 00130 10 WRK-VOICE-DASH PIC X(01). DTSBR454 00131 10 WRK-VOICE-SUFFIX PIC X(04). DTSBR454 00132 DTSBR454 00133 05 WRK-INACTIVE-DATE PIC X(08). DTSBR454 00134 DTSBR454 00135 05 WRK-RATE PIC X(07). DTSBR454 00136 DTSBR454 00137 05 WRK-ADDR1-CSZ. DTSBR454 00138 10 WRK-ADDR1-CITY PIC X(26). DTSBR454 00139 10 WRK-ADDR1-STATE PIC X(04). DTSBR454 00140 10 WRK-ADDR1-ZIP PIC X(10). DTSBR454 00141 05 WRK-ADDR2-CSZ. DTSBR454 00142 10 WRK-ADDR2-CITY PIC X(26). DTSBR454 00143 10 WRK-ADDR2-STATE PIC X(04). DTSBR454 00144 10 WRK-ADDR2-ZIP PIC X(10). DTSBR454 00145 DTSBR454 00146 05 WRK-AMT PIC S9(09)V9(02) COMP-3. DTSBR454 00147 DTSBR454 00148 05 WRK-ADDNL-YRQ-TBL. DTSBR454 00149 10 WRK-ADDNL-YRQ OCCURS 19 TIMES. DTSBR454 00150 15 WRK-ADDNL-YRQ-9 PIC 9(03). DTSBR454 00151 EJECT DTSBR454 00152 01 L001-LINK-AREA. DTSBR454 00153 ++INCLUDE DTSIL001 DTSBR454 00154 EJECT DTSBR454 00155 01 L004-LINK-AREA. DTSBR454 00156 ++INCLUDE DTSIL004 DTSBR454 00157 EJECT DTSBR454 00158 01 L056-LINK-AREA. DTSBR454 00159 ++INCLUDE DTSIL056 DTSBR454 00160 EJECT DTSBR454 00161 01 L062-LINK-AREA. DTSBR454 00162 ++INCLUDE DTSIL062 DTSBR454 00163 EJECT DTSBR454 00164 01 RPT1-HDG. DTSBR454 00165 05 HDR1-LINE-1. DTSBR454 00166 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00167 10 FILLER PIC X(05) DTSBR454 00168 VALUE '454R1'. DTSBR454 00169 10 FILLER PIC X(35) VALUE SPACES.DTSBR454 00170 10 HDR1-AGY-NAME-LINE1 PIC X(50). DTSBR454 00171 10 FILLER PIC X(27) VALUE SPACES.DTSBR454 00172 10 FILLER PIC X(05) DTSBR454 00173 VALUE 'DATE:'. DTSBR454 00174 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00175 10 HDR1-SYS-DATE PIC X(08). DTSBR454 00176 05 HDR1-LINE-2. DTSBR454 00177 10 FILLER PIC X(41) VALUE SPACES.DTSBR454 00178 10 HDR1-AGY-NAME-LINE2 PIC X(50). DTSBR454 00179 10 FILLER PIC X(27) VALUE SPACES.DTSBR454 00180 10 FILLER PIC X(05) DTSBR454 00181 VALUE 'TIME:'. DTSBR454 00182 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00183 10 HDR1-SYS-TIME PIC X(08). DTSBR454 00184 05 HDR1-LINE-3. DTSBR454 00185 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00186 10 FILLER PIC X(27) DTSBR454 00187 VALUE 'ROUTE TO: ENFORCEMENT UNIT'. DTSBR454 00188 10 FILLER PIC X(90) VALUE SPACES.DTSBR454 00189 10 FILLER PIC X(05) DTSBR454 00190 VALUE 'PAGE:'. DTSBR454 00191 10 FILLER PIC X(03) VALUE SPACES.DTSBR454 00192 10 HDR1-PAGE-CNT PIC ZZ,ZZ9. DTSBR454 00193 05 HDR1-LINE-4. DTSBR454 00194 10 FILLER PIC X(51) VALUE SPACES.DTSBR454 00195 10 FILLER PIC X(29) DTSBR454 00196 VALUE 'ANNUAL DELINQUENT REPORT LIST'. DTSBR454 00197 05 HDR1-LINE-5 PIC X(133) VALUE SPACES.DTSBR454 00198 05 HDR1-LINE-6. DTSBR454 00199 10 FILLER PIC X(05) VALUE SPACES.DTSBR454 00200 10 FILLER PIC X(13) DTSBR454 00201 VALUE 'SUBJECT YEAR:'. DTSBR454 00202 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00203 * 10 HDR1-SUBJECT-QTR PIC X(04). DTSBR454 00204 10 HDR1-SUBJECT-YEAR PIC X(04). DTSBR454 00205 10 FILLER PIC X(35) VALUE SPACES.DTSBR454 00206 10 FILLER PIC X(16) DTSBR454 00207 VALUE 'FIELD CODE ORDER'. DTSBR454 00208 05 HDR1-LINE-7. DTSBR454 00209 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00210 10 FILLER PIC X(17) DTSBR454 00211 VALUE 'COMPUTATION DATE:'. DTSBR454 00212 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00213 10 HDR1-COMPUTATION-DATE PIC X(08). DTSBR454 00214 05 HDR1-LINE-8 PIC X(133) VALUE SPACES.DTSBR454 00215 05 HDR1-LINE-9. DTSBR454 00216 10 FILLER PIC X(09) VALUE SPACES.DTSBR454 00217 10 FILLER PIC X(08) DTSBR454 00218 VALUE 'FLD REP:'. DTSBR454 00219 10 FILLER PIC X(02) VALUE SPACES.DTSBR454 00220 10 HDR1-FLD-REP-ID PIC X(02). DTSBR454 00221 10 FILLER PIC X(02) VALUE SPACES.DTSBR454 00222 10 HDR1-FLD-REP-NAME PIC X(32). DTSBR454 00223 05 HDR1-LINE-10 PIC X(133) VALUE SPACES.DTSBR454 00224 05 HDR1-LINE-11. DTSBR454 00225 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00226 10 FILLER PIC X(05) DTSBR454 00227 VALUE 'FIELD'. DTSBR454 00228 10 FILLER PIC X(94) VALUE SPACES.DTSBR454 00229 10 FILLER PIC X(13) DTSBR454 00230 VALUE 'ADDRESS PHONE'. DTSBR454 00231 10 FILLER PIC X(03) VALUE SPACES.DTSBR454 00232 10 FILLER PIC X(08) DTSBR454 00233 VALUE 'INACTIVE'. DTSBR454 00234 10 FILLER PIC X(04) VALUE SPACES.DTSBR454 00235 10 FILLER PIC X(03) DTSBR454 00236 VALUE 'TOT'. DTSBR454 00237 05 HDR1-LINE-12. DTSBR454 00238 10 FILLER PIC X(02) VALUE SPACES.DTSBR454 00239 10 FILLER PIC X(03) DTSBR454 00240 VALUE 'ZIP'. DTSBR454 00241 10 FILLER PIC X(03) VALUE SPACES.DTSBR454 00242 10 FILLER PIC X(06) DTSBR454 00243 VALUE 'EMP NO'. DTSBR454 00244 10 FILLER PIC X(03) VALUE SPACES.DTSBR454 00245 10 FILLER PIC X(27) DTSBR454 00246 VALUE 'PRIMARY NAME/OPO NAMES 1-6'. DTSBR454 00247 10 FILLER PIC X(13) VALUE SPACES.DTSBR454 00248 10 FILLER PIC X(24) DTSBR454 00249 VALUE 'MAIL/DC LOCATION ADDRESS'. DTSBR454 00250 10 FILLER PIC X(18) VALUE SPACES.DTSBR454 00251 10 FILLER PIC X(13) DTSBR454 00252 VALUE ' NUMBERS '. DTSBR454 00253 10 FILLER PIC X(06) VALUE SPACES.DTSBR454 00254 10 FILLER PIC X(05) DTSBR454 00255 VALUE 'DATE'. DTSBR454 00256 10 FILLER PIC X(05) VALUE SPACES.DTSBR454 00257 10 FILLER PIC X(04) DTSBR454 00258 VALUE 'RATE'. DTSBR454 00259 05 HDR1-LINE-13 PIC X(133) VALUE SPACES.DTSBR454 00260 DTSBR454 00261 01 DETAIL-LINE-1. DTSBR454 00262 05 DTL1-LINE-5. DTSBR454 00263 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00264 10 DTL1-FIELD-ZIP PIC X(05). DTSBR454 00265 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00266 10 DTL1-EMP-NO PIC 999B999. DTSBR454 00267 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00268 10 DTL1-PRIMARY-NAME PIC X(40). DTSBR454 00269 10 FILLER PIC X(02) VALUE SPACES.DTSBR454 00270 10 DTL1-ADDR1-ATTN-LINE PIC X(40). DTSBR454 00271 10 FILLER PIC X(02) VALUE SPACES.DTSBR454 00272 10 DTL1-VOICE-1 PIC X(14). DTSBR454 00273 10 FILLER PIC X(02) VALUE SPACES.DTSBR454 00274 10 DTL1-INACTIVE-DATE PIC X(08). DTSBR454 00275 10 FILLER PIC X(02) VALUE SPACE. DTSBR454 00276 10 DTL1-RATE PIC X(07). DTSBR454 00277 05 DTL1-LINE-6. DTSBR454 00278 10 FILLER PIC X(16) VALUE SPACES.DTSBR454 00279 10 DTL1-OPO-NAME-1 PIC X(32). DTSBR454 00280 10 FILLER PIC X(09) VALUE SPACES.DTSBR454 00281 10 DTL1-ADDR1-DELIV-LINE-2 PIC X(40). DTSBR454 00282 10 FILLER PIC X(02) VALUE SPACES.DTSBR454 00283 10 DTL1-VOICE-2 PIC X(14). DTSBR454 00284 10 FILLER PIC X(03) VALUE SPACES.DTSBR454 00285 10 FILLER PIC X(15) DTSBR454 00286 VALUE 'TOT DUE/CREDIT:'. DTSBR454 00287 05 DTL1-LINE-7. DTSBR454 00288 10 FILLER PIC X(16) VALUE SPACES.DTSBR454 00289 10 DTL1-OPO-NAME-2 PIC X(32). DTSBR454 00290 10 FILLER PIC X(09) VALUE SPACES.DTSBR454 00291 10 DTL1-ADDR1-CSZ PIC X(40). DTSBR454 00292 10 FILLER PIC X(02) VALUE SPACES.DTSBR454 00293 10 DTL1-VOICE-3 PIC X(14). DTSBR454 00294 10 FILLER PIC X(03) VALUE SPACES.DTSBR454 00295 10 DTL1-AMT PIC ZZ,ZZZ,ZZ9.99-. DTSBR454 00296 05 DTL1-LINE-8. DTSBR454 00297 10 FILLER PIC X(16) VALUE SPACES.DTSBR454 00298 10 DTL1-OPO-NAME-3 PIC X(32). DTSBR454 00299 05 DTL1-LINE-9. DTSBR454 00300 10 FILLER PIC X(16) VALUE SPACES.DTSBR454 00301 10 DTL1-OPO-NAME-4 PIC X(32). DTSBR454 00302 10 FILLER PIC X(09) VALUE SPACES.DTSBR454 00303 10 DTL1-ADDR2-ATTN-LINE PIC X(40). DTSBR454 00304 10 FILLER PIC X(02) VALUE SPACES.DTSBR454 00305 10 DTL1-DELQ-YRQS PIC X(16) DTSBR454 00306 VALUE 'OTHER DELQ YRQS:'. DTSBR454 00307 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00308 10 DTL1-YRQ-1 PIC X(03). DTSBR454 00309 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00310 10 DTL1-YRQ-2 PIC X(03). DTSBR454 00311 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00312 10 DTL1-YRQ-3 PIC X(03). DTSBR454 00313 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00314 10 DTL1-YRQ-4 PIC X(03). DTSBR454 00315 DTSBR454 00316 05 DTL1-LINE-10. DTSBR454 00317 10 FILLER PIC X(16) VALUE SPACES.DTSBR454 00318 10 DTL1-OPO-NAME-5 PIC X(32). DTSBR454 00319 10 FILLER PIC X(09) VALUE SPACES.DTSBR454 00320 10 DTL1-ADDR2-DELIV-LINE-2 PIC X(40). DTSBR454 00321 10 FILLER PIC X(03) VALUE SPACE. DTSBR454 00322 10 DTL1-YRQ-5 PIC X(03). DTSBR454 00323 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00324 10 DTL1-YRQ-6 PIC X(03). DTSBR454 00325 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00326 10 DTL1-YRQ-7 PIC X(03). DTSBR454 00327 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00328 10 DTL1-YRQ-8 PIC X(03). DTSBR454 00329 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00330 10 DTL1-YRQ-9 PIC X(03). DTSBR454 00331 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00332 10 DTL1-YRQ-10 PIC X(03). DTSBR454 00333 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00334 10 DTL1-YRQ-11 PIC X(03). DTSBR454 00335 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00336 10 DTL1-YRQ-12 PIC X(03). DTSBR454 00337 DTSBR454 00338 05 DTL1-LINE-11. DTSBR454 00339 10 FILLER PIC X(16) VALUE SPACES.DTSBR454 00340 10 DTL1-OPO-NAME-6 PIC X(32). DTSBR454 00341 10 FILLER PIC X(09) VALUE SPACES.DTSBR454 00342 10 DTL1-ADDR2-CSZ PIC X(40). DTSBR454 00343 10 FILLER PIC X(03) VALUE SPACE. DTSBR454 00344 10 DTL1-YRQ-13 PIC X(03). DTSBR454 00345 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00346 10 DTL1-YRQ-14 PIC X(03). DTSBR454 00347 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00348 10 DTL1-YRQ-15 PIC X(03). DTSBR454 00349 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00350 10 DTL1-YRQ-16 PIC X(03). DTSBR454 00351 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00352 10 DTL1-YRQ-17 PIC X(03). DTSBR454 00353 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00354 10 DTL1-YRQ-18 PIC X(03). DTSBR454 00355 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00356 10 DTL1-YRQ-19 PIC X(03). DTSBR454 00357 DTSBR454 00358 01 CONTROL-FOOTING1. DTSBR454 00359 05 CTF1-LINE-5. DTSBR454 00360 10 FILLER PIC X(28) VALUE SPACES.DTSBR454 00361 10 CTF1-NUMBER-ONE PIC ZZ,ZZ9. DTSBR454 00362 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00363 10 FILLER PIC X(33) DTSBR454 00364 VALUE 'DELINQUENT EMPLOYERS FOR ZIP CODE'. DTSBR454 00365 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00366 10 CTF1-FIELD-ZIP PIC X(05). DTSBR454 00367 DTSBR454 00368 01 CONTROL-FOOTING2. DTSBR454 00369 05 CTF2-LINE-2. DTSBR454 00370 10 FILLER PIC X(28) VALUE SPACES.DTSBR454 00371 10 CTF2-NUMBER-TWO PIC ZZ,ZZ9. DTSBR454 00372 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00373 10 FILLER PIC X(35) DTSBR454 00374 VALUE 'DELINQUENT EMPLOYERS FOR FIELD CODE'. DTSBR454 00375 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00376 10 CTF2-FLD-REP-ID PIC X(02). DTSBR454 00377 DTSBR454 00378 01 PAGE-HEADING2. DTSBR454 00379 05 HDR2-LINE-1. DTSBR454 00380 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00381 10 FILLER PIC X(05) DTSBR454 00382 VALUE '454R2'. DTSBR454 00383 10 FILLER PIC X(35) VALUE SPACES.DTSBR454 00384 10 HDR2-AGY-NAME-LINE1 PIC X(50). DTSBR454 00385 10 FILLER PIC X(27) VALUE SPACES.DTSBR454 00386 10 FILLER PIC X(05) DTSBR454 00387 VALUE 'DATE:'. DTSBR454 00388 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00389 10 HDR2-SYS-DATE PIC X(08). DTSBR454 00390 05 HDR2-LINE-2. DTSBR454 00391 10 FILLER PIC X(41) VALUE SPACES.DTSBR454 00392 10 HDR2-AGY-NAME-LINE2 PIC X(50). DTSBR454 00393 10 FILLER PIC X(27) VALUE SPACES.DTSBR454 00394 10 FILLER PIC X(05) DTSBR454 00395 VALUE 'TIME:'. DTSBR454 00396 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00397 10 HDR2-SYS-TIME PIC X(08). DTSBR454 00398 05 HDR2-LINE-3. DTSBR454 00399 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00400 10 FILLER PIC X(27) DTSBR454 00401 VALUE 'ROUTE TO: ENFORCEMENT UNIT'. DTSBR454 00402 10 FILLER PIC X(90) VALUE SPACES.DTSBR454 00403 10 FILLER PIC X(05) DTSBR454 00404 VALUE 'PAGE:'. DTSBR454 00405 10 FILLER PIC X(03) VALUE SPACES.DTSBR454 00406 10 HDR2-PAGE-CNT PIC ZZ,ZZ9. DTSBR454 00407 05 HDR2-LINE-4. DTSBR454 00408 10 FILLER PIC X(51) VALUE SPACES.DTSBR454 00409 10 FILLER PIC X(29) DTSBR454 00410 VALUE 'ANNUAL DELINQUENT REPORT LIST'. DTSBR454 00411 05 HDR2-LINE-5 PIC X(133) VALUE SPACES.DTSBR454 00412 05 HDR2-LINE-6. DTSBR454 00413 10 FILLER PIC X(05) VALUE SPACES.DTSBR454 00414 10 FILLER PIC X(13) DTSBR454 00415 VALUE 'SUBJECT YEAR:'. DTSBR454 00416 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00417 * 10 HDR2-SUBJECT-QTR PIC X(04). DTSBR454 00418 10 HDR2-SUBJECT-YEAR PIC X(04). DTSBR454 00419 10 FILLER PIC X(35) VALUE SPACES.DTSBR454 00420 10 FILLER PIC X(17) DTSBR454 00421 VALUE 'FIELD REP SUMMARY'. DTSBR454 00422 05 HDR2-LINE-7. DTSBR454 00423 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00424 10 FILLER PIC X(17) DTSBR454 00425 VALUE 'COMPUTATION DATE:'. DTSBR454 00426 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00427 10 HDR2-COMPUTATION-DATE PIC X(08). DTSBR454 00428 05 HDR2-LINE-8 PIC X(133) VALUE SPACES.DTSBR454 00429 05 HDR2-LINE-9. DTSBR454 00430 10 FILLER PIC X(53) VALUE SPACES.DTSBR454 00431 10 FILLER PIC X(20) DTSBR454 00432 VALUE ' TOTAL '. DTSBR454 00433 10 FILLER PIC X(05) VALUE SPACES.DTSBR454 00434 10 FILLER PIC X(20) DTSBR454 00435 VALUE ' REMOVED '. DTSBR454 00436 10 FILLER PIC X(05) VALUE SPACES.DTSBR454 00437 10 FILLER PIC X(20) DTSBR454 00438 VALUE ' INCLUDED '. DTSBR454 00439 05 HDR2-LINE-10. DTSBR454 00440 10 FILLER PIC X(01) VALUE SPACE. DTSBR454 00441 10 FILLER PIC X(10) DTSBR454 00442 VALUE 'FIELD CODE'. DTSBR454 00443 10 FILLER PIC X(05). DTSBR454 00444 10 FILLER PIC X(14) DTSBR454 00445 VALUE 'FIELD REP NAME'. DTSBR454 00446 10 FILLER PIC X(23). DTSBR454 00447 10 FILLER PIC X(20) DTSBR454 00448 VALUE 'DELINQUENT EMPLOYERS'. DTSBR454 00449 10 FILLER PIC X(05). DTSBR454 00450 10 FILLER PIC X(20) DTSBR454 00451 VALUE 'DELINQUENT EMPLOYERS'. DTSBR454 00452 10 FILLER PIC X(05). DTSBR454 00453 10 FILLER PIC X(20) DTSBR454 00454 VALUE 'DELINQUENT EMPLOYERS'. DTSBR454 00455 DTSBR454 00456 01 CONTROL-FOOTING3. DTSBR454 00457 05 CTF3-LINE-2. DTSBR454 00458 10 FILLER PIC X(04) VALUE SPACES.DTSBR454 00459 10 CTF3-FLD-REP-ID PIC X(02). DTSBR454 00460 10 FILLER PIC X(10) VALUE SPACES.DTSBR454 00461 10 CTF3-FLD-REP-NAME PIC X(32). DTSBR454 00462 10 FILLER PIC X(12) VALUE SPACES.DTSBR454 00463 10 CTF3-DTLR-DTLI-CNT PIC ZZ,ZZ9. DTSBR454 00464 10 FILLER PIC X(19) VALUE SPACES.DTSBR454 00465 10 CTF3-DTLR-CNT PIC ZZ,ZZ9. DTSBR454 00466 10 FILLER PIC X(19) VALUE SPACES.DTSBR454 00467 10 CTF3-DTLI-CNT PIC ZZ,ZZ9. DTSBR454 00468 DTSBR454 00469 01 CONTROL-FOOTING-FINAL. DTSBR454 00470 05 CFF-LINE-3. DTSBR454 00471 10 FILLER PIC X(59) VALUE SPACES.DTSBR454 00472 10 FILLER PIC X(08) DTSBR454 00473 VALUE '--------'. DTSBR454 00474 10 FILLER PIC X(17) VALUE SPACES.DTSBR454 00475 10 FILLER PIC X(08) DTSBR454 00476 VALUE '--------'. DTSBR454 00477 10 FILLER PIC X(17) VALUE SPACES.DTSBR454 00478 10 FILLER PIC X(08) DTSBR454 00479 VALUE '--------'. DTSBR454 00480 05 CFF-LINE-4. DTSBR454 00481 10 FILLER PIC X(39) VALUE SPACES.DTSBR454 00482 10 FILLER PIC X(13) DTSBR454 00483 VALUE 'REPORT TOTALS'. DTSBR454 00484 10 FILLER PIC X(08) VALUE SPACES.DTSBR454 00485 10 CFF-DTLR-DTLI-CNT PIC ZZ,ZZ9. DTSBR454 00486 10 FILLER PIC X(19) VALUE SPACES.DTSBR454 00487 10 CFF-DTLR-CNT PIC ZZ,ZZ9. DTSBR454 00488 10 FILLER PIC X(19) VALUE SPACES.DTSBR454 00489 10 CFF-DTLI-CNT PIC ZZ,ZZ9. DTSBR454 00490 EJECT DTSBR454 00491 LINKAGE SECTION. DTSBR454 00492 SKIP3 DTSBR454 00493 01 LRCM-LINK-AREA. DTSBR454 00494 ++INCLUDE DTSILRCM DTSBR454 00495 EJECT DTSBR454 00496 01 R454-REC. DTSBR454 00497 ++INCLUDE DTSIR454 DTSBR454 00498 EJECT DTSBR454 00499 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR454 00500 R454-REC. DTSBR454 00501 DTSBR454 00502 IF FIRST-TIME-IND = 'Y' DTSBR454 00503 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR454 00504 MOVE 'N' TO FIRST-TIME-IND. DTSBR454 00505 DTSBR454 00506 IF LRCM-EOR-88 DTSBR454 00507 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR454 00508 ELSE DTSBR454 00509 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR454 00510 SKIP3 DTSBR454 00511 GOBACK. DTSBR454 00512 EJECT DTSBR454 00513 I1000-INITIATE. DTSBR454 00514 DTSBR454 00515 MOVE R454-YRQ TO L004-QTR-5-9. DTSBR454 00516 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR454 00517 * MOVE L004-SLASH-QTR TO HDR1-SUBJECT-QTR HDR2-SUBJECT-QTR. DTSBR454 00518 MOVE L004-QTR-5-YR TO HDR1-SUBJECT-YEAR HDR2-SUBJECT-YEAR. DTSBR454 00519 DTSBR454 00520 MOVE R454-COMPUTATION-DATE TO L001-FED-8-DATE-9. DTSBR454 00521 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR454 00522 MOVE L001-SLASH-DATE TO HDR1-COMPUTATION-DATE DTSBR454 00523 HDR2-COMPUTATION-DATE. DTSBR454 00524 DTSBR454 00525 OPEN OUTPUT PRT-FILE-1 DTSBR454 00526 PRT-FILE-2. DTSBR454 00527 DTSBR454 00528 MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE. DTSBR454 00529 MOVE LRCM-SYS-DATE TO HDR2-SYS-DATE. DTSBR454 00530 MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME. DTSBR454 00531 MOVE LRCM-SYS-TIME TO HDR2-SYS-TIME. DTSBR454 00532 MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1. DTSBR454 00533 MOVE LRCM-AGY-NAME-LINE1 TO HDR2-AGY-NAME-LINE1. DTSBR454 00534 MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2. DTSBR454 00535 MOVE LRCM-AGY-NAME-LINE2 TO HDR2-AGY-NAME-LINE2. DTSBR454 00536 MOVE SPACES TO REPORT-LISTING1 REPORT-LISTING2. DTSBR454 00537 DTSBR454 00538 I1000-EXIT. DTSBR454 00539 EXIT. DTSBR454 00540 EJECT DTSBR454 00541 P1000-PROCESS. DTSBR454 00542 DTSBR454 00543 IF R454-FIELD-REP-ID NOT = WRK-FLD-REP-ID DTSBR454 00544 PERFORM S1000-FIELD-REP-ID-BREAK THRU S1000-EXIT DTSBR454 00545 DTSBR454 00546 IF WS-NUMBER-TWO = +0 DTSBR454 00547 MOVE +99 TO WS-NUMBER-TWO DTSBR454 00548 ELSE DTSBR454 00549 PERFORM P6000-PRINT-FOOTER THRU P6000-EXIT DTSBR454 00550 MOVE +60 TO WS-LINE-CNT2 DTSBR454 00551 MOVE +0 TO WS-NUMBER-ONE DTSBR454 00552 PERFORM P7000-PRINT-FOOTER THRU P7000-EXIT DTSBR454 00553 END-IF DTSBR454 00554 END-IF. DTSBR454 00555 DTSBR454 00556 IF R454-SUSPEND-COLL-YES-88 DTSBR454 00557 ADD +1 TO WS-DTLR-CNT1 DTSBR454 00558 ADD +1 TO WS-DTLR-CNT2 DTSBR454 00559 GO TO P1000-EXIT. DTSBR454 00560 DTSBR454 00561 DTSBR454 00562 IF R454-FIELD-ZIP NOT = WRK-FIELD-ZIP DTSBR454 00563 MOVE R454-FIELD-ZIP TO WRK-FIELD-ZIP DTSBR454 00564 * DTSBR454 00565 IF WS-NUMBER-ONE = +0 DTSBR454 00566 MOVE +99 TO WS-NUMBER-ONE DTSBR454 00567 ELSE DTSBR454 00568 PERFORM P5000-PRINT-FOOTER THRU P5000-EXIT DTSBR454 00569 MOVE +60 TO WS-LINE-CNT2 DTSBR454 00570 END-IF DTSBR454 00571 END-IF. DTSBR454 00572 * DTSBR454 00573 DTSBR454 00574 PERFORM VARYING WRK-CNT FROM 1 BY 1 DTSBR454 00575 UNTIL WRK-CNT > 3 DTSBR454 00576 IF R454-EMPLOYER-VOICE (WRK-CNT) = SPACE DTSBR454 00577 MOVE SPACE TO WRK-VOICE (WRK-CNT) DTSBR454 00578 ELSE DTSBR454 00579 MOVE '(' DTSBR454 00580 TO WRK-VOICE-LEFT (WRK-CNT) DTSBR454 00581 MOVE R454-VOICE-AREA-CD (WRK-CNT) DTSBR454 00582 TO WRK-VOICE-AREA-CD (WRK-CNT) DTSBR454 00583 MOVE ') ' DTSBR454 00584 TO WRK-VOICE-RIGHT (WRK-CNT) DTSBR454 00585 MOVE R454-VOICE-PREFIX (WRK-CNT) DTSBR454 00586 TO WRK-VOICE-PREFIX (WRK-CNT) DTSBR454 00587 MOVE '-' DTSBR454 00588 TO WRK-VOICE-DASH (WRK-CNT) DTSBR454 00589 MOVE R454-VOICE-SUFFIX (WRK-CNT) DTSBR454 00590 TO WRK-VOICE-SUFFIX (WRK-CNT) DTSBR454 00591 END-IF DTSBR454 00592 END-PERFORM. DTSBR454 00593 DTSBR454 00594 MOVE R454-INACT-DATE TO L001-FED-8-DATE-9. DTSBR454 00595 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR454 00596 IF L001-VALID-DATE DTSBR454 00597 MOVE L001-SLASH-DATE TO WRK-INACTIVE-DATE DTSBR454 00598 ELSE DTSBR454 00599 MOVE ' ACTIVE ' TO WRK-INACTIVE-DATE. DTSBR454 00600 DTSBR454 00601 MOVE R454-TOTAL-RATE TO L056-RATE. DTSBR454 00602 PERFORM S056-RATE-FORMAT THRU S056-EXIT. DTSBR454 00603 MOVE L056-DISP-RATE TO WRK-RATE. DTSBR454 00604 DTSBR454 00605 IF R454-BALANCE-AMT > 0 DTSBR454 00606 MOVE R454-BALANCE-AMT TO WRK-AMT DTSBR454 00607 ELSE DTSBR454 00608 MULTIPLY R454-CREDIT-AMT BY -1 GIVING WRK-AMT. DTSBR454 00609 DTSBR454 00610 MOVE R454-ADDR1-CITY TO WRK-ADDR1-CITY. DTSBR454 00611 MOVE R454-ADDR1-STATE TO WRK-ADDR1-STATE. DTSBR454 00612 MOVE R454-ADDR1-ZIP TO WRK-ADDR1-ZIP. DTSBR454 00613 MOVE R454-ADDR2-CITY TO WRK-ADDR2-CITY. DTSBR454 00614 MOVE R454-ADDR2-STATE TO WRK-ADDR2-STATE. DTSBR454 00615 MOVE R454-ADDR2-ZIP TO WRK-ADDR2-ZIP. DTSBR454 00616 MOVE WRK-FIELD-ZIP TO CTF1-FIELD-ZIP. DTSBR454 00617 MOVE R454-FIELD-REP-ID TO CTF2-FLD-REP-ID. DTSBR454 00618 MOVE R454-FIELD-REP-ID TO CTF3-FLD-REP-ID. DTSBR454 00619 MOVE WRK-FLD-REP-NAME TO CTF3-FLD-REP-NAME. DTSBR454 00620 DTSBR454 00621 MOVE SPACE TO WRK-ADDNL-YRQ-TBL. DTSBR454 00622 PERFORM VARYING WRK-CNT FROM 1 BY 1 DTSBR454 00623 UNTIL WRK-CNT > R454-ADDITIONAL-RPT-CNT DTSBR454 00624 MOVE R454-ADDITIONAL-RPT-YRQ (WRK-CNT) DTSBR454 00625 TO WRK-ADDNL-YRQ-9 (WRK-CNT) DTSBR454 00626 END-PERFORM. DTSBR454 00627 DTSBR454 00628 MOVE R454-EMP-NO TO DTL1-EMP-NO. DTSBR454 00629 MOVE R454-PRIMARY-NAME TO DTL1-PRIMARY-NAME. DTSBR454 00630 DTSBR454 00631 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT. DTSBR454 00632 DTSBR454 00633 * DTL1-LINE-5 DTSBR454 00634 IF R454-ADDR1-ATTN-LINE NOT = SPACES DTSBR454 00635 MOVE R454-ADDR1-ATTN-LINE TO DTL1-ADDR1-ATTN-LINE DTSBR454 00636 ELSE DTSBR454 00637 MOVE R454-ADDR1-DELIV-LINE-2 TO DTL1-ADDR1-ATTN-LINE DTSBR454 00638 END-IF. DTSBR454 00639 MOVE WRK-VOICE (1) TO DTL1-VOICE-1. DTSBR454 00640 MOVE WRK-INACTIVE-DATE TO DTL1-INACTIVE-DATE. DTSBR454 00641 MOVE WRK-RATE TO DTL1-RATE. DTSBR454 00642 WRITE REPORT-LISTING1 FROM DTL1-LINE-5 AFTER 1. DTSBR454 00643 MOVE SPACES TO DTL1-FIELD-ZIP. DTSBR454 00644 DTSBR454 00645 * DTL1-LINE-6 DTSBR454 00646 IF R454-OPO-NAME-CNT > 0 DTSBR454 00647 MOVE R454-OPO-NAME (1) TO DTL1-OPO-NAME-1 DTSBR454 00648 END-IF. DTSBR454 00649 IF R454-ADDR1-ATTN-LINE NOT = SPACES DTSBR454 00650 MOVE R454-ADDR1-DELIV-LINE-2 TO DTL1-ADDR1-DELIV-LINE-2 DTSBR454 00651 ELSE DTSBR454 00652 MOVE WRK-ADDR1-CSZ TO DTL1-ADDR1-DELIV-LINE-2 DTSBR454 00653 END-IF. DTSBR454 00654 MOVE WRK-VOICE (2) TO DTL1-VOICE-2. DTSBR454 00655 WRITE REPORT-LISTING1 FROM DTL1-LINE-6 AFTER 1. DTSBR454 00656 MOVE SPACES TO DTL1-OPO-NAME-1. DTSBR454 00657 MOVE SPACES TO DTL1-ADDR1-DELIV-LINE-2. DTSBR454 00658 DTSBR454 00659 * DTL1-LINE-7 DTSBR454 00660 IF R454-OPO-NAME-CNT > 1 DTSBR454 00661 MOVE R454-OPO-NAME (2) TO DTL1-OPO-NAME-2 DTSBR454 00662 END-IF. DTSBR454 00663 IF R454-ADDR1-ATTN-LINE NOT = SPACES DTSBR454 00664 MOVE WRK-ADDR1-CSZ TO DTL1-ADDR1-CSZ DTSBR454 00665 END-IF. DTSBR454 00666 MOVE WRK-VOICE (3) TO DTL1-VOICE-3. DTSBR454 00667 MOVE WRK-AMT TO DTL1-AMT. DTSBR454 00668 WRITE REPORT-LISTING1 FROM DTL1-LINE-7 AFTER 1. DTSBR454 00669 MOVE SPACES TO DTL1-OPO-NAME-2. DTSBR454 00670 MOVE SPACES TO DTL1-ADDR1-CSZ. DTSBR454 00671 DTSBR454 00672 * DTL1-LINE-8 DTSBR454 00673 IF R454-OPO-NAME-CNT > 2 DTSBR454 00674 MOVE R454-OPO-NAME (3) TO DTL1-OPO-NAME-3 DTSBR454 00675 END-IF. DTSBR454 00676 WRITE REPORT-LISTING1 FROM DTL1-LINE-8 AFTER 1. DTSBR454 00677 MOVE SPACES TO DTL1-OPO-NAME-3. DTSBR454 00678 DTSBR454 00679 * DTL1-LINE-9 DTSBR454 00680 IF R454-OPO-NAME-CNT > 3 DTSBR454 00681 MOVE R454-OPO-NAME (4) TO DTL1-OPO-NAME-4 DTSBR454 00682 END-IF. DTSBR454 00683 IF R454-ADDR2-ATTN-LINE NOT = SPACES DTSBR454 00684 MOVE R454-ADDR2-ATTN-LINE TO DTL1-ADDR2-ATTN-LINE DTSBR454 00685 ELSE DTSBR454 00686 MOVE R454-ADDR2-DELIV-LINE-2 TO DTL1-ADDR2-ATTN-LINE DTSBR454 00687 END-IF. DTSBR454 00688 IF R454-ADDITIONAL-RPT-CNT > 0 DTSBR454 00689 MOVE 'OTHER DELQ YRQS:' TO DTL1-DELQ-YRQS DTSBR454 00690 ELSE DTSBR454 00691 MOVE SPACES TO DTL1-DELQ-YRQS DTSBR454 00692 END-IF. DTSBR454 00693 IF R454-ADDITIONAL-RPT-CNT > 0 DTSBR454 00694 MOVE WRK-ADDNL-YRQ (1) TO DTL1-YRQ-1 DTSBR454 00695 ELSE DTSBR454 00696 MOVE SPACES TO DTL1-YRQ-1 DTSBR454 00697 END-IF. DTSBR454 00698 IF R454-ADDITIONAL-RPT-CNT > 1 DTSBR454 00699 MOVE WRK-ADDNL-YRQ (2) TO DTL1-YRQ-2 DTSBR454 00700 ELSE DTSBR454 00701 MOVE SPACES TO DTL1-YRQ-2 DTSBR454 00702 END-IF. DTSBR454 00703 IF R454-ADDITIONAL-RPT-CNT > 2 DTSBR454 00704 MOVE WRK-ADDNL-YRQ (3) TO DTL1-YRQ-3 DTSBR454 00705 ELSE DTSBR454 00706 MOVE SPACES TO DTL1-YRQ-3 DTSBR454 00707 END-IF. DTSBR454 00708 IF R454-ADDITIONAL-RPT-CNT > 3 DTSBR454 00709 MOVE WRK-ADDNL-YRQ (4) TO DTL1-YRQ-4 DTSBR454 00710 ELSE DTSBR454 00711 MOVE SPACES TO DTL1-YRQ-4 DTSBR454 00712 END-IF. DTSBR454 00713 WRITE REPORT-LISTING1 FROM DTL1-LINE-9 AFTER 1. DTSBR454 00714 MOVE SPACES TO DTL1-OPO-NAME-4. DTSBR454 00715 MOVE SPACES TO DTL1-ADDR2-ATTN-LINE. DTSBR454 00716 DTSBR454 00717 * DTL1-LINE-10 DTSBR454 00718 IF R454-OPO-NAME-CNT > 4 DTSBR454 00719 MOVE R454-OPO-NAME (5) TO DTL1-OPO-NAME-5 DTSBR454 00720 END-IF. DTSBR454 00721 IF R454-ADDR2-ATTN-LINE NOT = SPACES DTSBR454 00722 MOVE R454-ADDR2-DELIV-LINE-2 TO DTL1-ADDR2-DELIV-LINE-2 DTSBR454 00723 ELSE DTSBR454 00724 MOVE WRK-ADDR2-CSZ TO DTL1-ADDR2-DELIV-LINE-2 DTSBR454 00725 END-IF. DTSBR454 00726 IF R454-ADDITIONAL-RPT-CNT > 4 DTSBR454 00727 MOVE WRK-ADDNL-YRQ (5) TO DTL1-YRQ-5 DTSBR454 00728 ELSE DTSBR454 00729 MOVE SPACES TO DTL1-YRQ-5 DTSBR454 00730 END-IF. DTSBR454 00731 IF R454-ADDITIONAL-RPT-CNT > 5 DTSBR454 00732 MOVE WRK-ADDNL-YRQ (6) TO DTL1-YRQ-6 DTSBR454 00733 ELSE DTSBR454 00734 MOVE SPACES TO DTL1-YRQ-6 DTSBR454 00735 END-IF. DTSBR454 00736 IF R454-ADDITIONAL-RPT-CNT > 6 DTSBR454 00737 MOVE WRK-ADDNL-YRQ (7) TO DTL1-YRQ-7 DTSBR454 00738 ELSE DTSBR454 00739 MOVE SPACES TO DTL1-YRQ-7 DTSBR454 00740 END-IF. DTSBR454 00741 IF R454-ADDITIONAL-RPT-CNT > 7 DTSBR454 00742 MOVE WRK-ADDNL-YRQ (8) TO DTL1-YRQ-8 DTSBR454 00743 ELSE DTSBR454 00744 MOVE SPACES TO DTL1-YRQ-8 DTSBR454 00745 END-IF. DTSBR454 00746 IF R454-ADDITIONAL-RPT-CNT > 8 DTSBR454 00747 MOVE WRK-ADDNL-YRQ (9) TO DTL1-YRQ-9 DTSBR454 00748 ELSE DTSBR454 00749 MOVE SPACES TO DTL1-YRQ-9 DTSBR454 00750 END-IF. DTSBR454 00751 IF R454-ADDITIONAL-RPT-CNT > 9 DTSBR454 00752 MOVE WRK-ADDNL-YRQ (10) TO DTL1-YRQ-10 DTSBR454 00753 ELSE DTSBR454 00754 MOVE SPACES TO DTL1-YRQ-10 DTSBR454 00755 END-IF. DTSBR454 00756 IF R454-ADDITIONAL-RPT-CNT > 10 DTSBR454 00757 MOVE WRK-ADDNL-YRQ (11) TO DTL1-YRQ-11 DTSBR454 00758 ELSE DTSBR454 00759 MOVE SPACES TO DTL1-YRQ-11 DTSBR454 00760 END-IF. DTSBR454 00761 IF R454-ADDITIONAL-RPT-CNT > 11 DTSBR454 00762 MOVE WRK-ADDNL-YRQ (12) TO DTL1-YRQ-12 DTSBR454 00763 ELSE DTSBR454 00764 MOVE SPACES TO DTL1-YRQ-12 DTSBR454 00765 END-IF. DTSBR454 00766 WRITE REPORT-LISTING1 FROM DTL1-LINE-10 AFTER 1. DTSBR454 00767 MOVE SPACES TO DTL1-OPO-NAME-5. DTSBR454 00768 MOVE SPACES TO DTL1-ADDR2-DELIV-LINE-2. DTSBR454 00769 DTSBR454 00770 * DTL1-LINE-11 DTSBR454 00771 IF R454-OPO-NAME-CNT > 5 DTSBR454 00772 MOVE R454-OPO-NAME (6) TO DTL1-OPO-NAME-6 DTSBR454 00773 END-IF. DTSBR454 00774 IF R454-ADDR2-ATTN-LINE NOT = SPACES DTSBR454 00775 MOVE WRK-ADDR2-CSZ TO DTL1-ADDR2-CSZ DTSBR454 00776 END-IF. DTSBR454 00777 IF R454-ADDITIONAL-RPT-CNT > 12 DTSBR454 00778 MOVE WRK-ADDNL-YRQ (13) TO DTL1-YRQ-13 DTSBR454 00779 ELSE DTSBR454 00780 MOVE SPACES TO DTL1-YRQ-13 DTSBR454 00781 END-IF. DTSBR454 00782 IF R454-ADDITIONAL-RPT-CNT > 13 DTSBR454 00783 MOVE WRK-ADDNL-YRQ (14) TO DTL1-YRQ-14 DTSBR454 00784 ELSE DTSBR454 00785 MOVE SPACES TO DTL1-YRQ-14 DTSBR454 00786 END-IF. DTSBR454 00787 IF R454-ADDITIONAL-RPT-CNT > 14 DTSBR454 00788 MOVE WRK-ADDNL-YRQ (15) TO DTL1-YRQ-15 DTSBR454 00789 ELSE DTSBR454 00790 MOVE SPACES TO DTL1-YRQ-15 DTSBR454 00791 END-IF. DTSBR454 00792 IF R454-ADDITIONAL-RPT-CNT > 15 DTSBR454 00793 MOVE WRK-ADDNL-YRQ (16) TO DTL1-YRQ-16 DTSBR454 00794 ELSE DTSBR454 00795 MOVE SPACES TO DTL1-YRQ-16 DTSBR454 00796 END-IF. DTSBR454 00797 IF R454-ADDITIONAL-RPT-CNT > 16 DTSBR454 00798 MOVE WRK-ADDNL-YRQ (17) TO DTL1-YRQ-17 DTSBR454 00799 ELSE DTSBR454 00800 MOVE SPACES TO DTL1-YRQ-17 DTSBR454 00801 END-IF. DTSBR454 00802 IF R454-ADDITIONAL-RPT-CNT > 17 DTSBR454 00803 MOVE WRK-ADDNL-YRQ (17) TO DTL1-YRQ-18 DTSBR454 00804 ELSE DTSBR454 00805 MOVE SPACES TO DTL1-YRQ-18 DTSBR454 00806 END-IF. DTSBR454 00807 IF R454-ADDITIONAL-RPT-CNT > 18 DTSBR454 00808 MOVE WRK-ADDNL-YRQ (18) TO DTL1-YRQ-19 DTSBR454 00809 ELSE DTSBR454 00810 MOVE SPACES TO DTL1-YRQ-19 DTSBR454 00811 END-IF. DTSBR454 00812 DTSBR454 00813 WRITE REPORT-LISTING1 FROM DTL1-LINE-11 AFTER 1. DTSBR454 00814 WRITE REPORT-LISTING1 FROM DTL1-BLANK-LINE AFTER 4. DTSBR454 00815 MOVE SPACES TO DTL1-OPO-NAME-6. DTSBR454 00816 MOVE SPACES TO DTL1-ADDR2-CSZ. DTSBR454 00817 DTSBR454 00818 ADD +11 TO WS-LINE-CNT2. DTSBR454 00819 ADD +1 TO WS-DTLI-CNT1. DTSBR454 00820 ADD +1 TO WS-DTLR-DTLI-CNT1. DTSBR454 00821 ADD +1 TO WS-DTLI-CNT2. DTSBR454 00822 ADD +1 TO WS-DTLR-DTLI-CNT2. DTSBR454 00823 ADD +1 TO WS-FOOT-NUMBER-TWO. DTSBR454 00824 ADD +1 TO WS-FOOT-NUMBER-ONE. DTSBR454 00825 DTSBR454 00826 P1000-EXIT. DTSBR454 00827 EXIT. DTSBR454 00828 DTSBR454 00829 P3000-PRINT-HEADER. DTSBR454 00830 DTSBR454 00831 IF WS-LINE-CNT GREATER 56 OR DTSBR454 00832 WS-LINE-CNT2 GREATER 56 DTSBR454 00833 MOVE +0 TO WS-LINE-CNT DTSBR454 00834 MOVE +0 TO WS-LINE-CNT2 DTSBR454 00835 ADD +1 TO WS-PAGE-CNT DTSBR454 00836 MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT DTSBR454 00837 MOVE R454-FIELD-ZIP TO DTL1-FIELD-ZIP DTSBR454 00838 WRITE REPORT-LISTING1 FROM HDR1-LINE-1 DTSBR454 00839 AFTER TOP-OF-PAGE DTSBR454 00840 WRITE REPORT-LISTING1 FROM HDR1-LINE-2 AFTER 1 DTSBR454 00841 WRITE REPORT-LISTING1 FROM HDR1-LINE-3 AFTER 1 DTSBR454 00842 WRITE REPORT-LISTING1 FROM HDR1-LINE-4 AFTER 1 DTSBR454 00843 WRITE REPORT-LISTING1 FROM HDR1-LINE-5 AFTER 1 DTSBR454 00844 WRITE REPORT-LISTING1 FROM HDR1-LINE-6 AFTER 1 DTSBR454 00845 WRITE REPORT-LISTING1 FROM HDR1-LINE-7 AFTER 1 DTSBR454 00846 WRITE REPORT-LISTING1 FROM HDR1-LINE-8 AFTER 1 DTSBR454 00847 WRITE REPORT-LISTING1 FROM HDR1-LINE-9 AFTER 1 DTSBR454 00848 WRITE REPORT-LISTING1 FROM HDR1-LINE-10 AFTER 1 DTSBR454 00849 WRITE REPORT-LISTING1 FROM HDR1-LINE-11 AFTER 1 DTSBR454 00850 WRITE REPORT-LISTING1 FROM HDR1-LINE-12 AFTER 1 DTSBR454 00851 WRITE REPORT-LISTING1 FROM HDR1-LINE-13 AFTER 1 DTSBR454 00852 ADD +13 TO WS-LINE-CNT2. DTSBR454 00853 DTSBR454 00854 P3000-EXIT. DTSBR454 00855 EXIT. DTSBR454 00856 DTSBR454 00857 P4000-PRINT-HEADER. DTSBR454 00858 DTSBR454 00859 IF WS-LINE-CNT3 GREATER 58 OR DTSBR454 00860 WS-LINE-CNT4 GREATER 58 DTSBR454 00861 MOVE +0 TO WS-LINE-CNT3 DTSBR454 00862 MOVE +0 TO WS-LINE-CNT4 DTSBR454 00863 ADD +1 TO WS-PAGE-CNT2 DTSBR454 00864 MOVE WS-PAGE-CNT2 TO HDR2-PAGE-CNT DTSBR454 00865 WRITE REPORT-LISTING2 FROM HDR2-LINE-1 DTSBR454 00866 AFTER TOP-OF-PAGE DTSBR454 00867 WRITE REPORT-LISTING2 FROM HDR2-LINE-2 AFTER 1 DTSBR454 00868 WRITE REPORT-LISTING2 FROM HDR2-LINE-3 AFTER 1 DTSBR454 00869 WRITE REPORT-LISTING2 FROM HDR2-LINE-4 AFTER 1 DTSBR454 00870 WRITE REPORT-LISTING2 FROM HDR2-LINE-5 AFTER 1 DTSBR454 00871 WRITE REPORT-LISTING2 FROM HDR2-LINE-6 AFTER 1 DTSBR454 00872 WRITE REPORT-LISTING2 FROM HDR2-LINE-7 AFTER 1 DTSBR454 00873 WRITE REPORT-LISTING2 FROM HDR2-LINE-8 AFTER 1 DTSBR454 00874 WRITE REPORT-LISTING2 FROM HDR2-LINE-9 AFTER 1 DTSBR454 00875 WRITE REPORT-LISTING2 FROM HDR2-LINE-10 AFTER 1 DTSBR454 00876 ADD +10 TO WS-LINE-CNT4. DTSBR454 00877 DTSBR454 00878 P4000-EXIT. DTSBR454 00879 EXIT. DTSBR454 00880 DTSBR454 00881 P5000-PRINT-FOOTER. DTSBR454 00882 IF WS-LINE-CNT2 > 52 DTSBR454 00883 ADD +8 TO WS-LINE-CNT2 DTSBR454 00884 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR454 00885 END-IF. DTSBR454 00886 DTSBR454 00887 MOVE WS-FOOT-NUMBER-ONE TO CTF1-NUMBER-ONE. DTSBR454 00888 WRITE REPORT-LISTING1 FROM CTF1-LINE-5 AFTER 5. DTSBR454 00889 MOVE +0 TO WS-FOOT-NUMBER-ONE. DTSBR454 00890 DTSBR454 00891 P5000-EXIT. DTSBR454 00892 EXIT. DTSBR454 00893 DTSBR454 00894 P6000-PRINT-FOOTER. DTSBR454 00895 IF WS-LINE-CNT2 > 52 DTSBR454 00896 ADD +8 TO WS-LINE-CNT2 DTSBR454 00897 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR454 00898 END-IF. DTSBR454 00899 DTSBR454 00900 PERFORM P5000-PRINT-FOOTER THRU P5000-EXIT. DTSBR454 00901 MOVE WS-FOOT-NUMBER-TWO TO CTF2-NUMBER-TWO. DTSBR454 00902 WRITE REPORT-LISTING1 FROM CTF2-LINE-2 AFTER 2. DTSBR454 00903 MOVE +0 TO WS-FOOT-NUMBER-TWO. DTSBR454 00904 DTSBR454 00905 DIVIDE WS-PAGE-CNT BY 2 GIVING ODD-PAGE-BLANK DTSBR454 00906 REMAINDER ZPAGE. DTSBR454 00907 DTSBR454 00908 IF ZPAGE > 0 DTSBR454 00909 WRITE REPORT-LISTING1 FROM DTL1-BLANK-LINE DTSBR454 00910 AFTER TOP-OF-PAGE. DTSBR454 00911 DTSBR454 00912 MOVE +0 TO WS-PAGE-CNT. DTSBR454 00913 DTSBR454 00914 P6000-EXIT. DTSBR454 00915 EXIT. DTSBR454 00916 DTSBR454 00917 P7000-PRINT-FOOTER. DTSBR454 00918 IF WS-LINE-CNT3 > 52 DTSBR454 00919 ADD +8 TO WS-LINE-CNT4 DTSBR454 00920 PERFORM P4000-PRINT-HEADER THRU P4000-EXIT DTSBR454 00921 END-IF. DTSBR454 00922 DTSBR454 00923 MOVE WS-DTLR-DTLI-CNT1 TO CTF3-DTLR-DTLI-CNT. DTSBR454 00924 MOVE WS-DTLR-CNT1 TO CTF3-DTLR-CNT. DTSBR454 00925 MOVE WS-DTLI-CNT1 TO CTF3-DTLI-CNT. DTSBR454 00926 DTSBR454 00927 WRITE REPORT-LISTING2 FROM CTF3-LINE-2 AFTER 2. DTSBR454 00928 MOVE +0 TO WS-DTLR-DTLI-CNT1. DTSBR454 00929 MOVE +0 TO WS-DTLR-CNT1. DTSBR454 00930 MOVE +0 TO WS-DTLI-CNT1. DTSBR454 00931 ADD +2 TO WS-LINE-CNT4. DTSBR454 00932 DTSBR454 00933 P7000-EXIT. DTSBR454 00934 EXIT. DTSBR454 00935 DTSBR454 00936 T1000-TERMINATE. DTSBR454 00937 DTSBR454 00938 PERFORM P6000-PRINT-FOOTER THRU P6000-EXIT. DTSBR454 00939 PERFORM P7000-PRINT-FOOTER THRU P7000-EXIT. DTSBR454 00940 DTSBR454 00941 MOVE WS-DTLR-DTLI-CNT2 TO CFF-DTLR-DTLI-CNT. DTSBR454 00942 MOVE WS-DTLR-CNT2 TO CFF-DTLR-CNT. DTSBR454 00943 MOVE WS-DTLI-CNT2 TO CFF-DTLI-CNT. DTSBR454 00944 DTSBR454 00945 WRITE REPORT-LISTING2 FROM CFF-LINE-3 AFTER 3. DTSBR454 00946 WRITE REPORT-LISTING2 FROM CFF-LINE-4 AFTER 1. DTSBR454 00947 CLOSE PRT-FILE-1 DTSBR454 00948 PRT-FILE-2. DTSBR454 00949 DTSBR454 00950 T1000-EXIT. DTSBR454 00951 EXIT. DTSBR454 00952 EJECT DTSBR454 00953 S1000-FIELD-REP-ID-BREAK. DTSBR454 00954 MOVE R454-FIELD-REP-ID TO WRK-FLD-REP-ID DTSBR454 00955 HDR1-FLD-REP-ID DTSBR454 00956 L062-FLD-REP-ID. DTSBR454 00957 PERFORM S062-FLD-REP THRU S062-EXIT. DTSBR454 00958 MOVE L062-NAME TO WRK-FLD-REP-NAME HDR1-FLD-REP-NAME. DTSBR454 00959 S1000-EXIT. DTSBR454 00960 EXIT. DTSBR454 00961 EJECT DTSBR454 00962 S001-FROM-FED-8. DTSBR454 00963 DTSBR454 00964 SET L001-FROM-FED-8 TO TRUE. DTSBR454 00965 DTSBR454 00966 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR454 00967 DTSBR454 00968 S001-EXIT. DTSBR454 00969 EXIT. DTSBR454 00970 SKIP3 DTSBR454 00971 S004-FROM-5. DTSBR454 00972 DTSBR454 00973 SET L004-FROM-5 TO TRUE. DTSBR454 00974 DTSBR454 00975 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR454 00976 DTSBR454 00977 S004-EXIT. DTSBR454 00978 EXIT. DTSBR454 00979 DTSBR454 00980 S056-RATE-FORMAT. DTSBR454 00981 DTSBR454 00982 SET L056-DISP1-RIGHT-PCT-88 TO TRUE. DTSBR454 00983 DTSBR454 00984 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR454 00985 DTSBR454 00986 S056-EXIT. DTSBR454 00987 EXIT. DTSBR454 00988 DTSBR454 00989 S062-FLD-REP. DTSBR454 00990 DTSBR454 00991 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBR454 00992 DTSBR454 00993 S062-EXIT. DTSBR454 00994 EXIT. DTSBR454 00995 DTSBR454 00996 *S999-ABEND. DTSBR454 00997 * DTSBR454 00998 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR454 00999 * DTSBR454 01000 *S999-EXIT. DTSBR454 01001 * EXIT. DTSBR454 01002 DTSBR454