00001 IDENTIFICATION DIVISION. 09/08/01 00002 PROGRAM-ID. DTSBR429. DTSBR429 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV013 00004 DATE-WRITTEN. JANUARY 1995. DTSBR429 00005 DATE-COMPILED. DTSBR429 00006 SKIP2 DTSBR429 00007 ***** DTSBR429 00008 * FUNCTION: FIELD REPRESENTATIVES' LIST (FOR > AMT PARM). DTSBR429 00009 * DTSBR429 00010 * CALLING SEQUENCE: DTSBD400 CALLS DTSBE429 DTSBR429 00011 * WHICH CREATES DTSIR429 RECORDS. DTSBR429 00012 * DTSBD800 CALLS DTSBR429 DTSBR429 00013 * WHICH PRODUCES THE FIELD REPRE- DTSBR429 00014 * SENTATIVE LISTING FOR COLLECTION DTSBR429 00015 * AMOUNTS OVER $100. DTSBR429 00016 * MODIFICATION HISTORY: DTSBR429 00017 * DTSBR429 00018 * 02-27-01 FIXED SEPARATION OF FIELD. REPS. WITHIN REPORT & DTSBR429 00019 * THE REPORT TOTAL ON A SEPARATE PAGE. DTSBR429 00020 * REFERENCE RFP #CR087 AUTHOR OF CHANGE - JHP DTSBR429 00021 * DTSBR429 00022 * 01-18-95 INITIAL DEVELOPMENT. DTSBR429 00023 * REFERENCE RFP #RAP AUTHOR OF CHANGE - RHC DTSBR429 00024 * DTSBR429 00025 * 03-06-95 DROP FIELD REP PROCESSING FROM REPORT. DTSBR429 00026 * REFERENCE RFP #CR046 AUTHOR OF CHANGE - RHC DTSBR429 00027 * DTSBR429 00028 * 03-29-95 MODIFY FOR DUPLEX. DTSBR429 00029 * REFERENCE RFP #CR056 AUTHOR OF CHANGE - RHC DTSBR429 00030 * DTSBR429 00031 * 05-15-95 ADD TAX DUE CUTOFF DATE. IF ONE OR MORE BALANCES DTSBR429 00032 * ARE DUE ON OR BEFORE THE CUTOFF DATE, PRINT THE DTSBR429 00033 * TOTAL OF ALL BALANCES DUE FOR THE EMPLOYER. DTSBR429 00034 * REFERENCE RFP #CR087 AUTHOR OF CHANGE - RHC DTSBR429 00035 * DTSBR429 00036 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR429 00037 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR429 00038 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR429 00039 * DTSBR429 00040 * DESCRIPTION: DTSBR429 00041 * DTSBR429 00042 * THIS MODULE PRODUCES THE COLLECTION SPECIALISTS' LIST DTSBR429 00043 * (FOR > AMT PARM). DTSBR429 00044 * DTSBR429 00045 * DTSBR429 00046 * RECORDS READ: DTSBR429 00047 * DTSBR429 00048 * NONE. DTSBR429 00049 * DTSBR429 00050 * DTSBR429 00051 * PRINTED OUTPUTS: DTSBR429 00052 * DTSBR429 00053 * 429R1 COLLECTION SPECIALISTS' LIST (FOR > AMT PARM). DTSBR429 00054 * DTSBR429 00055 * DTSBR429 00056 * RECORDS WRITTEN: DTSBR429 00057 * DTSBR429 00058 * NONE. DTSBR429 00059 * DTSBR429 00060 * DTSBR429 00061 * MODULES CALLED: DTSBR429 00062 * DTSBR429 00063 * DTSBU001 DATE CONVERT. DTSBR429 00064 * DTSBR429 00065 ***** DTSBR429 00066 EJECT DTSBR429 00067 ENVIRONMENT DIVISION. DTSBR429 00068 DTSBR429 00069 CONFIGURATION SECTION. DTSBR429 00070 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR429 00071 DTSBR429 00072 INPUT-OUTPUT SECTION. DTSBR429 00073 FILE-CONTROL. DTSBR429 00074 SELECT PRT-FILE ASSIGN TO RPT429R1. DTSBR429 00075 DTSBR429 00076 DATA DIVISION. DTSBR429 00077 FILE SECTION. DTSBR429 00078 DTSBR429 00079 FD PRT-FILE DTSBR429 00080 RECORDING MODE IS F. DTSBR429 00081 01 PRT-RECORD PIC X(133). DTSBR429 00082 DTSBR429 00083 WORKING-STORAGE SECTION. DTSBR429 000835 77 PAN-VALET PICTURE X(24) VALUE '013DTSBR429 09/08/01'. DTSBR429 00084 DTSBR429 00085 01 WRK-AREA. DTSBR429 00086 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +429. DTSBR429 00087 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR429 00088 05 FIRST-PAGE-IND PIC X(01) VALUE 'Y'. DTSBR429 00089 05 WRK-CNT PIC S9(04) COMP VALUE ZERO. DTSBR429 00090 DTSBR429 00091 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR429 00092 05 WS-FOOT-CAT-TOTAL PIC S9(05) COMP-3 VALUE +0. DTSBR429 00093 05 WS-FOOT-REP-TOTAL PIC S9(05) COMP-3 VALUE +0. DTSBR429 00094 05 WS-FOOT-ALL-TOTAL PIC S9(05) COMP-3 VALUE +0. DTSBR429 00095 05 WS-SUM-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR429 00096 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR429 00097 05 WS-PAGE-CNT PIC S9(05) VALUE +0. DTSBR429 00098 05 FILLER REDEFINES WS-PAGE-CNT. DTSBR429 00099 10 FILLER PIC S9(04). DTSBR429 00100 10 FILLER PIC 9. DTSBR429 00101 88 WRK-ODD-PAGE-88 VALUE 1 3 5 7 9. DTSBR429 00102 DTSBR429 00103 05 WS-BLANK-LINE PIC X(133) VALUE SPACES. DTSBR429 00104 DTSBR429 00105 05 WRK-PERM-HDG-AREA. DTSBR429 00106 10 WRK-HDG-FLD-REP OCCURS 2 PIC X(02). DTSBR429 00107 10 WRK-HDG-FLD-TYPE OCCURS 3 PIC X(02). DTSBR429 00108 DTSBR429 00109 05 WRK-FLD-REP PIC X(02). DTSBR429 00110 05 WRK-CATEGORY-9 PIC 9(01). DTSBR429 00111 05 WRK-CAT PIC X(26). DTSBR429 00112 05 WRK-CATS. DTSBR429 00113 10 FILLER PIC X(26) VALUE 'DEFERRED PAYMENT CONTRACTS'. DTSBR429 00114 10 FILLER PIC X(26) VALUE ' LIEN CANDIDATES '. DTSBR429 00115 10 FILLER PIC X(26) VALUE 'EVERYTHING ELSE - INACTIVE'. DTSBR429 00116 10 FILLER PIC X(26) VALUE ' EVERYTHING ELSE - ACTIVE '. DTSBR429 00117 05 FILLER REDEFINES WRK-CATS. DTSBR429 00118 10 WRK-CAT-TBL OCCURS 4 PIC X(26). DTSBR429 00119 DTSBR429 00120 EJECT DTSBR429 00121 01 PAGE-HEADING. DTSBR429 00122 05 HDR-LINE-1. DTSBR429 00123 10 FILLER PIC X(06) DTSBR429 00124 VALUE ' 429R1'. DTSBR429 00125 10 FILLER PIC X(33) VALUE SPACES.DTSBR429 00126 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR429 00127 10 FILLER PIC X(29) VALUE SPACES.DTSBR429 00128 10 FILLER PIC X(06) DTSBR429 00129 VALUE 'DATE: '. DTSBR429 00130 10 HDR-SYS-DATE PIC X(08). DTSBR429 00131 05 HDR-LINE-2. DTSBR429 00132 10 FILLER PIC X(39) VALUE SPACES.DTSBR429 00133 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR429 00134 10 FILLER PIC X(29) VALUE SPACES.DTSBR429 00135 10 FILLER PIC X(06) DTSBR429 00136 VALUE 'TIME: '. DTSBR429 00137 10 HDR-SYS-TIME PIC X(08). DTSBR429 00138 05 HDR-LINE-3. DTSBR429 00139 10 FILLER PIC X(36) DTSBR429 00140 VALUE ' ROUTE TO: ENFORCEMENT UNIT '. DTSBR429 00141 10 FILLER PIC X(82) VALUE SPACES.DTSBR429 00142 10 FILLER PIC X(08) DTSBR429 00143 VALUE 'PAGE: '. DTSBR429 00144 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR429 00145 05 HDR-LINE-4. DTSBR429 00146 10 FILLER PIC X(11) VALUE SPACES.DTSBR429 00147 10 FILLER PIC X(20) DTSBR429 00148 VALUE ' '. DTSBR429 00149 10 FILLER PIC X(20) VALUE SPACES.DTSBR429 00150 10 FILLER PIC X(21) DTSBR429 00151 VALUE 'FIELD REPRESENTATIVES'. DTSBR429 00152 10 FILLER PIC X DTSBR429 00153 VALUE QUOTE. DTSBR429 00154 10 FILLER PIC X(08) DTSBR429 00155 VALUE ' LIST OF'. DTSBR429 00156 05 HDR-LINE-5. DTSBR429 00157 10 FILLER PIC X(43) VALUE SPACES.DTSBR429 00158 10 FILLER PIC X(36) DTSBR429 00159 VALUE 'ACCOUNTS WITH TOTAL BALANCE DUE OVER'. DTSBR429 00160 10 FILLER PIC X(01) VALUE SPACE. DTSBR429 00161 10 WRK-HDG-BAL-AMT PIC Z,ZZ9.99. DTSBR429 00162 05 HDR-LINE-6. DTSBR429 00163 10 FILLER PIC X(31) DTSBR429 00164 VALUE ' FIELD REPRESENTATIVE CODE(S): '. DTSBR429 00165 10 HDR-HDG-FLD-REP-1 PIC X(02). DTSBR429 00166 10 FILLER PIC X(01) VALUE SPACE. DTSBR429 00167 10 HDR-HDG-FLD-REP-2 PIC X(02). DTSBR429 00168 10 FILLER PIC X(16) VALUE SPACES.DTSBR429 00169 10 FILLER PIC X(20) DTSBR429 00170 VALUE 'TAX DUE CUTOFF DATE '. DTSBR429 00171 10 WRK-HDG-TAX-DUE-DATE PIC X(08). DTSBR429 00172 05 HDR-LINE-7. DTSBR429 00173 10 FILLER PIC X(30) DTSBR429 00174 VALUE ' FIELD ASSIGNMENT TYPES EXC:'. DTSBR429 00175 10 FILLER PIC X(01) VALUE SPACE. DTSBR429 00176 10 HDR-HDG-FLD-TYPE-1 PIC X(02). DTSBR429 00177 10 FILLER PIC X(01) VALUE SPACE. DTSBR429 00178 10 HDR-HDG-FLD-TYPE-2 PIC X(02). DTSBR429 00179 10 FILLER PIC X(01) VALUE SPACE. DTSBR429 00180 10 HDR-HDG-FLD-TYPE-3 PIC X(02). DTSBR429 00181 05 HDR-LINE-8. DTSBR429 00182 10 FILLER PIC X(52) VALUE SPACES.DTSBR429 00183 10 HDR-CAT PIC X(26). DTSBR429 00184 05 HDR-LINE-9. DTSBR429 00185 10 FILLER PIC X(23) DTSBR429 00186 VALUE ' FIELD REPRESENTATIVE: '. DTSBR429 00187 10 HDR-FLD-REP PIC X(02). DTSBR429 00188 05 HDR-LINE-11. DTSBR429 00189 10 FILLER PIC X(97) VALUE SPACES.DTSBR429 00190 10 FILLER PIC X(17) DTSBR429 00191 VALUE 'TOTAL BALANCE DUE'. DTSBR429 00192 05 HDR-LINE-12. DTSBR429 00193 10 FILLER PIC X(12) VALUE SPACES.DTSBR429 00194 10 FILLER PIC X(06) DTSBR429 00195 VALUE 'EMP NO'. DTSBR429 00196 10 FILLER PIC X(09) VALUE SPACES.DTSBR429 00197 10 FILLER PIC X(13) DTSBR429 00198 VALUE 'PRIMARY NAME '. DTSBR429 00199 10 FILLER PIC X(35) VALUE SPACES.DTSBR429 00200 10 FILLER PIC X(13) DTSBR429 00201 VALUE 'INACTIVE DATE'. DTSBR429 00202 10 FILLER PIC X(08) VALUE SPACES.DTSBR429 00203 10 FILLER PIC X(10) DTSBR429 00204 VALUE '(P&I THRU '. DTSBR429 00205 10 WRK-HDG-COMP-DATE PIC X(08). DTSBR429 00206 10 FILLER PIC X(01) DTSBR429 00207 VALUE ')'. DTSBR429 00208 DTSBR429 00209 01 DETAIL-LINE. DTSBR429 00210 05 DTL-LINE-2. DTSBR429 00211 10 FILLER PIC X(11) VALUE SPACES.DTSBR429 00212 10 DTL-EMP-NO PIC 999B999. DTSBR429 00213 10 FILLER PIC X(07) VALUE SPACES.DTSBR429 00214 10 DTL-PRIMARY-NAME PIC X(40). DTSBR429 00215 10 FILLER PIC X(13) VALUE SPACES.DTSBR429 00216 10 WRK-INACTIVE-DATE PIC X(08). DTSBR429 00217 10 FILLER PIC X(12) VALUE SPACES.DTSBR429 00218 10 DTL-TOT-BAL-AMT PIC ZZZ,ZZZ,ZZ9.99. DTSBR429 00219 DTSBR429 00220 01 CONTROL-FOOTING-WRK-CAT. DTSBR429 00221 05 CTF1-LINE-2. DTSBR429 00222 10 FILLER PIC X(15) VALUE SPACES.DTSBR429 00223 10 CTF1-FOOT-NUMBER-ONE PIC ZZ,ZZ9. DTSBR429 00224 10 FILLER PIC X(31) DTSBR429 00225 VALUE ' EMPLOYERS LISTED FOR CATEGORY '. DTSBR429 00226 10 CTF1-CAT PIC X(26). DTSBR429 00227 DTSBR429 00228 01 CONTROL-FOOTING-WRK-FLD-REP. DTSBR429 00229 05 CTF2-LINE-2. DTSBR429 00230 10 FILLER PIC X(15) VALUE SPACES.DTSBR429 00231 10 CTF2-FOOT-NUMBER-TWO PIC ZZ,ZZ9. DTSBR429 00232 10 FILLER PIC X(41) DTSBR429 00233 VALUE ' EMPLOYERS LISTED FOR FIELD REPRESENTIVE '. DTSBR429 00234 10 CTF2-FLD-REP PIC X(02). DTSBR429 00235 DTSBR429 00236 01 CONTROL-FOOTING-FINAL. DTSBR429 00237 05 CFF-LINE-2. DTSBR429 00238 10 FILLER PIC X(15) VALUE SPACES.DTSBR429 00239 10 CFF-SUM-CNT PIC ZZ,ZZ9. DTSBR429 00240 10 FILLER PIC X(33) DTSBR429 00241 VALUE ' EMPLOYERS LISTED FOR THIS REPORT'. DTSBR429 00242 EJECT DTSBR429 00243 01 L001-LINK-AREA. DTSBR429 00244 ++INCLUDE DTSIL001 DTSBR429 00245 EJECT DTSBR429 00246 LINKAGE SECTION. DTSBR429 00247 SKIP2 DTSBR429 00248 01 LRCM-LINK-AREA. DTSBR429 00249 ++INCLUDE DTSILRCM DTSBR429 00250 EJECT DTSBR429 00251 01 R429-REC. DTSBR429 00252 ++INCLUDE DTSIR429 DTSBR429 00253 EJECT DTSBR429 00254 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR429 00255 R429-REC. DTSBR429 00256 IF FIRST-TIME-IND = 'Y' DTSBR429 00257 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR429 00258 MOVE 'N' TO FIRST-TIME-IND. DTSBR429 00259 DTSBR429 00260 IF LRCM-EOR-88 DTSBR429 00261 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR429 00262 ELSE DTSBR429 00263 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR429 00264 DTSBR429 00265 GOBACK. DTSBR429 00266 DTSBR429 00267 I1000-INITIATE. DTSBR429 00268 MOVE SPACE TO WRK-PERM-HDG-AREA. DTSBR429 00269 MOVE 0 TO WRK-CATEGORY-9. DTSBR429 00270 DTSBR429 00271 DTSBR429 00272 MOVE R429-FLD-REP-PARM (1) TO WRK-HDG-FLD-REP (1) DTSBR429 00273 HDR-HDG-FLD-REP-1. DTSBR429 00274 MOVE R429-FLD-REP-PARM (2) TO WRK-HDG-FLD-REP (2) DTSBR429 00275 HDR-HDG-FLD-REP-2. DTSBR429 00276 DTSBR429 00277 MOVE R429-TAX-DUE-CUTOFF-DT TO L001-FED-8-DATE-9. DTSBR429 00278 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR429 00279 MOVE L001-SLASH-DATE TO WRK-HDG-TAX-DUE-DATE. DTSBR429 00280 DTSBR429 00281 MOVE R429-FIELD-TYPE-PARM (1) TO WRK-HDG-FLD-TYPE (1) DTSBR429 00282 HDR-HDG-FLD-TYPE-1. DTSBR429 00283 MOVE R429-FIELD-TYPE-PARM (2) TO WRK-HDG-FLD-TYPE (2) DTSBR429 00284 HDR-HDG-FLD-TYPE-2. DTSBR429 00285 MOVE R429-FIELD-TYPE-PARM (3) TO WRK-HDG-FLD-TYPE (3) DTSBR429 00286 HDR-HDG-FLD-TYPE-3. DTSBR429 00287 DTSBR429 00288 MOVE R429-INT-PEN-COMP-DATE TO L001-FED-8-DATE-9. DTSBR429 00289 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR429 00290 MOVE L001-SLASH-DATE TO WRK-HDG-COMP-DATE. DTSBR429 00291 DTSBR429 00292 OPEN OUTPUT PRT-FILE. DTSBR429 00293 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR429 00294 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR429 00295 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR429 00296 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR429 00297 MOVE R429-PARM-BAL-AMT TO WRK-HDG-BAL-AMT. DTSBR429 00298 MOVE R429-CATEGORY-9 TO WRK-CATEGORY-9 DTSBR429 00299 MOVE WRK-CAT-TBL (R429-CATEGORY-9) TO WRK-CAT DTSBR429 00300 HDR-CAT DTSBR429 00301 MOVE R429-FLD-REP-ID TO WRK-FLD-REP DTSBR429 00302 HDR-FLD-REP DTSBR429 00303 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT. DTSBR429 00304 I1000-EXIT. DTSBR429 00305 EXIT. DTSBR429 00306 DTSBR429 00307 P1000-PROCESS. DTSBR429 00308 PERFORM P5000-CONTROL-BREAK-CHECK THRU P5000-EXIT. DTSBR429 00309 DTSBR429 00310 MOVE R429-INAC-DATE TO L001-FED-8-DATE-9. DTSBR429 00311 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR429 00312 IF L001-VALID-DATE DTSBR429 00313 MOVE L001-SLASH-DATE TO WRK-INACTIVE-DATE DTSBR429 00314 ELSE DTSBR429 00315 MOVE ' ACTIVE ' TO WRK-INACTIVE-DATE. DTSBR429 00316 DTSBR429 00317 MOVE R429-EMP-NO TO DTL-EMP-NO. DTSBR429 00318 MOVE R429-PRIMARY-NAME TO DTL-PRIMARY-NAME. DTSBR429 00319 MOVE R429-TOT-BAL-AMT TO DTL-TOT-BAL-AMT. DTSBR429 00320 DTSBR429 00321 IF WS-LINE-CNT > 53 DTSBR429 00322 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR429 00323 END-IF. DTSBR429 00324 DTSBR429 00325 WRITE PRT-RECORD FROM DTL-LINE-2 AFTER 2. DTSBR429 00326 ADD +2 TO WS-LINE-CNT. DTSBR429 00327 ADD +1 TO WS-FOOT-CAT-TOTAL, DTSBR429 00328 WS-FOOT-REP-TOTAL, DTSBR429 00329 WS-FOOT-ALL-TOTAL. DTSBR429 00330 P1000-EXIT. DTSBR429 00331 EXIT. DTSBR429 00332 DTSBR429 00333 P3000-PRINT-HEADER. DTSBR429 00334 MOVE +0 TO WS-LINE-CNT DTSBR429 00335 ADD +1 TO WS-PAGE-CNT DTSBR429 00336 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR429 00337 WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE DTSBR429 00338 WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1 DTSBR429 00339 WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1 DTSBR429 00340 WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1 DTSBR429 00341 WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1 DTSBR429 00342 WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1 DTSBR429 00343 WRITE PRT-RECORD FROM HDR-LINE-7 AFTER 1 DTSBR429 00344 WRITE PRT-RECORD FROM HDR-LINE-8 AFTER 1 DTSBR429 00345 WRITE PRT-RECORD FROM HDR-LINE-9 AFTER 1 DTSBR429 00346 WRITE PRT-RECORD FROM HDR-LINE-11 AFTER 1 DTSBR429 00347 WRITE PRT-RECORD FROM HDR-LINE-12 AFTER 1 DTSBR429 00348 ADD +11 TO WS-LINE-CNT. DTSBR429 00349 P3000-EXIT. DTSBR429 00350 EXIT. DTSBR429 00351 DTSBR429 00352 P4000-PRINT-CAT-TOTAL. DTSBR429 00353 DTSBR429 00354 IF WS-LINE-CNT > 53 DTSBR429 00355 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR429 00356 END-IF. DTSBR429 00357 DTSBR429 00358 MOVE WS-FOOT-CAT-TOTAL TO CTF1-FOOT-NUMBER-ONE. DTSBR429 00359 MOVE WRK-CAT TO CTF1-CAT. DTSBR429 00360 WRITE PRT-RECORD FROM CTF1-LINE-2 AFTER 2. DTSBR429 00361 MOVE +0 TO WS-FOOT-CAT-TOTAL. DTSBR429 00362 DTSBR429 00363 P4000-EXIT. DTSBR429 00364 EXIT. DTSBR429 00365 DTSBR429 00366 P4010-PRINT-REP-TOTAL. DTSBR429 00367 DTSBR429 00368 IF WS-LINE-CNT > 53 DTSBR429 00369 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR429 00370 END-IF. DTSBR429 00371 DTSBR429 00372 MOVE WS-FOOT-REP-TOTAL TO CTF2-FOOT-NUMBER-TWO. DTSBR429 00373 MOVE WRK-FLD-REP TO CTF2-FLD-REP. DTSBR429 00374 WRITE PRT-RECORD FROM CTF2-LINE-2 AFTER 2. DTSBR429 00375 MOVE +0 TO WS-FOOT-REP-TOTAL. DTSBR429 00376 DTSBR429 00377 IF WRK-ODD-PAGE-88 DTSBR429 00378 WRITE PRT-RECORD FROM WS-BLANK-LINE DTSBR429 00379 AFTER TOP-OF-PAGE DTSBR429 00380 MOVE +0 TO WS-PAGE-CNT DTSBR429 00381 END-IF. DTSBR429 00382 DTSBR429 00383 P4010-EXIT. DTSBR429 00384 EXIT. DTSBR429 00385 DTSBR429 00386 P5000-CONTROL-BREAK-CHECK. DTSBR429 00387 DTSBR429 00388 IF R429-FLD-REP-ID NOT = WRK-FLD-REP DTSBR429 00389 PERFORM P4000-PRINT-CAT-TOTAL THRU P4000-EXIT DTSBR429 00390 PERFORM P4010-PRINT-REP-TOTAL THRU P4010-EXIT DTSBR429 00391 MOVE R429-CATEGORY-9 TO WRK-CATEGORY-9 DTSBR429 00392 MOVE WRK-CAT-TBL (R429-CATEGORY-9) TO WRK-CAT DTSBR429 00393 HDR-CAT DTSBR429 00394 MOVE R429-FLD-REP-ID TO WRK-FLD-REP DTSBR429 00395 HDR-FLD-REP DTSBR429 00396 MOVE +0 TO WS-PAGE-CNT DTSBR429 00397 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR429 00398 ELSE DTSBR429 00399 IF R429-CATEGORY-9 NOT = WRK-CATEGORY-9 DTSBR429 00400 PERFORM P4000-PRINT-CAT-TOTAL THRU P4000-EXIT DTSBR429 00401 MOVE R429-CATEGORY-9 TO WRK-CATEGORY-9 DTSBR429 00402 MOVE WRK-CAT-TBL (R429-CATEGORY-9) TO WRK-CAT DTSBR429 00403 HDR-CAT DTSBR429 00404 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR429 00405 END-IF DTSBR429 00406 END-IF. DTSBR429 00407 P5000-EXIT. DTSBR429 00408 EXIT. DTSBR429 00409 DTSBR429 00410 T1000-TERMINATE. DTSBR429 00411 DTSBR429 00412 IF WS-LINE-CNT > 53 DTSBR429 00413 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR429 00414 END-IF. DTSBR429 00415 DTSBR429 00416 PERFORM P4000-PRINT-CAT-TOTAL THRU P4000-EXIT DTSBR429 00417 PERFORM P4010-PRINT-REP-TOTAL THRU P4010-EXIT DTSBR429 00418 MOVE SPACE TO HDR-CAT DTSBR429 00419 MOVE SPACE TO HDR-FLD-REP DTSBR429 00420 MOVE +0 TO WS-PAGE-CNT DTSBR429 00421 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR429 00422 DTSBR429 00423 MOVE WS-FOOT-ALL-TOTAL TO CFF-SUM-CNT. DTSBR429 00424 WRITE PRT-RECORD FROM CFF-LINE-2 AFTER 2. DTSBR429 00425 DTSBR429 00426 CLOSE PRT-FILE. DTSBR429 00427 DTSBR429 00428 T1000-EXIT. DTSBR429 00429 EXIT. DTSBR429 00430 DTSBR429 00431 S001-FROM-FED-8. DTSBR429 00432 DTSBR429 00433 SET L001-FROM-FED-8 TO TRUE. DTSBR429 00434 DTSBR429 00435 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR429 00436 DTSBR429 00437 S001-EXIT. DTSBR429 00438 EXIT. DTSBR429 00439 DTSBR429 00440 *S999-ABEND. DTSBR429 00441 * DTSBR429 00442 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR429 00443 * DTSBR429 00444 *S999-EXIT. EXIT. DTSBR429 00445 EJECT DTSBR429