00001 IDENTIFICATION DIVISION. 11/26/01 00002 PROGRAM-ID. DTSBR425. DTSBR425 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV012 00004 DATE-WRITTEN. OCTOBER 1994. DTSBR425 00005 MODIFIED BY TRW JAN 1999. DTSBR425 00006 DATE-COMPILED. DTSBR425 00007 SKIP3 DTSBR425 00008 ***** DTSBR425 00009 * DTSBR425 00010 * CALLING SEQUENCE: DURING THE DAILY UPDATE DTSBR425 00011 * DTSBU590 WHICH BUILDS DTSIR425 DTSBR425 00012 * DTSBR425 READS DTSIR425 RECORDS. DTSBR425 00013 * DTSBR425 00014 * FUNCTION: MISSING REPORTS ESTABLISHED LIST. DTSBR425 00015 * DTSBR425 00016 * DTSBR425 00017 * MODIFICATION HISTORY: DTSBR425 00018 * DTSBR425 00019 * 10-16-94 INITIAL DEVELOPMENT DTSBR425 00020 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR425 00021 * DTSBR425 00022 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR425 00023 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR425 00024 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR425 00025 * DTSBR425 00026 * DTSBR425 00027 * DESCRIPTION: DTSBR425 00028 * DTSBR425 00029 * THIS MODULE LISTS, IN QUARTER WITHIN EMPLOYER NUMBER DTSBR425 00030 * SEQUENCE, EACH QUARTER FOR WHICH THE REPORT WAS DECLARED DTSBR425 00031 * MISSING DURING THE TAX UPDATE. DTSBR425 00032 * DTSBR425 00033 * DTSBR425 00034 * RECORDS READ: DTSBR425 00035 * DTSBR425 00036 * NONE. DTSBR425 00037 * DTSBR425 00038 * DTSBR425 00039 * PRINTED OUTPUTS: DTSBR425 00040 * DTSBR425 00041 * 425R2 MISSING REPORTS ESTABLISHED LIST DTSBR425 00042 * (GROUPED BY FIELD REP CODE) DTSBR425 00043 * DTSBR425 00044 * DTSBR425 00045 * RECORDS WRITTEN: DTSBR425 00046 * DTSBR425 00047 * NONE. DTSBR425 00048 * DTSBR425 00049 * DTSBR425 00050 * MODULES CALLED: DTSBR425 00051 * DTSBR425 00052 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR425 00053 * DTSBU062 FIELD REP ID EDIT/DESCRIPTION MODULE DTSBR425 00054 * DTSBU071 NAME EDIT/CONVERSION MODULE DTSBR425 00055 * DTSBR425 00056 * DTSBR425 00057 ***** DTSBR425 00058 EJECT DTSBR425 00059 ENVIRONMENT DIVISION. DTSBR425 00060 DTSBR425 00061 CONFIGURATION SECTION. DTSBR425 00062 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR425 00063 DTSBR425 00064 INPUT-OUTPUT SECTION. DTSBR425 00065 DTSBR425 00066 FILE-CONTROL. DTSBR425 00067 SELECT PRT-FILE ASSIGN TO RPT425R1. DTSBR425 00068 DTSBR425 00069 DATA DIVISION. DTSBR425 00070 DTSBR425 00071 FILE SECTION. DTSBR425 00072 DTSBR425 00073 FD PRT-FILE DTSBR425 00074 RECORDING MODE IS F. DTSBR425 00075 01 PRT-RECORD PIC X(133). DTSBR425 00076 DTSBR425 00077 WORKING-STORAGE SECTION. DTSBR425 000775 77 PAN-VALET PICTURE X(24) VALUE '012DTSBR425 11/26/01'. DTSBR425 00078 DTSBR425 00079 01 WRK-AREA. DTSBR425 00080 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +425.DTSBR425 00081 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR425 00082 05 FIRST-PAGE-IND PIC X(01) VALUE 'Y'. DTSBR425 00083 05 WS-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR425 00084 05 WS-FIELD-REP-ID-LAST2 PIC X(02) VALUE SPACES. DTSBR425 00085 05 WS-YRQ PIC 9(05) VALUE ZEROS. DTSBR425 00086 05 WS-RPT-DUE-DATE PIC X(10) VALUE SPACES. DTSBR425 00087 05 WS-FIELD-NAME PIC X(32) VALUE SPACES. DTSBR425 00088 DTSBR425 00089 05 WS-BLANK-LINE PIC X(133) VALUE SPACES. DTSBR425 00090 05 WRK-PAGE-TRUNCATE PIC 9(01). DTSBR425 00091 88 WRK-ODD-PAGE-88 VALUE 1 3 5 7 9. DTSBR425 00092 DTSBR425 00093 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR425 00094 05 WS-NUMBER-TWO PIC S9(03) COMP-3 VALUE +0. DTSBR425 00095 05 WS-FOOT-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. DTSBR425 00096 05 WS-FOOT-NUMBER-TWO PIC S9(05) COMP-3 VALUE +0. DTSBR425 00097 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR425 00098 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR425 00099 05 WS-PAGE-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR425 00100 DTSBR425 00101 EJECT DTSBR425 00102 01 L001-LINK-AREA. DTSBR425 00103 ++INCLUDE DTSIL001 DTSBR425 00104 EJECT DTSBR425 00105 01 L062-LINK-AREA. DTSBR425 00106 ++INCLUDE DTSIL062 DTSBR425 00107 EJECT DTSBR425 00108 01 L071-LINK-AREA. DTSBR425 00109 ++INCLUDE DTSIL071 DTSBR425 00110 EJECT DTSBR425 00111 DTSBR425 00112 01 PAGE-HEADING. DTSBR425 00113 05 HDR-LINE-1. DTSBR425 00114 10 FILLER PIC X(01) VALUE SPACE. DTSBR425 00115 10 FILLER PIC X(05) DTSBR425 00116 VALUE '425R1'. DTSBR425 00117 10 FILLER PIC X(34) VALUE SPACES. DTSBR425 00118 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR425 00119 10 FILLER PIC X(28) VALUE SPACES. DTSBR425 00120 10 FILLER PIC X(05) DTSBR425 00121 VALUE 'DATE:'. DTSBR425 00122 10 FILLER PIC X(01) VALUE SPACE. DTSBR425 00123 10 HDR-SYS-DATE PIC X(08). DTSBR425 00124 05 HDR-LINE-2. DTSBR425 00125 10 FILLER PIC X(40) VALUE SPACES. DTSBR425 00126 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR425 00127 10 FILLER PIC X(28) VALUE SPACES. DTSBR425 00128 10 FILLER PIC X(05) DTSBR425 00129 VALUE 'TIME:'. DTSBR425 00130 10 FILLER PIC X(01) VALUE SPACE. DTSBR425 00131 10 HDR-SYS-TIME PIC X(08). DTSBR425 00132 05 HDR-LINE-3. DTSBR425 00133 10 FILLER PIC X(01) VALUE SPACE. DTSBR425 00134 10 FILLER PIC X(27) DTSBR425 00135 VALUE 'ROUTE TO: ENFORCEMENT UNIT'. DTSBR425 00136 10 FILLER PIC X(90) VALUE SPACES. DTSBR425 00137 10 FILLER PIC X(05) DTSBR425 00138 VALUE 'PAGE:'. DTSBR425 00139 10 FILLER PIC X(03) VALUE SPACES. DTSBR425 00140 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR425 00141 05 HDR-LINE-4. DTSBR425 00142 10 FILLER PIC X(49) VALUE SPACES. DTSBR425 00143 10 FILLER PIC X(32) DTSBR425 00144 VALUE 'MISSING REPORTS ESTABLISHED LIST'. DTSBR425 00145 10 FILLER PIC X(52) VALUE SPACES. DTSBR425 00146 05 HDR-LINE-5. DTSBR425 00147 10 FILLER PIC X(49) VALUE SPACES. DTSBR425 00148 10 FILLER PIC X(32) DTSBR425 00149 VALUE ' FIELD CODE ORDER '. DTSBR425 00150 10 FILLER PIC X(52) VALUE SPACES. DTSBR425 00151 05 HDR-LINE-6 PIC X(133) VALUE SPACES. DTSBR425 00152 05 HDR-LINE-7. DTSBR425 00153 10 FILLER PIC X(01) VALUE SPACE. DTSBR425 00154 10 FILLER PIC X(17) DTSBR425 00155 VALUE 'FIELD REP CODE: '. DTSBR425 00156 10 HDR-FLD-REP-ID PIC X(02). DTSBR425 00157 05 HDR-LINE-8. DTSBR425 00158 10 FILLER PIC X(01) VALUE SPACE. DTSBR425 00159 10 FILLER PIC X(17) DTSBR425 00160 VALUE 'FIELD REP NAME: '. DTSBR425 00161 10 HDR-FIELD-NAME PIC X(32). DTSBR425 00162 05 HDR-LINE-9 PIC X(133) VALUE SPACES. DTSBR425 00163 05 HDR-LINE-10 PIC X(133) VALUE SPACES. DTSBR425 00164 05 HDR-LINE-11. DTSBR425 00165 10 FILLER PIC X(11) VALUE SPACES. DTSBR425 00166 10 FILLER PIC X(06) DTSBR425 00167 VALUE 'EMP NO'. DTSBR425 00168 10 FILLER PIC X(08) VALUE SPACES. DTSBR425 00169 10 FILLER PIC X(13) DTSBR425 00170 VALUE 'PRIMARY NAME'. DTSBR425 00171 10 FILLER PIC X(35) VALUE SPACES. DTSBR425 00172 10 FILLER PIC X(14) DTSBR425 00173 VALUE 'MISSING REPORT'. DTSBR425 00174 10 FILLER PIC X(08) VALUE SPACES. DTSBR425 00175 10 FILLER PIC X(15) DTSBR425 00176 VALUE 'REPORT DUE DATE'. DTSBR425 00177 05 HDR-LINE-12. DTSBR425 00178 10 FILLER PIC X(73) VALUE SPACES. DTSBR425 00179 10 FILLER PIC X(14) DTSBR425 00180 VALUE ' QUARTERS '. DTSBR425 00181 10 FILLER PIC X(44) VALUE SPACES. DTSBR425 00182 05 HDR-LINE-13 PIC X(133) VALUE SPACES. DTSBR425 00183 DTSBR425 00184 01 DETAIL-LINE2. DTSBR425 00185 05 DTL-LINE-1 PIC X(133) VALUE SPACES. DTSBR425 00186 05 DTL-LINE-2. DTSBR425 00187 10 FILLER PIC X(11) VALUE SPACES. DTSBR425 00188 10 DTL-EMP-NO PIC 999B999. DTSBR425 00189 10 FILLER PIC X(07) VALUE SPACES. DTSBR425 00190 10 DTL-PRIMARY-NAME PIC X(40). DTSBR425 00191 10 FILLER PIC X(11) VALUE SPACES. DTSBR425 00192 10 DTL-YRQ PIC 9999/9. DTSBR425 00193 10 FILLER PIC X(15) VALUE SPACES. DTSBR425 00194 10 DTL-RPT-DUE-DATE PIC X(10). DTSBR425 00195 DTSBR425 00196 01 CONTROL-FOOTING. DTSBR425 00197 05 CTF-LINE-4. DTSBR425 00198 10 FILLER PIC X(33) VALUE SPACES. DTSBR425 00199 10 CTF-FOOT-NUMBER-ONE PIC ZZ,ZZ9. DTSBR425 00200 10 FILLER PIC X(01) VALUE SPACE. DTSBR425 00201 10 FILLER PIC X(31) DTSBR425 00202 VALUE 'ACCOUNTS LISTED FOR FIELD CODE '. DTSBR425 00203 10 CTF-FLD-REP-ID-1 PIC X(02). DTSBR425 00204 05 CTF-LINE-6. DTSBR425 00205 10 FILLER PIC X(33) VALUE SPACES. DTSBR425 00206 10 CTF-FOOT-NUMBER-TWO PIC ZZ,ZZ9. DTSBR425 00207 10 FILLER PIC X(01) VALUE SPACE. DTSBR425 00208 10 FILLER PIC X(31) DTSBR425 00209 VALUE 'MISSING REPORTS FOR FIELD CODE '. DTSBR425 00210 10 CTF-FLD-REP-ID-2 PIC X(02). DTSBR425 00211 DTSBR425 00212 EJECT DTSBR425 00213 LINKAGE SECTION. DTSBR425 00214 SKIP3 DTSBR425 00215 01 LRCM-LINK-AREA. DTSBR425 00216 ++INCLUDE DTSILRCM DTSBR425 00217 EJECT DTSBR425 00218 01 R425-REC. DTSBR425 00219 ++INCLUDE DTSIR425 DTSBR425 00220 EJECT DTSBR425 00221 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR425 00222 R425-REC. DTSBR425 00223 IF FIRST-TIME-IND = 'Y' DTSBR425 00224 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR425 00225 MOVE 'N' TO FIRST-TIME-IND. DTSBR425 00226 DTSBR425 00227 IF LRCM-EOR-88 DTSBR425 00228 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR425 00229 ELSE DTSBR425 00230 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR425 00231 DTSBR425 00232 GOBACK. DTSBR425 00233 EJECT DTSBR425 00234 I1000-INITIATE. DTSBR425 00235 DTSBR425 00236 MOVE SPACES TO WS-FIELD-REP-ID-LAST2. DTSBR425 00237 DTSBR425 00238 OPEN OUTPUT PRT-FILE. DTSBR425 00239 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR425 00240 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR425 00241 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR425 00242 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR425 00243 MOVE SPACES TO PRT-RECORD. DTSBR425 00244 DTSBR425 00245 I1000-EXIT. DTSBR425 00246 EXIT. DTSBR425 00247 DTSBR425 00248 P1000-PROCESS. DTSBR425 00249 DTSBR425 00250 MOVE R425-RPT-DUE-DATE TO L001-FED-8-DATE-9. DTSBR425 00251 SET L001-FROM-FED-8 TO TRUE. DTSBR425 00252 PERFORM S001-DATE THRU S001-EXIT. DTSBR425 00253 MOVE L001-SLASH-8-DATE TO WS-RPT-DUE-DATE. DTSBR425 00254 DTSBR425 00255 PERFORM P2000-GENERATE-REPORT2 THRU P2000-EXIT. DTSBR425 00256 DTSBR425 00257 P1000-EXIT. DTSBR425 00258 EXIT. DTSBR425 00259 EJECT DTSBR425 00260 P2000-GENERATE-REPORT2. DTSBR425 00261 DTSBR425 00262 IF R425-EMP-NO NOT = WS-EMP-NO DTSBR425 00263 IF WS-NUMBER-ONE = +0 DTSBR425 00264 MOVE +99 TO WS-NUMBER-ONE DTSBR425 00265 ELSE DTSBR425 00266 PERFORM P5000-PRINT-BLANK-LINES THRU P5000-EXIT DTSBR425 00267 ADD +1 TO WS-FOOT-NUMBER-ONE DTSBR425 00268 END-IF DTSBR425 00269 END-IF. DTSBR425 00270 DTSBR425 00271 MOVE R425-EMP-NO TO WS-EMP-NO. DTSBR425 00272 MOVE R425-YRQ TO WS-YRQ. DTSBR425 00273 IF R425-FLD-REP-ID DTSBR425 00274 = WS-FIELD-REP-ID-LAST2 DTSBR425 00275 NEXT SENTENCE DTSBR425 00276 ELSE DTSBR425 00277 MOVE R425-FLD-REP-ID TO HDR-FLD-REP-ID DTSBR425 00278 WS-FIELD-REP-ID-LAST2 L062-FLD-REP-ID DTSBR425 00279 PERFORM S062-FLD-REP-INFO THRU S062-EXIT DTSBR425 00280 IF L062-NOT-VALID DTSBR425 00281 MOVE L062-NAME TO WS-FIELD-NAME DTSBR425 00282 ELSE DTSBR425 00283 MOVE L062-NAME TO L071-NAM DTSBR425 00284 MOVE 2 TO L071-NAME-FORMAT DTSBR425 00285 PERFORM S071-DESLASH-NAME THRU S071-EXIT DTSBR425 00286 * MOVE L071-NAM TO WS-FIELD-NAME DTSBR425 00287 MOVE L071-NAM TO WS-FIELD-NAME HDR-FIELD-NAME DTSBR425 00288 END-IF DTSBR425 00289 DTSBR425 00290 IF WS-NUMBER-TWO = +0 DTSBR425 00291 MOVE +99 TO WS-NUMBER-TWO DTSBR425 00292 ELSE DTSBR425 00293 PERFORM P4000-PRINT-FOOTER THRU P4000-EXIT DTSBR425 00294 MOVE +60 TO WS-LINE-CNT2 DTSBR425 00295 END-IF. DTSBR425 00296 MOVE R425-EMP-NO TO DTL-EMP-NO. DTSBR425 00297 MOVE R425-PRIMARY-NAME TO DTL-PRIMARY-NAME. DTSBR425 00298 MOVE WS-YRQ TO DTL-YRQ. DTSBR425 00299 MOVE WS-RPT-DUE-DATE TO DTL-RPT-DUE-DATE. DTSBR425 00300 MOVE R425-FLD-REP-ID TO CTF-FLD-REP-ID-1 CTF-FLD-REP-ID-2. DTSBR425 00301 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT. DTSBR425 00302 WRITE PRT-RECORD FROM DTL-LINE-2 AFTER 2. DTSBR425 00303 ADD +2 TO WS-LINE-CNT2. DTSBR425 00304 ADD +1 TO WS-FOOT-NUMBER-TWO. DTSBR425 00305 DTSBR425 00306 P2000-EXIT. DTSBR425 00307 EXIT. DTSBR425 00308 DTSBR425 00309 P3000-PRINT-HEADER. DTSBR425 00310 IF WS-LINE-CNT GREATER 58 OR DTSBR425 00311 WS-LINE-CNT2 GREATER 52 DTSBR425 00312 MOVE +0 TO WS-LINE-CNT DTSBR425 00313 MOVE +0 TO WS-LINE-CNT2 DTSBR425 00314 ADD +1 TO WS-PAGE-CNT DTSBR425 00315 IF WS-PAGE-CNT = +3 DTSBR425 00316 MOVE +1 TO WS-PAGE-CNT DTSBR425 00317 END-IF DTSBR425 00318 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR425 00319 WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE DTSBR425 00320 WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1 DTSBR425 00321 WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1 DTSBR425 00322 WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1 DTSBR425 00323 WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1 DTSBR425 00324 WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1 DTSBR425 00325 WRITE PRT-RECORD FROM HDR-LINE-7 AFTER 1 DTSBR425 00326 WRITE PRT-RECORD FROM HDR-LINE-8 AFTER 1 DTSBR425 00327 WRITE PRT-RECORD FROM HDR-LINE-9 AFTER 1 DTSBR425 00328 WRITE PRT-RECORD FROM HDR-LINE-10 AFTER 1 DTSBR425 00329 WRITE PRT-RECORD FROM HDR-LINE-11 AFTER 1 DTSBR425 00330 WRITE PRT-RECORD FROM HDR-LINE-12 AFTER 1 DTSBR425 00331 ADD +12 TO WS-LINE-CNT2. DTSBR425 00332 P3000-EXIT. DTSBR425 00333 EXIT. DTSBR425 00334 DTSBR425 00335 P4000-PRINT-FOOTER. DTSBR425 00336 IF WS-LINE-CNT2 > 52 DTSBR425 00337 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR425 00338 END-IF. DTSBR425 00339 DTSBR425 00340 MOVE WS-FOOT-NUMBER-ONE TO CTF-FOOT-NUMBER-ONE. DTSBR425 00341 MOVE WS-FOOT-NUMBER-TWO TO CTF-FOOT-NUMBER-TWO. DTSBR425 00342 WRITE PRT-RECORD FROM CTF-LINE-4 AFTER 4. DTSBR425 00343 WRITE PRT-RECORD FROM CTF-LINE-6 AFTER 2. DTSBR425 00344 MOVE +0 TO WS-FOOT-NUMBER-TWO. DTSBR425 00345 MOVE +0 TO WS-FOOT-NUMBER-ONE. DTSBR425 00346 DTSBR425 00347 MOVE WS-PAGE-CNT TO WRK-PAGE-TRUNCATE. DTSBR425 00348 IF WRK-ODD-PAGE-88 DTSBR425 00349 WRITE PRT-RECORD FROM WS-BLANK-LINE DTSBR425 00350 AFTER TOP-OF-PAGE DTSBR425 00351 WRITE PRT-RECORD FROM WS-BLANK-LINE AFTER 58 DTSBR425 00352 ADD +60 TO WS-LINE-CNT2 DTSBR425 00353 MOVE +0 TO WS-PAGE-CNT DTSBR425 00354 END-IF. DTSBR425 00355 DTSBR425 00356 P4000-EXIT. DTSBR425 00357 EXIT. DTSBR425 00358 DTSBR425 00359 P5000-PRINT-BLANK-LINES. DTSBR425 00360 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 2. DTSBR425 00361 ADD +2 TO WS-LINE-CNT2. DTSBR425 00362 DTSBR425 00363 P5000-EXIT. DTSBR425 00364 EXIT. DTSBR425 00365 DTSBR425 00366 T1000-TERMINATE. DTSBR425 00367 IF WS-LINE-CNT2 > 52 DTSBR425 00368 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR425 00369 END-IF. DTSBR425 00370 DTSBR425 00371 ADD +1 TO WS-FOOT-NUMBER-ONE. DTSBR425 00372 MOVE WS-FOOT-NUMBER-ONE TO CTF-FOOT-NUMBER-ONE. DTSBR425 00373 MOVE WS-FOOT-NUMBER-TWO TO CTF-FOOT-NUMBER-TWO. DTSBR425 00374 WRITE PRT-RECORD FROM CTF-LINE-4 AFTER 4. DTSBR425 00375 WRITE PRT-RECORD FROM CTF-LINE-6 AFTER 2. DTSBR425 00376 DTSBR425 00377 CLOSE PRT-FILE. DTSBR425 00378 DTSBR425 00379 T1000-EXIT. DTSBR425 00380 EXIT. DTSBR425 00381 DTSBR425 00382 S001-DATE. DTSBR425 00383 DTSBR425 00384 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR425 00385 DTSBR425 00386 S001-EXIT. DTSBR425 00387 EXIT. DTSBR425 00388 DTSBR425 00389 S062-FLD-REP-INFO. DTSBR425 00390 DTSBR425 00391 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBR425 00392 DTSBR425 00393 S062-EXIT. DTSBR425 00394 EXIT. DTSBR425 00395 DTSBR425 00396 S071-DESLASH-NAME. DTSBR425 00397 DTSBR425 00398 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR425 00399 DTSBR425 00400 S071-EXIT. DTSBR425 00401 EXIT. DTSBR425 00402 DTSBR425 00403 *S999-ABEND. DTSBR425 00404 * DTSBR425 00405 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR425 00406 * DTSBR425 00407 *S999-EXIT. DTSBR425 00408 * EXIT. DTSBR425 00409 DTSBR425