DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
890
Batch/DTSBR904.cob
Normal file
890
Batch/DTSBR904.cob
Normal file
@ -0,0 +1,890 @@
|
||||
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
|
||||
Reference in New Issue
Block a user