00001 IDENTIFICATION DIVISION. 11/20/09 00002 PROGRAM-ID. DTSBR615. DTSBR615 00003 AUTHOR. NGI. LV016 00004 DATE-WRITTEN. SEPTEMBER 1909. DTSBR615 00005 DATE-COMPILED. DTSBR615 00006 SKIP3 DTSBR615 00007 ***** DTSBR615 00008 * DTSBR615 00009 * DTSBR615 00010 * CALLING SEQUENCE: DTSBD300 CALLS DTSBR615 00011 * DTSDB330 WHICH UPDATES DTSIR615 DTSBR615 00012 * DTSBR615 READS DTSIR615 RECORDS. DTSBR615 00013 * DTSBR615 00014 * FUNCTION: EMPLOYER AUDIT NOTIFICATION NOTICE DTSBR615 00015 * DTSBR615 00016 * DTSBR615 00017 * MODIFICATION HISTORY: DTSBR615 00018 * DTSBR615 00019 * 09-15-09 INITIAL DEVELOPMENT DTSBR615 00020 * REFERENCE RFP #RAP AUTHOR OF CHANGE - ZL1 DTSBR615 00021 * DTSBR615 00022 * DTSBR615 00023 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR615 00024 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR615 00025 * REFERENCE: XXXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBR615 00026 * DTSBR615 00027 * DTSBR615 00028 * DESCRIPTION: DTSBR615 00029 * DTSBR615 00030 * THIS MODULE GENERATES AUDIT NOTICES FOR SELECTED DTSBR615 00031 * EMPLOYERS. ZL1 DTSBR615 00032 * DTSBR615 00033 * DTSBR615 00034 * RECORDS READ: DTSBR615 00035 * DTSBR615 00036 * NONE. DTSBR615 00037 * DTSBR615 00038 * DTSBR615 00039 * PRINTED OUTPUTS: DTSBR615 00040 * DTSBR615 00041 * 615R1 AUDIT NOTIFICATION NOTICE DTSBR615 00042 * DTSBR615 00043 * DTSBR615 00044 * RECORDS WRITTEN: DTSBR615 00045 * DTSBR615 00046 * NONE. DTSBR615 00047 * DTSBR615 00048 * DTSBR615 00049 * MODULES CALLED: DTSBR615 00050 * DTSBR615 00051 * DTSBU009 CONVERSION TO CAPS MODULE DTSBR615 00052 * DTSBU062 FIELD REP ID EDIT/DESCRIPTION MODULE DTSBR615 00053 * DTSBU071 NAME EDIT/CONVERSION MODULE DTSBR615 00054 * DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE DTSBR615 00055 * DTSBU119 AGENCY FACTS MODULE DTSBR615 00056 * DTSBR615 00057 ***** DTSBR615 00058 EJECT DTSBR615 00059 ENVIRONMENT DIVISION. DTSBR615 00060 DTSBR615 00061 CONFIGURATION SECTION. DTSBR615 00062 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR615 00063 DTSBR615 00064 INPUT-OUTPUT SECTION. DTSBR615 00065 DTSBR615 00066 FILE-CONTROL. DTSBR615 00067 SELECT PRT-FILE ASSIGN TO RPT615R1. DTSBR615 00068 DTSBR615 00069 DATA DIVISION. DTSBR615 00070 DTSBR615 00071 FILE SECTION. DTSBR615 00072 DTSBR615 00073 FD PRT-FILE DTSBR615 00074 RECORDING MODE IS F DTSBR615 00075 BLOCK CONTAINS 0 RECORDS DTSBR615 00076 LABEL RECORDS ARE OMITTED. DTSBR615 00077 01 XEROX-REPORT. DTSBR615 00078 05 FILLER PIC X(1). DTSBR615 00079 05 XEROX-RPT PIC X(132). DTSBR615 00080 DTSBR615 00081 EJECT DTSBR615 00082 WORKING-STORAGE SECTION. DTSBR615 000825 77 PAN-VALET PICTURE X(24) VALUE '016DTSBR615 11/20/09'. DTSBR615 00083 DTSBR615 00084 01 WRK-AREA. DTSBR615 00085 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +615.DTSBR615 00086 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR615 00087 05 WRK-AUDIT-DATE PIC X(10) VALUE ZEROS. DTSBR615 00088 05 WRK-AUDIT-DATE9 REDEFINES WRK-AUDIT-DATE. DTSBR615 00089 10 WRK-AUDIT-MM PIC 9(02). DTSBR615 00090 10 FILLER PIC X. DTSBR615 00091 10 WRK-AUDIT-DD PIC 9(02). DTSBR615 00092 10 FILLER PIC X. DTSBR615 00093 10 WRK-AUDIT-YEAR PIC 9(04). DTSBR615 00094 DTSBR615 00095 05 WRK-AUDIT-YRQ PIC 9(5). DTSBR615 00096 05 WRK-AUDIT-YRQ9 REDEFINES WRK-AUDIT-YRQ. DTSBR615 00097 10 WRK-AUDIT-YR PIC 9(04). DTSBR615 00098 10 WRK-AUDIT-Q PIC 9(01). DTSBR615 00099 DTSBR615 00100 05 WRK-NOTICE-DATE. DTSBR615 00101 10 WRK-NOTICE-YEAR PIC 9(04). DTSBR615 00102 10 WRK-NOTICE-MM PIC 9(02). DTSBR615 00103 10 WRK-NOTICE-DD PIC 9(02). DTSBR615 00104 DTSBR615 00105 05 WRK-NOTICE-DATE9 REDEFINES DTSBR615 00106 WRK-NOTICE-DATE PIC 9(8). DTSBR615 00107 DTSBR615 00108 05 WRK-DISPLAY PIC 9(11). DTSBR615 00109 05 FILLER REDEFINES WRK-DISPLAY. DTSBR615 00110 10 FILLER PIC X(04). DTSBR615 00111 10 WRK-ASSIGN1 PIC X(02). DTSBR615 00112 10 WRK-ASSIGN2 PIC X(05). DTSBR615 00113 05 FILLER REDEFINES WRK-DISPLAY. DTSBR615 00114 10 FILLER PIC X(05). DTSBR615 00115 10 WRK-DISPLAY-HH PIC X(02). DTSBR615 00116 10 WRK-DISPLAY-MM PIC X(02). DTSBR615 00117 10 WRK-DISPLAY-SS PIC X(02). DTSBR615 00118 DTSBR615 00119 05 FILLER PIC X(10). DTSBR615 00120 DTSBR615 00121 01 VSCA-LINE. DTSBR615 00122 05 VSCA-DATA PIC X(133) VALUE SPACES. DTSBR615 00123 DTSBR615 00124 05 WS-FIELD-NAME-FIRST-MI PIC X(40) VALUE SPACE. DTSBR615 00125 05 WS-FIELD-NAME-LAST PIC X(40) VALUE SPACE. DTSBR615 00126 05 WS-ADDR-FMT-AREA PIC X(200) VALUE SPACE. DTSBR615 00127 05 WS-ADDR-FMT-AREA-X REDEFINES WS-ADDR-FMT-AREA. DTSBR615 00128 10 ADDR-FMT-LINE OCCURS 5 TIMES PIC X(40). DTSBR615 00129 DTSBR615 00130 EJECT DTSBR615 00131 01 L001-LINK-AREA. DTSBR615 00132 ++INCLUDE DTSIL001 DTSBR615 00133 EJECT DTSBR615 00134 01 L002-LINK-AREA. DTSBR615 00135 ++INCLUDE DTSIL002 DTSBR615 00136 EJECT DTSBR615 00137 01 L004-LINK-AREA. DTSBR615 00138 ++INCLUDE DTSIL004 DTSBR615 00139 EJECT DTSBR615 00140 01 L062-LINK-AREA. DTSBR615 00141 ++INCLUDE DTSIL062 DTSBR615 00142 EJECT DTSBR615 00143 01 L071-LINK-AREA. DTSBR615 00144 ++INCLUDE DTSIL071 DTSBR615 00145 EJECT DTSBR615 00146 ++INCLUDE DTSXL615 DTSBR615 00147 DTSBR615 00148 01 XEROX-DETAIL-LINE1. DTSBR615 00149 10 FILLER PIC X(60) VALUE SPACES.DTSBR615 00150 10 XRX-DATE PIC X(30) VALUE SPACES.DTSBR615 00151 10 FILLER PIC X(06) VALUE SPACES.DTSBR615 00152 DTSBR615 00153 01 XEROX-DETAIL-LINE2. DTSBR615 00154 10 FILLER PIC X(05) VALUE SPACES.DTSBR615 00155 10 XRX-ADDRL1 PIC X(40) VALUE SPACES.DTSBR615 00156 01 XEROX-DETAIL-LINE3. DTSBR615 00157 10 FILLER PIC X(05) VALUE SPACES.DTSBR615 00158 10 XRX-ADDRL2 PIC X(40) VALUE SPACES.DTSBR615 00159 01 XEROX-DETAIL-LINE4. DTSBR615 00160 10 FILLER PIC X(05) VALUE SPACES.DTSBR615 00161 10 XRX-ADDRL3 PIC X(40) VALUE SPACES.DTSBR615 00162 01 XEROX-DETAIL-LINE5. DTSBR615 00163 10 FILLER PIC X(05) VALUE SPACES.DTSBR615 00164 10 XRX-ADDRL4 PIC X(40) VALUE SPACES.DTSBR615 00165 01 XEROX-DETAIL-LINE6. DTSBR615 00166 10 FILLER PIC X(05) VALUE SPACES.DTSBR615 00167 10 XRX-ADDRL5 PIC X(40) VALUE SPACES.DTSBR615 00168 01 XEROX-DETAIL-LINE7. DTSBR615 00169 10 FILLER PIC X(25) VALUE SPACES.DTSBR615 00170 10 XRX-EMP-NO PIC 999B999. DTSBR615 00171 10 FILLER PIC X(38) VALUE SPACES.DTSBR615 00172 10 XRX-ASSIGN-NO1 PIC X(02). DTSBR615 00173 10 FILLER PIC X(01) VALUE SPACES.DTSBR615 00174 10 XRX-ASSIGN-NO2 PIC X(05). DTSBR615 00175 01 XEROX-DETAIL-LINE8. DTSBR615 00176 10 FILLER PIC X(29) VALUE SPACES.DTSBR615 00177 10 XRX-FLD-EXAM PIC X(32) VALUE SPACES.DTSBR615 00178 01 XEROX-DETAIL-LINE9. DTSBR615 00179 10 FILLER PIC X(38) VALUE SPACES.DTSBR615 00180 10 XRX-START-YR PIC 9999. DTSBR615 00181 10 FILLER PIC X(22) VALUE SPACES.DTSBR615 00182 10 XRX-END-YR PIC 9999. DTSBR615 00183 10 FILLER PIC X(01) VALUE '.'. DTSBR615 00184 01 XEROX-DETAIL-LINE95. DTSBR615 00185 10 FILLER PIC X(28) VALUE SPACES.DTSBR615 00186 10 XRX-SCHED-DATE PIC X(30) VALUE SPACES.DTSBR615 00187 10 FILLER PIC X(06) VALUE SPACES.DTSBR615 00188 DTSBR615 00189 01 XEROX-DETAIL-LINE97. DTSBR615 00190 10 FILLER PIC X(28) VALUE SPACES.DTSBR615 00191 10 XRX-SCHED-TIME. DTSBR615 00192 15 XRX-TIME-HH PIC X(02) VALUE SPACES.DTSBR615 00193 15 FILLER PIC X(01) VALUE ':'. DTSBR615 00194 15 XRX-TIME-MM PIC X(02) VALUE SPACES.DTSBR615 00195 15 FILLER PIC X(01) VALUE ' '. DTSBR615 00196 15 XRX-TIME-AP PIC X(02) VALUE SPACES.DTSBR615 00197 10 FILLER PIC X(06) VALUE SPACES.DTSBR615 00198 DTSBR615 00199 01 XEROX-DETAIL-LINE96. DTSBR615 00200 10 FILLER PIC X(28) VALUE SPACES.DTSBR615 00201 10 XRX-VISIT PIC X(50) VALUE SPACES.DTSBR615 00202 10 FILLER PIC X(06) VALUE SPACES.DTSBR615 00203 DTSBR615 00204 01 XEROX-DETAIL-LINE10. DTSBR615 00205 10 FILLER PIC X(53) VALUE SPACES.DTSBR615 00206 10 XRX-FLD-REP PIC X(32) VALUE SPACES.DTSBR615 00207 01 XEROX-DETAIL-LINE11. DTSBR615 00208 10 FILLER PIC X(53) VALUE SPACES.DTSBR615 00209 10 XRX-FLD-REP-AREA PIC X(03) VALUE SPACES.DTSBR615 00210 10 FILLER PIC X(01) VALUE '.'. DTSBR615 00211 10 XRX-FLD-REP-DIST PIC X(03) VALUE SPACES.DTSBR615 00212 10 FILLER PIC X(01) VALUE '.'. DTSBR615 00213 10 XRX-FLD-REP-PHONE PIC X(04) VALUE SPACES.DTSBR615 00214 10 FILLER PIC X(09) VALUE SPACES.DTSBR615 00215 DTSBR615 00216 EJECT DTSBR615 00217 LINKAGE SECTION. DTSBR615 00218 DTSBR615 00219 01 LRCM-LINK-AREA. DTSBR615 00220 ++INCLUDE DTSILRCM DTSBR615 00221 EJECT DTSBR615 00222 01 R615-REC. DTSBR615 00223 ++INCLUDE DTSIR615 DTSBR615 00224 EJECT DTSBR615 00225 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR615 00226 R615-REC. DTSBR615 00227 IF FIRST-TIME-IND = 'Y' DTSBR615 00228 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR615 00229 MOVE 'N' TO FIRST-TIME-IND. DTSBR615 00230 DTSBR615 00231 IF LRCM-EOR-88 DTSBR615 00232 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR615 00233 ELSE DTSBR615 00234 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR615 00235 DTSBR615 00236 GOBACK. DTSBR615 00237 EJECT DTSBR615 00238 I1000-INITIATE. DTSBR615 00239 DTSBR615 00240 OPEN OUTPUT PRT-FILE. DTSBR615 00241 MOVE SPACES TO XEROX-REPORT. DTSBR615 00242 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE18 DTSBR615 00243 AFTER ADVANCING TOP-OF-PAGE. DTSBR615 00244 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE19 DTSBR615 00245 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE20. DTSBR615 00246 DTSBR615 00247 DTSBR615 00248 I1000-EXIT. DTSBR615 00249 EXIT. DTSBR615 00250 DTSBR615 00251 P1000-PROCESS. DTSBR615 00252 MOVE LRCM-SYS-8-DATE TO WRK-AUDIT-DATE. DTSBR615 00253 MOVE WRK-AUDIT-YEAR TO WRK-NOTICE-YEAR DTSBR615 00254 MOVE WRK-AUDIT-MM TO WRK-NOTICE-MM DTSBR615 00255 MOVE WRK-AUDIT-DD TO WRK-NOTICE-DD DTSBR615 00256 MOVE WRK-NOTICE-DATE9 TO L002-DATE. DTSBR615 00257 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR615 00258 MOVE L002-LONG-TEXT-AREA TO XRX-DATE. DTSBR615 00259 DTSBR615 00260 MOVE R615-AUDIT-SCHED-DATE TO L002-DATE. DTSBR615 00261 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR615 00262 MOVE L002-LONG-TEXT-AREA TO XRX-SCHED-DATE. DTSBR615 00263 DTSBR615 00264 MOVE R615-AUDIT-SCHED-TIME TO WRK-DISPLAY. DTSBR615 00265 DISPLAY 'TIME ' WRK-DISPLAY. DTSBR615 00266 DTSBR615 00267 MOVE WRK-DISPLAY-HH TO XRX-TIME-HH. DTSBR615 00268 MOVE WRK-DISPLAY-MM TO XRX-TIME-MM. DTSBR615 00269 IF XRX-TIME-HH < '12' DTSBR615 00270 MOVE 'AM' TO XRX-TIME-AP DTSBR615 00271 ELSE DTSBR615 00272 MOVE 'PM' TO XRX-TIME-AP. DTSBR615 00273 DTSBR615 00274 MOVE R615-AUDIT-START-YRQ TO WRK-AUDIT-YRQ. DTSBR615 00275 MOVE WRK-AUDIT-YR TO XRX-START-YR. DTSBR615 00276 DTSBR615 00277 MOVE R615-AUDIT-END-YRQ TO WRK-AUDIT-YRQ. DTSBR615 00278 MOVE WRK-AUDIT-YR TO XRX-END-YR. DTSBR615 00279 MOVE R615-ASSIGN-NO TO WRK-DISPLAY. DTSBR615 00280 MOVE WRK-ASSIGN1 TO XRX-ASSIGN-NO1. DTSBR615 00281 MOVE WRK-ASSIGN2 TO XRX-ASSIGN-NO2. DTSBR615 00282 MOVE R615-FMT-LINE (1) TO XRX-ADDRL1. DTSBR615 00283 MOVE R615-FMT-LINE (2) TO XRX-ADDRL2. DTSBR615 00284 MOVE R615-FMT-LINE (3) TO XRX-ADDRL3. DTSBR615 00285 MOVE R615-FMT-LINE (4) TO XRX-ADDRL4. DTSBR615 00286 MOVE R615-FMT-LINE (5) TO XRX-ADDRL5. DTSBR615 00287 DTSBR615 00288 STRING DTSBR615 00289 R615-FMT-LINE(4) DELIMITED BY ' ' DTSBR615 00290 ', ' DELIMITED BY SIZE DTSBR615 00291 R615-FMT-LINE(5) DELIMITED BY ' ' DTSBR615 00292 '.' DELIMITED BY SIZE DTSBR615 00293 INTO XRX-VISIT. DTSBR615 00294 DTSBR615 00295 MOVE R615-EMP-NO TO XRX-EMP-NO. DTSBR615 00296 MOVE R615-FIELD-REP-ID TO L062-FLD-REP-ID. DTSBR615 00297 PERFORM S062-FLD-REP-LOOKUP THRU S062-EXIT. DTSBR615 00298 DTSBR615 00299 MOVE L062-NAME TO L071-NAM DTSBR615 00300 SET L071-FROM-LAST-NAME-FIRST TO TRUE DTSBR615 00301 PERFORM S071-DESLASH-NAME THRU S071-EXIT DTSBR615 00302 MOVE L071-NAM TO XRX-FLD-REP DTSBR615 00303 XRX-FLD-EXAM. DTSBR615 00304 MOVE L062-VOICE-1-AREA-CD TO XRX-FLD-REP-AREA DTSBR615 00305 MOVE L062-VOICE-1-PREFIX TO XRX-FLD-REP-DIST DTSBR615 00306 MOVE L062-VOICE-1-SUFFIX TO XRX-FLD-REP-PHONE. DTSBR615 00307 DTSBR615 00308 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR615 00309 AFTER ADVANCING TOP-OF-PAGE DTSBR615 00310 WRITE XEROX-REPORT DTSBR615 00311 FROM VSCA-LINE AFTER ADVANCING 06. DTSBR615 00312 DTSBR615 00313 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE1 DTSBR615 00314 AFTER ADVANCING 7 LINE DTSBR615 00315 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE2 DTSBR615 00316 AFTER ADVANCING 1 LINE DTSBR615 00317 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE3 DTSBR615 00318 AFTER ADVANCING 1 LINE DTSBR615 00319 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE4 DTSBR615 00320 AFTER ADVANCING 1 LINE DTSBR615 00321 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE5 DTSBR615 00322 AFTER ADVANCING 1 LINE DTSBR615 00323 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE6 DTSBR615 00324 AFTER ADVANCING 1 LINE DTSBR615 00325 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE7 DTSBR615 00326 AFTER ADVANCING 3 LINE DTSBR615 00327 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE8 DTSBR615 00328 AFTER ADVANCING 8 LINE DTSBR615 00329 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE9 DTSBR615 00330 AFTER ADVANCING 1 LINE DTSBR615 00331 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE95 DTSBR615 00332 AFTER ADVANCING 1 LINE DTSBR615 00333 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE97 DTSBR615 00334 AFTER ADVANCING 1 LINE DTSBR615 00335 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE96 DTSBR615 00336 AFTER ADVANCING 1 LINE DTSBR615 00337 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE10 DTSBR615 00338 AFTER ADVANCING 22 LINE DTSBR615 00339 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE11 DTSBR615 00340 AFTER ADVANCING 2 LINE. DTSBR615 00341 DTSBR615 00342 P1000-EXIT. DTSBR615 00343 EXIT. DTSBR615 00344 DTSBR615 00345 T1000-TERMINATE. DTSBR615 00346 DTSBR615 00347 CLOSE PRT-FILE. DTSBR615 00348 DTSBR615 00349 T1000-EXIT. DTSBR615 00350 EXIT. DTSBR615 00351 DTSBR615 00352 S001-FROM-FED-8. DTSBR615 00353 DTSBR615 00354 SET L001-FROM-FED-8 TO TRUE. DTSBR615 00355 DTSBR615 00356 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR615 00357 DTSBR615 00358 S001-EXIT. DTSBR615 00359 EXIT. DTSBR615 00360 S002-MIXED-CASE. DTSBR615 00361 SET L002-UPPER-CASE TO TRUE. DTSBR615 00362 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR615 00363 S002-EXIT. DTSBR615 00364 EXIT. DTSBR615 00365 SKIP3 DTSBR615 00366 S004-AUDIT-YRQ. DTSBR615 00367 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR615 00368 S004-EXIT. DTSBR615 00369 EXIT. DTSBR615 00370 SKIP3 DTSBR615 00371 DTSBR615 00372 S062-FLD-REP-LOOKUP. DTSBR615 00373 DTSBR615 00374 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBR615 00375 DTSBR615 00376 S062-EXIT. DTSBR615 00377 EXIT. DTSBR615 00378 DTSBR615 00379 S071-DESLASH-NAME. DTSBR615 00380 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR615 00381 S071-EXIT. DTSBR615 00382 EXIT. DTSBR615 00383 SKIP3 DTSBR615 00384 DTSBR615 00385 DTSBR615 00386 S999-ABEND. DTSBR615 00387 DTSBR615 00388 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR615 00389 DTSBR615 00390 S999-EXIT. DTSBR615 00391 EXIT. DTSBR615 00392 DTSBR615