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