00001 IDENTIFICATION DIVISION. 01/29/01 00002 PROGRAM-ID. DTSBR904. DTSBR904 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV031 00004 DATE-WRITTEN. JULY 1994. DTSBR904 00005 DATE-COMPILED. DTSBR904 00006 DTSBR904 00007 ***** DTSBR904 00008 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR904 00009 * DTSBD399 WHICH UPDATES DTSIR904 DTSBR904 00010 * DTSBR904 READS DTSIR904 RECORDS. DTSBR904 00011 * DTSBR904 00012 * FUNCTION: DAILY UPDATE CONTROL REPORT PRINTING. DTSBR904 00013 * DTSBR904 00014 * DTSBR904 00015 * MODIFICATION HISTORY: DTSBR904 00016 * DTSBR904 00017 * 07-25-94 INITIAL DEVELOPMENT DTSBR904 00018 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR904 00019 * DTSBR904 00020 * MM-DD-YY MODIFIED TO DUTAS PROGRAM NAMING CONVENTIONS. DTSBR904 00021 * CHANGED ALL "COPY" STATEMENT TO "++INCLUDE" DTSBR904 00022 * REFERENCE RFP #**** AUTHOR OF CHANGE - DVS DTSBR904 00023 * DTSBR904 00024 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR904 00025 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR904 00026 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR904 00027 * DTSBR904 00028 * DTSBR904 00029 * DESCRIPTION: DTSBR904 00030 * DTSBR904 00031 * THIS MODULE DISPLAYS WHAT THE MASTER FILE HEADER RECORD DTSBR904 00032 * FIELDS LOOKED LIKE BEFORE AND AFTER THE DAILY UPDATE DTSBR904 00033 * STEP. DTSBR904 00034 * DTSBR904 00035 * DTSBR904 00036 * RECORDS READ: DTSBR904 00037 * DTSBR904 00038 * NONE. DTSBR904 00039 * DTSBR904 00040 * DTSBR904 00041 * PRINTED OUTPUTS: DTSBR904 00042 * DTSBR904 00043 * 907R1 DAILY UPDATE CONTROL REPORT LIST. DTSBR904 00044 * DTSBR904 00045 * DTSBR904 00046 * RECORDS WRITTEN: DTSBR904 00047 * DTSBR904 00048 * NONE. DTSBR904 00049 * DTSBR904 00050 * DTSBR904 00051 * MODULES CALLED: DTSBR904 00052 * DTSBR904 00053 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR904 00054 * DTSBU004 QUARTER EDIT/CONVERSION MODULE DTSBR904 00055 * DTSBR904 00056 * DTSBR904 00057 ***** DTSBR904 00058 EJECT DTSBR904 00059 ENVIRONMENT DIVISION. DTSBR904 00060 DTSBR904 00061 CONFIGURATION SECTION. DTSBR904 00062 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR904 00063 DTSBR904 00064 INPUT-OUTPUT SECTION. DTSBR904 00065 DTSBR904 00066 FILE-CONTROL. DTSBR904 00067 SELECT PRT-FILE ASSIGN TO RPT904R1. DTSBR904 00068 DTSBR904 00069 DATA DIVISION. DTSBR904 00070 DTSBR904 00071 FILE SECTION. DTSBR904 00072 DTSBR904 00073 FD PRT-FILE DTSBR904 00074 RECORDING MODE IS F. DTSBR904 00075 01 REPORT-LISTING1 PIC X(133). DTSBR904 00076 DTSBR904 00077 WORKING-STORAGE SECTION. DTSBR904 000775 77 PAN-VALET PICTURE X(24) VALUE '031DTSBR904 01/29/01'. DTSBR904 00078 DTSBR904 00079 01 WRK-AREA. DTSBR904 00080 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +904.DTSBR904 00081 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR904 00082 DTSBR904 00083 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR904 00084 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR904 00085 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR904 00086 DTSBR904 00087 05 WRK-SUB PIC S9(04) COMP VALUE +0. DTSBR904 00088 DTSBR904 00089 05 WRK-QTRS-DATES OCCURS 2 TIMES. DTSBR904 00090 10 WRK-PRIOR-RUN-DATE PIC X(10) VALUE SPACES. DTSBR904 00091 10 WRK-PRIOR-MAIL-DATE PIC X(10) VALUE SPACES. DTSBR904 00092 10 WRK-CURR-RUN-DATE PIC X(10) VALUE SPACES. DTSBR904 00093 10 WRK-CURR-MAIL-DATE PIC X(10) VALUE SPACES. DTSBR904 00094 10 WRK-NEXT-RUN-DATE PIC X(10) VALUE SPACES. DTSBR904 00095 10 WRK-NEXT-MAIL-DATE PIC X(10) VALUE SPACES. DTSBR904 00096 10 WRK-CMPL-WEEK-BEGIN-DATE DTSBR904 00097 PIC X(10) VALUE SPACES. DTSBR904 00098 10 WRK-CMPL-WEEK-END-DATE PIC X(10) VALUE SPACES. DTSBR904 00099 10 WRK-CMPL-MONTH-BEGIN-DATE DTSBR904 00100 PIC X(10) VALUE SPACES. DTSBR904 00101 10 WRK-CMPL-MONTH-END-DATE PIC X(10) VALUE SPACES. DTSBR904 00102 10 WRK-CMPL-QTR-BEGIN-DATE PIC X(10) VALUE SPACES. DTSBR904 00103 10 WRK-CMPL-QTR-END-DATE PIC X(10) VALUE SPACES. DTSBR904 00104 10 WRK-CMPL-YEAR-BEGIN-DATE DTSBR904 00105 PIC X(10) VALUE SPACES. DTSBR904 00106 10 WRK-CMPL-YEAR-END-DATE PIC X(10) VALUE SPACES. DTSBR904 00107 10 WRK-DEFAULT-RCV-DATE PIC X(10) VALUE SPACES. DTSBR904 00108 10 WRK-LAST-MJRN-PURGE-DATE DTSBR904 00109 PIC X(10) VALUE SPACES. DTSBR904 00110 DTSBR904 00111 10 WRK-LAST-UC30-MASS-MAIL-YRQ DTSBR904 00112 PIC X(06) VALUE SPACES. DTSBR904 00113 10 WRK-LAST-UC30-DEL-MAIL-YRQ DTSBR904 00114 PIC X(06) VALUE SPACES. DTSBR904 00115 10 WRK-FIRST-PURSUED-RPT-YRQ DTSBR904 00116 PIC X(06) VALUE SPACES. DTSBR904 00117 10 WRK-LAST-RATE-END-YRQ DTSBR904 00118 PIC X(06) VALUE SPACES. DTSBR904 00119 EJECT DTSBR904 00120 01 L001-LINK-AREA. DTSBR904 00121 ++INCLUDE DTSIL001 DTSBR904 00122 EJECT DTSBR904 00123 01 L004-LINK-AREA. DTSBR904 00124 ++INCLUDE DTSIL004 DTSBR904 00125 EJECT DTSBR904 00126 DTSBR904 00127 01 PAGE-HEADING. DTSBR904 00128 05 HDR-LINE-1. DTSBR904 00129 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00130 10 FILLER PIC X(05) DTSBR904 00131 VALUE '904R1'. DTSBR904 00132 10 FILLER PIC X(34) VALUE SPACES. DTSBR904 00133 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR904 00134 10 FILLER PIC X(28) VALUE SPACES. DTSBR904 00135 10 FILLER PIC X(05) DTSBR904 00136 VALUE 'DATE:'. DTSBR904 00137 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00138 10 HDR-SYS-DATE PIC X(08). DTSBR904 00139 DTSBR904 00140 05 HDR-LINE-2. DTSBR904 00141 10 FILLER PIC X(40) VALUE SPACES. DTSBR904 00142 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR904 00143 10 FILLER PIC X(28) VALUE SPACES. DTSBR904 00144 10 FILLER PIC X(05) DTSBR904 00145 VALUE 'TIME:'. DTSBR904 00146 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00147 10 HDR-SYS-TIME PIC X(08). DTSBR904 00148 DTSBR904 00149 05 HDR-LINE-3. DTSBR904 00150 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00151 10 FILLER PIC X(10) DTSBR904 00152 VALUE 'ROUTE TO: '. DTSBR904 00153 10 WRK-ROUTE-LOCATION-1 PIC X(25). DTSBR904 00154 10 FILLER PIC X(82) VALUE SPACES. DTSBR904 00155 10 FILLER PIC X(05) DTSBR904 00156 VALUE 'PAGE:'. DTSBR904 00157 10 FILLER PIC X(03) VALUE SPACES. DTSBR904 00158 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR904 00159 DTSBR904 00160 05 HDR-LINE-4. DTSBR904 00161 10 FILLER PIC X(11) VALUE SPACES. DTSBR904 00162 10 WRK-ROUTE-LOCATION-2 PIC X(25). DTSBR904 00163 10 FILLER PIC X(15) VALUE SPACES. DTSBR904 00164 10 FILLER PIC X(27) DTSBR904 00165 VALUE 'DAILY UPDATE CONTROL REPORT'. DTSBR904 00166 DTSBR904 00167 05 HDR-LINE-5 PIC X(133) VALUE SPACES. DTSBR904 00168 DTSBR904 00169 05 HDR-LINE-6 PIC X(133) VALUE SPACES. DTSBR904 00170 DTSBR904 00171 05 HDR-LINE-7. DTSBR904 00172 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00173 10 FILLER PIC X(10) DTSBR904 00174 VALUE 'RUN TYPE: '. DTSBR904 00175 10 HDR-RUN-TYPE PIC X(01). DTSBR904 00176 DTSBR904 00177 01 DETAIL-LINE. DTSBR904 00178 05 DTL-LINE-3. DTSBR904 00179 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00180 10 FILLER PIC X(39) DTSBR904 00181 VALUE 'PRE UPDATE HEADER RECORD FIELD VALUES: '. DTSBR904 00182 DTSBR904 00183 05 DTL-LINE-4 PIC X(133) VALUE SPACES. DTSBR904 00184 DTSBR904 00185 05 DTL-LINE-5. DTSBR904 00186 10 FILLER PIC X(06) VALUE SPACES. DTSBR904 00187 10 FILLER PIC X(15) DTSBR904 00188 VALUE 'PRIOR RUN DATE:'. DTSBR904 00189 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00190 10 DTL-PRIOR-RUN-DATE-1 PIC X(10). DTSBR904 00191 10 FILLER PIC X(10) VALUE SPACES. DTSBR904 00192 10 FILLER PIC X(16) DTSBR904 00193 VALUE 'PRIOR MAIL-DATE:'. DTSBR904 00194 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00195 10 DTL-PRIOR-MAIL-DATE-1 PIC X(10). DTSBR904 00196 DTSBR904 00197 05 DTL-LINE-6. DTSBR904 00198 10 FILLER PIC X(04) VALUE SPACES. DTSBR904 00199 10 FILLER PIC X(17) DTSBR904 00200 VALUE 'CURRENT RUN DATE:'. DTSBR904 00201 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00202 10 DTL-CURR-RUN-DATE-1 PIC X(10). DTSBR904 00203 10 FILLER PIC X(08) VALUE SPACES. DTSBR904 00204 10 FILLER PIC X(18) DTSBR904 00205 VALUE 'CURRENT MAIL DATE:'. DTSBR904 00206 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00207 10 DTL-CURR-MAIL-DATE-1 PIC X(10). DTSBR904 00208 10 FILLER PIC X(09) VALUE SPACES. DTSBR904 00209 10 FILLER PIC X(23) DTSBR904 00210 VALUE 'LAST USED BATCH NUMBER:'. DTSBR904 00211 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00212 10 DTL-LAST-USED-BATCH-NO-1 PIC 9(05). DTSBR904 00213 DTSBR904 00214 05 DTL-LINE-7. DTSBR904 00215 10 FILLER PIC X(07) VALUE SPACES. DTSBR904 00216 10 FILLER PIC X(14) DTSBR904 00217 VALUE 'NEXT RUN DATE:'. DTSBR904 00218 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00219 10 DTL-NEXT-RUN-DATE-1 PIC X(10). DTSBR904 00220 10 FILLER PIC X(11) VALUE SPACES. DTSBR904 00221 10 FILLER PIC X(15) DTSBR904 00222 VALUE 'NEXT MAIL DATE:'. DTSBR904 00223 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00224 10 DTL-NEXT-MAIL-DATE-1 PIC X(10). DTSBR904 00225 10 FILLER PIC X(10) VALUE SPACES. DTSBR904 00226 10 FILLER PIC X(22) DTSBR904 00227 VALUE 'DEFAULT RECEIVED DATE:'. DTSBR904 00228 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00229 10 DTL-DEFAULT-RCV-DATE-1 PIC X(10). DTSBR904 00230 DTSBR904 00231 05 DTL-LINE-8 PIC X(133) VALUE SPACES. DTSBR904 00232 DTSBR904 00233 05 DTL-LINE-9 PIC X(133) VALUE SPACES. DTSBR904 00234 DTSBR904 00235 05 DTL-LINE-10. DTSBR904 00236 10 FILLER PIC X(05) VALUE SPACES. DTSBR904 00237 10 FILLER PIC X(34) DTSBR904 00238 VALUE 'LAST COMPLETED WEEK BEGIN DATE:'. DTSBR904 00239 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00240 10 DTL-CMPL-WEEK-BEGIN-DATE-1 PIC X(10). DTSBR904 00241 10 FILLER PIC X(11) VALUE SPACES. DTSBR904 00242 10 FILLER PIC X(32) DTSBR904 00243 VALUE 'LAST COMPLETED WEEK END DATE:'. DTSBR904 00244 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00245 10 DTL-CMPL-WEEK-END-DATE-1 PIC X(10). DTSBR904 00246 DTSBR904 00247 05 DTL-LINE-11. DTSBR904 00248 10 FILLER PIC X(05) VALUE SPACES. DTSBR904 00249 10 FILLER PIC X(34) DTSBR904 00250 VALUE 'LAST COMPLETED MONTH BEGIN DATE:'. DTSBR904 00251 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00252 10 DTL-CMPL-MONTH-BEGIN-DATE-1 PIC X(10). DTSBR904 00253 10 FILLER PIC X(11) VALUE SPACES. DTSBR904 00254 10 FILLER PIC X(32) DTSBR904 00255 VALUE 'LAST COMPLETED MONTH END DATE:'. DTSBR904 00256 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00257 10 DTL-CMPL-MONTH-END-DATE-1 PIC X(10). DTSBR904 00258 DTSBR904 00259 05 DTL-LINE-12. DTSBR904 00260 10 FILLER PIC X(05) VALUE SPACES. DTSBR904 00261 10 FILLER PIC X(34) DTSBR904 00262 VALUE 'LAST COMPLETED QUARTER BEGIN DATE:'. DTSBR904 00263 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00264 10 DTL-CMPL-QTR-BEGIN-DATE-1 PIC X(10). DTSBR904 00265 10 FILLER PIC X(11) VALUE SPACES. DTSBR904 00266 10 FILLER PIC X(32) DTSBR904 00267 VALUE 'LAST COMPLETED QUARTER END DATE:'. DTSBR904 00268 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00269 10 DTL-CMPL-QTR-END-DATE-1 PIC X(10). DTSBR904 00270 DTSBR904 00271 05 DTL-LINE-13. DTSBR904 00272 10 FILLER PIC X(05) VALUE SPACES. DTSBR904 00273 10 FILLER PIC X(34) DTSBR904 00274 VALUE 'LAST COMPLETED YEAR BEGIN DATE:'. DTSBR904 00275 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00276 10 DTL-CMPL-YEAR-BEGIN-DATE-1 PIC X(10). DTSBR904 00277 10 FILLER PIC X(11) VALUE SPACES. DTSBR904 00278 10 FILLER PIC X(32) DTSBR904 00279 VALUE 'LAST COMPLETED YEAR END DATE:'. DTSBR904 00280 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00281 10 DTL-CMPL-YEAR-END-DATE-1 PIC X(10). DTSBR904 00282 DTSBR904 00283 05 DTL-LINE-14 PIC X(133) VALUE SPACES. DTSBR904 00284 DTSBR904 00285 05 DTL-LINE-15 PIC X(133) VALUE SPACES. DTSBR904 00286 DTSBR904 00287 05 DTL-LINE-16. DTSBR904 00288 10 FILLER PIC X(18) VALUE SPACES. DTSBR904 00289 10 FILLER PIC X(17) DTSBR904 00290 VALUE 'LAST USED EMP NO:'. DTSBR904 00291 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00292 10 DTL-LAST-USED-EMP-NO-1 PIC 999B999. DTSBR904 00293 10 FILLER PIC X(33) VALUE SPACES. DTSBR904 00294 10 FILLER PIC X(22) DTSBR904 00295 VALUE 'LAST USED REFUND NO. :'. DTSBR904 00296 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00297 10 DTL-LAST-USED-REFUND-NO-1 PIC 99B9999. DTSBR904 00298 DTSBR904 00299 05 DTL-LINE-17. DTSBR904 00300 10 FILLER PIC X(09) VALUE SPACES. DTSBR904 00301 10 FILLER PIC X(26) DTSBR904 00302 VALUE 'LAST USED FIELD ASSIGN NO:'. DTSBR904 00303 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00304 10 DTL-LAST-USED-ASSIGN-NO-1 PIC 99B99999. DTSBR904 00305 10 FILLER PIC X(32) VALUE SPACES. DTSBR904 00306 10 FILLER PIC X(22) DTSBR904 00307 VALUE ' LAST USED LIEN NO:'. DTSBR904 00308 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00309 10 DTL-LAST-USED-LIEN-NO-1 PIC 99B9999. DTSBR904 00310 DTSBR904 00311 05 DTL-LINE-18. DTSBR904 00312 10 FILLER PIC X(09) VALUE SPACES. DTSBR904 00313 10 FILLER PIC X(26) DTSBR904 00314 VALUE 'LAST UC-30 MASS MAIL QTR :'. DTSBR904 00315 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00316 10 DTL-LAST-UC30-MASS-MAIL-YRQ-1 PIC X(06). DTSBR904 00317 10 FILLER PIC X(34) VALUE SPACES. DTSBR904 00318 10 FILLER PIC X(22) DTSBR904 00319 VALUE 'FIRST PURSUED RPT QTR:'. DTSBR904 00320 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00321 10 DTL-FIRST-PURSUED-RPT-YRQ-1 PIC X(06). DTSBR904 00322 DTSBR904 00323 05 DTL-LINE-19. DTSBR904 00324 10 FILLER PIC X(09) VALUE SPACES. DTSBR904 00325 10 FILLER PIC X(26) DTSBR904 00326 VALUE 'LAST UC-30 DEL MAIL QTR :'. DTSBR904 00327 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00328 10 DTL-LAST-UC30-DEL-MAIL-YRQ-1 PIC X(06). DTSBR904 00329 10 FILLER PIC X(20) VALUE SPACES. DTSBR904 00330 10 FILLER PIC X(36) DTSBR904 00331 VALUE 'LAST MASTER FILE JOURNAL PURGE DATE:'. DTSBR904 00332 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00333 10 DTL-LAST-MJRN-PURGE-DATE-1 PIC X(10). DTSBR904 00334 DTSBR904 00335 05 DTL-LINE-20. DTSBR904 00336 10 FILLER PIC X(16) VALUE SPACES. DTSBR904 00337 10 FILLER PIC X(19) DTSBR904 00338 VALUE 'LAST RATE END QTR :'. DTSBR904 00339 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00340 10 DTL-LAST-RATE-END-YRQ-1 PIC X(06). DTSBR904 00341 DTSBR904 00342 05 DTL-LINE-21 PIC X(133) VALUE SPACES. DTSBR904 00343 DTSBR904 00344 05 DTL-LINE-22 PIC X(133) VALUE SPACES. DTSBR904 00345 DTSBR904 00346 05 DTL-LINE-23 PIC X(133) VALUE SPACES. DTSBR904 00347 DTSBR904 00348 05 DTL-LINE-24. DTSBR904 00349 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00350 10 FILLER PIC X(39) DTSBR904 00351 VALUE 'POST UPDATE HEADER RECORD FIELD VALUES:'. DTSBR904 00352 DTSBR904 00353 05 DTL-LINE-25 PIC X(133) VALUE SPACES. DTSBR904 00354 DTSBR904 00355 05 DTL-LINE-26. DTSBR904 00356 10 FILLER PIC X(06) VALUE SPACES. DTSBR904 00357 10 FILLER PIC X(15) DTSBR904 00358 VALUE 'PRIOR RUN DATE:'. DTSBR904 00359 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00360 10 DTL-PRIOR-RUN-DATE-2 PIC X(10). DTSBR904 00361 10 FILLER PIC X(10) VALUE SPACES. DTSBR904 00362 10 FILLER PIC X(16) DTSBR904 00363 VALUE 'PRIOR MAIL-DATE:'. DTSBR904 00364 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00365 10 DTL-PRIOR-MAIL-DATE-2 PIC X(10). DTSBR904 00366 DTSBR904 00367 05 DTL-LINE-27. DTSBR904 00368 10 FILLER PIC X(04) VALUE SPACES. DTSBR904 00369 10 FILLER PIC X(17) DTSBR904 00370 VALUE 'CURRENT RUN DATE:'. DTSBR904 00371 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00372 10 DTL-CURR-RUN-DATE-2 PIC X(10). DTSBR904 00373 10 FILLER PIC X(08) VALUE SPACES. DTSBR904 00374 10 FILLER PIC X(18) DTSBR904 00375 VALUE 'CURRENT MAIL DATE:'. DTSBR904 00376 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00377 10 DTL-CURR-MAIL-DATE-2 PIC X(10). DTSBR904 00378 10 FILLER PIC X(09) VALUE SPACES. DTSBR904 00379 10 FILLER PIC X(23) DTSBR904 00380 VALUE 'LAST USED BATCH NUMBER:'. DTSBR904 00381 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00382 10 DTL-LAST-USED-BATCH-NO-2 PIC 9(05). DTSBR904 00383 DTSBR904 00384 05 DTL-LINE-28. DTSBR904 00385 10 FILLER PIC X(07) VALUE SPACES. DTSBR904 00386 10 FILLER PIC X(14) DTSBR904 00387 VALUE 'NEXT RUN DATE:'. DTSBR904 00388 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00389 10 DTL-NEXT-RUN-DATE-2 PIC X(10). DTSBR904 00390 10 FILLER PIC X(11) VALUE SPACES. DTSBR904 00391 10 FILLER PIC X(15) DTSBR904 00392 VALUE 'NEXT MAIL DATE:'. DTSBR904 00393 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00394 10 DTL-NEXT-MAIL-DATE-2 PIC X(10). DTSBR904 00395 10 FILLER PIC X(10) VALUE SPACES. DTSBR904 00396 10 FILLER PIC X(22) DTSBR904 00397 VALUE 'DEFAULT RECEIVED DATE:'. DTSBR904 00398 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00399 10 DTL-DEFAULT-RCV-DATE-2 PIC X(10). DTSBR904 00400 DTSBR904 00401 05 DTL-LINE-29 PIC X(133) VALUE SPACES. DTSBR904 00402 DTSBR904 00403 05 DTL-LINE-30 PIC X(133) VALUE SPACES. DTSBR904 00404 DTSBR904 00405 05 DTL-LINE-31. DTSBR904 00406 10 FILLER PIC X(05) VALUE SPACES. DTSBR904 00407 10 FILLER PIC X(34) DTSBR904 00408 VALUE 'LAST COMPLETED WEEK BEGIN DATE:'. DTSBR904 00409 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00410 10 DTL-CMPL-WEEK-BEGIN-DATE-2 PIC X(10). DTSBR904 00411 10 FILLER PIC X(11) VALUE SPACES. DTSBR904 00412 10 FILLER PIC X(32) DTSBR904 00413 VALUE 'LAST COMPLETED WEEK END DATE:'. DTSBR904 00414 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00415 10 DTL-CMPL-WEEK-END-DATE-2 PIC X(10). DTSBR904 00416 DTSBR904 00417 05 DTL-LINE-32. DTSBR904 00418 10 FILLER PIC X(05) VALUE SPACES. DTSBR904 00419 10 FILLER PIC X(34) DTSBR904 00420 VALUE 'LAST COMPLETED MONTH BEGIN DATE:'. DTSBR904 00421 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00422 10 DTL-CMPL-MONTH-BEGIN-DATE-2 PIC X(10). DTSBR904 00423 10 FILLER PIC X(11) VALUE SPACES. DTSBR904 00424 10 FILLER PIC X(32) DTSBR904 00425 VALUE 'LAST COMPLETED MONTH END DATE:'. DTSBR904 00426 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00427 10 DTL-CMPL-MONTH-END-DATE-2 PIC X(10). DTSBR904 00428 DTSBR904 00429 05 DTL-LINE-33. DTSBR904 00430 10 FILLER PIC X(05) VALUE SPACES. DTSBR904 00431 10 FILLER PIC X(34) DTSBR904 00432 VALUE 'LAST COMPLETED QUARTER BEGIN DATE:'. DTSBR904 00433 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00434 10 DTL-CMPL-QTR-BEGIN-DATE-2 PIC X(10). DTSBR904 00435 10 FILLER PIC X(11) VALUE SPACES. DTSBR904 00436 10 FILLER PIC X(32) DTSBR904 00437 VALUE 'LAST COMPLETED QUARTER END DATE:'. DTSBR904 00438 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00439 10 DTL-CMPL-QTR-END-DATE-2 PIC X(10). DTSBR904 00440 DTSBR904 00441 05 DTL-LINE-34. DTSBR904 00442 10 FILLER PIC X(05) VALUE SPACES. DTSBR904 00443 10 FILLER PIC X(34) DTSBR904 00444 VALUE 'LAST COMPLETED YEAR BEGIN DATE:'. DTSBR904 00445 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00446 10 DTL-CMPL-YEAR-BEGIN-DATE-2 PIC X(10). DTSBR904 00447 10 FILLER PIC X(11) VALUE SPACES. DTSBR904 00448 10 FILLER PIC X(32) DTSBR904 00449 VALUE 'LAST COMPLETED YEAR END DATE:'. DTSBR904 00450 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00451 10 DTL-CMPL-YEAR-END-DATE-2 PIC X(10). DTSBR904 00452 DTSBR904 00453 05 DTL-LINE-35 PIC X(133) VALUE SPACES. DTSBR904 00454 DTSBR904 00455 05 DTL-LINE-36 PIC X(133) VALUE SPACES. DTSBR904 00456 DTSBR904 00457 05 DTL-LINE-37. DTSBR904 00458 10 FILLER PIC X(18) VALUE SPACES. DTSBR904 00459 10 FILLER PIC X(17) DTSBR904 00460 VALUE 'LAST USED EMP NO:'. DTSBR904 00461 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00462 10 DTL-LAST-USED-EMP-NO-2 PIC 999B999. DTSBR904 00463 10 FILLER PIC X(33) VALUE SPACES. DTSBR904 00464 10 FILLER PIC X(22) DTSBR904 00465 VALUE 'LAST USED REFUND NO. :'. DTSBR904 00466 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00467 10 DTL-LAST-USED-REFUND-NO-2 PIC 99B9999. DTSBR904 00468 DTSBR904 00469 05 DTL-LINE-38. DTSBR904 00470 10 FILLER PIC X(09) VALUE SPACES. DTSBR904 00471 10 FILLER PIC X(26) DTSBR904 00472 VALUE 'LAST USED FIELD ASSIGN NO:'. DTSBR904 00473 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00474 10 DTL-LAST-USED-ASSIGN-NO-2 PIC 99B99999. DTSBR904 00475 10 FILLER PIC X(32) VALUE SPACES. DTSBR904 00476 10 FILLER PIC X(22) DTSBR904 00477 VALUE ' LAST USED LIEN NO:'. DTSBR904 00478 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00479 10 DTL-LAST-USED-LIEN-NO-2 PIC 99B9999. DTSBR904 00480 DTSBR904 00481 05 DTL-LINE-39. DTSBR904 00482 10 FILLER PIC X(09) VALUE SPACES. DTSBR904 00483 10 FILLER PIC X(26) DTSBR904 00484 VALUE 'LAST UC-30 MASS MAIL QTR :'. DTSBR904 00485 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00486 10 DTL-LAST-UC30-MASS-MAIL-YRQ-2 PIC X(06). DTSBR904 00487 10 FILLER PIC X(34) VALUE SPACES. DTSBR904 00488 10 FILLER PIC X(22) DTSBR904 00489 VALUE 'FIRST PURSUED RPT QTR:'. DTSBR904 00490 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00491 10 DTL-FIRST-PURSUED-RPT-YRQ-2 PIC X(06). DTSBR904 00492 DTSBR904 00493 05 DTL-LINE-40. DTSBR904 00494 10 FILLER PIC X(09) VALUE SPACES. DTSBR904 00495 10 FILLER PIC X(26) DTSBR904 00496 VALUE 'LAST UC-30 DEL MAIL QTR :'. DTSBR904 00497 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00498 10 DTL-LAST-UC30-DEL-MAIL-YRQ-2 PIC X(06). DTSBR904 00499 10 FILLER PIC X(20) VALUE SPACES. DTSBR904 00500 10 FILLER PIC X(36) DTSBR904 00501 VALUE 'LAST MASTER FILE JOURNAL PURGE DATE:'. DTSBR904 00502 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00503 10 DTL-LAST-MJRN-PURGE-DATE-2 PIC X(10). DTSBR904 00504 DTSBR904 00505 05 DTL-LINE-41. DTSBR904 00506 10 FILLER PIC X(16) VALUE SPACES. DTSBR904 00507 10 FILLER PIC X(19) DTSBR904 00508 VALUE 'LAST RATE END QTR :'. DTSBR904 00509 10 FILLER PIC X(01) VALUE SPACE. DTSBR904 00510 10 DTL-LAST-RATE-END-YRQ-2 PIC X(06). DTSBR904 00511 EJECT DTSBR904 00512 LINKAGE SECTION. DTSBR904 00513 DTSBR904 00514 01 LRCM-LINK-AREA. DTSBR904 00515 ++INCLUDE DTSILRCM DTSBR904 00516 EJECT DTSBR904 00517 01 R904-REC. DTSBR904 00518 ++INCLUDE DTSIR904 DTSBR904 00519 EJECT DTSBR904 00520 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR904 00521 R904-REC. DTSBR904 00522 DTSBR904 00523 IF FIRST-TIME-IND = 'Y' DTSBR904 00524 PERFORM I1000-INITIATE DTSBR904 00525 THRU I1000-EXIT DTSBR904 00526 MOVE 'N' TO FIRST-TIME-IND. DTSBR904 00527 DTSBR904 00528 IF LRCM-EOR-88 DTSBR904 00529 PERFORM T1000-TERMINATE DTSBR904 00530 THRU T1000-EXIT DTSBR904 00531 ELSE DTSBR904 00532 PERFORM P1000-PROCESS DTSBR904 00533 THRU P1000-EXIT. DTSBR904 00534 DTSBR904 00535 GOBACK. DTSBR904 00536 EJECT DTSBR904 00537 I1000-INITIATE. DTSBR904 00538 DTSBR904 00539 OPEN OUTPUT PRT-FILE. DTSBR904 00540 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR904 00541 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR904 00542 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR904 00543 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR904 00544 MOVE SPACES TO REPORT-LISTING1. DTSBR904 00545 DTSBR904 00546 I1000-EXIT. DTSBR904 00547 EXIT. DTSBR904 00548 EJECT DTSBR904 00549 P1000-PROCESS. DTSBR904 00550 DTSBR904 00551 PERFORM P1100-SETUP-QTRS-AND-DATES DTSBR904 00552 THRU P1100-EXIT DTSBR904 00553 VARYING WRK-SUB FROM 1 BY 1 DTSBR904 00554 UNTIL WRK-SUB > 2. DTSBR904 00555 DTSBR904 00556 MOVE R904-RUN-TYPE TO HDR-RUN-TYPE. DTSBR904 00557 MOVE 'UI TAX PROGRAMMERS ' TO WRK-ROUTE-LOCATION-1. DTSBR904 00558 MOVE SPACES TO WRK-ROUTE-LOCATION-2. DTSBR904 00559 DTSBR904 00560 PERFORM P2000-MOVE-DATA THRU P2000-EXIT. DTSBR904 00561 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT. DTSBR904 00562 PERFORM P4000-PRINT-DETAIL THRU P4000-EXIT. DTSBR904 00563 MOVE +0 TO WS-PAGE-CNT. DTSBR904 00564 MOVE +60 TO WS-LINE-CNT2. DTSBR904 00565 DTSBR904 00566 MOVE 'TAX ACCOUNTING SECTION' TO WRK-ROUTE-LOCATION-1. DTSBR904 00567 MOVE 'CONTRIBUTIONS BUREAU' TO WRK-ROUTE-LOCATION-2. DTSBR904 00568 DTSBR904 00569 PERFORM P2000-MOVE-DATA THRU P2000-EXIT. DTSBR904 00570 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT. DTSBR904 00571 PERFORM P4000-PRINT-DETAIL THRU P4000-EXIT. DTSBR904 00572 DTSBR904 00573 P1000-EXIT. DTSBR904 00574 EXIT. DTSBR904 00575 DTSBR904 00576 P1100-SETUP-QTRS-AND-DATES. DTSBR904 00577 DTSBR904 00578 SET L004-FROM-5 TO TRUE. DTSBR904 00579 DTSBR904 00580 MOVE R904-LAST-UC30-MASS-MAIL-YRQ (WRK-SUB) TO L004-QTR-5-9. DTSBR904 00581 PERFORM S004-LINK-QTR DTSBR904 00582 THRU S004-EXIT. DTSBR904 00583 MOVE L004-SLASH-5-QTR TO DTSBR904 00584 WRK-LAST-UC30-MASS-MAIL-YRQ (WRK-SUB). DTSBR904 00585 DTSBR904 00586 MOVE R904-LAST-UC30-DEL-MAIL-YRQ (WRK-SUB) TO L004-QTR-5-9. DTSBR904 00587 PERFORM S004-LINK-QTR DTSBR904 00588 THRU S004-EXIT. DTSBR904 00589 MOVE L004-SLASH-5-QTR TO WRK-LAST-UC30-DEL-MAIL-YRQ (WRK-SUB)DTSBR904 00590 DTSBR904 00591 MOVE R904-FIRST-PURSUED-RPT-YRQ (WRK-SUB) TO L004-QTR-5-9. DTSBR904 00592 PERFORM S004-LINK-QTR DTSBR904 00593 THRU S004-EXIT. DTSBR904 00594 MOVE L004-SLASH-5-QTR TO WRK-FIRST-PURSUED-RPT-YRQ (WRK-SUB).DTSBR904 00595 DTSBR904 00596 MOVE R904-LAST-RATE-END-YRQ (WRK-SUB) TO L004-QTR-5-9. DTSBR904 00597 PERFORM S004-LINK-QTR DTSBR904 00598 THRU S004-EXIT. DTSBR904 00599 MOVE L004-SLASH-5-QTR TO WRK-LAST-RATE-END-YRQ (WRK-SUB). DTSBR904 00600 DTSBR904 00601 DTSBR904 00602 SET L001-FROM-FED-8 TO TRUE. DTSBR904 00603 DTSBR904 00604 MOVE R904-PRIOR-RUN-DATE (WRK-SUB) TO L001-FED-8-DATE-9. DTSBR904 00605 PERFORM S001-LINK-DATE DTSBR904 00606 THRU S001-EXIT. DTSBR904 00607 MOVE L001-SLASH-8-DATE TO WRK-PRIOR-RUN-DATE (WRK-SUB). DTSBR904 00608 DTSBR904 00609 MOVE R904-PRIOR-MAIL-DATE (WRK-SUB) TO L001-FED-8-DATE-9. DTSBR904 00610 PERFORM S001-LINK-DATE DTSBR904 00611 THRU S001-EXIT. DTSBR904 00612 MOVE L001-SLASH-8-DATE TO WRK-PRIOR-MAIL-DATE (WRK-SUB). DTSBR904 00613 DTSBR904 00614 MOVE R904-CURR-RUN-DATE (WRK-SUB) TO L001-FED-8-DATE-9. DTSBR904 00615 PERFORM S001-LINK-DATE DTSBR904 00616 THRU S001-EXIT. DTSBR904 00617 MOVE L001-SLASH-8-DATE TO WRK-CURR-RUN-DATE (WRK-SUB). DTSBR904 00618 DTSBR904 00619 MOVE R904-CURR-MAIL-DATE (WRK-SUB) TO L001-FED-8-DATE-9. DTSBR904 00620 PERFORM S001-LINK-DATE DTSBR904 00621 THRU S001-EXIT. DTSBR904 00622 MOVE L001-SLASH-8-DATE TO WRK-CURR-MAIL-DATE (WRK-SUB). DTSBR904 00623 DTSBR904 00624 MOVE R904-NEXT-RUN-DATE (WRK-SUB) TO L001-FED-8-DATE-9. DTSBR904 00625 PERFORM S001-LINK-DATE DTSBR904 00626 THRU S001-EXIT. DTSBR904 00627 MOVE L001-SLASH-8-DATE TO WRK-NEXT-RUN-DATE (WRK-SUB). DTSBR904 00628 DTSBR904 00629 MOVE R904-NEXT-MAIL-DATE (WRK-SUB) TO L001-FED-8-DATE-9. DTSBR904 00630 PERFORM S001-LINK-DATE DTSBR904 00631 THRU S001-EXIT. DTSBR904 00632 MOVE L001-SLASH-8-DATE TO WRK-NEXT-MAIL-DATE (WRK-SUB). DTSBR904 00633 DTSBR904 00634 MOVE R904-CMPL-WEEK-BEGIN-DATE (WRK-SUB) DTSBR904 00635 TO L001-FED-8-DATE-9. DTSBR904 00636 PERFORM S001-LINK-DATE DTSBR904 00637 THRU S001-EXIT. DTSBR904 00638 MOVE L001-SLASH-8-DATE TO WRK-CMPL-WEEK-BEGIN-DATE (WRK-SUB).DTSBR904 00639 DTSBR904 00640 MOVE R904-CMPL-WEEK-END-DATE (WRK-SUB) TO L001-FED-8-DATE-9. DTSBR904 00641 PERFORM S001-LINK-DATE DTSBR904 00642 THRU S001-EXIT. DTSBR904 00643 MOVE L001-SLASH-8-DATE TO WRK-CMPL-WEEK-END-DATE (WRK-SUB). DTSBR904 00644 DTSBR904 00645 MOVE R904-CMPL-MONTH-BEGIN-DATE (WRK-SUB) DTSBR904 00646 TO L001-FED-8-DATE-9. DTSBR904 00647 PERFORM S001-LINK-DATE DTSBR904 00648 THRU S001-EXIT. DTSBR904 00649 MOVE L001-SLASH-8-DATE TO WRK-CMPL-MONTH-BEGIN-DATE (WRK-SUB)DTSBR904 00650 DTSBR904 00651 MOVE R904-CMPL-MONTH-END-DATE (WRK-SUB) DTSBR904 00652 TO L001-FED-8-DATE-9. DTSBR904 00653 PERFORM S001-LINK-DATE DTSBR904 00654 THRU S001-EXIT. DTSBR904 00655 MOVE L001-SLASH-8-DATE TO WRK-CMPL-MONTH-END-DATE (WRK-SUB). DTSBR904 00656 DTSBR904 00657 MOVE R904-CMPL-QTR-BEGIN-DATE (WRK-SUB) DTSBR904 00658 TO L001-FED-8-DATE-9. DTSBR904 00659 PERFORM S001-LINK-DATE DTSBR904 00660 THRU S001-EXIT. DTSBR904 00661 MOVE L001-SLASH-8-DATE TO WRK-CMPL-QTR-BEGIN-DATE (WRK-SUB). DTSBR904 00662 DTSBR904 00663 MOVE R904-CMPL-QTR-END-DATE (WRK-SUB) TO L001-FED-8-DATE-9. DTSBR904 00664 PERFORM S001-LINK-DATE DTSBR904 00665 THRU S001-EXIT. DTSBR904 00666 MOVE L001-SLASH-8-DATE TO WRK-CMPL-QTR-END-DATE (WRK-SUB). DTSBR904 00667 DTSBR904 00668 MOVE R904-CMPL-YEAR-BEGIN-DATE (WRK-SUB) DTSBR904 00669 TO L001-FED-8-DATE-9. DTSBR904 00670 PERFORM S001-LINK-DATE DTSBR904 00671 THRU S001-EXIT. DTSBR904 00672 MOVE L001-SLASH-8-DATE TO WRK-CMPL-YEAR-BEGIN-DATE (WRK-SUB).DTSBR904 00673 DTSBR904 00674 MOVE R904-CMPL-YEAR-END-DATE (WRK-SUB) TO L001-FED-8-DATE-9. DTSBR904 00675 PERFORM S001-LINK-DATE DTSBR904 00676 THRU S001-EXIT. DTSBR904 00677 MOVE L001-SLASH-8-DATE TO WRK-CMPL-YEAR-END-DATE (WRK-SUB). DTSBR904 00678 DTSBR904 00679 MOVE R904-DEFAULT-RCV-DATE (WRK-SUB) DTSBR904 00680 TO L001-FED-8-DATE-9. DTSBR904 00681 PERFORM S001-LINK-DATE DTSBR904 00682 THRU S001-EXIT. DTSBR904 00683 MOVE L001-SLASH-8-DATE TO WRK-DEFAULT-RCV-DATE (WRK-SUB). DTSBR904 00684 DTSBR904 00685 MOVE R904-LAST-MJRN-PURGE-DATE (WRK-SUB) DTSBR904 00686 TO L001-FED-8-DATE-9. DTSBR904 00687 PERFORM S001-LINK-DATE DTSBR904 00688 THRU S001-EXIT. DTSBR904 00689 MOVE L001-SLASH-8-DATE TO WRK-LAST-MJRN-PURGE-DATE (WRK-SUB).DTSBR904 00690 DTSBR904 00691 P1100-EXIT. DTSBR904 00692 EXIT. DTSBR904 00693 DTSBR904 00694 P2000-MOVE-DATA. DTSBR904 00695 DTSBR904 00696 MOVE WRK-PRIOR-RUN-DATE (1) TO DTL-PRIOR-RUN-DATE-1. DTSBR904 00697 MOVE WRK-PRIOR-MAIL-DATE (1) TO DTL-PRIOR-MAIL-DATE-1. DTSBR904 00698 DTSBR904 00699 MOVE WRK-CURR-RUN-DATE (1) TO DTL-CURR-RUN-DATE-1. DTSBR904 00700 MOVE WRK-CURR-MAIL-DATE (1) TO DTL-CURR-MAIL-DATE-1. DTSBR904 00701 MOVE R904-LAST-USED-BATCH-NO (1) TO DTL-LAST-USED-BATCH-NO-1.DTSBR904 00702 DTSBR904 00703 MOVE WRK-NEXT-RUN-DATE (1) TO DTL-NEXT-RUN-DATE-1. DTSBR904 00704 MOVE WRK-NEXT-MAIL-DATE (1) TO DTL-NEXT-MAIL-DATE-1. DTSBR904 00705 MOVE WRK-DEFAULT-RCV-DATE (1) TO DTL-DEFAULT-RCV-DATE-1. DTSBR904 00706 DTSBR904 00707 MOVE WRK-CMPL-WEEK-BEGIN-DATE (1) TO DTSBR904 00708 DTL-CMPL-WEEK-BEGIN-DATE-1. DTSBR904 00709 MOVE WRK-CMPL-WEEK-END-DATE (1) TO DTL-CMPL-WEEK-END-DATE-1.DTSBR904 00710 DTSBR904 00711 MOVE WRK-CMPL-MONTH-BEGIN-DATE (1) TO DTSBR904 00712 DTL-CMPL-MONTH-BEGIN-DATE-1. DTSBR904 00713 MOVE WRK-CMPL-MONTH-END-DATE (1) TO DTSBR904 00714 DTL-CMPL-MONTH-END-DATE-1. DTSBR904 00715 DTSBR904 00716 MOVE WRK-CMPL-QTR-BEGIN-DATE (1) TO DTSBR904 00717 DTL-CMPL-QTR-BEGIN-DATE-1. DTSBR904 00718 MOVE WRK-CMPL-QTR-END-DATE (1) TO DTL-CMPL-QTR-END-DATE-1. DTSBR904 00719 DTSBR904 00720 MOVE WRK-CMPL-YEAR-BEGIN-DATE (1) TO DTSBR904 00721 DTL-CMPL-YEAR-BEGIN-DATE-1. DTSBR904 00722 MOVE WRK-CMPL-YEAR-END-DATE (1) TO DTL-CMPL-YEAR-END-DATE-1. DTSBR904 00723 DTSBR904 00724 MOVE R904-LAST-USED-EMP-NO (1) TO DTL-LAST-USED-EMP-NO-1. DTSBR904 00725 MOVE R904-LAST-USED-REFUND-NO (1) TO DTSBR904 00726 DTL-LAST-USED-REFUND-NO-1. DTSBR904 00727 DTSBR904 00728 MOVE R904-LAST-USED-ASSIGN-NO (1) TO DTSBR904 00729 DTL-LAST-USED-ASSIGN-NO-1. DTSBR904 00730 MOVE R904-LAST-USED-LIEN-NO (1) TO DTL-LAST-USED-LIEN-NO-1. DTSBR904 00731 DTSBR904 00732 MOVE WRK-LAST-UC30-MASS-MAIL-YRQ (1) TO DTSBR904 00733 DTL-LAST-UC30-MASS-MAIL-YRQ-1. DTSBR904 00734 MOVE WRK-FIRST-PURSUED-RPT-YRQ (1) TO DTSBR904 00735 DTL-FIRST-PURSUED-RPT-YRQ-1. DTSBR904 00736 DTSBR904 00737 MOVE WRK-LAST-UC30-DEL-MAIL-YRQ (1) TO DTSBR904 00738 DTL-LAST-UC30-DEL-MAIL-YRQ-1. DTSBR904 00739 MOVE WRK-LAST-MJRN-PURGE-DATE (1) TO DTSBR904 00740 DTL-LAST-MJRN-PURGE-DATE-1. DTSBR904 00741 DTSBR904 00742 MOVE WRK-LAST-RATE-END-YRQ (1) TO DTSBR904 00743 DTL-LAST-RATE-END-YRQ-1. DTSBR904 00744 DTSBR904 00745 MOVE WRK-PRIOR-RUN-DATE (2) TO DTL-PRIOR-RUN-DATE-2. DTSBR904 00746 MOVE WRK-PRIOR-MAIL-DATE (2) TO DTL-PRIOR-MAIL-DATE-2. DTSBR904 00747 DTSBR904 00748 MOVE WRK-CURR-RUN-DATE (2) TO DTL-CURR-RUN-DATE-2. DTSBR904 00749 MOVE WRK-CURR-MAIL-DATE (2) TO DTL-CURR-MAIL-DATE-2. DTSBR904 00750 MOVE R904-LAST-USED-BATCH-NO (2) TO DTL-LAST-USED-BATCH-NO-2.DTSBR904 00751 DTSBR904 00752 MOVE WRK-NEXT-RUN-DATE (2) TO DTL-NEXT-RUN-DATE-2. DTSBR904 00753 MOVE WRK-NEXT-MAIL-DATE (2) TO DTL-NEXT-MAIL-DATE-2. DTSBR904 00754 MOVE WRK-DEFAULT-RCV-DATE (2) TO DTL-DEFAULT-RCV-DATE-2. DTSBR904 00755 DTSBR904 00756 MOVE WRK-CMPL-WEEK-BEGIN-DATE (2) TO DTSBR904 00757 DTL-CMPL-WEEK-BEGIN-DATE-2. DTSBR904 00758 MOVE WRK-CMPL-WEEK-END-DATE (2) TO DTL-CMPL-WEEK-END-DATE-2.DTSBR904 00759 DTSBR904 00760 MOVE WRK-CMPL-MONTH-BEGIN-DATE (2) TO DTSBR904 00761 DTL-CMPL-MONTH-BEGIN-DATE-2. DTSBR904 00762 MOVE WRK-CMPL-MONTH-END-DATE (2) TO DTSBR904 00763 DTL-CMPL-MONTH-END-DATE-2. DTSBR904 00764 DTSBR904 00765 MOVE WRK-CMPL-QTR-BEGIN-DATE (2) TO DTSBR904 00766 DTL-CMPL-QTR-BEGIN-DATE-2. DTSBR904 00767 MOVE WRK-CMPL-QTR-END-DATE (2) TO DTL-CMPL-QTR-END-DATE-2. DTSBR904 00768 DTSBR904 00769 MOVE WRK-CMPL-YEAR-BEGIN-DATE (2) TO DTSBR904 00770 DTL-CMPL-YEAR-BEGIN-DATE-2. DTSBR904 00771 MOVE WRK-CMPL-YEAR-END-DATE (2) TO DTL-CMPL-YEAR-END-DATE-2. DTSBR904 00772 DTSBR904 00773 MOVE R904-LAST-USED-EMP-NO (2) TO DTL-LAST-USED-EMP-NO-2. DTSBR904 00774 MOVE R904-LAST-USED-REFUND-NO (2) TO DTSBR904 00775 DTL-LAST-USED-REFUND-NO-2. DTSBR904 00776 DTSBR904 00777 MOVE R904-LAST-USED-ASSIGN-NO (2) TO DTSBR904 00778 DTL-LAST-USED-ASSIGN-NO-2. DTSBR904 00779 MOVE R904-LAST-USED-LIEN-NO (2) TO DTL-LAST-USED-LIEN-NO-2. DTSBR904 00780 DTSBR904 00781 MOVE WRK-LAST-UC30-MASS-MAIL-YRQ (2) TO DTSBR904 00782 DTL-LAST-UC30-MASS-MAIL-YRQ-2. DTSBR904 00783 MOVE WRK-FIRST-PURSUED-RPT-YRQ (2) TO DTSBR904 00784 DTL-FIRST-PURSUED-RPT-YRQ-2. DTSBR904 00785 DTSBR904 00786 MOVE WRK-LAST-UC30-DEL-MAIL-YRQ (2) TO DTSBR904 00787 DTL-LAST-UC30-DEL-MAIL-YRQ-2. DTSBR904 00788 MOVE WRK-LAST-MJRN-PURGE-DATE (2) TO DTSBR904 00789 DTL-LAST-MJRN-PURGE-DATE-2. DTSBR904 00790 DTSBR904 00791 MOVE WRK-LAST-RATE-END-YRQ (2) TO DTSBR904 00792 DTL-LAST-RATE-END-YRQ-2. DTSBR904 00793 P2000-EXIT. DTSBR904 00794 EXIT. DTSBR904 00795 DTSBR904 00796 P3000-PRINT-HEADER. DTSBR904 00797 DTSBR904 00798 IF WS-LINE-CNT GREATER 58 OR DTSBR904 00799 WS-LINE-CNT2 GREATER 58 DTSBR904 00800 MOVE +0 TO WS-LINE-CNT DTSBR904 00801 MOVE +0 TO WS-LINE-CNT2 DTSBR904 00802 ADD +1 TO WS-PAGE-CNT DTSBR904 00803 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR904 00804 WRITE REPORT-LISTING1 FROM HDR-LINE-1 DTSBR904 00805 AFTER TOP-OF-PAGE DTSBR904 00806 WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1 DTSBR904 00807 WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1 DTSBR904 00808 WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1 DTSBR904 00809 WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1 DTSBR904 00810 WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1 DTSBR904 00811 WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1 DTSBR904 00812 ADD +7 TO WS-LINE-CNT2. DTSBR904 00813 DTSBR904 00814 P3000-EXIT. DTSBR904 00815 EXIT. DTSBR904 00816 DTSBR904 00817 P4000-PRINT-DETAIL. DTSBR904 00818 DTSBR904 00819 WRITE REPORT-LISTING1 FROM DTL-LINE-3 AFTER 3 DTSBR904 00820 WRITE REPORT-LISTING1 FROM DTL-LINE-4 AFTER 1 DTSBR904 00821 WRITE REPORT-LISTING1 FROM DTL-LINE-5 AFTER 1 DTSBR904 00822 WRITE REPORT-LISTING1 FROM DTL-LINE-6 AFTER 1 DTSBR904 00823 WRITE REPORT-LISTING1 FROM DTL-LINE-7 AFTER 1 DTSBR904 00824 WRITE REPORT-LISTING1 FROM DTL-LINE-8 AFTER 1 DTSBR904 00825 WRITE REPORT-LISTING1 FROM DTL-LINE-9 AFTER 1 DTSBR904 00826 WRITE REPORT-LISTING1 FROM DTL-LINE-10 AFTER 1 DTSBR904 00827 WRITE REPORT-LISTING1 FROM DTL-LINE-11 AFTER 1 DTSBR904 00828 WRITE REPORT-LISTING1 FROM DTL-LINE-12 AFTER 1 DTSBR904 00829 WRITE REPORT-LISTING1 FROM DTL-LINE-13 AFTER 1 DTSBR904 00830 WRITE REPORT-LISTING1 FROM DTL-LINE-14 AFTER 1 DTSBR904 00831 WRITE REPORT-LISTING1 FROM DTL-LINE-15 AFTER 1 DTSBR904 00832 WRITE REPORT-LISTING1 FROM DTL-LINE-16 AFTER 1 DTSBR904 00833 WRITE REPORT-LISTING1 FROM DTL-LINE-17 AFTER 1 DTSBR904 00834 WRITE REPORT-LISTING1 FROM DTL-LINE-18 AFTER 1 DTSBR904 00835 WRITE REPORT-LISTING1 FROM DTL-LINE-19 AFTER 1 DTSBR904 00836 WRITE REPORT-LISTING1 FROM DTL-LINE-20 AFTER 1 DTSBR904 00837 WRITE REPORT-LISTING1 FROM DTL-LINE-21 AFTER 1 DTSBR904 00838 WRITE REPORT-LISTING1 FROM DTL-LINE-22 AFTER 1 DTSBR904 00839 WRITE REPORT-LISTING1 FROM DTL-LINE-23 AFTER 1 DTSBR904 00840 WRITE REPORT-LISTING1 FROM DTL-LINE-24 AFTER 1 DTSBR904 00841 WRITE REPORT-LISTING1 FROM DTL-LINE-25 AFTER 1 DTSBR904 00842 WRITE REPORT-LISTING1 FROM DTL-LINE-26 AFTER 1 DTSBR904 00843 WRITE REPORT-LISTING1 FROM DTL-LINE-27 AFTER 1 DTSBR904 00844 WRITE REPORT-LISTING1 FROM DTL-LINE-28 AFTER 1 DTSBR904 00845 WRITE REPORT-LISTING1 FROM DTL-LINE-29 AFTER 1 DTSBR904 00846 WRITE REPORT-LISTING1 FROM DTL-LINE-30 AFTER 1 DTSBR904 00847 WRITE REPORT-LISTING1 FROM DTL-LINE-31 AFTER 1 DTSBR904 00848 WRITE REPORT-LISTING1 FROM DTL-LINE-32 AFTER 1 DTSBR904 00849 WRITE REPORT-LISTING1 FROM DTL-LINE-33 AFTER 1 DTSBR904 00850 WRITE REPORT-LISTING1 FROM DTL-LINE-34 AFTER 1 DTSBR904 00851 WRITE REPORT-LISTING1 FROM DTL-LINE-35 AFTER 1 DTSBR904 00852 WRITE REPORT-LISTING1 FROM DTL-LINE-36 AFTER 1 DTSBR904 00853 WRITE REPORT-LISTING1 FROM DTL-LINE-37 AFTER 1 DTSBR904 00854 WRITE REPORT-LISTING1 FROM DTL-LINE-38 AFTER 1 DTSBR904 00855 WRITE REPORT-LISTING1 FROM DTL-LINE-39 AFTER 1 DTSBR904 00856 WRITE REPORT-LISTING1 FROM DTL-LINE-40 AFTER 1 DTSBR904 00857 WRITE REPORT-LISTING1 FROM DTL-LINE-41 AFTER 1 DTSBR904 00858 ADD +41 TO WS-LINE-CNT2. DTSBR904 00859 DTSBR904 00860 P4000-EXIT. DTSBR904 00861 EXIT. DTSBR904 00862 DTSBR904 00863 T1000-TERMINATE. DTSBR904 00864 DTSBR904 00865 CLOSE PRT-FILE. DTSBR904 00866 DTSBR904 00867 T1000-EXIT. DTSBR904 00868 EXIT. DTSBR904 00869 EJECT DTSBR904 00870 S001-LINK-DATE. DTSBR904 00871 DTSBR904 00872 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR904 00873 DTSBR904 00874 S001-EXIT. DTSBR904 00875 EXIT. DTSBR904 00876 DTSBR904 00877 S004-LINK-QTR. DTSBR904 00878 DTSBR904 00879 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR904 00880 DTSBR904 00881 S004-EXIT. DTSBR904 00882 EXIT. DTSBR904 00883 DTSBR904 00884 *S999-ABEND. DTSBR904 00885 * DTSBR904 00886 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR904 00887 * DTSBR904 00888 *S999-EXIT. DTSBR904 00889 * EXIT. DTSBR904