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