00001 IDENTIFICATION DIVISION. 06/10/05 00002 PROGRAM-ID. DTSBR122. DTSBR122 00003 AUTHOR. UPDATED BY TRW/BDM OCT. 1998. LV043 00004 DATE-WRITTEN. AUGUST 1998. DTSBR122 00005 DATE-COMPILED. DTSBR122 00006 DTSBR122 00007 ***** DTSBR122 00008 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR122 00009 * DTSBE122 WHICH WRITES DTSIR122 DTSBR122 00010 * DTSBR122 READS DTSIR122 RECORDS. DTSBR122 00011 * DTSBR122 00012 * FUNCTION: LIABILITY DETERMINATION ACTIVITY LIST. DTSBR122 00013 * DTSBR122 00014 * DTSBR122 00015 * MODIFICATION HISTORY: DTSBR122 00016 * DTSBR122 00017 * 09-25-94 INITIAL DEVELOPMENT DTSBR122 00018 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR122 00019 * DTSBR122 00020 * 02-05-01 CORRECTED SEVERAL ERRORS IN PAGING, PAGE NUMBERS, DTSBR122 00021 * CATEGORY TOTALS (AND UNDER VARIOUS CONDITIONS) - JHP DTSBR122 00022 * DTSBR122 00023 * 07-13-04 ADDING OPERATOR ID ON REPORT RPT122R1 AND INACTIVE DTSBR122 00024 * DATE AND OPERATOR ON REPORT RPT122R2. - RW1 DTSBR122 00025 * DTSBR122 00026 * 08-03-04 ADDING REPORT RPT122R4 FOR MISSING FR-500 RECEIVED DTSBR122 00027 * DATE AND RPT122R5 FOR PENDING DETERMINATION RPTS- RW1 DTSBR122 00028 * DTSBR122 00029 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR122 00030 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR122 00031 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR122 00032 * DTSBR122 00033 * DTSBR122 00034 * DESCRIPTION: DTSBR122 00035 * DTSBR122 00036 * THIS MODULE GENERATES REPORTS TO HELP THE REGISTRATION DTSBR122 00037 * IN MEETING THE FEDERAL EMPLOYER REGISTRATION DESIRED DTSBR122 00038 * LEVEL OF ACHIEVEMENT. DTSBR122 00039 * DTSBR122 00040 * DTSBR122 00041 * RECORDS READ: DTSBR122 00042 * DTSBR122 00043 * NONE. DTSBR122 00044 * DTSBR122 00045 * DTSBR122 00046 * PRINTED OUTPUTS: DTSBR122 00047 * DTSBR122 00048 * 122R1 LIABILITY DETERMINATION LIST DTSBR122 00049 * - HANDLES TRX TYPE 1 (LIAB. NEW) DTSBR122 00050 * & TRX TYPE 2 (LIAB. SUCCESSOR) DTSBR122 00051 * (& FOOTERS FOR TYPE 1) DTSBR122 00052 * 122R2 INACTIVATION ENTRY AND REVERSAL LIST DTSBR122 00053 * - HANDLES TRX TYPE 3 (INAC. ENTERED) DTSBR122 00054 * & TRX TYPE 4 (INAC. REVERSED) DTSBR122 00055 * (& FOOTERS FOR TYPE 1 OR 2, OR 3) DTSBR122 00056 * 122R3 SUMMARY STATISTICS REPORT DTSBR122 00057 * - HANDLES TRX TYPE 5 (ACTIVE EMPLOYERS) DTSBR122 00058 * 122R4 MISSING FR-500 RECEIVED DATE DTSBR122 00059 * - HANDLES TRX TYPE 6 CATEGORY DTSBR122 00060 * 122R5 PENDING DETERMINATIONS DTSBR122 00061 * - HANDLES TRX TYPE 7 CATEGORY DTSBR122 00062 * DTSBR122 00063 * (TERMINATE HANDLES FOOTERS FOR TYPE 1 OR 2, 3 OR 4) DTSBR122 00064 * DTSBR122 00065 * RECORDS WRITTEN: DTSBR122 00066 * DTSBR122 00067 * NONE. DTSBR122 00068 * DTSBR122 00069 * DTSBR122 00070 * MODULES CALLED: DTSBR122 00071 * DTSBR122 00072 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR122 00073 * DTSBR122 00074 * DTSBR122 00075 ***** DTSBR122 00076 EJECT DTSBR122 00077 ENVIRONMENT DIVISION. DTSBR122 00078 DTSBR122 00079 CONFIGURATION SECTION. DTSBR122 00080 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR122 00081 DTSBR122 00082 INPUT-OUTPUT SECTION. DTSBR122 00083 DTSBR122 00084 FILE-CONTROL. DTSBR122 00085 SELECT PRT-FILE1 ASSIGN TO RPT122R1. DTSBR122 00086 SELECT PRT-FILE2 ASSIGN TO RPT122R2. DTSBR122 00087 SELECT PRT-FILE3 ASSIGN TO RPT122R3. DTSBR122 00088 SELECT PRT-FILE4 ASSIGN TO RPT122R4. DTSBR122 00089 SELECT PRT-FILE5 ASSIGN TO RPT122R5. DTSBR122 00090 DTSBR122 00091 DATA DIVISION. DTSBR122 00092 DTSBR122 00093 FILE SECTION. DTSBR122 00094 DTSBR122 00095 FD PRT-FILE1 DTSBR122 00096 RECORDING MODE IS F. DTSBR122 00097 01 REPORT-LISTING1 PIC X(133). DTSBR122 00098 DTSBR122 00099 FD PRT-FILE2 DTSBR122 00100 RECORDING MODE IS F. DTSBR122 00101 01 REPORT-LISTING2 PIC X(133). DTSBR122 00102 DTSBR122 00103 FD PRT-FILE3 DTSBR122 00104 RECORDING MODE IS F. DTSBR122 00105 01 REPORT-LISTING3 PIC X(133). DTSBR122 00106 DTSBR122 00107 FD PRT-FILE4 DTSBR122 00108 RECORDING MODE IS F. DTSBR122 00109 01 REPORT-LISTING4 PIC X(133). DTSBR122 00110 DTSBR122 00111 FD PRT-FILE5 DTSBR122 00112 RECORDING MODE IS F. DTSBR122 00113 01 REPORT-LISTING5 PIC X(133). DTSBR122 00114 DTSBR122 00115 WORKING-STORAGE SECTION. DTSBR122 001155 77 PAN-VALET PICTURE X(24) VALUE '043DTSBR122 06/10/05'. DTSBR122 00116 DTSBR122 00117 01 FILLER. DTSBR122 00118 *** 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +122.DTSBR122 00119 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR122 00120 DTSBR122 00121 *** USED FOR LIAB. NEW, THEN SUCCESSOR DTSBR122 00122 05 WS-FOOT-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR122 00123 *** USED FOR TOTAL OF LIAB. NEW & SUCCESSOR DTSBR122 00124 05 WS-SUM-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR122 00125 *** USED FOR INAC ENTERED DTSBR122 00126 05 WS-FOOT-NUMBER-TWO PIC S9(03) COMP-3 VALUE +0. DTSBR122 00127 *** USED FOR INAC REVERSED DTSBR122 00128 05 WS-FOOT-NUMBER-THREE PIC S9(03) COMP-3 VALUE +0. DTSBR122 00129 *** USED FOR RPT122R1 DTSBR122 00130 05 WS-LINE-CNT-R1 PIC S9(02) COMP-3 VALUE 60. DTSBR122 00131 *** USED FOR RPT122R2 DTSBR122 00132 05 WS-LINE-CNT-R2 PIC S9(02) COMP-3 VALUE +0. DTSBR122 00133 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR122 00134 *** USED FOR RPT122R4 DTSBR122 00135 05 WS-SUM-NUMBER-FOUR PIC S9(05) COMP-3 VALUE +0. DTSBR122 00136 05 WS-LINE-CNT-I4 PIC S9(02) COMP-3 VALUE 60. DTSBR122 00137 05 WS-LINE-CNT-R4 PIC S9(02) COMP-3 VALUE +0. DTSBR122 00138 05 WS-PAGE-CNT-4 PIC S9(03) COMP-3 VALUE +0. DTSBR122 00139 *** USED FOR RPT122R5 DTSBR122 00140 05 WS-SUM-NUMBER-FIVE PIC S9(05) COMP-3 VALUE +0. DTSBR122 00141 05 WS-LINE-CNT-I5 PIC S9(02) COMP-3 VALUE 60. DTSBR122 00142 05 WS-LINE-CNT-R5 PIC S9(02) COMP-3 VALUE +0. DTSBR122 00143 05 WS-PAGE-CNT-5 PIC S9(03) COMP-3 VALUE +0. DTSBR122 00144 DTSBR122 00145 05 WS-REPORT-TYPE1 PIC X(05) VALUE '122R1'. DTSBR122 00146 05 WS-REPORT-TYPE2 PIC X(05) VALUE '122R2'. DTSBR122 00147 05 WS-REPORT-TYPE3 PIC X(05) VALUE '122R3'. DTSBR122 00148 05 WS-REPORT-TYPE4 PIC X(05) VALUE '122R4'. DTSBR122 00149 05 WS-REPORT-TYPE5 PIC X(05) VALUE '122R5'. DTSBR122 00150 DTSBR122 00151 05 WS-LIAB-TYPE-HOLD PIC X(01) VALUE SPACE. DTSBR122 00152 88 WS-LIAB-TYPE-HOLD-NEW-88 VALUE '1'. DTSBR122 00153 88 WS-LIAB-TYPE-HOLD-SUCC-88 VALUE '2'. DTSBR122 00154 88 WS-LIAB-TYPE-HOLD-INIT-88 VALUE SPACE. DTSBR122 00155 DTSBR122 00156 05 WS-LIAB-FOOTING-TEXT-N. DTSBR122 00157 10 FILLER PIC X(37) DTSBR122 00158 VALUE 'NEW LIABILITY DETERMINATIONS ENTERED '. DTSBR122 00159 10 FILLER PIC X(29) DTSBR122 00160 VALUE 'DURING REPORTING PERIOD '. DTSBR122 00161 05 WS-LIAB-FOOTING-TEXT-S. DTSBR122 00162 10 FILLER PIC X(35) DTSBR122 00163 VALUE 'SUCCESSOR LIABILITY DETERMINATIONS '. DTSBR122 00164 10 FILLER PIC X(31) DTSBR122 00165 VALUE 'ENTERED DURING REPORTING PERIOD'. DTSBR122 00166 DTSBR122 00167 05 WS-INAC-TYPE-HOLD PIC X(01) VALUE SPACE. DTSBR122 00168 88 WS-INAC-TYPE-HOLD-ENTERED-88 VALUE '3'. DTSBR122 00169 88 WS-INAC-TYPE-HOLD-REVERSED-88 VALUE '4'. DTSBR122 00170 88 WS-INAC-TYPE-HOLD-INIT-88 VALUE SPACE. DTSBR122 00171 DTSBR122 00172 05 WS-INAC-R-HEADINGS1. DTSBR122 00173 10 FILLER PIC X(23) DTSBR122 00174 VALUE ' EMP NO PRIMARY NAME '. DTSBR122 00175 10 FILLER PIC X(34) VALUE SPACES. DTSBR122 00176 10 FILLER PIC X(31) DTSBR122 00177 VALUE 'INACTIVATION TIME LAPSE'. DTSBR122 00178 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00179 10 FILLER PIC X(21) DTSBR122 00180 VALUE 'TIME LAPSE INDICATORS'. DTSBR122 00181 05 WS-INAC-R-HEADINGS2. DTSBR122 00182 10 FILLER PIC X(57) VALUE SPACES. DTSBR122 00183 10 FILLER PIC X(12) DTSBR122 00184 VALUE 'REVERSE DATE'. DTSBR122 00185 10 FILLER PIC X(25) VALUE SPACES. DTSBR122 00186 10 FILLER PIC X(20) DTSBR122 00187 VALUE '90 DAY 180 DAY '. DTSBR122 00188 05 WS-INAC-E-HEADINGS1. DTSBR122 00189 10 FILLER PIC X(23) DTSBR122 00190 VALUE ' EMP NO PRIMARY NAME '. DTSBR122 00191 10 FILLER PIC X(31) VALUE SPACES. DTSBR122 00192 10 FILLER PIC X(08) DTSBR122 00193 VALUE 'OPER ID '. DTSBR122 00194 10 FILLER PIC X(04) VALUE SPACES. DTSBR122 00195 10 FILLER PIC X(08) DTSBR122 00196 VALUE 'INACTIVE'. DTSBR122 00197 10 FILLER PIC X(04) VALUE SPACES. DTSBR122 00198 10 FILLER PIC X(12) DTSBR122 00199 VALUE 'INACTIVATION'. DTSBR122 00200 10 FILLER PIC X(48) VALUE SPACES. DTSBR122 00201 05 WS-INAC-E-HEADINGS2. DTSBR122 00202 10 FILLER PIC X(54) VALUE SPACES. DTSBR122 00203 10 FILLER PIC X(12) VALUE SPACES. DTSBR122 00204 10 FILLER PIC X(08) DTSBR122 00205 VALUE ' DATE '. DTSBR122 00206 10 FILLER PIC X(04) VALUE SPACES. DTSBR122 00207 10 FILLER PIC X(10) DTSBR122 00208 VALUE 'ENTRY DATE'. DTSBR122 00209 10 FILLER PIC X(50) VALUE SPACES. DTSBR122 00210 DTSBR122 00211 05 WS-INAC-FOOTING-TEXT-R. DTSBR122 00212 10 FILLER PIC X(37) DTSBR122 00213 VALUE 'INACTIVATIONS REVERSED DURING REPORT '. DTSBR122 00214 10 FILLER PIC X(06) DTSBR122 00215 VALUE 'PERIOD'. DTSBR122 00216 05 WS-INAC-FOOTING-TEXT-E. DTSBR122 00217 10 FILLER PIC X(36) DTSBR122 00218 VALUE 'INACTIVATIONS ENTERED DURING REPORT '. DTSBR122 00219 10 FILLER PIC X(07) DTSBR122 00220 VALUE 'PERIOD '. DTSBR122 00221 DTSBR122 00222 05 WS-SUMMARY-NEW PIC S9(05) COMP-3 VALUE +0. DTSBR122 00223 05 WS-SUMMARY-NEW-90-DAY PIC S9(05) COMP-3 VALUE +0. DTSBR122 00224 05 WS-SUMMARY-NEW-90-DAY-DVD PIC S9V99999 COMP-3 DTSBR122 00225 VALUE +0. DTSBR122 00226 05 WS-SUMMARY-NEW-90-DAY-PCT DTSBR122 00227 REDEFINES WS-SUMMARY-NEW-90-DAY-DVD DTSBR122 00228 PIC S999V999 COMP-3. DTSBR122 00229 05 WS-SUMMARY-NEW-180-DAY PIC S9(05) COMP-3 VALUE +0. DTSBR122 00230 05 WS-SUMMARY-NEW-180-DAY-DVD PIC S9V99999 COMP-3 DTSBR122 00231 VALUE +0. DTSBR122 00232 05 WS-SUMMARY-NEW-180-DAY-PCT DTSBR122 00233 REDEFINES WS-SUMMARY-NEW-180-DAY-DVD DTSBR122 00234 PIC S999V999 COMP-3. DTSBR122 00235 05 WS-SUMMARY-SUCC PIC S9(05) COMP-3 VALUE +0. DTSBR122 00236 05 WS-SUMMARY-SUCC-90-DAY PIC S9(05) COMP-3 VALUE +0. DTSBR122 00237 05 WS-SUMMARY-SUCC-90-DAY-DVD PIC S9V99999 COMP-3 DTSBR122 00238 VALUE +0. DTSBR122 00239 05 WS-SUMMARY-SUCC-90-DAY-PCT DTSBR122 00240 REDEFINES WS-SUMMARY-SUCC-90-DAY-DVD DTSBR122 00241 PIC S999V999 COMP-3. DTSBR122 00242 05 WS-SUMMARY-SUCC-180-DAY PIC S9(05) COMP-3 VALUE +0. DTSBR122 00243 05 WS-SUMMARY-SUCC-180-DAY-DVD PIC S9V99999 COMP-3 DTSBR122 00244 VALUE +0. DTSBR122 00245 05 WS-SUMMARY-SUCC-180-DAY-PCT DTSBR122 00246 REDEFINES WS-SUMMARY-SUCC-180-DAY-DVD DTSBR122 00247 PIC S999V999 COMP-3. DTSBR122 00248 05 WS-SUMMARY-TOT PIC S9(05) COMP-3 VALUE +0. DTSBR122 00249 05 WS-SUMMARY-TOT-90-DAY PIC S9(05) COMP-3 VALUE +0. DTSBR122 00250 05 WS-SUMMARY-TOT-90-DAY-DVD PIC S9V99999 COMP-3 DTSBR122 00251 VALUE +0. DTSBR122 00252 05 WS-SUMMARY-TOT-90-DAY-PCT DTSBR122 00253 REDEFINES WS-SUMMARY-TOT-90-DAY-DVD DTSBR122 00254 PIC S999V999 COMP-3. DTSBR122 00255 05 WS-SUMMARY-TOT-180-DAY PIC S9(05) COMP-3 VALUE +0. DTSBR122 00256 05 WS-SUMMARY-TOT-180-DAY-DVD PIC S9V99999 COMP-3 DTSBR122 00257 VALUE +0. DTSBR122 00258 05 WS-SUMMARY-TOT-180-DAY-PCT DTSBR122 00259 REDEFINES WS-SUMMARY-TOT-180-DAY-DVD DTSBR122 00260 PIC S999V999 COMP-3. DTSBR122 00261 DTSBR122 00262 05 WS-ACTIVE-RATED-TOT PIC S9(05) COMP-3 VALUE +0. DTSBR122 00263 05 WS-ACTIVE-CHG-ONLY-TOT PIC S9(05) COMP-3 VALUE +0. DTSBR122 00264 05 WS-ACTIVE-SELF-TOT PIC S9(05) COMP-3 VALUE +0. DTSBR122 00265 05 WS-ACTIVE-UNK-TOT PIC S9(05) COMP-3 VALUE +0. DTSBR122 00266 05 WS-ACTIVE-TOT-TOT PIC S9(05) COMP-3 VALUE +0. DTSBR122 00267 EJECT DTSBR122 00268 01 L001-LINK-AREA. DTSBR122 00269 ++INCLUDE DTSIL001 DTSBR122 00270 EJECT DTSBR122 00271 DTSBR122 00272 *************************************************************** DTSBR122 00273 * COMMON HEADINGS FOR DTSBR122 (RPT122R1) REPORT DTSBR122 00274 *************************************************************** DTSBR122 00275 01 PAGE-HEADING-1. DTSBR122 00276 05 HEADER1-1. DTSBR122 00277 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00278 10 WS-REPORT-TYPE-1 PIC X(05) VALUE SPACE. DTSBR122 00279 10 FILLER PIC X(34) VALUE SPACES. DTSBR122 00280 10 WS-H1-AGY-NAME-LINE1 PIC X(50) VALUE SPACE. DTSBR122 00281 10 FILLER PIC X(28) VALUE SPACES. DTSBR122 00282 10 FILLER PIC X(05) DTSBR122 00283 VALUE 'DATE:'. DTSBR122 00284 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00285 10 WS-H1-SYS-DATE PIC X(08) VALUE SPACE. DTSBR122 00286 05 HEADER1-2. DTSBR122 00287 10 FILLER PIC X(40) VALUE SPACES. DTSBR122 00288 10 WS-H1-AGY-NAME-LINE2 PIC X(50) VALUE SPACE. DTSBR122 00289 10 FILLER PIC X(28) VALUE SPACES. DTSBR122 00290 10 FILLER PIC X(05) DTSBR122 00291 VALUE 'TIME:'. DTSBR122 00292 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00293 10 WS-H1-SYS-TIME PIC X(08) VALUE SPACE. DTSBR122 00294 05 HEADER1-3. DTSBR122 00295 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00296 10 FILLER PIC X(40) DTSBR122 00297 VALUE 'ROUTE TO: REGISTRATION AND RATES '. DTSBR122 00298 10 FILLER PIC X(06) VALUE SPACES. DTSBR122 00299 10 FILLER PIC X(37) DTSBR122 00300 VALUE 'LIABILITY DETERMINATION ACTIVITY LIST'. DTSBR122 00301 10 FILLER PIC X(34) VALUE SPACES. DTSBR122 00302 10 FILLER PIC X(05) DTSBR122 00303 VALUE 'PAGE:'. DTSBR122 00304 10 FILLER PIC X(03) VALUE SPACES. DTSBR122 00305 10 HDR1-PAGE-CNT PIC ZZ,ZZ9. DTSBR122 00306 05 HEADER1-4 PIC X(133) VALUE SPACES. DTSBR122 00307 05 HEADER1-6. DTSBR122 00308 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00309 10 FILLER PIC X(17) DTSBR122 00310 VALUE 'REPORTING PERIOD:'. DTSBR122 00311 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00312 10 WS-H1-PERIOD-START-DATE PIC X(08). DTSBR122 00313 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00314 10 FILLER PIC X(01) DTSBR122 00315 VALUE '-'. DTSBR122 00316 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00317 10 WS-H1-PERIOD-END-DATE PIC X(08) VALUE SPACE. DTSBR122 00318 10 FILLER PIC X(19) VALUE SPACES. DTSBR122 00319 10 WS-H1-SUMMARY-TITLE PIC X(18) VALUE SPACE. DTSBR122 00320 05 HEADER1-7 PIC X(133) VALUE SPACES. DTSBR122 00321 05 HEADER1-9. DTSBR122 00322 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00323 10 FILLER PIC X(35) DTSBR122 00324 VALUE 'LIABILITY DETERMINATIONS ENTERED - '. DTSBR122 00325 10 WS-LIAB-TYPE-DSCR PIC X(09) VALUE SPACE. DTSBR122 00326 05 HEADER1-11. DTSBR122 00327 10 FILLER PIC X(54) VALUE SPACES. DTSBR122 00328 10 FILLER PIC X(23) DTSBR122 00329 VALUE 'LIABILITY LIABILITY'. DTSBR122 00330 10 FILLER PIC X(04) VALUE SPACES. DTSBR122 00331 10 FILLER PIC X(08) DTSBR122 00332 VALUE 'OPER ID '. DTSBR122 00333 10 FILLER PIC X(04) VALUE SPACES. DTSBR122 00334 10 FILLER PIC X(36) DTSBR122 00335 VALUE 'TIME LAPSE TIME LAPSE INDICATORS'. DTSBR122 00336 05 HEADER1-12. DTSBR122 00337 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00338 10 FILLER PIC X(22) DTSBR122 00339 VALUE 'EMP NO PRIMARY NAME '. DTSBR122 00340 10 FILLER PIC X(31) VALUE SPACES. DTSBR122 00341 10 FILLER PIC X(24) DTSBR122 00342 VALUE 'ESTB DATE ENTRY DATE'. DTSBR122 00343 10 FILLER PIC X(04) VALUE SPACES. DTSBR122 00344 10 FILLER PIC X(12) VALUE SPACES. DTSBR122 00345 10 FILLER PIC X(36) DTSBR122 00346 VALUE ' 90 DAY 180 DAY '. DTSBR122 00347 DTSBR122 00348 *** DETAIL-LINE1. DTSBR122 00349 01 FILLER. DTSBR122 00350 05 DL1-LINE-2. DTSBR122 00351 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00352 10 WS-DL1-EMP-NO PIC 999B999. DTSBR122 00353 10 FILLER PIC X(02) VALUE SPACES. DTSBR122 00354 10 WS-LIAB-PRIMARY-NAME PIC X(40) VALUE SPACE. DTSBR122 00355 10 FILLER PIC X(04) VALUE SPACES. DTSBR122 00356 10 WS-LIAB-ESTAB-DATE PIC X(08) VALUE SPACE. DTSBR122 00357 10 FILLER PIC X(06) VALUE SPACES. DTSBR122 00358 10 WS-LIAB-ENTRY-DATE PIC X(08) VALUE SPACE. DTSBR122 00359 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00360 10 WS-LIAB-OP-ID PIC X(08) VALUE SPACE. DTSBR122 00361 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00362 10 WS-R122-TIME-LAPSE PIC Z(04)9. DTSBR122 00363 10 FILLER PIC X(13) VALUE SPACES. DTSBR122 00364 10 WS-DL1-90-DAY-IND PIC X(01) VALUE SPACE. DTSBR122 00365 10 FILLER PIC X(12) VALUE SPACES. DTSBR122 00366 10 WS-DL1-180-DAY-IND PIC X(01) VALUE SPACE. DTSBR122 00367 DTSBR122 00368 *** CONTROL-FOOTING-1. DTSBR122 00369 01 FILLER. DTSBR122 00370 05 CTF-LINE-3. DTSBR122 00371 10 FILLER PIC X(10) VALUE SPACES. DTSBR122 00372 10 WS-CTF-NUMBER-ONE PIC ZZ,ZZ9. DTSBR122 00373 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00374 10 WS-CTF-LIAB-FOOTING-TEXT PIC X(66) VALUE SPACE. DTSBR122 00375 DTSBR122 00376 *** CONTROL-FOOTING-FINAL-1. DTSBR122 00377 01 FILLER. DTSBR122 00378 05 CFF-LINE-3. DTSBR122 00379 10 FILLER PIC X(10) VALUE SPACES. DTSBR122 00380 10 WS-CFF-NUMBER-TWO PIC ZZ,ZZ9. DTSBR122 00381 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00382 10 FILLER PIC X(39) DTSBR122 00383 VALUE 'TOTAL LIABILITY DETERMINATIONS ENTERED '. DTSBR122 00384 10 FILLER PIC X(23) DTSBR122 00385 VALUE 'DURING REPORTING PERIOD'. DTSBR122 00386 EJECT DTSBR122 00387 DTSBR122 00388 *************************************************************** DTSBR122 00389 * COMMON HEADINGS FOR DTSBR122 (RPT122R2) REPORT DTSBR122 00390 *************************************************************** DTSBR122 00391 01 PAGE-HEADING-2. DTSBR122 00392 05 HEADER2-1. DTSBR122 00393 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00394 10 WS-REPORT-TYPE-2 PIC X(05) VALUE SPACE. DTSBR122 00395 10 FILLER PIC X(34) VALUE SPACES. DTSBR122 00396 10 WS-H2-AGY-NAME-LINE1 PIC X(50) VALUE SPACE. DTSBR122 00397 10 FILLER PIC X(28) VALUE SPACES. DTSBR122 00398 10 FILLER PIC X(05) DTSBR122 00399 VALUE 'DATE:'. DTSBR122 00400 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00401 10 WS-H2-SYS-DATE PIC X(08) VALUE SPACE. DTSBR122 00402 05 HEADER2-2. DTSBR122 00403 10 FILLER PIC X(40) VALUE SPACES. DTSBR122 00404 10 WS-H2-AGY-NAME-LINE2 PIC X(50) VALUE SPACE. DTSBR122 00405 10 FILLER PIC X(28) VALUE SPACES. DTSBR122 00406 10 FILLER PIC X(05) DTSBR122 00407 VALUE 'TIME:'. DTSBR122 00408 10 FILLER PIC X(01) VALUE SPACES. DTSBR122 00409 10 WS-H2-SYS-TIME PIC X(08) VALUE SPACE. DTSBR122 00410 05 HEADER2-3. DTSBR122 00411 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00412 10 FILLER PIC X(33) DTSBR122 00413 VALUE 'ROUTE TO: REGISTRATION AND RATES'. DTSBR122 00414 10 FILLER PIC X(13) VALUE SPACES. DTSBR122 00415 10 FILLER PIC X(37) DTSBR122 00416 VALUE 'LIABILITY DETERMINATION ACTIVITY LIST'. DTSBR122 00417 10 FILLER PIC X(34) VALUE SPACES. DTSBR122 00418 10 FILLER PIC X(05) DTSBR122 00419 VALUE 'PAGE:'. DTSBR122 00420 10 FILLER PIC X(03) VALUE SPACES. DTSBR122 00421 10 HDR2-PAGE-CNT PIC ZZ,ZZ9. DTSBR122 00422 05 HEADER2-4 PIC X(133) VALUE SPACES. DTSBR122 00423 05 HEADER2-5. DTSBR122 00424 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00425 10 FILLER PIC X(17) DTSBR122 00426 VALUE 'REPORTING PERIOD:'. DTSBR122 00427 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00428 10 WS-H2-PERIOD-START-DATE PIC X(08). DTSBR122 00429 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00430 10 FILLER PIC X(01) DTSBR122 00431 VALUE '-'. DTSBR122 00432 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00433 10 WS-H2-PERIOD-END-DATE PIC X(08). DTSBR122 00434 10 FILLER PIC X(19) VALUE SPACES. DTSBR122 00435 10 WS-H2-SUMMARY-TITLE PIC X(18). DTSBR122 00436 05 HEADER2-8 PIC X(133) VALUE SPACES. DTSBR122 00437 05 HEADER2-9. DTSBR122 00438 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00439 10 FILLER PIC X(14) DTSBR122 00440 VALUE 'INACTIVATIONS '. DTSBR122 00441 10 WS-INAC-TYPE-DSCR PIC X(08) VALUE SPACE. DTSBR122 00442 05 HEADER2-11 PIC X(133) VALUE SPACES. DTSBR122 00443 05 HEADER2-12. DTSBR122 00444 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00445 10 WS-INAC-COL-HDR1 PIC X(114) VALUE SPACE. DTSBR122 00446 05 HEADER2-13. DTSBR122 00447 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00448 10 WS-INAC-COL-HDR2 PIC X(114) VALUE SPACE. DTSBR122 00449 DTSBR122 00450 *** DETAIL-LINE2-R. DTSBR122 00451 01 FILLER. DTSBR122 00452 05 DL2R-LINE-2. DTSBR122 00453 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00454 10 WS-DL2R-EMP-NO PIC 999B999. DTSBR122 00455 10 FILLER PIC X(02) VALUE SPACES. DTSBR122 00456 10 WS-INAC-R-PRIMARY-NAME PIC X(40) VALUE SPACE. DTSBR122 00457 10 FILLER PIC X(09) VALUE SPACES. DTSBR122 00458 10 WS-DL2R-INAC-DATE PIC X(08) VALUE SPACE. DTSBR122 00459 10 FILLER PIC X(13) VALUE SPACES. DTSBR122 00460 10 WS-INAC-R-TIME-LAPSE PIC Z(04)9. DTSBR122 00461 10 FILLER PIC X(12) VALUE SPACES. DTSBR122 00462 10 WS-DL2R-90-DAY-IND PIC X(01) VALUE SPACE. DTSBR122 00463 10 FILLER PIC X(12) VALUE SPACES. DTSBR122 00464 10 WS-DL2R-180-DAY-IND PIC X(01) VALUE SPACE. DTSBR122 00465 DTSBR122 00466 *** DETAIL-LINE2-E. DTSBR122 00467 01 FILLER. DTSBR122 00468 05 DL2E-LINE-2. DTSBR122 00469 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00470 10 WS-DL2E-EMP-NO PIC 999B999. DTSBR122 00471 10 FILLER PIC X(02) VALUE SPACES. DTSBR122 00472 10 WS-INAC-E-PRIMARY-NAME PIC X(40) VALUE SPACE. DTSBR122 00473 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00474 10 WS-DL2E-OPERID PIC X(08) VALUE SPACE. DTSBR122 00475 10 FILLER PIC X(04) VALUE SPACES. DTSBR122 00476 10 WS-DL2E-INACTIVE-DATE PIC X(08) VALUE SPACE. DTSBR122 00477 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00478 10 WS-DL2E-INAC-DATE PIC X(08) VALUE SPACE. DTSBR122 00479 DTSBR122 00480 *** CONTROL-FOOTING-2. DTSBR122 00481 01 FILLER. DTSBR122 00482 05 CF2-LINE-3. DTSBR122 00483 10 FILLER PIC X(10) VALUE SPACES. DTSBR122 00484 10 WS-CF2-NUMBER-TWO PIC ZZ,ZZ9. DTSBR122 00485 10 FILLER PIC X(02) VALUE SPACES. DTSBR122 00486 10 WS-INAC-FOOTING-TEXT PIC X(43) VALUE SPACE. DTSBR122 00487 DTSBR122 00488 *************************************************************** DTSBR122 00489 * COMMON HEADINGS FOR DTSBR122 (RPT122R3) REPORT DTSBR122 00490 *************************************************************** DTSBR122 00491 01 PAGE-HEADING-3. DTSBR122 00492 05 HEADER3-1. DTSBR122 00493 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00494 10 WS-REPORT-TYPE-3 PIC X(05) VALUE SPACE. DTSBR122 00495 10 FILLER PIC X(34) VALUE SPACES. DTSBR122 00496 10 WS-H3-AGY-NAME-LINE1 PIC X(50) VALUE SPACE. DTSBR122 00497 10 FILLER PIC X(28) VALUE SPACES. DTSBR122 00498 10 FILLER PIC X(05) DTSBR122 00499 VALUE 'DATE:'. DTSBR122 00500 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00501 10 WS-H3-SYS-DATE PIC X(08) VALUE SPACE. DTSBR122 00502 05 HEADER3-2. DTSBR122 00503 10 FILLER PIC X(40) VALUE SPACES. DTSBR122 00504 10 WS-H3-AGY-NAME-LINE2 PIC X(50). DTSBR122 00505 10 FILLER PIC X(28) VALUE SPACES. DTSBR122 00506 10 FILLER PIC X(05) DTSBR122 00507 VALUE 'TIME:'. DTSBR122 00508 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00509 10 WS-H3-SYS-TIME PIC X(08) VALUE SPACE. DTSBR122 00510 05 HEADER3-3. DTSBR122 00511 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00512 10 FILLER PIC X(40) DTSBR122 00513 VALUE 'ROUTE TO: REGISTRATION AND RATES '. DTSBR122 00514 10 FILLER PIC X(06) VALUE SPACES. DTSBR122 00515 10 FILLER PIC X(37) DTSBR122 00516 VALUE 'LIABILITY DETERMINATION ACTIVITY LIST'. DTSBR122 00517 10 FILLER PIC X(34) VALUE SPACES. DTSBR122 00518 10 FILLER PIC X(05) DTSBR122 00519 VALUE 'PAGE:'. DTSBR122 00520 10 FILLER PIC X(03) VALUE SPACES. DTSBR122 00521 10 HDR3-PAGE-CNT PIC ZZ,ZZ9. DTSBR122 00522 05 HEADER3-4 PIC X(133) VALUE SPACES. DTSBR122 00523 05 HEADER3-5. DTSBR122 00524 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00525 10 FILLER PIC X(17) DTSBR122 00526 VALUE 'REPORTING PERIOD:'. DTSBR122 00527 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00528 10 WS-H3-PERIOD-START-DATE PIC X(08). DTSBR122 00529 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00530 10 FILLER PIC X(01) DTSBR122 00531 VALUE '-'. DTSBR122 00532 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00533 10 WS-H3-PERIOD-END-DATE PIC X(08) VALUE SPACE. DTSBR122 00534 10 FILLER PIC X(19) VALUE SPACES. DTSBR122 00535 10 WS-H3-SUMMARY-TITLE PIC X(18) VALUE SPACE. DTSBR122 00536 DTSBR122 00537 *** DETAIL-LINE3. DTSBR122 00538 01 FILLER. DTSBR122 00539 05 DL3-LINE-9. DTSBR122 00540 10 FILLER PIC X(09) VALUE SPACES. DTSBR122 00541 10 FILLER PIC X(40) DTSBR122 00542 VALUE 'LIABILITY DETERMINATION TIME LAPSE DURIN'. DTSBR122 00543 10 FILLER PIC X(40) DTSBR122 00544 VALUE 'G REPORTING PERIOD '. DTSBR122 00545 05 DL3-LINE-10 PIC X(133) VALUE SPACES. DTSBR122 00546 05 DL3-LINE-11 PIC X(133) VALUE SPACES. DTSBR122 00547 05 DL3-LINE-12. DTSBR122 00548 10 FILLER PIC X(25) VALUE SPACES. DTSBR122 00549 10 FILLER PIC X(40) DTSBR122 00550 VALUE ' LESS THAN OR PERCENT LES'. DTSBR122 00551 10 FILLER PIC X(40) DTSBR122 00552 VALUE 'S LESS THAN OR PERCENT LESS '. DTSBR122 00553 05 DL3-LINE-13. DTSBR122 00554 10 FILLER PIC X(25) VALUE SPACES. DTSBR122 00555 10 FILLER PIC X(40) DTSBR122 00556 VALUE 'ALL EQUAL 90 DAYS THAN OR EQU'. DTSBR122 00557 10 FILLER PIC X(40) DTSBR122 00558 VALUE 'AL EQUAL 180 DAYS THAN OR EQUAL'. DTSBR122 00559 05 DL3-LINE-14. DTSBR122 00560 10 FILLER PIC X(25) VALUE SPACES. DTSBR122 00561 10 FILLER PIC X(40) DTSBR122 00562 VALUE ' 90 DAYS '. DTSBR122 00563 10 FILLER PIC X(40) DTSBR122 00564 VALUE ' 180 DAYS '. DTSBR122 00565 05 DL3-LINE-15 PIC X(133) VALUE SPACES. DTSBR122 00566 05 DL3-LINE-16. DTSBR122 00567 10 FILLER PIC X(14) VALUE SPACES. DTSBR122 00568 10 FILLER PIC X(03) DTSBR122 00569 VALUE 'NEW'. DTSBR122 00570 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00571 10 WS-SUM-NEW PIC ZZ,ZZ9. DTSBR122 00572 10 FILLER PIC X(10) VALUE SPACES. DTSBR122 00573 10 WS-SUM-NEW-90-DAY PIC ZZ,ZZ9. DTSBR122 00574 10 FILLER PIC X(13) VALUE SPACES. DTSBR122 00575 10 WS-SUM-NEW-90-DAY-PCT PIC ZZ9.99. DTSBR122 00576 10 FILLER PIC X(13) VALUE SPACES. DTSBR122 00577 10 WS-SUM-NEW-180-DAY PIC ZZ,ZZ9. DTSBR122 00578 10 FILLER PIC X(12) VALUE SPACES. DTSBR122 00579 10 WS-SUM-NEW-180-DAY-PCT PIC ZZ9.999. DTSBR122 00580 05 DL3-LINE-17 PIC X(133) VALUE SPACES. DTSBR122 00581 05 DL3-LINE-18. DTSBR122 00582 10 FILLER PIC X(08) VALUE SPACES. DTSBR122 00583 10 FILLER PIC X(09) DTSBR122 00584 VALUE 'SUCCESSOR'. DTSBR122 00585 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00586 10 WS-SUM-SUCC PIC ZZ,ZZ9. DTSBR122 00587 10 FILLER PIC X(10) VALUE SPACES. DTSBR122 00588 10 WS-SUM-SUCC-90-DAY PIC ZZ,ZZ9. DTSBR122 00589 10 FILLER PIC X(13) VALUE SPACES. DTSBR122 00590 10 WS-SUM-SUCC-90-DAY-PCT PIC ZZ9.999. DTSBR122 00591 10 FILLER PIC X(12) VALUE SPACES. DTSBR122 00592 10 WS-SUM-SUCC-180-DAY PIC ZZ,ZZ9. DTSBR122 00593 10 FILLER PIC X(12) VALUE SPACES. DTSBR122 00594 10 WS-SUM-SUCC-180-DAY-PCT PIC ZZ9.999. DTSBR122 00595 05 DL3-LINE-19 PIC X(133) VALUE SPACES. DTSBR122 00596 05 DL3-LINE-20. DTSBR122 00597 10 FILLER PIC X(08) VALUE SPACES. DTSBR122 00598 10 FILLER PIC X(09) DTSBR122 00599 VALUE ' TOTAL'. DTSBR122 00600 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00601 10 WS-SUM-TOT PIC ZZ,ZZ9. DTSBR122 00602 10 FILLER PIC X(10) VALUE SPACES. DTSBR122 00603 10 WS-SUM-TOT-90-DAY PIC ZZ,ZZ9. DTSBR122 00604 10 FILLER PIC X(13) VALUE SPACES. DTSBR122 00605 10 WS-SUM-TOT-90-DAY-PCT PIC ZZ9.999. DTSBR122 00606 10 FILLER PIC X(12) VALUE SPACES. DTSBR122 00607 10 WS-SUM-TOT-180-DAY PIC ZZ,ZZ9. DTSBR122 00608 10 FILLER PIC X(12) VALUE SPACES. DTSBR122 00609 10 WS-SUM-TOT-180-DAY-PCT PIC ZZ9.999. DTSBR122 00610 05 DL3-LINE-21 PIC X(133) VALUE SPACES. DTSBR122 00611 05 DL3-LINE-22 PIC X(133) VALUE SPACES. DTSBR122 00612 05 DL3-LINE-23 PIC X(133) VALUE SPACES. DTSBR122 00613 05 DL3-LINE-24 PIC X(133) VALUE SPACES. DTSBR122 00614 05 DL3-LINE-25. DTSBR122 00615 10 FILLER PIC X(17) VALUE SPACES. DTSBR122 00616 10 FILLER PIC X(38) DTSBR122 00617 VALUE 'ACTIVE EMPLOYERS AS OF REPORT RUN DATE'. DTSBR122 00618 05 DL3-LINE-26 PIC X(133) VALUE SPACES. DTSBR122 00619 05 DL3-LINE-27. DTSBR122 00620 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00621 10 FILLER PIC X(13) DTSBR122 00622 VALUE 'CHARGING ONLY'. DTSBR122 00623 10 FILLER PIC X(03) VALUE SPACES. DTSBR122 00624 10 DL3-ACTIVE-CHG-ONLY-TOT PIC ZZ,ZZ9. DTSBR122 00625 05 DL3-LINE-28 PIC X(133) VALUE SPACES. DTSBR122 00626 05 DL3-LINE-29. DTSBR122 00627 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00628 10 FILLER PIC X(12) DTSBR122 00629 VALUE 'RATED '. DTSBR122 00630 10 FILLER PIC X(04) VALUE SPACES. DTSBR122 00631 10 DL3-ACTIVE-RATED-TOT PIC ZZ,ZZ9. DTSBR122 00632 05 DL3-LINE-30 PIC X(133) VALUE SPACES. DTSBR122 00633 05 DL3-LINE-31. DTSBR122 00634 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00635 10 FILLER PIC X(12) DTSBR122 00636 VALUE 'SELF-INSURED'. DTSBR122 00637 10 FILLER PIC X(04) VALUE SPACES. DTSBR122 00638 10 DL3-ACTIVE-SELF-TOT PIC ZZ,ZZ9. DTSBR122 00639 05 DL3-LINE-32 PIC X(133) VALUE SPACES. DTSBR122 00640 05 DL3-LINE-33. DTSBR122 00641 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00642 10 FILLER PIC X(12) DTSBR122 00643 VALUE 'UNKNOWN '. DTSBR122 00644 10 FILLER PIC X(04) VALUE SPACES. DTSBR122 00645 10 DL3-ACTIVE-UNK-TOT PIC ZZ,ZZ9. DTSBR122 00646 05 DL3-LINE-34 PIC X(133) VALUE SPACES. DTSBR122 00647 05 DL3-LINE-35. DTSBR122 00648 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00649 10 FILLER PIC X(13) DTSBR122 00650 VALUE ' TOTAL:'. DTSBR122 00651 10 FILLER PIC X(03) VALUE SPACES. DTSBR122 00652 10 DL3-ACTIVE-TOT-TOT PIC ZZ,ZZ9. DTSBR122 00653 DTSBR122 00654 *************************************************************** DTSBR122 00655 * COMMON HEADINGS FOR DTSBR122 (RPT122R4) REPORT DTSBR122 00656 *************************************************************** DTSBR122 00657 01 PAGE-HEADING-4. DTSBR122 00658 05 HEADER4-1. DTSBR122 00659 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00660 10 WS-REPORT-TYPE-4 PIC X(05) VALUE SPACE. DTSBR122 00661 10 FILLER PIC X(34) VALUE SPACES. DTSBR122 00662 10 WS-H4-AGY-NAME-LINE1 PIC X(50) VALUE SPACE. DTSBR122 00663 10 FILLER PIC X(28) VALUE SPACES. DTSBR122 00664 10 FILLER PIC X(05) DTSBR122 00665 VALUE 'DATE:'. DTSBR122 00666 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00667 10 WS-H4-SYS-DATE PIC X(08) VALUE SPACE. DTSBR122 00668 05 HEADER4-2. DTSBR122 00669 10 FILLER PIC X(40) VALUE SPACES. DTSBR122 00670 10 WS-H4-AGY-NAME-LINE2 PIC X(50) VALUE SPACE. DTSBR122 00671 10 FILLER PIC X(28) VALUE SPACES. DTSBR122 00672 10 FILLER PIC X(05) DTSBR122 00673 VALUE 'TIME:'. DTSBR122 00674 10 FILLER PIC X(01) VALUE SPACES. DTSBR122 00675 10 WS-H4-SYS-TIME PIC X(08) VALUE SPACE. DTSBR122 00676 05 HEADER4-3. DTSBR122 00677 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00678 10 FILLER PIC X(33) DTSBR122 00679 VALUE 'ROUTE TO: REGISTRATION AND RATES'. DTSBR122 00680 10 FILLER PIC X(13) VALUE SPACES. DTSBR122 00681 10 FILLER PIC X(37) DTSBR122 00682 VALUE 'LIABILITY DETERMINATION ACTIVITY LIST'. DTSBR122 00683 10 FILLER PIC X(34) VALUE SPACES. DTSBR122 00684 10 FILLER PIC X(05) DTSBR122 00685 VALUE 'PAGE:'. DTSBR122 00686 10 FILLER PIC X(03) VALUE SPACES. DTSBR122 00687 10 HDR4-PAGE-CNT PIC ZZ,ZZ9. DTSBR122 00688 05 HEADER4-4 PIC X(133) VALUE SPACES. DTSBR122 00689 05 HEADER4-5 PIC X(133) VALUE SPACES. DTSBR122 00690 05 HEADER4-6. DTSBR122 00691 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00692 10 FILLER PIC X(28) DTSBR122 00693 VALUE 'MISSING FR-500 RECEIVED DATE'. DTSBR122 00694 10 FILLER PIC X(100) VALUE SPACE. DTSBR122 00695 05 HEADER4-7 PIC X(133) VALUE SPACES. DTSBR122 00696 05 HEADER4-8. DTSBR122 00697 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00698 10 FILLER PIC X(23) DTSBR122 00699 VALUE ' EMP NO PRIMARY NAME '. DTSBR122 00700 10 FILLER PIC X(31) VALUE SPACES. DTSBR122 00701 10 FILLER PIC X(08) DTSBR122 00702 VALUE 'OPER ID '. DTSBR122 00703 10 FILLER PIC X(04) VALUE SPACES. DTSBR122 00704 10 FILLER PIC X(09) DTSBR122 00705 VALUE 'LIABILITY'. DTSBR122 00706 10 FILLER PIC X(04) VALUE SPACES. DTSBR122 00707 10 FILLER PIC X(12) DTSBR122 00708 VALUE 'SOURCE '. DTSBR122 00709 10 FILLER PIC X(48) VALUE SPACES. DTSBR122 00710 05 HEADER4-9. DTSBR122 00711 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00712 10 FILLER PIC X(54) VALUE SPACES. DTSBR122 00713 10 FILLER PIC X(12) VALUE SPACES. DTSBR122 00714 10 FILLER PIC X(10) DTSBR122 00715 VALUE 'ENTRY DATE'. DTSBR122 00716 10 FILLER PIC X(02) VALUE SPACES. DTSBR122 00717 10 FILLER PIC X(60) VALUE SPACES. DTSBR122 00718 05 HEADER4-10 PIC X(133) VALUE SPACES. DTSBR122 00719 DTSBR122 00720 *** DETAIL-LINE4. DTSBR122 00721 01 FILLER. DTSBR122 00722 05 DTL4-LINE. DTSBR122 00723 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00724 10 WS-DTL4-EMP-NO PIC 999B999. DTSBR122 00725 10 FILLER PIC X(02) VALUE SPACES. DTSBR122 00726 10 WS-DTL4-PRIMARY-NAME PIC X(40) VALUE SPACES. DTSBR122 00727 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00728 10 WS-DTL4-OPERID PIC X(08) VALUE SPACES. DTSBR122 00729 10 FILLER PIC X(04) VALUE SPACES. DTSBR122 00730 10 WS-DTL4-LIAB-DATE PIC X(08) VALUE SPACES. DTSBR122 00731 10 FILLER PIC X(07) VALUE SPACES. DTSBR122 00732 10 WS-DTL4-SOURCE PIC X(02) VALUE SPACES. DTSBR122 00733 10 FILLER PIC X(50) VALUE SPACES. DTSBR122 00734 DTSBR122 00735 *** CONTROL-FOOTING-4. DTSBR122 00736 01 FILLER. DTSBR122 00737 05 CF4-LINE. DTSBR122 00738 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00739 10 FILLER PIC X(15) VALUE SPACES. DTSBR122 00740 10 WS-FOOT-NUMBER-FOUR PIC ZZ,ZZ9. DTSBR122 00741 10 FILLER PIC X(02) VALUE SPACES. DTSBR122 00742 10 FILLER PIC X(19) VALUE DTSBR122 00743 'MISSING FR-500 DATE'. DTSBR122 00744 10 FILLER PIC X(91) VALUE SPACES. DTSBR122 00745 DTSBR122 00746 *************************************************************** DTSBR122 00747 * COMMON HEADINGS FOR DTSBR122 (RPT122R5) REPORT DTSBR122 00748 *************************************************************** DTSBR122 00749 01 PAGE-HEADING-5. DTSBR122 00750 05 HEADER5-1. DTSBR122 00751 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00752 10 WS-REPORT-TYPE-5 PIC X(05) VALUE SPACE. DTSBR122 00753 10 FILLER PIC X(34) VALUE SPACES. DTSBR122 00754 10 WS-H5-AGY-NAME-LINE1 PIC X(50) VALUE SPACE. DTSBR122 00755 10 FILLER PIC X(28) VALUE SPACES. DTSBR122 00756 10 FILLER PIC X(05) DTSBR122 00757 VALUE 'DATE:'. DTSBR122 00758 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00759 10 WS-H5-SYS-DATE PIC X(08) VALUE SPACE. DTSBR122 00760 05 HEADER5-2. DTSBR122 00761 10 FILLER PIC X(40) VALUE SPACES. DTSBR122 00762 10 WS-H5-AGY-NAME-LINE2 PIC X(50) VALUE SPACE. DTSBR122 00763 10 FILLER PIC X(28) VALUE SPACES. DTSBR122 00764 10 FILLER PIC X(05) DTSBR122 00765 VALUE 'TIME:'. DTSBR122 00766 10 FILLER PIC X(01) VALUE SPACES. DTSBR122 00767 10 WS-H5-SYS-TIME PIC X(08) VALUE SPACE. DTSBR122 00768 05 HEADER5-3. DTSBR122 00769 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00770 10 FILLER PIC X(33) DTSBR122 00771 VALUE 'ROUTE TO: REGISTRATION AND RATES'. DTSBR122 00772 10 FILLER PIC X(13) VALUE SPACES. DTSBR122 00773 10 FILLER PIC X(37) DTSBR122 00774 VALUE 'LIABILITY DETERMINATION ACTIVITY LIST'. DTSBR122 00775 10 FILLER PIC X(34) VALUE SPACES. DTSBR122 00776 10 FILLER PIC X(05) DTSBR122 00777 VALUE 'PAGE:'. DTSBR122 00778 10 FILLER PIC X(03) VALUE SPACES. DTSBR122 00779 10 HDR5-PAGE-CNT PIC ZZ,ZZ9. DTSBR122 00780 05 HEADER5-4 PIC X(133) VALUE SPACES. DTSBR122 00781 05 HEADER5-5 PIC X(133) VALUE SPACES. DTSBR122 00782 05 HEADER5-6. DTSBR122 00783 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00784 10 FILLER PIC X(22) DTSBR122 00785 VALUE 'PENDING DETERMINATIONS'. DTSBR122 00786 10 FILLER PIC X(106) VALUE SPACE. DTSBR122 00787 05 HEADER5-7 PIC X(133) VALUE SPACES. DTSBR122 00788 05 HEADER5-8. DTSBR122 00789 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00790 10 FILLER PIC X(23) DTSBR122 00791 VALUE ' EMP NO PRIMARY NAME '. DTSBR122 00792 10 FILLER PIC X(31) VALUE SPACES. DTSBR122 00793 10 FILLER PIC X(08) DTSBR122 00794 VALUE 'OPER ID '. DTSBR122 00795 10 FILLER PIC X(04) VALUE SPACES. DTSBR122 00796 10 FILLER PIC X(12) DTSBR122 00797 VALUE 'REGISTRATION'. DTSBR122 00798 10 FILLER PIC X(04) VALUE SPACES. DTSBR122 00799 10 FILLER PIC X(11) DTSBR122 00800 VALUE 'LAST ACTION'. DTSBR122 00801 10 FILLER PIC X(04) VALUE SPACES. DTSBR122 00802 10 FILLER PIC X(11) DTSBR122 00803 VALUE 'LAST ACTION'. DTSBR122 00804 10 FILLER PIC X(24) VALUE SPACES. DTSBR122 00805 05 HEADER5-9. DTSBR122 00806 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00807 10 FILLER PIC X(54) VALUE SPACES. DTSBR122 00808 10 FILLER PIC X(13) VALUE SPACES. DTSBR122 00809 10 FILLER PIC X(10) DTSBR122 00810 VALUE 'ENTRY DATE'. DTSBR122 00811 10 FILLER PIC X(08) VALUE SPACES. DTSBR122 00812 10 FILLER PIC X(04) VALUE 'DATE'. DTSBR122 00813 10 FILLER PIC X(11) VALUE SPACES. DTSBR122 00814 10 FILLER PIC X(04) VALUE 'TYPE'. DTSBR122 00815 10 FILLER PIC X(34) VALUE SPACES. DTSBR122 00816 05 HEADER5-10 PIC X(133) VALUE SPACES. DTSBR122 00817 DTSBR122 00818 *** DETAIL-LINE5. DTSBR122 00819 01 FILLER. DTSBR122 00820 05 DTL5-LINE. DTSBR122 00821 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00822 10 WS-DTL5-EMP-NO PIC 999B999. DTSBR122 00823 10 FILLER PIC X(02) VALUE SPACES. DTSBR122 00824 10 WS-DTL5-PRIMARY-NAME PIC X(40) VALUE SPACE. DTSBR122 00825 10 FILLER PIC X(05) VALUE SPACES. DTSBR122 00826 10 WS-DTL5-OPERID PIC X(08) VALUE SPACE. DTSBR122 00827 10 FILLER PIC X(06) VALUE SPACES. DTSBR122 00828 10 WS-DTL5-REGI-DATE PIC X(08) VALUE SPACE. DTSBR122 00829 10 FILLER PIC X(07) VALUE SPACES. DTSBR122 00830 10 WS-DTL5-LAST-ACT-DATE PIC X(08) VALUE SPACE. DTSBR122 00831 10 FILLER PIC X(06) VALUE SPACES. DTSBR122 00832 10 WS-DTL5-LAST-ACT-TYPE PIC X(15) VALUE SPACE. DTSBR122 00833 10 FILLER PIC X(20) VALUE SPACES. DTSBR122 00834 DTSBR122 00835 *** CONTROL-FOOTING-5. DTSBR122 00836 01 FILLER. DTSBR122 00837 05 CF5-LINE. DTSBR122 00838 10 FILLER PIC X(01) VALUE SPACE. DTSBR122 00839 10 FILLER PIC X(15) VALUE SPACES. DTSBR122 00840 10 WS-FOOT-NUMBER-FIVE PIC ZZ,ZZ9. DTSBR122 00841 10 FILLER PIC X(02) VALUE SPACES. DTSBR122 00842 10 FILLER PIC X(22) VALUE DTSBR122 00843 'PENDING DETERMINATIONS'. DTSBR122 00844 10 FILLER PIC X(88) VALUE SPACES. DTSBR122 00845 DTSBR122 00846 EJECT DTSBR122 00847 LINKAGE SECTION. DTSBR122 00848 DTSBR122 00849 01 LRCM-LINK-AREA. DTSBR122 00850 ++INCLUDE DTSILRCM DTSBR122 00851 EJECT DTSBR122 00852 01 R122-REC. DTSBR122 00853 ++INCLUDE DTSIR122 DTSBR122 00854 EJECT DTSBR122 00855 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR122 00856 R122-REC. DTSBR122 00857 DTSBR122 00858 IF FIRST-TIME-IND = 'Y' DTSBR122 00859 PERFORM I1000-INITIATE DTSBR122 00860 THRU I1000-EXIT DTSBR122 00861 MOVE 'N' TO FIRST-TIME-IND. DTSBR122 00862 DTSBR122 00863 IF LRCM-EOR-88 DTSBR122 00864 PERFORM P5000-SUMMARY-REPORT DTSBR122 00865 THRU P5000-EXIT DTSBR122 00866 PERFORM T1000-TERMINATE DTSBR122 00867 THRU T1000-EXIT DTSBR122 00868 ELSE DTSBR122 00869 PERFORM P1000-PROCESS DTSBR122 00870 THRU P1000-EXIT. DTSBR122 00871 DTSBR122 00872 GOBACK. DTSBR122 00873 EJECT DTSBR122 00874 I1000-INITIATE. DTSBR122 00875 DTSBR122 00876 MOVE R122-PERIOD-START-DATE TO L001-FED-8-DATE-9. DTSBR122 00877 SET L001-FROM-FED-8 TO TRUE. DTSBR122 00878 DTSBR122 00879 PERFORM S001-DATE DTSBR122 00880 THRU S001-EXIT. DTSBR122 00881 DTSBR122 00882 MOVE WS-REPORT-TYPE1 TO WS-REPORT-TYPE-1. DTSBR122 00883 MOVE WS-REPORT-TYPE2 TO WS-REPORT-TYPE-2. DTSBR122 00884 MOVE WS-REPORT-TYPE3 TO WS-REPORT-TYPE-3. DTSBR122 00885 MOVE WS-REPORT-TYPE4 TO WS-REPORT-TYPE-4. DTSBR122 00886 MOVE WS-REPORT-TYPE5 TO WS-REPORT-TYPE-5. DTSBR122 00887 MOVE L001-SLASH-DATE TO WS-H1-PERIOD-START-DATE DTSBR122 00888 WS-H2-PERIOD-START-DATE DTSBR122 00889 WS-H3-PERIOD-START-DATE. DTSBR122 00890 DTSBR122 00891 MOVE R122-PERIOD-END-DATE TO L001-FED-8-DATE-9. DTSBR122 00892 DTSBR122 00893 SET L001-FROM-FED-8 TO TRUE. DTSBR122 00894 DTSBR122 00895 PERFORM S001-DATE DTSBR122 00896 THRU S001-EXIT. DTSBR122 00897 DTSBR122 00898 MOVE L001-SLASH-DATE TO WS-H1-PERIOD-END-DATE DTSBR122 00899 WS-H2-PERIOD-END-DATE DTSBR122 00900 WS-H3-PERIOD-END-DATE. DTSBR122 00901 DTSBR122 00902 SET WS-LIAB-TYPE-HOLD-INIT-88 TO TRUE. DTSBR122 00903 SET WS-INAC-TYPE-HOLD-INIT-88 TO TRUE. DTSBR122 00904 DTSBR122 00905 OPEN OUTPUT PRT-FILE1 PRT-FILE2 PRT-FILE3 PRT-FILE4 DTSBR122 00906 PRT-FILE5. DTSBR122 00907 MOVE SPACES TO REPORT-LISTING1. DTSBR122 00908 MOVE SPACES TO REPORT-LISTING2. DTSBR122 00909 MOVE SPACES TO REPORT-LISTING3. DTSBR122 00910 MOVE SPACES TO REPORT-LISTING4. DTSBR122 00911 MOVE SPACES TO REPORT-LISTING5. DTSBR122 00912 DTSBR122 00913 MOVE LRCM-SYS-DATE TO WS-H1-SYS-DATE DTSBR122 00914 WS-H2-SYS-DATE DTSBR122 00915 WS-H3-SYS-DATE DTSBR122 00916 WS-H4-SYS-DATE DTSBR122 00917 WS-H5-SYS-DATE. DTSBR122 00918 MOVE LRCM-SYS-TIME TO WS-H1-SYS-TIME DTSBR122 00919 WS-H2-SYS-TIME DTSBR122 00920 WS-H3-SYS-TIME DTSBR122 00921 WS-H4-SYS-TIME DTSBR122 00922 WS-H5-SYS-TIME. DTSBR122 00923 MOVE LRCM-AGY-NAME-LINE1 TO WS-H1-AGY-NAME-LINE1 DTSBR122 00924 WS-H2-AGY-NAME-LINE1 DTSBR122 00925 WS-H3-AGY-NAME-LINE1 DTSBR122 00926 WS-H4-AGY-NAME-LINE1 DTSBR122 00927 WS-H5-AGY-NAME-LINE1. DTSBR122 00928 MOVE LRCM-AGY-NAME-LINE2 TO WS-H1-AGY-NAME-LINE2 DTSBR122 00929 WS-H2-AGY-NAME-LINE2 DTSBR122 00930 WS-H3-AGY-NAME-LINE2 DTSBR122 00931 WS-H4-AGY-NAME-LINE2 DTSBR122 00932 WS-H5-AGY-NAME-LINE2. DTSBR122 00933 I1000-EXIT. DTSBR122 00934 EXIT. DTSBR122 00935 EJECT DTSBR122 00936 P1000-PROCESS. DTSBR122 00937 EVALUATE TRUE DTSBR122 00938 WHEN R122-LIAB-ENTERED-NEW-88 DTSBR122 00939 PERFORM P2000-LIAB DTSBR122 00940 THRU P2000-EXIT DTSBR122 00941 WHEN R122-LIAB-ENTERED-SUCC-88 DTSBR122 00942 PERFORM P2000-LIAB DTSBR122 00943 THRU P2000-EXIT DTSBR122 00944 WHEN R122-INACT-ENTERED-88 DTSBR122 00945 PERFORM P3000-INAC DTSBR122 00946 THRU P3000-EXIT DTSBR122 00947 WHEN R122-INACT-REVERSED-88 DTSBR122 00948 PERFORM P3000-INAC DTSBR122 00949 THRU P3000-EXIT DTSBR122 00950 WHEN R122-ACTIVE-EMPLOYER-88 DTSBR122 00951 PERFORM P4000-ACTIVE-COUNT DTSBR122 00952 THRU P4000-EXIT DTSBR122 00953 WHEN R122-MISSING-FR500-88 DTSBR122 00954 PERFORM P9200-FR500-DATA DTSBR122 00955 THRU P9200-EXIT DTSBR122 00956 WHEN R122-PENDING-DETERM-88 DTSBR122 00957 PERFORM P9400-PENDING-DATA DTSBR122 00958 THRU P9400-EXIT DTSBR122 00959 END-EVALUATE. DTSBR122 00960 DTSBR122 00961 P1000-EXIT. DTSBR122 00962 EXIT. DTSBR122 00963 EJECT DTSBR122 00964 P2000-LIAB. DTSBR122 00965 *** PROCESS LIABILITIES DTSBR122 00966 IF R122-CATEGORY = WS-LIAB-TYPE-HOLD DTSBR122 00967 NEXT SENTENCE DTSBR122 00968 ELSE DTSBR122 00969 *** SET UP FOR OLD FTR DTSBR122 00970 EVALUATE TRUE DTSBR122 00971 WHEN WS-LIAB-TYPE-HOLD-INIT-88 DTSBR122 00972 MOVE SPACES DTSBR122 00973 TO WS-CTF-LIAB-FOOTING-TEXT DTSBR122 00974 WHEN WS-LIAB-TYPE-HOLD-NEW-88 DTSBR122 00975 MOVE WS-LIAB-FOOTING-TEXT-N DTSBR122 00976 TO WS-CTF-LIAB-FOOTING-TEXT DTSBR122 00977 WHEN WS-LIAB-TYPE-HOLD-SUCC-88 DTSBR122 00978 MOVE WS-LIAB-FOOTING-TEXT-S DTSBR122 00979 TO WS-CTF-LIAB-FOOTING-TEXT DTSBR122 00980 END-EVALUATE DTSBR122 00981 *** LIAB. FOOTER NEEDED? DTSBR122 00982 IF WS-FOOT-NUMBER-ONE NOT = +0 DTSBR122 00983 PERFORM P7000-PRINT-FOOTER THRU P7000-EXIT DTSBR122 00984 END-IF DTSBR122 00985 *** SET UP FOR NEW HDR DTSBR122 00986 EVALUATE TRUE DTSBR122 00987 WHEN R122-LIAB-ENTERED-NEW-88 DTSBR122 00988 MOVE 'NEW ' TO WS-LIAB-TYPE-DSCR DTSBR122 00989 WHEN R122-LIAB-ENTERED-SUCC-88 DTSBR122 00990 MOVE 'SUCCESSOR' TO WS-LIAB-TYPE-DSCR DTSBR122 00991 END-EVALUATE DTSBR122 00992 *** NOW DO THE NEW HDR DTSBR122 00993 PERFORM P6000-PRINT-HEADER THRU P6000-EXIT DTSBR122 00994 *** SET UP FOR NEXT REC DTSBR122 00995 MOVE R122-CATEGORY TO WS-LIAB-TYPE-HOLD DTSBR122 00996 *** SET UP FOR NEW FTR DTSBR122 00997 EVALUATE TRUE DTSBR122 00998 WHEN WS-LIAB-TYPE-HOLD-NEW-88 DTSBR122 00999 MOVE WS-LIAB-FOOTING-TEXT-N DTSBR122 01000 TO WS-CTF-LIAB-FOOTING-TEXT DTSBR122 01001 WHEN WS-LIAB-TYPE-HOLD-SUCC-88 DTSBR122 01002 MOVE WS-LIAB-FOOTING-TEXT-S DTSBR122 01003 TO WS-CTF-LIAB-FOOTING-TEXT DTSBR122 01004 END-EVALUATE DTSBR122 01005 END-IF. DTSBR122 01006 DTSBR122 01007 IF R122-LIAB-ENTERED-NEW-88 DTSBR122 01008 ADD +1 TO WS-SUMMARY-NEW DTSBR122 01009 IF R122-LIAB-TIME-LAPSE > 90 DTSBR122 01010 MOVE '*' TO WS-DL1-90-DAY-IND DTSBR122 01011 ELSE DTSBR122 01012 MOVE SPACE TO WS-DL1-90-DAY-IND DTSBR122 01013 ADD +1 TO WS-SUMMARY-NEW-90-DAY DTSBR122 01014 END-IF DTSBR122 01015 IF R122-LIAB-TIME-LAPSE > 180 DTSBR122 01016 MOVE '*' TO WS-DL1-180-DAY-IND DTSBR122 01017 ELSE DTSBR122 01018 MOVE SPACE TO WS-DL1-180-DAY-IND DTSBR122 01019 ADD +1 TO WS-SUMMARY-NEW-180-DAY DTSBR122 01020 END-IF DTSBR122 01021 ELSE DTSBR122 01022 ADD +1 TO WS-SUMMARY-SUCC DTSBR122 01023 IF R122-LIAB-TIME-LAPSE > 90 DTSBR122 01024 MOVE '*' TO WS-DL1-90-DAY-IND DTSBR122 01025 ELSE DTSBR122 01026 MOVE SPACE TO WS-DL1-90-DAY-IND DTSBR122 01027 ADD +1 TO WS-SUMMARY-SUCC-90-DAY DTSBR122 01028 END-IF DTSBR122 01029 IF R122-LIAB-TIME-LAPSE > 180 DTSBR122 01030 MOVE '*' TO WS-DL1-180-DAY-IND DTSBR122 01031 ELSE DTSBR122 01032 MOVE SPACE TO WS-DL1-180-DAY-IND DTSBR122 01033 ADD +1 TO WS-SUMMARY-SUCC-180-DAY DTSBR122 01034 END-IF DTSBR122 01035 END-IF. DTSBR122 01036 DTSBR122 01037 MOVE R122-LIAB-ESTAB-DATE TO L001-FED-8-DATE-9. DTSBR122 01038 SET L001-FROM-FED-8 TO TRUE. DTSBR122 01039 PERFORM S001-DATE THRU S001-EXIT. DTSBR122 01040 MOVE L001-SLASH-DATE TO WS-LIAB-ESTAB-DATE. DTSBR122 01041 DTSBR122 01042 MOVE R122-LIAB-ENTRY-DATE TO L001-FED-8-DATE-9. DTSBR122 01043 SET L001-FROM-FED-8 TO TRUE. DTSBR122 01044 PERFORM S001-DATE THRU S001-EXIT. DTSBR122 01045 MOVE L001-SLASH-DATE TO WS-LIAB-ENTRY-DATE. DTSBR122 01046 DTSBR122 01047 MOVE R122-EMP-NO TO WS-DL1-EMP-NO. DTSBR122 01048 MOVE R122-LIAB-PRIMARY-NAME TO WS-LIAB-PRIMARY-NAME. DTSBR122 01049 MOVE R122-LIAB-TIME-LAPSE TO WS-R122-TIME-LAPSE. DTSBR122 01050 MOVE R122-OP-ID TO WS-LIAB-OP-ID. DTSBR122 01051 DTSBR122 01052 WRITE REPORT-LISTING1 FROM DL1-LINE-2 AFTER 2. DTSBR122 01053 ADD +2 TO WS-LINE-CNT-R1. DTSBR122 01054 *** COUNT LIABILITY EMPLRS DTSBR122 01055 ADD +1 TO WS-FOOT-NUMBER-ONE. DTSBR122 01056 ADD +1 TO WS-SUM-NUMBER-ONE. DTSBR122 01057 DTSBR122 01058 IF WS-LINE-CNT-R1 > 54 DTSBR122 01059 PERFORM P6000-PRINT-HEADER THRU P6000-EXIT. DTSBR122 01060 P2000-EXIT. DTSBR122 01061 EXIT. DTSBR122 01062 EJECT DTSBR122 01063 P3000-INAC. DTSBR122 01064 *** FINISHED OFF LIAB. FOOTER? DTSBR122 01065 IF WS-FOOT-NUMBER-ONE NOT = +0 DTSBR122 01066 EVALUATE TRUE DTSBR122 01067 WHEN WS-LIAB-TYPE-HOLD-NEW-88 DTSBR122 01068 MOVE WS-LIAB-FOOTING-TEXT-N DTSBR122 01069 TO WS-CTF-LIAB-FOOTING-TEXT DTSBR122 01070 WHEN WS-LIAB-TYPE-HOLD-SUCC-88 DTSBR122 01071 MOVE WS-LIAB-FOOTING-TEXT-S DTSBR122 01072 TO WS-CTF-LIAB-FOOTING-TEXT DTSBR122 01073 END-EVALUATE DTSBR122 01074 *** LIAB. NEW/SUCC. FOOTER DTSBR122 01075 PERFORM P7000-PRINT-FOOTER THRU P7000-EXIT DTSBR122 01076 *** LIAB. TOTAL FOOTER DTSBR122 01077 PERFORM P7200-PRINT-FOOTER THRU P7200-EXIT DTSBR122 01078 END-IF. DTSBR122 01079 * DTSBR122 01080 IF R122-CATEGORY = WS-INAC-TYPE-HOLD DTSBR122 01081 NEXT SENTENCE DTSBR122 01082 ELSE DTSBR122 01083 *** 'INACT. ENTERED' FOOTER NEEDED? DTSBR122 01084 IF WS-FOOT-NUMBER-TWO NOT = +0 DTSBR122 01085 MOVE WS-FOOT-NUMBER-TWO TO WS-CF2-NUMBER-TWO DTSBR122 01086 PERFORM P8200-PRINT-FOOTER THRU P8200-EXIT DTSBR122 01087 MOVE +0 TO WS-FOOT-NUMBER-TWO DTSBR122 01088 END-IF DTSBR122 01089 *** SET UP FOR INACT. NEW TRXS HDR DTSBR122 01090 EVALUATE TRUE DTSBR122 01091 WHEN R122-INACT-ENTERED-88 DTSBR122 01092 MOVE 'ENTERED ' TO WS-INAC-TYPE-DSCR DTSBR122 01093 MOVE WS-INAC-E-HEADINGS1 TO WS-INAC-COL-HDR1 DTSBR122 01094 MOVE WS-INAC-E-HEADINGS2 TO WS-INAC-COL-HDR2 DTSBR122 01095 WHEN R122-INACT-REVERSED-88 DTSBR122 01096 MOVE 'REVERSED' TO WS-INAC-TYPE-DSCR DTSBR122 01097 MOVE WS-INAC-R-HEADINGS1 TO WS-INAC-COL-HDR1 DTSBR122 01098 MOVE WS-INAC-R-HEADINGS2 TO WS-INAC-COL-HDR2 DTSBR122 01099 END-EVALUATE DTSBR122 01100 *** NOW DO THE HDR DTSBR122 01101 PERFORM P8000-PRINT-HEADER THRU P8000-EXIT DTSBR122 01102 *** SET UP FOR NEW REC DTSBR122 01103 MOVE R122-CATEGORY TO WS-INAC-TYPE-HOLD DTSBR122 01104 *** SET UP FOR NEW FTR DTSBR122 01105 EVALUATE TRUE DTSBR122 01106 WHEN WS-INAC-TYPE-HOLD-INIT-88 DTSBR122 01107 MOVE SPACES TO WS-INAC-FOOTING-TEXT DTSBR122 01108 WHEN WS-INAC-TYPE-HOLD-ENTERED-88 DTSBR122 01109 MOVE WS-INAC-FOOTING-TEXT-E TO WS-INAC-FOOTING-TEXT DTSBR122 01110 WHEN WS-INAC-TYPE-HOLD-REVERSED-88 DTSBR122 01111 MOVE WS-INAC-FOOTING-TEXT-R TO WS-INAC-FOOTING-TEXT DTSBR122 01112 END-EVALUATE DTSBR122 01113 END-IF. DTSBR122 01114 DTSBR122 01115 IF R122-INACT-REVERSED-88 DTSBR122 01116 MOVE R122-INAC-R-DATE TO L001-FED-8-DATE-9 DTSBR122 01117 SET L001-FROM-FED-8 TO TRUE DTSBR122 01118 PERFORM S001-DATE THRU S001-EXIT DTSBR122 01119 MOVE L001-SLASH-DATE TO WS-DL2R-INAC-DATE DTSBR122 01120 DTSBR122 01121 IF R122-INAC-R-TIME-LAPSE > 90 DTSBR122 01122 MOVE '*' TO WS-DL2R-90-DAY-IND DTSBR122 01123 ELSE DTSBR122 01124 MOVE SPACE TO WS-DL2R-90-DAY-IND DTSBR122 01125 ADD +1 TO WS-SUMMARY-NEW-90-DAY DTSBR122 01126 END-IF DTSBR122 01127 DTSBR122 01128 IF R122-INAC-R-TIME-LAPSE > 180 DTSBR122 01129 MOVE '*' TO WS-DL2R-180-DAY-IND DTSBR122 01130 ELSE DTSBR122 01131 MOVE SPACE TO WS-DL2R-180-DAY-IND DTSBR122 01132 ADD +1 TO WS-SUMMARY-NEW-180-DAY DTSBR122 01133 END-IF DTSBR122 01134 DTSBR122 01135 ADD +1 TO WS-SUMMARY-NEW DTSBR122 01136 DTSBR122 01137 MOVE R122-EMP-NO TO WS-DL2R-EMP-NO DTSBR122 01138 MOVE R122-INAC-R-PRIMARY-NAME TO WS-INAC-R-PRIMARY-NAME DTSBR122 01139 MOVE R122-INAC-R-TIME-LAPSE TO WS-INAC-R-TIME-LAPSE DTSBR122 01140 DTSBR122 01141 WRITE REPORT-LISTING2 FROM DL2R-LINE-2 AFTER 2 DTSBR122 01142 ADD +2 TO WS-LINE-CNT-R2 DTSBR122 01143 *** INACT. REVERSED DTSBR122 01144 ADD +1 TO WS-FOOT-NUMBER-THREE DTSBR122 01145 ELSE DTSBR122 01146 MOVE R122-OP-ID TO WS-DL2E-OPERID DTSBR122 01147 MOVE R122-INAC-E-INACT-DATE TO L001-FED-8-DATE-9 DTSBR122 01148 SET L001-FROM-FED-8 TO TRUE DTSBR122 01149 PERFORM S001-DATE THRU S001-EXIT DTSBR122 01150 MOVE L001-SLASH-DATE TO WS-DL2E-INACTIVE-DATE DTSBR122 01151 DTSBR122 01152 MOVE R122-INAC-E-DATE TO L001-FED-8-DATE-9 DTSBR122 01153 SET L001-FROM-FED-8 TO TRUE DTSBR122 01154 PERFORM S001-DATE THRU S001-EXIT DTSBR122 01155 MOVE L001-SLASH-DATE TO WS-DL2E-INAC-DATE DTSBR122 01156 DTSBR122 01157 MOVE R122-EMP-NO TO WS-DL2E-EMP-NO DTSBR122 01158 MOVE R122-INAC-E-PRIMARY-NAME TO WS-INAC-E-PRIMARY-NAME DTSBR122 01159 DTSBR122 01160 WRITE REPORT-LISTING2 FROM DL2E-LINE-2 AFTER 2 DTSBR122 01161 ADD +2 TO WS-LINE-CNT-R2 DTSBR122 01162 *** INACT. ENTERED DTSBR122 01163 ADD +1 TO WS-FOOT-NUMBER-TWO DTSBR122 01164 END-IF. DTSBR122 01165 DTSBR122 01166 IF WS-LINE-CNT-R2 > 54 DTSBR122 01167 PERFORM P8000-PRINT-HEADER THRU P8000-EXIT. DTSBR122 01168 P3000-EXIT. DTSBR122 01169 EXIT. DTSBR122 01170 EJECT DTSBR122 01171 P4000-ACTIVE-COUNT. DTSBR122 01172 EVALUATE TRUE DTSBR122 01173 WHEN R122-CLASS-CHG-ONLY-88 DTSBR122 01174 ADD +1 TO WS-ACTIVE-CHG-ONLY-TOT DTSBR122 01175 WHEN R122-CLASS-RATED-88 DTSBR122 01176 ADD +1 TO WS-ACTIVE-RATED-TOT DTSBR122 01177 WHEN R122-CLASS-SELF-INS-88 DTSBR122 01178 ADD +1 TO WS-ACTIVE-SELF-TOT DTSBR122 01179 WHEN R122-CLASS-UNK-88 DTSBR122 01180 ADD +1 TO WS-ACTIVE-UNK-TOT DTSBR122 01181 END-EVALUATE. DTSBR122 01182 DTSBR122 01183 P4000-EXIT. DTSBR122 01184 EXIT. DTSBR122 01185 EJECT DTSBR122 01186 P5000-SUMMARY-REPORT. DTSBR122 01187 *** RPT122R3 DTSBR122 01188 MOVE 'SUMMARY STATISTICS' TO WS-H3-SUMMARY-TITLE. DTSBR122 01189 DTSBR122 01190 ADD WS-SUMMARY-NEW WS-SUMMARY-SUCC GIVING WS-SUMMARY-TOT. DTSBR122 01191 DTSBR122 01192 ADD WS-SUMMARY-NEW-90-DAY WS-SUMMARY-SUCC-90-DAY DTSBR122 01193 GIVING WS-SUMMARY-TOT-90-DAY. DTSBR122 01194 DTSBR122 01195 ADD WS-SUMMARY-NEW-180-DAY WS-SUMMARY-SUCC-180-DAY DTSBR122 01196 GIVING WS-SUMMARY-TOT-180-DAY. DTSBR122 01197 DTSBR122 01198 DIVIDE WS-SUMMARY-NEW-90-DAY BY WS-SUMMARY-NEW DTSBR122 01199 GIVING WS-SUMMARY-NEW-90-DAY-DVD ROUNDED DTSBR122 01200 ON SIZE ERROR DTSBR122 01201 MOVE +0 TO WS-SUMMARY-NEW-90-DAY-DVD. DTSBR122 01202 DTSBR122 01203 DIVIDE WS-SUMMARY-NEW-180-DAY BY WS-SUMMARY-NEW DTSBR122 01204 GIVING WS-SUMMARY-NEW-180-DAY-DVD ROUNDED DTSBR122 01205 ON SIZE ERROR DTSBR122 01206 MOVE +0 TO WS-SUMMARY-NEW-180-DAY-DVD. DTSBR122 01207 DTSBR122 01208 DIVIDE WS-SUMMARY-SUCC-90-DAY BY WS-SUMMARY-SUCC DTSBR122 01209 GIVING WS-SUMMARY-SUCC-90-DAY-DVD ROUNDED DTSBR122 01210 ON SIZE ERROR DTSBR122 01211 MOVE +0 TO WS-SUMMARY-SUCC-90-DAY-DVD. DTSBR122 01212 DTSBR122 01213 DIVIDE WS-SUMMARY-SUCC-180-DAY BY WS-SUMMARY-SUCC DTSBR122 01214 GIVING WS-SUMMARY-SUCC-180-DAY-DVD ROUNDED DTSBR122 01215 ON SIZE ERROR DTSBR122 01216 MOVE +0 TO WS-SUMMARY-SUCC-180-DAY-DVD. DTSBR122 01217 DTSBR122 01218 DIVIDE WS-SUMMARY-TOT-90-DAY BY WS-SUMMARY-TOT DTSBR122 01219 GIVING WS-SUMMARY-TOT-90-DAY-DVD ROUNDED DTSBR122 01220 ON SIZE ERROR DTSBR122 01221 MOVE +0 TO WS-SUMMARY-TOT-90-DAY-DVD. DTSBR122 01222 DTSBR122 01223 DIVIDE WS-SUMMARY-TOT-180-DAY BY WS-SUMMARY-TOT DTSBR122 01224 GIVING WS-SUMMARY-TOT-180-DAY-DVD ROUNDED DTSBR122 01225 ON SIZE ERROR DTSBR122 01226 MOVE +0 TO WS-SUMMARY-TOT-180-DAY-DVD. DTSBR122 01227 DTSBR122 01228 ADD WS-ACTIVE-RATED-TOT DTSBR122 01229 WS-ACTIVE-CHG-ONLY-TOT DTSBR122 01230 WS-ACTIVE-SELF-TOT DTSBR122 01231 WS-ACTIVE-UNK-TOT DTSBR122 01232 GIVING WS-ACTIVE-TOT-TOT. DTSBR122 01233 DTSBR122 01234 PERFORM P9000-PRINT-HDR3-DETAIL THRU P9000-EXIT. DTSBR122 01235 DTSBR122 01236 P5000-EXIT. DTSBR122 01237 EXIT. DTSBR122 01238 EJECT DTSBR122 01239 P6000-PRINT-HEADER. DTSBR122 01240 *** RPT122R1 DTSBR122 01241 MOVE +0 TO WS-LINE-CNT-R1 DTSBR122 01242 ADD +1 TO WS-PAGE-CNT DTSBR122 01243 MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT DTSBR122 01244 WRITE REPORT-LISTING1 FROM HEADER1-1 AFTER TOP-OF-PAGE DTSBR122 01245 WRITE REPORT-LISTING1 FROM HEADER1-2 AFTER 1 DTSBR122 01246 WRITE REPORT-LISTING1 FROM HEADER1-3 AFTER 1 DTSBR122 01247 WRITE REPORT-LISTING1 FROM HEADER1-4 AFTER 1 DTSBR122 01248 WRITE REPORT-LISTING1 FROM HEADER1-6 AFTER 1 DTSBR122 01249 WRITE REPORT-LISTING1 FROM HEADER1-7 AFTER 1 DTSBR122 01250 WRITE REPORT-LISTING1 FROM HEADER1-9 AFTER 1 DTSBR122 01251 WRITE REPORT-LISTING1 FROM HEADER1-11 AFTER 1 DTSBR122 01252 WRITE REPORT-LISTING1 FROM HEADER1-12 AFTER 1 DTSBR122 01253 ADD +09 TO WS-LINE-CNT-R1. DTSBR122 01254 P6000-EXIT. DTSBR122 01255 EXIT. DTSBR122 01256 *** LIABILITY FOOTER DTSBR122 01257 P7000-PRINT-FOOTER. DTSBR122 01258 IF WS-LINE-CNT-R1 > 52 DTSBR122 01259 PERFORM P6000-PRINT-HEADER THRU P6000-EXIT DTSBR122 01260 END-IF. DTSBR122 01261 DTSBR122 01262 MOVE WS-FOOT-NUMBER-ONE TO WS-CTF-NUMBER-ONE. DTSBR122 01263 WRITE REPORT-LISTING1 FROM CTF-LINE-3 AFTER 3. DTSBR122 01264 ADD +3 TO WS-LINE-CNT-R1. DTSBR122 01265 MOVE +0 TO WS-FOOT-NUMBER-ONE. DTSBR122 01266 DTSBR122 01267 P7000-EXIT. DTSBR122 01268 EXIT. DTSBR122 01269 DTSBR122 01270 *** LIAB TOTAL FOOTER DTSBR122 01271 P7200-PRINT-FOOTER. DTSBR122 01272 IF WS-LINE-CNT-R1 > 52 DTSBR122 01273 PERFORM P6000-PRINT-HEADER THRU P6000-EXIT DTSBR122 01274 END-IF. DTSBR122 01275 DTSBR122 01276 MOVE WS-SUM-NUMBER-ONE TO WS-CFF-NUMBER-TWO. DTSBR122 01277 WRITE REPORT-LISTING1 FROM CFF-LINE-3 AFTER 3. DTSBR122 01278 ADD +3 TO WS-LINE-CNT-R1. DTSBR122 01279 *** SET UP FOR RPT122R2 DTSBR122 01280 MOVE +0 TO WS-PAGE-CNT. DTSBR122 01281 DTSBR122 01282 P7200-EXIT. DTSBR122 01283 EXIT. DTSBR122 01284 EJECT DTSBR122 01285 P8000-PRINT-HEADER. DTSBR122 01286 *** RPT122R2 DTSBR122 01287 MOVE +0 TO WS-LINE-CNT-R2 DTSBR122 01288 ADD +1 TO WS-PAGE-CNT DTSBR122 01289 MOVE WS-PAGE-CNT TO HDR2-PAGE-CNT DTSBR122 01290 WRITE REPORT-LISTING2 FROM HEADER2-1 AFTER TOP-OF-PAGE DTSBR122 01291 WRITE REPORT-LISTING2 FROM HEADER2-2 AFTER 1 DTSBR122 01292 WRITE REPORT-LISTING2 FROM HEADER2-3 AFTER 1 DTSBR122 01293 WRITE REPORT-LISTING2 FROM HEADER2-4 AFTER 1 DTSBR122 01294 WRITE REPORT-LISTING2 FROM HEADER2-5 AFTER 1 DTSBR122 01295 WRITE REPORT-LISTING2 FROM HEADER2-8 AFTER 1 DTSBR122 01296 WRITE REPORT-LISTING2 FROM HEADER2-9 AFTER 1 DTSBR122 01297 WRITE REPORT-LISTING2 FROM HEADER2-11 AFTER 1 DTSBR122 01298 WRITE REPORT-LISTING2 FROM HEADER2-12 AFTER 1 DTSBR122 01299 WRITE REPORT-LISTING2 FROM HEADER2-13 AFTER 1 DTSBR122 01300 ADD +10 TO WS-LINE-CNT-R2. DTSBR122 01301 P8000-EXIT. DTSBR122 01302 EXIT. DTSBR122 01303 *** INACT. FOOTER DTSBR122 01304 P8200-PRINT-FOOTER. DTSBR122 01305 IF WS-LINE-CNT-R2 > 52 DTSBR122 01306 PERFORM P8000-PRINT-HEADER THRU P8000-EXIT DTSBR122 01307 END-IF. DTSBR122 01308 DTSBR122 01309 WRITE REPORT-LISTING2 FROM CF2-LINE-3 AFTER 3 DTSBR122 01310 ADD +3 TO WS-LINE-CNT-R2. DTSBR122 01311 DTSBR122 01312 P8200-EXIT. DTSBR122 01313 EXIT. DTSBR122 01314 EJECT DTSBR122 01315 P9000-PRINT-HDR3-DETAIL. DTSBR122 01316 *** THIS IS A 1-PAGE REPORT DTSBR122 01317 MOVE +0 TO WS-PAGE-CNT. DTSBR122 01318 ADD +1 TO WS-PAGE-CNT. DTSBR122 01319 MOVE WS-PAGE-CNT TO HDR3-PAGE-CNT. DTSBR122 01320 WRITE REPORT-LISTING3 FROM HEADER3-1 AFTER TOP-OF-PAGE. DTSBR122 01321 WRITE REPORT-LISTING3 FROM HEADER3-2 AFTER 1. DTSBR122 01322 WRITE REPORT-LISTING3 FROM HEADER3-3 AFTER 1. DTSBR122 01323 WRITE REPORT-LISTING3 FROM HEADER3-4 AFTER 1. DTSBR122 01324 WRITE REPORT-LISTING3 FROM HEADER3-5 AFTER 1. DTSBR122 01325 DTSBR122 01326 MOVE WS-SUMMARY-NEW TO WS-SUM-NEW. DTSBR122 01327 MOVE WS-SUMMARY-NEW-90-DAY TO WS-SUM-NEW-90-DAY. DTSBR122 01328 MOVE WS-SUMMARY-NEW-90-DAY-PCT TO WS-SUM-NEW-90-DAY-PCT. DTSBR122 01329 MOVE WS-SUMMARY-NEW-180-DAY TO WS-SUM-NEW-180-DAY. DTSBR122 01330 MOVE WS-SUMMARY-NEW-180-DAY-PCT TO WS-SUM-NEW-180-DAY-PCT. DTSBR122 01331 MOVE WS-SUMMARY-SUCC TO WS-SUM-SUCC. DTSBR122 01332 MOVE WS-SUMMARY-SUCC-90-DAY TO WS-SUM-SUCC-90-DAY. DTSBR122 01333 MOVE WS-SUMMARY-SUCC-90-DAY-PCT TO WS-SUM-SUCC-90-DAY-PCT. DTSBR122 01334 MOVE WS-SUMMARY-SUCC-180-DAY TO WS-SUM-SUCC-180-DAY. DTSBR122 01335 MOVE WS-SUMMARY-SUCC-180-DAY-PCT TO WS-SUM-SUCC-180-DAY-PCT. DTSBR122 01336 MOVE WS-SUMMARY-TOT TO WS-SUM-TOT. DTSBR122 01337 MOVE WS-SUMMARY-TOT-90-DAY TO WS-SUM-TOT-90-DAY. DTSBR122 01338 MOVE WS-SUMMARY-TOT-90-DAY-PCT TO WS-SUM-TOT-90-DAY-PCT. DTSBR122 01339 MOVE WS-SUMMARY-TOT-180-DAY TO WS-SUM-TOT-180-DAY. DTSBR122 01340 MOVE WS-SUMMARY-TOT-180-DAY-PCT TO WS-SUM-TOT-180-DAY-PCT. DTSBR122 01341 MOVE WS-ACTIVE-CHG-ONLY-TOT TO DL3-ACTIVE-CHG-ONLY-TOT. DTSBR122 01342 MOVE WS-ACTIVE-RATED-TOT TO DL3-ACTIVE-RATED-TOT. DTSBR122 01343 MOVE WS-ACTIVE-SELF-TOT TO DL3-ACTIVE-SELF-TOT. DTSBR122 01344 MOVE WS-ACTIVE-UNK-TOT TO DL3-ACTIVE-UNK-TOT. DTSBR122 01345 MOVE WS-ACTIVE-TOT-TOT TO DL3-ACTIVE-TOT-TOT. DTSBR122 01346 WRITE REPORT-LISTING3 FROM DL3-LINE-9 AFTER 4. DTSBR122 01347 WRITE REPORT-LISTING3 FROM DL3-LINE-10 AFTER 1. DTSBR122 01348 WRITE REPORT-LISTING3 FROM DL3-LINE-11 AFTER 1. DTSBR122 01349 WRITE REPORT-LISTING3 FROM DL3-LINE-12 AFTER 1. DTSBR122 01350 WRITE REPORT-LISTING3 FROM DL3-LINE-13 AFTER 1. DTSBR122 01351 WRITE REPORT-LISTING3 FROM DL3-LINE-14 AFTER 1. DTSBR122 01352 WRITE REPORT-LISTING3 FROM DL3-LINE-15 AFTER 1. DTSBR122 01353 WRITE REPORT-LISTING3 FROM DL3-LINE-16 AFTER 1. DTSBR122 01354 WRITE REPORT-LISTING3 FROM DL3-LINE-17 AFTER 1. DTSBR122 01355 WRITE REPORT-LISTING3 FROM DL3-LINE-18 AFTER 1. DTSBR122 01356 WRITE REPORT-LISTING3 FROM DL3-LINE-19 AFTER 1. DTSBR122 01357 WRITE REPORT-LISTING3 FROM DL3-LINE-20 AFTER 1. DTSBR122 01358 WRITE REPORT-LISTING3 FROM DL3-LINE-21 AFTER 1. DTSBR122 01359 WRITE REPORT-LISTING3 FROM DL3-LINE-22 AFTER 1. DTSBR122 01360 WRITE REPORT-LISTING3 FROM DL3-LINE-23 AFTER 1. DTSBR122 01361 WRITE REPORT-LISTING3 FROM DL3-LINE-24 AFTER 1. DTSBR122 01362 WRITE REPORT-LISTING3 FROM DL3-LINE-25 AFTER 1. DTSBR122 01363 WRITE REPORT-LISTING3 FROM DL3-LINE-26 AFTER 1. DTSBR122 01364 WRITE REPORT-LISTING3 FROM DL3-LINE-27 AFTER 1. DTSBR122 01365 WRITE REPORT-LISTING3 FROM DL3-LINE-28 AFTER 1. DTSBR122 01366 WRITE REPORT-LISTING3 FROM DL3-LINE-29 AFTER 1. DTSBR122 01367 WRITE REPORT-LISTING3 FROM DL3-LINE-30 AFTER 1. DTSBR122 01368 WRITE REPORT-LISTING3 FROM DL3-LINE-31 AFTER 1. DTSBR122 01369 WRITE REPORT-LISTING3 FROM DL3-LINE-32 AFTER 1. DTSBR122 01370 WRITE REPORT-LISTING3 FROM DL3-LINE-33 AFTER 1. DTSBR122 01371 WRITE REPORT-LISTING3 FROM DL3-LINE-34 AFTER 1. DTSBR122 01372 WRITE REPORT-LISTING3 FROM DL3-LINE-35 AFTER 1. DTSBR122 01373 DTSBR122 01374 P9000-EXIT. DTSBR122 01375 EXIT. DTSBR122 01376 EJECT DTSBR122 01377 P9200-FR500-DATA. DTSBR122 01378 DTSBR122 01379 PERFORM P9210-PRINT-HEADER THRU P9210-EXIT. DTSBR122 01380 DTSBR122 01381 MOVE R122-EMP-NO TO WS-DTL4-EMP-NO. DTSBR122 01382 MOVE R122-FR500-PRIMARY-NAME TO WS-DTL4-PRIMARY-NAME. DTSBR122 01383 MOVE R122-OP-ID TO WS-DTL4-OPERID. DTSBR122 01384 DTSBR122 01385 MOVE R122-FR500-LIAB-DATE TO L001-FED-8-DATE-9. DTSBR122 01386 SET L001-FROM-FED-8 TO TRUE. DTSBR122 01387 PERFORM S001-DATE THRU S001-EXIT. DTSBR122 01388 MOVE L001-SLASH-DATE TO WS-DTL4-LIAB-DATE. DTSBR122 01389 DTSBR122 01390 MOVE R122-FR500-SOURCE TO WS-DTL4-SOURCE. DTSBR122 01391 DTSBR122 01392 WRITE REPORT-LISTING4 FROM DTL4-LINE AFTER 2. DTSBR122 01393 ADD +2 TO WS-LINE-CNT-R4. DTSBR122 01394 ADD +1 TO WS-SUM-NUMBER-FOUR. DTSBR122 01395 DTSBR122 01396 P9200-EXIT. DTSBR122 01397 EXIT. DTSBR122 01398 EJECT DTSBR122 01399 P9210-PRINT-HEADER. DTSBR122 01400 IF WS-LINE-CNT-I4 GREATER 56 OR DTSBR122 01401 WS-LINE-CNT-R4 GREATER 56 DTSBR122 01402 MOVE +0 TO WS-LINE-CNT-I4 DTSBR122 01403 MOVE +0 TO WS-LINE-CNT-R4 DTSBR122 01404 ADD +1 TO WS-PAGE-CNT-4 DTSBR122 01405 MOVE WS-PAGE-CNT-4 TO HDR4-PAGE-CNT DTSBR122 01406 WRITE REPORT-LISTING4 FROM HEADER4-1 AFTER TOP-OF-PAGE DTSBR122 01407 WRITE REPORT-LISTING4 FROM HEADER4-2 AFTER 1 DTSBR122 01408 WRITE REPORT-LISTING4 FROM HEADER4-3 AFTER 1 DTSBR122 01409 WRITE REPORT-LISTING4 FROM HEADER4-4 AFTER 1 DTSBR122 01410 WRITE REPORT-LISTING4 FROM HEADER4-5 AFTER 1 DTSBR122 01411 WRITE REPORT-LISTING4 FROM HEADER4-6 AFTER 1 DTSBR122 01412 WRITE REPORT-LISTING4 FROM HEADER4-7 AFTER 1 DTSBR122 01413 WRITE REPORT-LISTING4 FROM HEADER4-8 AFTER 1 DTSBR122 01414 WRITE REPORT-LISTING4 FROM HEADER4-9 AFTER 1 DTSBR122 01415 ADD +9 TO WS-LINE-CNT-R4. DTSBR122 01416 DTSBR122 01417 P9210-EXIT. DTSBR122 01418 EXIT. DTSBR122 01419 DTSBR122 01420 P9400-PENDING-DATA. DTSBR122 01421 DTSBR122 01422 PERFORM P9410-PRINT-HEADER THRU P9410-EXIT. DTSBR122 01423 DTSBR122 01424 MOVE R122-EMP-NO TO WS-DTL5-EMP-NO. DTSBR122 01425 MOVE R122-PEND-PRIMARY-NAME TO WS-DTL5-PRIMARY-NAME. DTSBR122 01426 MOVE R122-OP-ID TO WS-DTL5-OPERID. DTSBR122 01427 DTSBR122 01428 MOVE R122-PEND-REG-DATE TO L001-FED-8-DATE-9. DTSBR122 01429 SET L001-FROM-FED-8 TO TRUE. DTSBR122 01430 PERFORM S001-DATE THRU S001-EXIT. DTSBR122 01431 MOVE L001-SLASH-DATE TO WS-DTL5-REGI-DATE. DTSBR122 01432 DTSBR122 01433 MOVE R122-PEND-ACTION-DATE TO L001-FED-8-DATE-9. DTSBR122 01434 SET L001-FROM-FED-8 TO TRUE. DTSBR122 01435 PERFORM S001-DATE THRU S001-EXIT. DTSBR122 01436 MOVE L001-SLASH-DATE TO WS-DTL5-LAST-ACT-DATE. DTSBR122 01437 DTSBR122 01438 IF R122-PEND-ACT-LTR1-88 DTSBR122 01439 MOVE 'FIRST LETTER' TO WS-DTL5-LAST-ACT-TYPE DTSBR122 01440 ELSE DTSBR122 01441 IF R122-PEND-ACT-LTR2-88 DTSBR122 01442 MOVE 'SECOND LETTER' TO WS-DTL5-LAST-ACT-TYPE DTSBR122 01443 ELSE DTSBR122 01444 IF R122-PEND-ACT-FLD-88 DTSBR122 01445 MOVE 'FIELD ASSIGN' TO WS-DTL5-LAST-ACT-TYPE DTSBR122 01446 ELSE DTSBR122 01447 IF R122-PEND-ACT-COOP-88 DTSBR122 01448 MOVE 'COOP STATE' TO WS-DTL5-LAST-ACT-TYPE DTSBR122 01449 ELSE DTSBR122 01450 IF R122-PEND-ACT-RCVD-88 DTSBR122 01451 MOVE 'FR500 RCVD' TO WS-DTL5-LAST-ACT-TYPE.DTSBR122 01452 DTSBR122 01453 WRITE REPORT-LISTING5 FROM DTL5-LINE AFTER 2. DTSBR122 01454 ADD +2 TO WS-LINE-CNT-R5. DTSBR122 01455 ADD +1 TO WS-SUM-NUMBER-FIVE. DTSBR122 01456 DTSBR122 01457 P9400-EXIT. DTSBR122 01458 EXIT. DTSBR122 01459 EJECT DTSBR122 01460 P9410-PRINT-HEADER. DTSBR122 01461 IF WS-LINE-CNT-I5 GREATER 56 OR DTSBR122 01462 WS-LINE-CNT-R5 GREATER 56 DTSBR122 01463 MOVE +0 TO WS-LINE-CNT-I5 DTSBR122 01464 MOVE +0 TO WS-LINE-CNT-R5 DTSBR122 01465 ADD +1 TO WS-PAGE-CNT-5 DTSBR122 01466 MOVE WS-PAGE-CNT-5 TO HDR5-PAGE-CNT DTSBR122 01467 WRITE REPORT-LISTING5 FROM HEADER5-1 AFTER TOP-OF-PAGE DTSBR122 01468 WRITE REPORT-LISTING5 FROM HEADER5-2 AFTER 1 DTSBR122 01469 WRITE REPORT-LISTING5 FROM HEADER5-3 AFTER 1 DTSBR122 01470 WRITE REPORT-LISTING5 FROM HEADER5-4 AFTER 1 DTSBR122 01471 WRITE REPORT-LISTING5 FROM HEADER5-5 AFTER 1 DTSBR122 01472 WRITE REPORT-LISTING5 FROM HEADER5-6 AFTER 1 DTSBR122 01473 WRITE REPORT-LISTING5 FROM HEADER5-7 AFTER 1 DTSBR122 01474 WRITE REPORT-LISTING5 FROM HEADER5-8 AFTER 1 DTSBR122 01475 WRITE REPORT-LISTING5 FROM HEADER5-9 AFTER 1 DTSBR122 01476 ADD +9 TO WS-LINE-CNT-R5. DTSBR122 01477 DTSBR122 01478 P9410-EXIT. DTSBR122 01479 EXIT. DTSBR122 01480 DTSBR122 01481 T1000-TERMINATE. DTSBR122 01482 *** FOLLOWING FOOTERS ARE MUTUALLY EXCLUSIVE DTSBR122 01483 *** (THE MOST YOU CAN HAVE IS ONE) DTSBR122 01484 *** LIAB. FOOTER NEEDED? DTSBR122 01485 IF WS-FOOT-NUMBER-ONE NOT = +0 DTSBR122 01486 IF WS-LINE-CNT-R1 > 52 DTSBR122 01487 PERFORM P6000-PRINT-HEADER THRU P6000-EXIT DTSBR122 01488 END-IF DTSBR122 01489 *** LIAB. FOOTER DTSBR122 01490 PERFORM P7000-PRINT-FOOTER THRU P7000-EXIT DTSBR122 01491 *** LIAB. TOTAL FOOTER DTSBR122 01492 PERFORM P7200-PRINT-FOOTER THRU P7200-EXIT DTSBR122 01493 END-IF. DTSBR122 01494 *** INAC. FOOTER NEEDED? DTSBR122 01495 IF WS-FOOT-NUMBER-TWO NOT = +0 DTSBR122 01496 IF WS-LINE-CNT-R2 > 52 DTSBR122 01497 PERFORM P8000-PRINT-HEADER THRU P8000-EXIT DTSBR122 01498 END-IF DTSBR122 01499 *** INAC. ENT. FOOTER DTSBR122 01500 MOVE WS-FOOT-NUMBER-TWO TO WS-CF2-NUMBER-TWO DTSBR122 01501 PERFORM P8200-PRINT-FOOTER THRU P8200-EXIT DTSBR122 01502 MOVE +0 TO WS-FOOT-NUMBER-TWO DTSBR122 01503 END-IF. DTSBR122 01504 * DTSBR122 01505 IF WS-FOOT-NUMBER-THREE NOT = +0 DTSBR122 01506 IF WS-LINE-CNT-R2 > 52 DTSBR122 01507 PERFORM P8000-PRINT-HEADER THRU P8000-EXIT DTSBR122 01508 END-IF DTSBR122 01509 *** INAC. REV. FOOTER DTSBR122 01510 MOVE WS-FOOT-NUMBER-THREE TO WS-CF2-NUMBER-TWO DTSBR122 01511 PERFORM P8200-PRINT-FOOTER THRU P8200-EXIT DTSBR122 01512 MOVE +0 TO WS-FOOT-NUMBER-THREE DTSBR122 01513 END-IF. DTSBR122 01514 * DTSBR122 01515 IF WS-SUM-NUMBER-FOUR NOT = +0 DTSBR122 01516 IF WS-LINE-CNT-R4 > 54 DTSBR122 01517 PERFORM P9210-PRINT-HEADER THRU P9210-EXIT DTSBR122 01518 END-IF DTSBR122 01519 *** FR500 FOOTER DTSBR122 01520 MOVE WS-SUM-NUMBER-FOUR TO WS-FOOT-NUMBER-FOUR DTSBR122 01521 WRITE REPORT-LISTING4 FROM CF4-LINE AFTER 3 DTSBR122 01522 END-IF. DTSBR122 01523 * DTSBR122 01524 IF WS-SUM-NUMBER-FIVE NOT = +0 DTSBR122 01525 IF WS-LINE-CNT-R5 > 54 DTSBR122 01526 PERFORM P9410-PRINT-HEADER THRU P9410-EXIT DTSBR122 01527 END-IF DTSBR122 01528 *** PENDING FOOTER DTSBR122 01529 MOVE WS-SUM-NUMBER-FIVE TO WS-FOOT-NUMBER-FIVE DTSBR122 01530 WRITE REPORT-LISTING5 FROM CF5-LINE AFTER 3 DTSBR122 01531 END-IF. DTSBR122 01532 * DTSBR122 01533 CLOSE PRT-FILE1 PRT-FILE2 PRT-FILE3 PRT-FILE4 PRT-FILE5. DTSBR122 01534 DTSBR122 01535 T1000-EXIT. DTSBR122 01536 EXIT. DTSBR122 01537 DTSBR122 01538 DTSBR122 01539 S001-DATE. DTSBR122 01540 DTSBR122 01541 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR122 01542 DTSBR122 01543 S001-EXIT. DTSBR122 01544 EXIT. DTSBR122 01545 DTSBR122 01546 ***S999-ABEND. DTSBR122 01547 *** DTSBR122 01548 *** CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR122 01549 *** DTSBR122 01550 *** S999-EXIT. DTSBR122 01551 *** EXIT. DTSBR122