1553 lines
123 KiB
COBOL
1553 lines
123 KiB
COBOL
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
|