00001 IDENTIFICATION DIVISION. 11/21/01 00002 PROGRAM-ID. DTSBR411. DTSBR411 00003 AUTHOR. TRICOASTAL CONSULTING LTD LV006 00004 MODIFIED BY TRW S&ITG. DTSBR411 00005 DATE-WRITTEN. DECEMBER 1994. DTSBR411 00006 DATE-COMPILED. DTSBR411 00007 DTSBR411 00008 ***** DTSBR411 00009 * DTSBR411 00010 * CALLING SEQUENCE: DTSBE411 CREATES DTSIR411 RECORDS. DTSBR411 00011 * DTSBD800 CALLS DTSBR411 DTSBR411 00012 * WHICH PRODUCES THE REPORT. DTSBR411 00013 * DTSBR411 00014 * FUNCTION: OPEN BANKRUPTCIES LIST. DTSBR411 00015 * DTSBR411 00016 * DTSBR411 00017 * MODIFICATION HISTORY: DTSBR411 00018 * DTSBR411 00019 * 12-20-94 INITIAL DEVELOPMENT DTSBR411 00020 * REFERENCE RFP #RAP AUTHOR OF CHANGE - RHC DTSBR411 00021 * DTSBR411 00022 * 03-29-95 MODIFY FOR DUPLEX. DTSBR411 00023 * REFERENCE RFP #CR056 AUTHOR OF CHANGE - RHC DTSBR411 00024 * DTSBR411 00025 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR411 00026 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR411 00027 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR411 00028 * DTSBR411 00029 * DTSBR411 00030 * DESCRIPTION: DTSBR411 00031 * DTSBR411 00032 * THIS MODULE PRODUCES THE OPEN BANKRUPTCIES LIST. DTSBR411 00033 * DTSBR411 00034 * DTSBR411 00035 * RECORDS READ: DTSBR411 00036 * DTSBR411 00037 * NONE. DTSBR411 00038 * DTSBR411 00039 * DTSBR411 00040 * PRINTED OUTPUTS: DTSBR411 00041 * DTSBR411 00042 * 411R1 OPEN BANKRUPTCIES LIST. DTSBR411 00043 * DTSBR411 00044 * DTSBR411 00045 * RECORDS WRITTEN: DTSBR411 00046 * DTSBR411 00047 * NONE. DTSBR411 00048 * DTSBR411 00049 * DTSBR411 00050 * MODULES CALLED: DTSBR411 00051 * DTSBR411 00052 * DTSBU001 DATE CONVERT. DTSBR411 00053 * DTSBR411 00054 * DTSBR411 00055 ***** DTSBR411 00056 EJECT DTSBR411 00057 ENVIRONMENT DIVISION. DTSBR411 00058 DTSBR411 00059 CONFIGURATION SECTION. DTSBR411 00060 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR411 00061 DTSBR411 00062 INPUT-OUTPUT SECTION. DTSBR411 00063 FILE-CONTROL. DTSBR411 00064 SELECT PRT-FILE ASSIGN TO RPT411R1. DTSBR411 00065 DTSBR411 00066 DATA DIVISION. DTSBR411 00067 FILE SECTION. DTSBR411 00068 DTSBR411 00069 FD PRT-FILE DTSBR411 00070 RECORDING MODE IS F. DTSBR411 00071 01 PRT-RECORD PIC X(133). DTSBR411 00072 DTSBR411 00073 EJECT DTSBR411 00074 WORKING-STORAGE SECTION. DTSBR411 000745 77 PAN-VALET PICTURE X(24) VALUE '006DTSBR411 11/21/01'. DTSBR411 00075 SKIP3 DTSBR411 00076 01 WRK-AREA. DTSBR411 00077 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +411.DTSBR411 00078 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR411 00079 05 FIRST-PAGE-IND PIC X(01) VALUE 'Y'. DTSBR411 00080 DTSBR411 00081 05 WS-FIELD-REP-ID PIC X(02) VALUE SPACES. DTSBR411 00082 05 WS-BLANK-LINE PIC X(133) VALUE SPACES. DTSBR411 00083 05 WRK-PAGE-TRUNCATE PIC 9(01). DTSBR411 00084 88 WRK-ODD-PAGE-88 VALUE 1 3 5 7 9. DTSBR411 00085 DTSBR411 00086 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR411 00087 05 WS-FOOT-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. DTSBR411 00088 05 WS-FOOT-NUMBER-TWO PIC S9(05) COMP-3 VALUE +0. DTSBR411 00089 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR411 00090 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR411 00091 05 WS-PAGE-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR411 00092 DTSBR411 00093 01 L001-LINK-AREA. DTSBR411 00094 ++INCLUDE DTSIL001 DTSBR411 00095 EJECT DTSBR411 00096 DTSBR411 00097 01 PAGE-HEADING. DTSBR411 00098 05 HDR-LINE-1. DTSBR411 00099 10 FILLER PIC X(01) VALUE SPACE. DTSBR411 00100 10 FILLER PIC X(05) DTSBR411 00101 VALUE '411R1'. DTSBR411 00102 10 FILLER PIC X(35) VALUE SPACES.DTSBR411 00103 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR411 00104 10 FILLER PIC X(27) VALUE SPACES.DTSBR411 00105 10 FILLER PIC X(05) DTSBR411 00106 VALUE 'DATE:'. DTSBR411 00107 10 FILLER PIC X(01) VALUE SPACE. DTSBR411 00108 10 HDR-SYS-DATE PIC X(08). DTSBR411 00109 05 HDR-LINE-2. DTSBR411 00110 10 FILLER PIC X(41) VALUE SPACES.DTSBR411 00111 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR411 00112 10 FILLER PIC X(27) VALUE SPACES.DTSBR411 00113 10 FILLER PIC X(05) DTSBR411 00114 VALUE 'TIME:'. DTSBR411 00115 10 FILLER PIC X(01) VALUE SPACE. DTSBR411 00116 10 HDR-SYS-TIME PIC X(08). DTSBR411 00117 05 HDR-LINE-3. DTSBR411 00118 10 FILLER PIC X(01) VALUE SPACE. DTSBR411 00119 10 FILLER PIC X(35) DTSBR411 00120 VALUE 'ROUTE TO: ENFORCEMENT UNIT'. DTSBR411 00121 10 FILLER PIC X(19) VALUE SPACES.DTSBR411 00122 10 FILLER PIC X(22) DTSBR411 00123 VALUE 'OPEN BANKRUPTCIES LIST'. DTSBR411 00124 10 FILLER PIC X(41) VALUE SPACES.DTSBR411 00125 10 FILLER PIC X(05) DTSBR411 00126 VALUE 'PAGE:'. DTSBR411 00127 10 FILLER PIC X(03) VALUE SPACES.DTSBR411 00128 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR411 00129 05 HDR-LINE-4 PIC X(133) VALUE SPACES.DTSBR411 00130 05 HDR-LINE-5 PIC X(133) VALUE SPACES.DTSBR411 00131 05 HDR-LINE-6. DTSBR411 00132 10 FILLER PIC X(01) VALUE SPACE. DTSBR411 00133 10 FILLER PIC X(15) DTSBR411 00134 VALUE 'FIELD REP CODE:'. DTSBR411 00135 10 FILLER PIC X(01) VALUE SPACE. DTSBR411 00136 10 HDR-FIELD-REP-ID PIC X(02). DTSBR411 00137 10 FILLER PIC X(101) VALUE SPACES.DTSBR411 00138 05 HDR-LINE-7 PIC X(133) VALUE SPACES.DTSBR411 00139 05 HDR-LINE-8. DTSBR411 00140 10 FILLER PIC X(84) VALUE SPACES.DTSBR411 00141 10 FILLER PIC X(08) DTSBR411 00142 VALUE 'PETITION'. DTSBR411 00143 10 FILLER PIC X(04) VALUE SPACES.DTSBR411 00144 10 FILLER PIC X(08) DTSBR411 00145 VALUE 'PROOF OF'. DTSBR411 00146 10 FILLER PIC X(07) VALUE SPACES.DTSBR411 00147 10 FILLER PIC X(03) DTSBR411 00148 VALUE 'PCC'. DTSBR411 00149 10 FILLER PIC X(04) DTSBR411 00150 VALUE 'LAST'. DTSBR411 00151 05 HDR-LINE-9. DTSBR411 00152 10 FILLER PIC X(01) VALUE SPACE. DTSBR411 00153 10 FILLER PIC X(06) DTSBR411 00154 VALUE 'EMP NO'. DTSBR411 00155 10 FILLER PIC X(07) VALUE SPACES.DTSBR411 00156 10 FILLER PIC X(13) DTSBR411 00157 VALUE 'PRIMARY NAME'. DTSBR411 00158 10 FILLER PIC X(27) VALUE SPACES.DTSBR411 00159 10 FILLER PIC X(07) DTSBR411 00160 VALUE 'CHAPTER'. DTSBR411 00161 10 FILLER PIC X(07) VALUE SPACES.DTSBR411 00162 10 FILLER PIC X(07) DTSBR411 00163 VALUE 'CASE NO'. DTSBR411 00164 10 FILLER PIC X(11) VALUE SPACES.DTSBR411 00165 10 FILLER PIC X(04) DTSBR411 00166 VALUE 'DATE'. DTSBR411 00167 10 FILLER PIC X(05) VALUE SPACES.DTSBR411 00168 10 FILLER PIC X(10) DTSBR411 00169 VALUE 'CLAIM DATE'. DTSBR411 00170 10 FILLER PIC X(04) VALUE SPACES.DTSBR411 00171 10 FILLER PIC X(08) DTSBR411 00172 VALUE 'REQUIRED'. DTSBR411 00173 10 FILLER PIC X(02) VALUE SPACES.DTSBR411 00174 10 FILLER PIC X(13) DTSBR411 00175 VALUE 'COMMUNICATION'. DTSBR411 00176 DTSBR411 00177 01 DETAIL-LINE. DTSBR411 00178 05 DTL-LINE-2. DTSBR411 00179 10 FILLER PIC X(01) VALUE SPACE. DTSBR411 00180 10 DTL-EMP-NO PIC 999B999. DTSBR411 00181 10 FILLER PIC X(06) VALUE SPACES.DTSBR411 00182 10 DTL-PRIMARY-NAME PIC X(40). DTSBR411 00183 10 FILLER PIC X(03) VALUE SPACES.DTSBR411 00184 10 DTL-BNK-CHAPTER PIC X(02). DTSBR411 00185 10 FILLER PIC X(05) VALUE SPACES.DTSBR411 00186 10 DTL-BNK-COURT-CASE-NO PIC X(15). DTSBR411 00187 10 FILLER PIC X(05) VALUE SPACES.DTSBR411 00188 10 WRK-PETITION-DATE PIC X(08). DTSBR411 00189 10 FILLER PIC X(04) VALUE SPACES.DTSBR411 00190 10 WRK-POC-FILED-DATE PIC X(08). DTSBR411 00191 10 FILLER PIC X(05) VALUE SPACES.DTSBR411 00192 10 WRK-POC-REQUIRED-DATE PIC X(08). DTSBR411 00193 10 FILLER PIC X(05) VALUE SPACES.DTSBR411 00194 10 WRK-LAST-COMM PIC X(08). DTSBR411 00195 DTSBR411 00196 01 CONTROL-FOOTING. DTSBR411 00197 05 CTF-LINE-3. DTSBR411 00198 10 FILLER PIC X(19) VALUE SPACES.DTSBR411 00199 10 CTF-FOOT-CNT PIC ZZ,ZZ9. DTSBR411 00200 10 FILLER PIC X(01) VALUE SPACE. DTSBR411 00201 10 FILLER PIC X(29) DTSBR411 00202 VALUE 'OPEN BANKRUPTCIES LISTED FOR '. DTSBR411 00203 10 FILLER PIC X(15) DTSBR411 00204 VALUE 'THIS FIELD REP '. DTSBR411 00205 DTSBR411 00206 01 CONTROL-FOOTING-FINAL. DTSBR411 00207 05 CFF-LINE-2. DTSBR411 00208 10 FILLER PIC X(19) VALUE SPACES.DTSBR411 00209 10 CFF-SUM-CNT PIC ZZ,ZZ9. DTSBR411 00210 10 FILLER PIC X(01) VALUE SPACE. DTSBR411 00211 10 FILLER PIC X(34) DTSBR411 00212 VALUE 'OPEN BANKRUPTCIES LISTED ON REPORT'. DTSBR411 00213 EJECT DTSBR411 00214 LINKAGE SECTION. DTSBR411 00215 SKIP3 DTSBR411 00216 01 LRCM-LINK-AREA. DTSBR411 00217 ++INCLUDE DTSILRCM DTSBR411 00218 EJECT DTSBR411 00219 01 R411-REC. DTSBR411 00220 ++INCLUDE DTSIR411 DTSBR411 00221 EJECT DTSBR411 00222 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR411 00223 R411-REC. DTSBR411 00224 IF FIRST-TIME-IND = 'Y' DTSBR411 00225 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR411 00226 MOVE 'N' TO FIRST-TIME-IND. DTSBR411 00227 DTSBR411 00228 IF LRCM-EOR-88 DTSBR411 00229 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR411 00230 ELSE DTSBR411 00231 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR411 00232 DTSBR411 00233 GOBACK. DTSBR411 00234 EJECT DTSBR411 00235 I1000-INITIATE. DTSBR411 00236 DTSBR411 00237 OPEN OUTPUT PRT-FILE. DTSBR411 00238 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR411 00239 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR411 00240 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR411 00241 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR411 00242 MOVE SPACES TO PRT-RECORD. DTSBR411 00243 DTSBR411 00244 I1000-EXIT. DTSBR411 00245 EXIT. DTSBR411 00246 DTSBR411 00247 P1000-PROCESS. DTSBR411 00248 DTSBR411 00249 IF R411-FIELD-REP-ID NOT = WS-FIELD-REP-ID DTSBR411 00250 IF WS-NUMBER-ONE = +0 DTSBR411 00251 MOVE +99 TO WS-NUMBER-ONE DTSBR411 00252 ELSE DTSBR411 00253 PERFORM P3000-PRINT-FOOTER THRU P3000-EXIT DTSBR411 00254 MOVE +60 TO WS-LINE-CNT2 DTSBR411 00255 MOVE +0 TO WS-PAGE-CNT DTSBR411 00256 END-IF DTSBR411 00257 END-IF. DTSBR411 00258 DTSBR411 00259 MOVE R411-FIELD-REP-ID TO WS-FIELD-REP-ID. DTSBR411 00260 MOVE R411-FIELD-REP-ID TO HDR-FIELD-REP-ID. DTSBR411 00261 DTSBR411 00262 MOVE R411-BNK-PETITION-DATE TO L001-FED-8-DATE-9. DTSBR411 00263 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR411 00264 IF L001-VALID-DATE DTSBR411 00265 MOVE L001-SLASH-DATE TO WRK-PETITION-DATE. DTSBR411 00266 DTSBR411 00267 MOVE R411-BNK-POC-FILED-DATE TO L001-FED-8-DATE-9. DTSBR411 00268 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR411 00269 IF L001-VALID-DATE DTSBR411 00270 MOVE L001-SLASH-DATE TO WRK-POC-FILED-DATE. DTSBR411 00271 DTSBR411 00272 MOVE R411-BNK-POC-REQUIRED-DATE TO L001-FED-8-DATE-9. DTSBR411 00273 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR411 00274 IF L001-VALID-DATE DTSBR411 00275 MOVE L001-SLASH-DATE TO WRK-POC-REQUIRED-DATE. DTSBR411 00276 DTSBR411 00277 MOVE R411-BNK-LAST-COMM TO L001-FED-8-DATE-9. DTSBR411 00278 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR411 00279 IF L001-VALID-DATE DTSBR411 00280 MOVE L001-SLASH-DATE TO WRK-LAST-COMM. DTSBR411 00281 DTSBR411 00282 MOVE R411-EMP-NO TO DTL-EMP-NO. DTSBR411 00283 MOVE R411-PRIMARY-NAME TO DTL-PRIMARY-NAME. DTSBR411 00284 MOVE R411-BNK-CHAPTER TO DTL-BNK-CHAPTER. DTSBR411 00285 MOVE R411-BNK-COURT-CASE-NO TO DTL-BNK-COURT-CASE-NO. DTSBR411 00286 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR411 00287 WRITE PRT-RECORD FROM DTL-LINE-2 AFTER 2. DTSBR411 00288 ADD +2 TO WS-LINE-CNT2. DTSBR411 00289 ADD +1 TO WS-FOOT-NUMBER-ONE. DTSBR411 00290 ADD +1 TO WS-FOOT-NUMBER-TWO. DTSBR411 00291 DTSBR411 00292 P1000-EXIT. DTSBR411 00293 EXIT. DTSBR411 00294 DTSBR411 00295 P2000-PRINT-HEADER. DTSBR411 00296 DTSBR411 00297 IF WS-LINE-CNT GREATER 58 OR DTSBR411 00298 WS-LINE-CNT2 GREATER 58 DTSBR411 00299 MOVE +0 TO WS-LINE-CNT DTSBR411 00300 MOVE +0 TO WS-LINE-CNT2 DTSBR411 00301 ADD +1 TO WS-PAGE-CNT DTSBR411 00302 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR411 00303 WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE DTSBR411 00304 WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1 DTSBR411 00305 WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1 DTSBR411 00306 WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1 DTSBR411 00307 WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1 DTSBR411 00308 WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1 DTSBR411 00309 WRITE PRT-RECORD FROM HDR-LINE-7 AFTER 1 DTSBR411 00310 WRITE PRT-RECORD FROM HDR-LINE-8 AFTER 1 DTSBR411 00311 WRITE PRT-RECORD FROM HDR-LINE-9 AFTER 1 DTSBR411 00312 ADD +9 TO WS-LINE-CNT2. DTSBR411 00313 P2000-EXIT. DTSBR411 00314 EXIT. DTSBR411 00315 DTSBR411 00316 P3000-PRINT-FOOTER. DTSBR411 00317 IF WS-LINE-CNT2 > 52 DTSBR411 00318 ADD +6 TO WS-LINE-CNT2 DTSBR411 00319 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR411 00320 END-IF. DTSBR411 00321 DTSBR411 00322 MOVE WS-FOOT-NUMBER-ONE TO CTF-FOOT-CNT. DTSBR411 00323 WRITE PRT-RECORD FROM CTF-LINE-3 AFTER 3. DTSBR411 00324 MOVE +0 TO WS-FOOT-NUMBER-ONE. DTSBR411 00325 DTSBR411 00326 MOVE WS-PAGE-CNT TO WRK-PAGE-TRUNCATE. DTSBR411 00327 IF WRK-ODD-PAGE-88 DTSBR411 00328 WRITE PRT-RECORD FROM WS-BLANK-LINE DTSBR411 00329 AFTER TOP-OF-PAGE DTSBR411 00330 WRITE PRT-RECORD FROM WS-BLANK-LINE AFTER 58 DTSBR411 00331 ADD +60 TO WS-LINE-CNT2 DTSBR411 00332 MOVE +0 TO WS-PAGE-CNT DTSBR411 00333 END-IF. DTSBR411 00334 DTSBR411 00335 P3000-EXIT. DTSBR411 00336 EXIT. DTSBR411 00337 DTSBR411 00338 T1000-TERMINATE. DTSBR411 00339 DTSBR411 00340 IF WS-LINE-CNT2 > 52 DTSBR411 00341 ADD +6 TO WS-LINE-CNT2 DTSBR411 00342 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR411 00343 END-IF. DTSBR411 00344 DTSBR411 00345 ADD +1 TO WS-FOOT-NUMBER-ONE. DTSBR411 00346 MOVE WS-FOOT-NUMBER-ONE TO CTF-FOOT-CNT. DTSBR411 00347 MOVE WS-FOOT-NUMBER-TWO TO CFF-SUM-CNT. DTSBR411 00348 WRITE PRT-RECORD FROM CTF-LINE-3 AFTER 3. DTSBR411 00349 DTSBR411 00350 MOVE WS-PAGE-CNT TO WRK-PAGE-TRUNCATE. DTSBR411 00351 IF WRK-ODD-PAGE-88 DTSBR411 00352 WRITE PRT-RECORD FROM WS-BLANK-LINE DTSBR411 00353 AFTER TOP-OF-PAGE DTSBR411 00354 END-IF. DTSBR411 00355 DTSBR411 00356 MOVE +1 TO WS-PAGE-CNT DTSBR411 00357 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR411 00358 WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE DTSBR411 00359 WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1 DTSBR411 00360 WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1 DTSBR411 00361 WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1 DTSBR411 00362 WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1 DTSBR411 00363 DTSBR411 00364 WRITE PRT-RECORD FROM CFF-LINE-2 AFTER 3. DTSBR411 00365 DTSBR411 00366 CLOSE PRT-FILE. DTSBR411 00367 DTSBR411 00368 T1000-EXIT. DTSBR411 00369 EXIT. DTSBR411 00370 DTSBR411 00371 S001-FROM-FED-8. DTSBR411 00372 DTSBR411 00373 SET L001-FROM-FED-8 TO TRUE. DTSBR411 00374 DTSBR411 00375 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR411 00376 DTSBR411 00377 S001-EXIT. DTSBR411 00378 EXIT. DTSBR411 00379 DTSBR411 00380 *S999-ABEND. DTSBR411 00381 * DTSBR411 00382 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR411 00383 * DTSBR411 00384 *S999-EXIT. DTSBR411 00385 * EXIT. DTSBR411 00386 DTSBR411