00001 IDENTIFICATION DIVISION. 02/07/12 00002 PROGRAM-ID. DTSBR609. DTSBR609 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV012 00004 DATE-WRITTEN. JANUARY 1995. DTSBR609 00005 DATE-COMPILED. DTSBR609 00006 SKIP3 DTSBR609 00007 ***** DTSBR609 00008 * DTSBR609 00009 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR609 00010 * DTSBE609 WHICH UPDATES DTSIR609 DTSBR609 00011 * DTSBR609 READS DTSIR609 RECORDS. DTSBR609 00012 * DTSBR609 00013 * FUNCTION: FIELD ASSIGNMENT MANAGEMENT REPORTS. DTSBR609 00014 * DTSBR609 00015 * DTSBR609 00016 * MODIFICATION HISTORY: DTSBR609 00017 * DTSBR609 00018 * 01-23-95 INITIAL DEVELOPMENT DTSBR609 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - RHC DTSBR609 00020 * DTSBR609 00021 * 11-25-98 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS. DTSBR609 00022 * REFERENCE RFP #**** AUTHOR OF CHANGE - DVS DTSBR609 00023 * DTSBR609 00024 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR609 00025 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR609 00026 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR609 00027 * DTSBR609 00028 * DTSBR609 00029 * DESCRIPTION: DTSBR609 00030 * DTSBR609 00031 * THIS MODULE PRODUCES THE FIELD ASSIGNMENT MANAGEMENT DTSBR609 00032 * REPORTS (DETAIL REPORT OPTIONAL, SUMMARY ALWAYS). DTSBR609 00033 * DTSBR609 00034 * DTSBR609 00035 * RECORDS READ: DTSBR609 00036 * DTSBR609 00037 * NONE. DTSBR609 00038 * DTSBR609 00039 * DTSBR609 00040 * PRINTED OUTPUTS: DTSBR609 00041 * DTSBR609 00042 * 609R1 FIELD ASSIGNMENT MANAGEMENT - DETAIL REPORT. DTSBR609 00043 * 609R2 FIELD ASSIGNMENT MANAGEMENT - SUMMARY. DTSBR609 00044 * DTSBR609 00045 * DTSBR609 00046 * RECORDS WRITTEN: DTSBR609 00047 * DTSBR609 00048 * NONE. DTSBR609 00049 * DTSBR609 00050 * DTSBR609 00051 * MODULES CALLED: DTSBR609 00052 * DTSBR609 00053 * DTSBU001 DATE CONVERT. DTSBR609 00054 * DTSBU062 FIELD REP LOOKUP. DTSBR609 00055 * DTSBU063 ASSIGNMENT LOOKUP. DTSBR609 00056 * DTSBR609 00057 * DTSBR609 00058 ***** DTSBR609 00059 EJECT DTSBR609 00060 ENVIRONMENT DIVISION. DTSBR609 00061 DTSBR609 00062 CONFIGURATION SECTION. DTSBR609 00063 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR609 00064 DTSBR609 00065 INPUT-OUTPUT SECTION. DTSBR609 00066 FILE-CONTROL. DTSBR609 00067 SELECT PRT-FILE-1 ASSIGN TO RPT609R1. DTSBR609 00068 SELECT PRT-FILE-2 ASSIGN TO RPT609R2. DTSBR609 00069 DTSBR609 00070 DATA DIVISION. DTSBR609 00071 FILE SECTION. DTSBR609 00072 DTSBR609 00073 FD PRT-FILE-1 DTSBR609 00074 RECORDING MODE IS F. DTSBR609 00075 01 REPORT-LISTING1 PIC X(133). DTSBR609 00076 DTSBR609 00077 FD PRT-FILE-2 DTSBR609 00078 RECORDING MODE IS F. DTSBR609 00079 01 REPORT-LISTING2 PIC X(133). DTSBR609 00080 DTSBR609 00081 EJECT DTSBR609 00082 WORKING-STORAGE SECTION. DTSBR609 000825 77 PAN-VALET PICTURE X(24) VALUE '012DTSBR609 02/07/12'. DTSBR609 00083 DTSBR609 00084 01 WRK-AREA. DTSBR609 00085 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +609.DTSBR609 00086 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR609 00087 DTSBR609 00088 05 WS-BLANK-PAGE PIC X(133) VALUE SPACES. DTSBR609 00089 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR609 00090 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR609 00091 05 WS-LINE-CNT3 PIC S9(02) COMP-3 VALUE 60. DTSBR609 00092 05 WS-LINE-CNT4 PIC S9(02) COMP-3 VALUE +0. DTSBR609 00093 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR609 00094 05 WS-PAGE-CNT2 PIC S9(03) COMP-3 VALUE +0. DTSBR609 00095 05 WS-FOOT-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. DTSBR609 00096 05 WS-FOOT-NUMBER-TWO PIC S9(05) COMP-3 VALUE +0. DTSBR609 00097 05 WS-RPT-ACTIVE-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR609 00098 05 WS-RPT-BACKLOGGED-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR609 00099 05 WS-RPT-HELD-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR609 00100 05 WS-RPT-COMPLETED-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR609 00101 DTSBR609 00102 05 WS-CTF-RECORD-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR609 00103 05 WS-RPT2-ACTIVE-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR609 00104 05 WS-RPT2-BACKLOGGED-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR609 00105 05 WS-RPT2-HELD-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR609 00106 05 WS-RPT2-COMPLETED-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR609 00107 05 WS-CFF-ACTIVE-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR609 00108 05 WS-CFF-BACKLOGGED-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR609 00109 05 WS-CFF-HELD-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR609 00110 05 WS-CFF-COMPLETED-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR609 00111 DTSBR609 00112 05 WRK-PAGE-TRUNCATE PIC 9(01). DTSBR609 00113 88 WRK-ODD-PAGE-88 VALUE 1 3 5 7 9. DTSBR609 00114 DTSBR609 00115 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR609 00116 05 WS-NUMBER-TWO PIC S9(03) COMP-3 VALUE +0. DTSBR609 00117 05 WS-OP-ID-HOLD PIC X(08) VALUE SPACE. DTSBR609 00118 05 WS-OP-ID-NAME-PREV PIC X(32) VALUE SPACE. DTSBR609 00119 05 WS-FLD-REP-ID-HOLD PIC X(02). DTSBR609 00120 05 WS-FLD-REP-ID-PREV PIC X(02). DTSBR609 00121 05 WS-YRQ-UNPACK PIC 9(05). DTSBR609 00122 05 WS-YRQ PIC X(04). DTSBR609 00123 05 WS-YRQ-EDIT REDEFINES WS-YRQ DTSBR609 00124 PIC 99/9. DTSBR609 00125 05 WRK-DATE-RANGE. DTSBR609 00126 10 WRK-START-DATE PIC X(08) VALUE SPACE. DTSBR609 00127 10 FILLER PIC X(04) VALUE ' TO '. DTSBR609 00128 10 WRK-END-DATE PIC X(08) VALUE SPACE. DTSBR609 00129 DTSBR609 00130 05 WRK-FLD-REP-ID-NAME. DTSBR609 00131 10 WRK-FLD-REP-ID PIC X(02) VALUE SPACE. DTSBR609 00132 10 WRK-FLD-REP-NAME PIC X(32) VALUE SPACE. DTSBR609 00133 10 WRK-FLD-REP-NAME-SAVE PIC X(32) VALUE SPACE. DTSBR609 00134 DTSBR609 00135 05 WRK-STATUS-SAVE PIC X(10) VALUE SPACE. DTSBR609 00136 05 WRK-STATUS PIC X(10) VALUE SPACE. DTSBR609 00137 05 WRK-STATUS-IND PIC X(01) VALUE SPACE. DTSBR609 00138 05 WRK-STATUS-TBL. DTSBR609 00139 10 FILLER PIC X(10) VALUE 'ACTIVE '. DTSBR609 00140 10 FILLER PIC X(10) VALUE 'BACKLOGGED'. DTSBR609 00141 10 FILLER PIC X(10) VALUE 'HELD '. DTSBR609 00142 10 FILLER PIC X(10) VALUE 'COMPLETED '. DTSBR609 00143 05 FILLER REDEFINES WRK-STATUS-TBL. DTSBR609 00144 10 WRK-STATUS-DSCR OCCURS 4 TIMES PIC X(10). DTSBR609 00145 DTSBR609 00146 05 WRK-ASSIGN-INFO. DTSBR609 00147 10 WRK-TYPE PIC X(02) VALUE SPACE. DTSBR609 00148 10 FILLER PIC X(03) VALUE SPACE. DTSBR609 00149 10 WRK-TYPE-DSCR PIC X(40) VALUE SPACE. DTSBR609 00150 10 FILLER PIC X(04) VALUE SPACE. DTSBR609 00151 10 WRK-DFLT-DUE-DAYS PIC ZZ9. DTSBR609 00152 EJECT DTSBR609 00153 01 L001-LINK-AREA. DTSBR609 00154 ++INCLUDE DTSIL001 DTSBR609 00155 EJECT DTSBR609 00156 01 L062-LINK-AREA. DTSBR609 00157 ++INCLUDE DTSIL062 DTSBR609 00158 EJECT DTSBR609 00159 01 L063-LINK-AREA. DTSBR609 00160 ++INCLUDE DTSIL063 DTSBR609 00161 EJECT DTSBR609 00162 01 PAGE-HEADING1. DTSBR609 00163 05 HDR1-LINE-1. DTSBR609 00164 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00165 10 FILLER PIC X(05) DTSBR609 00166 VALUE '609R1'. DTSBR609 00167 10 FILLER PIC X(33) VALUE SPACES.DTSBR609 00168 10 HDR1-AGY-NAME-LINE1 PIC X(50). DTSBR609 00169 10 FILLER PIC X(29) VALUE SPACES.DTSBR609 00170 10 FILLER PIC X(05) DTSBR609 00171 VALUE 'DATE:'. DTSBR609 00172 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00173 10 HDR1-SYS-DATE PIC X(08). DTSBR609 00174 05 HDR1-LINE-2. DTSBR609 00175 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00176 10 FILLER PIC X(27) DTSBR609 00177 VALUE 'ROUTE TO: ENFORCEMENT UNIT'. DTSBR609 00178 10 FILLER PIC X(11) VALUE SPACES.DTSBR609 00179 10 HDR1-AGY-NAME-LINE2 PIC X(50). DTSBR609 00180 10 FILLER PIC X(29) VALUE SPACES.DTSBR609 00181 10 FILLER PIC X(05) DTSBR609 00182 VALUE 'TIME:'. DTSBR609 00183 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00184 10 HDR1-SYS-TIME PIC X(08). DTSBR609 00185 05 HDR1-LINE-3. DTSBR609 00186 10 FILLER PIC X(11) VALUE SPACES.DTSBR609 00187 10 FILLER PIC X(20) DTSBR609 00188 VALUE ' '. DTSBR609 00189 10 FILLER PIC X(87) VALUE SPACES.DTSBR609 00190 10 FILLER PIC X(05) DTSBR609 00191 VALUE 'PAGE:'. DTSBR609 00192 10 FILLER PIC X(03) VALUE SPACES.DTSBR609 00193 10 HDR1-PAGE-CNT PIC ZZ,ZZ9. DTSBR609 00194 05 HDR1-LINE-4. DTSBR609 00195 10 FILLER PIC X(44) VALUE SPACES.DTSBR609 00196 10 FILLER PIC X(41) DTSBR609 00197 VALUE 'FIELD ASSIGNMENT MANAGEMENT DETAIL REPORT'.DTSBR609 00198 05 HDR1-LINE-5 PIC X(133) VALUE SPACES.DTSBR609 00199 05 HDR1-LINE-6. DTSBR609 00200 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00201 10 FILLER PIC X(40) DTSBR609 00202 VALUE 'ACTIVE, BACKLOGGED, AND HELD ASSIGNMENTS'. DTSBR609 00203 10 FILLER PIC X(40) DTSBR609 00204 VALUE ' AS OF RUN DATE; COMPLETED ASSIGNMENTS W'. DTSBR609 00205 10 FILLER PIC X(24) DTSBR609 00206 VALUE 'ITH COMPLETED DATES FROM'. DTSBR609 00207 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00208 10 HDR1-DATE-RANGE PIC X(20). DTSBR609 00209 05 HDR1-LINE-7 PIC X(133) VALUE SPACES.DTSBR609 00210 05 HDR1-LINE-8. DTSBR609 00211 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00212 10 FILLER PIC X(13) DTSBR609 00213 VALUE 'FIELD REP ID:'. DTSBR609 00214 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00215 10 HDR1-FLD-REP-ID PIC X(02). DTSBR609 00216 10 FILLER PIC X(03) VALUE SPACES.DTSBR609 00217 10 HDR1-FLD-REP-NAME PIC X(32). DTSBR609 00218 05 HDR1-LINE-9 PIC X(133) VALUE SPACES.DTSBR609 00219 05 HDR1-LINE-10. DTSBR609 00220 10 FILLER PIC X(06) VALUE SPACES.DTSBR609 00221 10 FILLER PIC X(07) DTSBR609 00222 VALUE 'STATUS:'. DTSBR609 00223 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00224 10 HDR1-STATUS PIC X(10). DTSBR609 00225 05 HDR1-LINE-11. DTSBR609 00226 10 FILLER PIC X(121) VALUE SPACES.DTSBR609 00227 10 FILLER PIC X(04) DTSBR609 00228 VALUE 'DAYS'. DTSBR609 00229 05 HDR1-LINE-12. DTSBR609 00230 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00231 10 FILLER PIC X(40) DTSBR609 00232 VALUE '------------------ASSIGNMENT------------'. DTSBR609 00233 10 FILLER PIC X(06) DTSBR609 00234 VALUE '------'. DTSBR609 00235 10 FILLER PIC X(07) DTSBR609 00236 VALUE 'DEFAULT'. DTSBR609 00237 10 FILLER PIC X(03) VALUE SPACE. DTSBR609 00238 10 FILLER PIC X(06) DTSBR609 00239 VALUE 'ASSIGN'. DTSBR609 00240 10 FILLER PIC X(58) VALUE SPACE. DTSBR609 00241 10 FILLER PIC X(04) DTSBR609 00242 VALUE 'BACK'. DTSBR609 00243 10 FILLER PIC X(03) VALUE SPACE. DTSBR609 00244 10 FILLER PIC X(04) DTSBR609 00245 VALUE 'PROC'. DTSBR609 00246 05 HDR1-LINE-13. DTSBR609 00247 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00248 10 FILLER PIC X(04) DTSBR609 00249 VALUE 'TYPE'. DTSBR609 00250 10 FILLER PIC X(13) VALUE SPACES.DTSBR609 00251 10 FILLER PIC X(11) DTSBR609 00252 VALUE 'DESCRIPTION'. DTSBR609 00253 10 FILLER PIC X(20) VALUE SPACES.DTSBR609 00254 10 FILLER PIC X(04) DTSBR609 00255 VALUE 'DAYS'. DTSBR609 00256 10 FILLER PIC X(07) VALUE SPACES.DTSBR609 00257 10 FILLER PIC X(02) DTSBR609 00258 VALUE 'NO'. DTSBR609 00259 10 FILLER PIC X(07) VALUE SPACES.DTSBR609 00260 10 FILLER PIC X(06) DTSBR609 00261 VALUE 'EMP NO'. DTSBR609 00262 10 FILLER PIC X(07) VALUE SPACES.DTSBR609 00263 10 FILLER PIC X(13) DTSBR609 00264 VALUE 'PRIMARY NAME'. DTSBR609 00265 10 FILLER PIC X(27) VALUE SPACES.DTSBR609 00266 10 FILLER PIC X(03) DTSBR609 00267 VALUE 'LOG'. DTSBR609 00268 10 FILLER PIC X(04) VALUE SPACES.DTSBR609 00269 10 FILLER PIC X(03) DTSBR609 00270 VALUE 'IND'. DTSBR609 00271 05 HDR1-LINE-14 PIC X(133) VALUE SPACES.DTSBR609 00272 DTSBR609 00273 01 DETAIL-LINE-1. DTSBR609 00274 05 DTL1-LINE-1. DTSBR609 00275 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00276 10 DTL1-ASSIGN-INFO PIC X(52). DTSBR609 00277 10 FILLER PIC X(04) VALUE SPACES.DTSBR609 00278 10 DTL1-ASSIGN-NO PIC 99B99999. DTSBR609 00279 10 FILLER PIC X(04) VALUE SPACES.DTSBR609 00280 10 DTL1-EMP-NO PIC 999B999. DTSBR609 00281 10 FILLER PIC X(04) VALUE SPACES.DTSBR609 00282 10 DTL1-PRIMARY-NAME PIC X(40). DTSBR609 00283 10 FILLER PIC X(02) VALUE SPACES.DTSBR609 00284 10 DTL1-BACK-LOGGED-DAYS PIC ZZ9. DTSBR609 00285 10 DTL1-BACK-LOGGED-DAYS-X REDEFINES DTSBR609 00286 DTL1-BACK-LOGGED-DAYS PIC XXX. DTSBR609 00287 10 FILLER PIC X(04) VALUE SPACES.DTSBR609 00288 10 DTL1-PROCESSED-IND PIC X(01). DTSBR609 00289 DTSBR609 00290 01 CONTROL-FOOTING1. DTSBR609 00291 05 CTF1-LINE-3. DTSBR609 00292 10 FILLER PIC X(10) VALUE SPACES.DTSBR609 00293 10 CTF1-REC-CNT PIC ZZ,ZZ9. DTSBR609 00294 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00295 10 CTF1-STATUS PIC X(10). DTSBR609 00296 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00297 10 FILLER PIC X(25) DTSBR609 00298 VALUE 'ASSIGNMENTS FOR FIELD REP'. DTSBR609 00299 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00300 10 CTF1-FLD-REP-ID PIC X(02). DTSBR609 00301 DTSBR609 00302 01 CONTROL-FOOTING2. DTSBR609 00303 05 CTF2-LINE-2. DTSBR609 00304 10 FILLER PIC X(10) VALUE SPACES.DTSBR609 00305 10 CTF2-REC-CNT PIC ZZ,ZZ9. DTSBR609 00306 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00307 10 FILLER PIC X(05) DTSBR609 00308 VALUE 'TOTAL'. DTSBR609 00309 10 FILLER PIC X(06) VALUE SPACES.DTSBR609 00310 10 FILLER PIC X(25) DTSBR609 00311 VALUE 'ASSIGNMENTS FOR FIELD REP'. DTSBR609 00312 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00313 10 CTF2-FLD-REP-ID PIC X(02). DTSBR609 00314 DTSBR609 00315 01 PAGE-HEADING2. DTSBR609 00316 05 HDR2-LINE-1. DTSBR609 00317 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00318 10 FILLER PIC X(05) DTSBR609 00319 VALUE '609R2'. DTSBR609 00320 10 FILLER PIC X(33) VALUE SPACES.DTSBR609 00321 10 HDR2-AGY-NAME-LINE1 PIC X(50). DTSBR609 00322 10 FILLER PIC X(29) VALUE SPACES.DTSBR609 00323 10 FILLER PIC X(05) DTSBR609 00324 VALUE 'DATE:'. DTSBR609 00325 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00326 10 HDR2-SYS-DATE PIC X(08). DTSBR609 00327 05 HDR2-LINE-2. DTSBR609 00328 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00329 10 FILLER PIC X(27) DTSBR609 00330 VALUE 'ROUTE TO: ENFORCEMENT UNIT'. DTSBR609 00331 10 FILLER PIC X(11) VALUE SPACES.DTSBR609 00332 10 HDR2-AGY-NAME-LINE2 PIC X(50). DTSBR609 00333 10 FILLER PIC X(29) VALUE SPACES.DTSBR609 00334 10 FILLER PIC X(05) DTSBR609 00335 VALUE 'TIME:'. DTSBR609 00336 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00337 10 HDR2-SYS-TIME PIC X(08). DTSBR609 00338 05 HDR2-LINE-3. DTSBR609 00339 10 FILLER PIC X(11) VALUE SPACES.DTSBR609 00340 10 FILLER PIC X(20) DTSBR609 00341 VALUE ' '. DTSBR609 00342 10 FILLER PIC X(87) VALUE SPACES.DTSBR609 00343 10 FILLER PIC X(05) DTSBR609 00344 VALUE 'PAGE:'. DTSBR609 00345 10 FILLER PIC X(03) VALUE SPACES.DTSBR609 00346 10 HDR2-PAGE-CNT PIC ZZ,ZZ9. DTSBR609 00347 05 HDR2-LINE-4. DTSBR609 00348 10 FILLER PIC X(47) VALUE SPACES.DTSBR609 00349 10 FILLER PIC X(35) DTSBR609 00350 VALUE 'FIELD ASSIGNMENT MANAGEMENT SUMMARY'. DTSBR609 00351 05 HDR2-LINE-5 PIC X(133) VALUE SPACES.DTSBR609 00352 05 HDR2-LINE-6. DTSBR609 00353 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00354 10 FILLER PIC X(40) DTSBR609 00355 VALUE 'ACTIVE, BACKLOGGED, AND HELD ASSIGNMENTS'. DTSBR609 00356 10 FILLER PIC X(40) DTSBR609 00357 VALUE ' AS OF RUN DATE; COMPLETED ASSIGNMENTS W'. DTSBR609 00358 10 FILLER PIC X(24) DTSBR609 00359 VALUE 'ITH COMPLETED DATES FROM'. DTSBR609 00360 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00361 10 HDR2-DATE-RANGE PIC X(20). DTSBR609 00362 05 HDR2-LINE-7 PIC X(133) VALUE SPACES.DTSBR609 00363 05 HDR2-LINE-8 PIC X(133) VALUE SPACES.DTSBR609 00364 05 HDR2-LINE-9. DTSBR609 00365 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00366 10 FILLER PIC X(05) DTSBR609 00367 VALUE 'FIELD'. DTSBR609 00368 10 FILLER PIC X(41) VALUE SPACES.DTSBR609 00369 10 FILLER PIC X(40) DTSBR609 00370 VALUE '--------------------STATUS--------------'. DTSBR609 00371 10 FILLER PIC X(05) DTSBR609 00372 VALUE '-----'. DTSBR609 00373 10 FILLER PIC X(06) VALUE SPACES.DTSBR609 00374 10 FILLER PIC X(05) DTSBR609 00375 VALUE 'TOTAL'. DTSBR609 00376 05 HDR2-LINE-10. DTSBR609 00377 10 FILLER PIC X(01) VALUE SPACE. DTSBR609 00378 10 FILLER PIC X(03) DTSBR609 00379 VALUE 'REP'. DTSBR609 00380 10 FILLER PIC X(06) VALUE SPACES.DTSBR609 00381 10 FILLER PIC X(04) DTSBR609 00382 VALUE 'NAME'. DTSBR609 00383 10 FILLER PIC X(33) VALUE SPACES.DTSBR609 00384 10 FILLER PIC X(06) DTSBR609 00385 VALUE 'ACTIVE'. DTSBR609 00386 10 FILLER PIC X(04) VALUE SPACES.DTSBR609 00387 10 FILLER PIC X(10) DTSBR609 00388 VALUE 'BACKLOGGED'. DTSBR609 00389 10 FILLER PIC X(08) VALUE SPACES.DTSBR609 00390 10 FILLER PIC X(04) DTSBR609 00391 VALUE 'HELD'. DTSBR609 00392 10 FILLER PIC X(04) VALUE SPACES.DTSBR609 00393 10 FILLER PIC X(09) DTSBR609 00394 VALUE 'COMPLETED'. DTSBR609 00395 DTSBR609 00396 01 CONTROL-FOOTING3. DTSBR609 00397 05 CTF3-LINE-2. DTSBR609 00398 10 FILLER PIC X(02) VALUE SPACES.DTSBR609 00399 10 CTF3-FLD-REP-ID PIC X(02). DTSBR609 00400 10 FILLER PIC X(06) VALUE SPACES.DTSBR609 00401 10 CTF3-FLD-REP-NAME PIC X(32). DTSBR609 00402 10 FILLER PIC X(05) VALUE SPACES.DTSBR609 00403 10 CTF3-RPT-ACTIVE-CNT PIC ZZ,ZZ9. DTSBR609 00404 10 FILLER PIC X(08) VALUE SPACES.DTSBR609 00405 10 CTF3-RPT-BACKLOGGED-CNT PIC ZZ,ZZ9. DTSBR609 00406 10 FILLER PIC X(06) VALUE SPACES.DTSBR609 00407 10 CTF3-RPT-HELD-CNT PIC ZZ,ZZ9. DTSBR609 00408 10 FILLER PIC X(06) VALUE SPACES.DTSBR609 00409 10 CTF3-RPT-COMPLETED-CNT PIC ZZ,ZZ9. DTSBR609 00410 10 FILLER PIC X(05) VALUE SPACES.DTSBR609 00411 10 CTF3-TOT-REC-CNT PIC ZZ,ZZ9. DTSBR609 00412 DTSBR609 00413 01 CONTROL-FOOTING-FINAL. DTSBR609 00414 05 CFF-LINE-2. DTSBR609 00415 10 FILLER PIC X(37) VALUE SPACES.DTSBR609 00416 10 FILLER PIC X(05) DTSBR609 00417 VALUE 'TOTAL'. DTSBR609 00418 10 FILLER PIC X(05) VALUE SPACES.DTSBR609 00419 10 CFF-RPT-ACTIVE-CNT PIC ZZ,ZZ9. DTSBR609 00420 10 FILLER PIC X(08) VALUE SPACES.DTSBR609 00421 10 CFF-RPT-BACKLOGGED-CNT PIC ZZ,ZZ9. DTSBR609 00422 10 FILLER PIC X(06) VALUE SPACES.DTSBR609 00423 10 CFF-RPT-HELD-CNT PIC ZZ,ZZ9. DTSBR609 00424 10 FILLER PIC X(06) VALUE SPACES.DTSBR609 00425 10 CFF-RPT-COMPLETED-CNT PIC ZZ,ZZ9. DTSBR609 00426 10 FILLER PIC X(05) VALUE SPACES.DTSBR609 00427 10 CFF-FOOT-NUMBER-TWO PIC ZZ,ZZ9. DTSBR609 00428 EJECT DTSBR609 00429 LINKAGE SECTION. DTSBR609 00430 SKIP3 DTSBR609 00431 01 LRCM-LINK-AREA. DTSBR609 00432 ++INCLUDE DTSILRCM DTSBR609 00433 EJECT DTSBR609 00434 01 R609-REC. DTSBR609 00435 ++INCLUDE DTSIR609 DTSBR609 00436 EJECT DTSBR609 00437 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR609 00438 R609-REC. DTSBR609 00439 DTSBR609 00440 IF FIRST-TIME-IND = 'Y' DTSBR609 00441 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR609 00442 MOVE 'N' TO FIRST-TIME-IND. DTSBR609 00443 DTSBR609 00444 IF LRCM-EOR-88 DTSBR609 00445 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR609 00446 ELSE DTSBR609 00447 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR609 00448 DTSBR609 00449 GOBACK. DTSBR609 00450 EJECT DTSBR609 00451 I1000-INITIATE. DTSBR609 00452 DTSBR609 00453 MOVE R609-PERIOD-START-DATE TO L001-FED-8-DATE-9. DTSBR609 00454 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR609 00455 MOVE L001-SLASH-DATE TO WRK-START-DATE. DTSBR609 00456 DTSBR609 00457 MOVE R609-PERIOD-END-DATE TO L001-FED-8-DATE-9. DTSBR609 00458 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR609 00459 MOVE L001-SLASH-DATE TO WRK-END-DATE. DTSBR609 00460 MOVE WRK-DATE-RANGE TO HDR1-DATE-RANGE HDR2-DATE-RANGE. DTSBR609 00461 DTSBR609 00462 MOVE HIGH-VALUE TO WRK-FLD-REP-ID DTSBR609 00463 WRK-STATUS-IND DTSBR609 00464 WRK-TYPE. DTSBR609 00465 DTSBR609 00466 OPEN OUTPUT PRT-FILE-1 DTSBR609 00467 PRT-FILE-2. DTSBR609 00468 DTSBR609 00469 MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE. DTSBR609 00470 MOVE LRCM-SYS-DATE TO HDR2-SYS-DATE. DTSBR609 00471 MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME. DTSBR609 00472 MOVE LRCM-SYS-TIME TO HDR2-SYS-TIME. DTSBR609 00473 MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1. DTSBR609 00474 MOVE LRCM-AGY-NAME-LINE1 TO HDR2-AGY-NAME-LINE1. DTSBR609 00475 MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2. DTSBR609 00476 MOVE LRCM-AGY-NAME-LINE2 TO HDR2-AGY-NAME-LINE2. DTSBR609 00477 MOVE SPACES TO REPORT-LISTING1 REPORT-LISTING2. DTSBR609 00478 DTSBR609 00479 I1000-EXIT. DTSBR609 00480 EXIT. DTSBR609 00481 EJECT DTSBR609 00482 P1000-PROCESS. DTSBR609 00483 DTSBR609 00484 IF R609-FIELD-REP-ID NOT = WRK-FLD-REP-ID DTSBR609 00485 MOVE R609-FIELD-REP-ID TO WRK-FLD-REP-ID DTSBR609 00486 HDR1-FLD-REP-ID DTSBR609 00487 L062-FLD-REP-ID DTSBR609 00488 PERFORM S062-FLD-REP THRU S062-EXIT DTSBR609 00489 MOVE L062-NAME TO WRK-FLD-REP-NAME DTSBR609 00490 HDR1-FLD-REP-NAME DTSBR609 00491 CTF3-FLD-REP-NAME DTSBR609 00492 * DTSBR609 00493 IF WS-NUMBER-TWO = +0 DTSBR609 00494 MOVE +99 TO WS-NUMBER-TWO DTSBR609 00495 ELSE DTSBR609 00496 PERFORM P6000-PRINT-FOOTER THRU P6000-EXIT DTSBR609 00497 MOVE +60 TO WS-LINE-CNT2 DTSBR609 00498 MOVE +0 TO WS-NUMBER-ONE DTSBR609 00499 PERFORM P7000-PRINT-FOOTER THRU P7000-EXIT DTSBR609 00500 * MOVE +60 TO WS-LINE-CNT4 DTSBR609 00501 END-IF DTSBR609 00502 END-IF. DTSBR609 00503 DTSBR609 00504 IF R609-STATUS-IND NOT = WRK-STATUS-IND DTSBR609 00505 MOVE R609-STATUS-IND TO WRK-STATUS-IND DTSBR609 00506 MOVE WRK-STATUS-DSCR (R609-STATUS-IND-9) TO WRK-STATUS DTSBR609 00507 HDR1-STATUS DTSBR609 00508 * DTSBR609 00509 IF WS-NUMBER-ONE = +0 DTSBR609 00510 MOVE +99 TO WS-NUMBER-ONE DTSBR609 00511 ELSE DTSBR609 00512 PERFORM P5000-PRINT-FOOTER THRU P5000-EXIT DTSBR609 00513 MOVE +60 TO WS-LINE-CNT2 DTSBR609 00514 END-IF DTSBR609 00515 END-IF. DTSBR609 00516 * DTSBR609 00517 DTSBR609 00518 IF R609-ASSIGN-TYPE NOT = WRK-TYPE DTSBR609 00519 MOVE R609-ASSIGN-TYPE TO WRK-TYPE DTSBR609 00520 L063-TYPE DTSBR609 00521 PERFORM S063-ASSIGN-INFO THRU S063-EXIT DTSBR609 00522 MOVE L063-DESCRIPTION TO WRK-TYPE-DSCR DTSBR609 00523 MOVE L063-DEFAULT-DUE-DAYS TO WRK-DFLT-DUE-DAYS DTSBR609 00524 MOVE WRK-ASSIGN-INFO TO DTL1-ASSIGN-INFO. DTSBR609 00525 DTSBR609 00526 MOVE R609-FIELD-REP-ID TO CTF1-FLD-REP-ID DTSBR609 00527 CTF2-FLD-REP-ID DTSBR609 00528 CTF3-FLD-REP-ID. DTSBR609 00529 DTSBR609 00530 IF R609-PRINT-DETAIL-TOO-88 DTSBR609 00531 IF R609-STATUS-BACK-LOGGED-88 DTSBR609 00532 MOVE R609-BACK-LOGGED-DAYS TO DTL1-BACK-LOGGED-DAYS DTSBR609 00533 END-IF DTSBR609 00534 DTSBR609 00535 MOVE R609-EMP-NO TO DTL1-EMP-NO DTSBR609 00536 MOVE R609-ASSIGN-NO TO DTL1-ASSIGN-NO DTSBR609 00537 MOVE R609-PRIMARY-NAME TO DTL1-PRIMARY-NAME DTSBR609 00538 DTSBR609 00539 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR609 00540 DTSBR609 00541 IF DTL1-ASSIGN-INFO = SPACES DTSBR609 00542 WRITE REPORT-LISTING1 FROM DTL1-LINE-1 AFTER 1 DTSBR609 00543 ADD +1 TO WS-LINE-CNT2 DTSBR609 00544 ELSE DTSBR609 00545 WRITE REPORT-LISTING1 FROM DTL1-LINE-1 AFTER 2 DTSBR609 00546 ADD +2 TO WS-LINE-CNT2 DTSBR609 00547 END-IF DTSBR609 00548 DTSBR609 00549 ADD +1 TO WS-FOOT-NUMBER-TWO, WS-FOOT-NUMBER-ONE DTSBR609 00550 DTSBR609 00551 MOVE SPACES TO DTL1-ASSIGN-INFO DTSBR609 00552 MOVE SPACES TO DTL1-BACK-LOGGED-DAYS-X DTSBR609 00553 END-IF. DTSBR609 00554 DTSBR609 00555 IF WRK-STATUS = 'ACTIVE ' DTSBR609 00556 MOVE 'ACTIVE ' TO CTF1-STATUS WRK-STATUS-SAVE DTSBR609 00557 ADD +1 TO WS-RPT-ACTIVE-CNT DTSBR609 00558 ADD +1 TO WS-RPT2-ACTIVE-CNT. DTSBR609 00559 DTSBR609 00560 IF WRK-STATUS = 'BACKLOGGED' DTSBR609 00561 MOVE 'BACKLOGGED' TO CTF1-STATUS WRK-STATUS-SAVE DTSBR609 00562 ADD +1 TO WS-RPT-BACKLOGGED-CNT DTSBR609 00563 ADD +1 TO WS-RPT2-BACKLOGGED-CNT. DTSBR609 00564 DTSBR609 00565 IF WRK-STATUS = 'HELD ' DTSBR609 00566 MOVE 'HELD ' TO CTF1-STATUS WRK-STATUS-SAVE DTSBR609 00567 ADD +1 TO WS-RPT-HELD-CNT DTSBR609 00568 ADD +1 TO WS-RPT2-HELD-CNT. DTSBR609 00569 DTSBR609 00570 IF WRK-STATUS = 'COMPLETED ' DTSBR609 00571 MOVE 'COMPLETED ' TO CTF1-STATUS WRK-STATUS-SAVE DTSBR609 00572 ADD +1 TO WS-RPT-COMPLETED-CNT DTSBR609 00573 ADD +1 TO WS-RPT2-COMPLETED-CNT. DTSBR609 00574 DTSBR609 00575 MOVE L062-NAME TO WRK-FLD-REP-NAME-SAVE. DTSBR609 00576 DTSBR609 00577 P1000-EXIT. DTSBR609 00578 EXIT. DTSBR609 00579 DTSBR609 00580 P3000-PRINT-HEADER. DTSBR609 00581 DTSBR609 00582 IF WS-LINE-CNT GREATER 58 OR DTSBR609 00583 WS-LINE-CNT2 GREATER 58 DTSBR609 00584 MOVE +0 TO WS-LINE-CNT DTSBR609 00585 MOVE +0 TO WS-LINE-CNT2 DTSBR609 00586 ADD +1 TO WS-PAGE-CNT DTSBR609 00587 MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT DTSBR609 00588 MOVE WRK-ASSIGN-INFO TO DTL1-ASSIGN-INFO DTSBR609 00589 WRITE REPORT-LISTING1 FROM HDR1-LINE-1 DTSBR609 00590 AFTER TOP-OF-PAGE DTSBR609 00591 WRITE REPORT-LISTING1 FROM HDR1-LINE-2 AFTER 1 DTSBR609 00592 WRITE REPORT-LISTING1 FROM HDR1-LINE-3 AFTER 1 DTSBR609 00593 WRITE REPORT-LISTING1 FROM HDR1-LINE-4 AFTER 1 DTSBR609 00594 WRITE REPORT-LISTING1 FROM HDR1-LINE-5 AFTER 1 DTSBR609 00595 WRITE REPORT-LISTING1 FROM HDR1-LINE-6 AFTER 1 DTSBR609 00596 WRITE REPORT-LISTING1 FROM HDR1-LINE-7 AFTER 1 DTSBR609 00597 WRITE REPORT-LISTING1 FROM HDR1-LINE-8 AFTER 1 DTSBR609 00598 WRITE REPORT-LISTING1 FROM HDR1-LINE-9 AFTER 1 DTSBR609 00599 WRITE REPORT-LISTING1 FROM HDR1-LINE-10 AFTER 1 DTSBR609 00600 WRITE REPORT-LISTING1 FROM HDR1-LINE-11 AFTER 1 DTSBR609 00601 WRITE REPORT-LISTING1 FROM HDR1-LINE-12 AFTER 1 DTSBR609 00602 WRITE REPORT-LISTING1 FROM HDR1-LINE-13 AFTER 1 DTSBR609 00603 ADD +13 TO WS-LINE-CNT2. DTSBR609 00604 DTSBR609 00605 P3000-EXIT. DTSBR609 00606 EXIT. DTSBR609 00607 DTSBR609 00608 P4000-PRINT-HEADER. DTSBR609 00609 DTSBR609 00610 IF WS-LINE-CNT3 GREATER 58 OR DTSBR609 00611 WS-LINE-CNT4 GREATER 58 DTSBR609 00612 MOVE +0 TO WS-LINE-CNT3 DTSBR609 00613 MOVE +0 TO WS-LINE-CNT4 DTSBR609 00614 ADD +1 TO WS-PAGE-CNT2 DTSBR609 00615 MOVE WS-PAGE-CNT2 TO HDR2-PAGE-CNT DTSBR609 00616 WRITE REPORT-LISTING2 FROM HDR2-LINE-1 DTSBR609 00617 AFTER TOP-OF-PAGE DTSBR609 00618 WRITE REPORT-LISTING2 FROM HDR2-LINE-2 AFTER 1 DTSBR609 00619 WRITE REPORT-LISTING2 FROM HDR2-LINE-3 AFTER 1 DTSBR609 00620 WRITE REPORT-LISTING2 FROM HDR2-LINE-4 AFTER 1 DTSBR609 00621 WRITE REPORT-LISTING2 FROM HDR2-LINE-5 AFTER 1 DTSBR609 00622 WRITE REPORT-LISTING2 FROM HDR2-LINE-6 AFTER 1 DTSBR609 00623 WRITE REPORT-LISTING2 FROM HDR2-LINE-7 AFTER 1 DTSBR609 00624 WRITE REPORT-LISTING2 FROM HDR2-LINE-8 AFTER 1 DTSBR609 00625 WRITE REPORT-LISTING2 FROM HDR2-LINE-9 AFTER 1 DTSBR609 00626 WRITE REPORT-LISTING2 FROM HDR2-LINE-10 AFTER 1 DTSBR609 00627 ADD +10 TO WS-LINE-CNT4. DTSBR609 00628 DTSBR609 00629 P4000-EXIT. DTSBR609 00630 EXIT. DTSBR609 00631 DTSBR609 00632 P5000-PRINT-FOOTER. DTSBR609 00633 IF WS-LINE-CNT2 > 52 DTSBR609 00634 ADD +8 TO WS-LINE-CNT2 DTSBR609 00635 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR609 00636 END-IF. DTSBR609 00637 DTSBR609 00638 IF WRK-STATUS-SAVE = 'ACTIVE ' DTSBR609 00639 MOVE WS-RPT-ACTIVE-CNT TO CTF1-REC-CNT DTSBR609 00640 MOVE +0 TO WS-RPT-ACTIVE-CNT. DTSBR609 00641 DTSBR609 00642 IF WRK-STATUS-SAVE = 'BACKLOGGED' DTSBR609 00643 MOVE WS-RPT-BACKLOGGED-CNT TO CTF1-REC-CNT DTSBR609 00644 MOVE +0 TO WS-RPT-BACKLOGGED-CNT. DTSBR609 00645 DTSBR609 00646 IF WRK-STATUS-SAVE = 'HELD ' DTSBR609 00647 MOVE WS-RPT-HELD-CNT TO CTF1-REC-CNT DTSBR609 00648 MOVE +0 TO WS-RPT-HELD-CNT. DTSBR609 00649 DTSBR609 00650 IF WRK-STATUS-SAVE = 'COMPLETED ' DTSBR609 00651 MOVE WS-RPT-COMPLETED-CNT TO CTF1-REC-CNT DTSBR609 00652 MOVE +0 TO WS-RPT-COMPLETED-CNT. DTSBR609 00653 DTSBR609 00654 WRITE REPORT-LISTING1 FROM CTF1-LINE-3 AFTER 3. DTSBR609 00655 DTSBR609 00656 P5000-EXIT. DTSBR609 00657 EXIT. DTSBR609 00658 DTSBR609 00659 P6000-PRINT-FOOTER. DTSBR609 00660 IF WS-LINE-CNT2 > 52 DTSBR609 00661 ADD +8 TO WS-LINE-CNT2 DTSBR609 00662 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR609 00663 END-IF. DTSBR609 00664 DTSBR609 00665 IF WRK-STATUS = 'ACTIVE ' DTSBR609 00666 MOVE WS-RPT-ACTIVE-CNT TO CTF1-REC-CNT DTSBR609 00667 MOVE +0 TO WS-RPT-ACTIVE-CNT. DTSBR609 00668 DTSBR609 00669 IF WRK-STATUS = 'BACKLOGGED' DTSBR609 00670 MOVE WS-RPT-BACKLOGGED-CNT TO CTF1-REC-CNT DTSBR609 00671 MOVE +0 TO WS-RPT-BACKLOGGED-CNT. DTSBR609 00672 DTSBR609 00673 IF WRK-STATUS = 'HELD ' DTSBR609 00674 MOVE WS-RPT-HELD-CNT TO CTF1-REC-CNT DTSBR609 00675 MOVE +0 TO WS-RPT-HELD-CNT. DTSBR609 00676 DTSBR609 00677 IF WRK-STATUS = 'COMPLETED ' DTSBR609 00678 MOVE WS-RPT-COMPLETED-CNT TO CTF1-REC-CNT DTSBR609 00679 MOVE +0 TO WS-RPT-COMPLETED-CNT. DTSBR609 00680 DTSBR609 00681 WRITE REPORT-LISTING1 FROM CTF1-LINE-3 AFTER 3. DTSBR609 00682 DTSBR609 00683 MOVE WS-FOOT-NUMBER-ONE TO CTF2-REC-CNT. DTSBR609 00684 WRITE REPORT-LISTING1 FROM CTF2-LINE-2 AFTER 2. DTSBR609 00685 MOVE +0 TO WS-FOOT-NUMBER-ONE. DTSBR609 00686 DTSBR609 00687 P6000-EXIT. DTSBR609 00688 EXIT. DTSBR609 00689 DTSBR609 00690 P7000-PRINT-FOOTER. DTSBR609 00691 IF WS-LINE-CNT3 > 52 DTSBR609 00692 ADD +8 TO WS-LINE-CNT4 DTSBR609 00693 PERFORM P4000-PRINT-HEADER THRU P4000-EXIT DTSBR609 00694 END-IF. DTSBR609 00695 DTSBR609 00696 MOVE WRK-FLD-REP-NAME-SAVE TO CTF3-FLD-REP-NAME. DTSBR609 00697 DTSBR609 00698 MOVE WS-RPT2-ACTIVE-CNT TO CTF3-RPT-ACTIVE-CNT. DTSBR609 00699 ADD WS-RPT2-ACTIVE-CNT TO WS-CFF-ACTIVE-CNT. DTSBR609 00700 ADD WS-RPT2-ACTIVE-CNT TO WS-CTF-RECORD-CNT. DTSBR609 00701 MOVE +0 TO WS-RPT2-ACTIVE-CNT. DTSBR609 00702 DTSBR609 00703 MOVE WS-RPT2-BACKLOGGED-CNT TO CTF3-RPT-BACKLOGGED-CNT. DTSBR609 00704 ADD WS-RPT2-BACKLOGGED-CNT TO WS-CFF-BACKLOGGED-CNT. DTSBR609 00705 ADD WS-RPT2-BACKLOGGED-CNT TO WS-CTF-RECORD-CNT. DTSBR609 00706 MOVE +0 TO WS-RPT2-BACKLOGGED-CNT. DTSBR609 00707 DTSBR609 00708 MOVE WS-RPT2-HELD-CNT TO CTF3-RPT-HELD-CNT. DTSBR609 00709 ADD WS-RPT2-HELD-CNT TO WS-CFF-HELD-CNT. DTSBR609 00710 ADD WS-RPT2-HELD-CNT TO WS-CTF-RECORD-CNT. DTSBR609 00711 MOVE +0 TO WS-RPT2-HELD-CNT. DTSBR609 00712 DTSBR609 00713 MOVE WS-RPT2-COMPLETED-CNT TO CTF3-RPT-COMPLETED-CNT. DTSBR609 00714 ADD WS-RPT2-COMPLETED-CNT TO WS-CFF-COMPLETED-CNT. DTSBR609 00715 ADD WS-RPT2-COMPLETED-CNT TO WS-CTF-RECORD-CNT. DTSBR609 00716 MOVE +0 TO WS-RPT2-COMPLETED-CNT. DTSBR609 00717 DTSBR609 00718 MOVE WS-CTF-RECORD-CNT TO CTF3-TOT-REC-CNT. DTSBR609 00719 WRITE REPORT-LISTING2 FROM CTF3-LINE-2 AFTER 2. DTSBR609 00720 MOVE +0 TO WS-CTF-RECORD-CNT. DTSBR609 00721 ADD +2 TO WS-LINE-CNT4. DTSBR609 00722 DTSBR609 00723 P7000-EXIT. DTSBR609 00724 EXIT. DTSBR609 00725 DTSBR609 00726 T1000-TERMINATE. DTSBR609 00727 DTSBR609 00728 PERFORM P6000-PRINT-FOOTER THRU P6000-EXIT. DTSBR609 00729 PERFORM P7000-PRINT-FOOTER THRU P7000-EXIT. DTSBR609 00730 MOVE WS-CFF-ACTIVE-CNT TO CFF-RPT-ACTIVE-CNT. DTSBR609 00731 MOVE WS-CFF-BACKLOGGED-CNT TO CFF-RPT-BACKLOGGED-CNT. DTSBR609 00732 MOVE WS-CFF-HELD-CNT TO CFF-RPT-HELD-CNT. DTSBR609 00733 MOVE WS-CFF-COMPLETED-CNT TO CFF-RPT-COMPLETED-CNT. DTSBR609 00734 MOVE WS-FOOT-NUMBER-TWO TO CFF-FOOT-NUMBER-TWO. DTSBR609 00735 WRITE REPORT-LISTING2 FROM CFF-LINE-2 AFTER 2. DTSBR609 00736 CLOSE PRT-FILE-1 DTSBR609 00737 PRT-FILE-2. DTSBR609 00738 DTSBR609 00739 T1000-EXIT. DTSBR609 00740 EXIT. DTSBR609 00741 EJECT DTSBR609 00742 S001-FROM-FED-8. DTSBR609 00743 DTSBR609 00744 SET L001-FROM-FED-8 TO TRUE. DTSBR609 00745 DTSBR609 00746 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR609 00747 DTSBR609 00748 S001-EXIT. DTSBR609 00749 EXIT. DTSBR609 00750 SKIP3 DTSBR609 00751 S062-FLD-REP. DTSBR609 00752 DTSBR609 00753 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBR609 00754 DTSBR609 00755 S062-EXIT. DTSBR609 00756 EXIT. DTSBR609 00757 SKIP3 DTSBR609 00758 S063-ASSIGN-INFO. DTSBR609 00759 DTSBR609 00760 CALL 'DTSBU063' USING L063-LINK-AREA. DTSBR609 00761 DTSBR609 00762 S063-EXIT. DTSBR609 00763 EXIT. DTSBR609 00764 SKIP3 DTSBR609 00765 *S999-ABEND. DTSBR609 00766 * DTSBR609 00767 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR609 00768 * DTSBR609 00769 *S999-EXIT. DTSBR609 00770 * EXIT. DTSBR609 00771 DTSBR609