891 lines
70 KiB
COBOL
891 lines
70 KiB
COBOL
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
|