00001 IDENTIFICATION DIVISION. 08/30/12 00002 PROGRAM-ID. DTSBR116. DTSBR116 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV032 00004 MODIFIED BY TRW/BDM OCT 1998. DTSBR116 00005 DATE-WRITTEN. AUGUST 1998. DTSBR116 00006 DATE-COMPILED. DTSBR116 00007 DTSBR116 00008 ***** DTSBR116 00009 * DTSBR116 00010 * FUNCTION: NEW, REACTIVATED, INACTIVATED EMPLOYERS LIST. DTSBR116 00011 * DTSBR116 00012 * DTSBR116 00013 * MODIFICATION HISTORY: DTSBR116 00014 * DTSBR116 00015 * 09-24-94 INITIAL DEVELOPMENT DTSBR116 00016 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR116 00017 * DTSBR116 00018 * 12-0D-97 PRINT TWO COPIES OF REPORT. TO FACILITATE DTSBR116 00019 * DISTRIBUTION OF REPORT (ONE COPY TO DLI AND ONE COPY DTSBR116 00020 * TO DOR), TWO FILE NAMES ARE USED. DTSBR116 00021 * REFERENCE RFP #NONE AUTHOR OF CHANGE - EHH DTSBR116 00022 * DTSBR116 00023 * 07-27-12 CHANGE TOTAL COUNTERS FROM 9(3) TO 9(5) DTSBR116 00024 * REFERENCE RFP #NONE AUTHOR OF CHANGE - ZL1 DTSBR116 00025 * DTSBR116 00026 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR116 00027 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR116 00028 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR116 00029 * DTSBR116 00030 * DTSBR116 00031 * DESCRIPTION: DTSBR116 00032 * DTSBR116 00033 * THIS MODULE LISTS ALL EMPLOYERS FOR WHOM AN INITIAL SPAN DTSBR116 00034 * OF LIABILITY WAS ENTERED, AN ADDITIONAL SPAN OF DTSBR116 00035 * LIABILITY WAS ENTERED, AN INACTIVATION DATE WAS ENTERED, DTSBR116 00036 * OR AND INACTIVATION DATE WAS REMOVED. DTSBR116 00037 * DTSBR116 00038 * DTSBR116 00039 * RECORDS READ: DTSBR116 00040 * DTSBR116 00041 * NONE. DTSBR116 00042 * DTSBR116 00043 * DTSBR116 00044 * PRINTED OUTPUTS: DTSBR116 00045 * DTSBR116 00046 * 116R1 NEW, REACTIVATED, INACTIVATED EMPLOYERS LIST DTSBR116 00047 * DTSBR116 00048 * DTSBR116 00049 * RECORDS WRITTEN: DTSBR116 00050 * DTSBR116 00051 * NONE. DTSBR116 00052 * DTSBR116 00053 * DTSBR116 00054 * MODULES CALLED: DTSBR116 00055 * DTSBR116 00056 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR116 00057 * DTSBR116 00058 * DTSBR116 00059 ***** DTSBR116 00060 EJECT DTSBR116 00061 ENVIRONMENT DIVISION. DTSBR116 00062 DTSBR116 00063 CONFIGURATION SECTION. DTSBR116 00064 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR116 00065 DTSBR116 00066 INPUT-OUTPUT SECTION. DTSBR116 00067 DTSBR116 00068 FILE-CONTROL. DTSBR116 00069 SELECT PRT-FILE1 ASSIGN TO RPT116R1. DTSBR116 00070 *** SELECT PRT-FILE2 ASSIGN TO RPT116R2. DTSBR116 00071 DTSBR116 00072 DATA DIVISION. DTSBR116 00073 DTSBR116 00074 FILE SECTION. DTSBR116 00075 DTSBR116 00076 FD PRT-FILE1 DTSBR116 00077 RECORDING MODE IS F. DTSBR116 00078 01 PRT-RECORD PIC X(133). DTSBR116 00079 DTSBR116 00080 EJECT DTSBR116 00081 WORKING-STORAGE SECTION. DTSBR116 000815 77 PAN-VALET PICTURE X(24) VALUE '032DTSBR116 08/30/12'. DTSBR116 00082 DTSBR116 00083 01 WRK-AREA. DTSBR116 00084 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +116.DTSBR116 00085 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR116 00086 DTSBR116 00087 05 WS-FOOT-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. DTSBR116 00088 05 WS-SUM-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. DTSBR116 00089 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR116 00090 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR116 00091 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR116 00092 DTSBR116 00093 05 WS-CATEGORY-HOLD PIC X(01). DTSBR116 00094 88 WS-HOLD-NEW-88 VALUE '1'. DTSBR116 00095 88 WS-HOLD-REACT-88 VALUE '2'. DTSBR116 00096 88 WS-HOLD-INACT-88 VALUE '3'. DTSBR116 00097 DTSBR116 00098 05 WS-COLUMN-HEADING3. DTSBR116 00099 10 FILLER PIC X(40) DTSBR116 00100 VALUE 'EMP NO PRIMARY NAME '. DTSBR116 00101 10 FILLER PIC X(40) DTSBR116 00102 VALUE ' LIABILITY DATE IN'. DTSBR116 00103 10 FILLER PIC X(40) DTSBR116 00104 VALUE 'ACTIVE DATE NUMBER OF CLA'. DTSBR116 00105 10 FILLER PIC X(05) DTSBR116 00106 VALUE 'SS '. DTSBR116 00107 05 WS-COLUMN-HEADING4. DTSBR116 00108 10 FILLER PIC X(97) VALUE SPACES. DTSBR116 00109 10 FILLER PIC X(09) DTSBR116 00110 VALUE 'DELQ RPTS'. DTSBR116 00111 10 FILLER PIC X(19) VALUE SPACES. DTSBR116 00112 EJECT DTSBR116 00113 01 L001-LINK-AREA. DTSBR116 00114 ++INCLUDE DTSIL001 DTSBR116 00115 EJECT DTSBR116 00116 01 HEADER-1. DTSBR116 00117 05 FILLER PIC X(01) VALUE SPACE. DTSBR116 00118 05 FILLER PIC X(05) DTSBR116 00119 VALUE '116R1'. DTSBR116 00120 05 FILLER PIC X(34) VALUE SPACES. DTSBR116 00121 05 WS-AGY-NAME-LINE1 PIC X(50) VALUE SPACES. DTSBR116 00122 05 FILLER PIC X(28) VALUE SPACES. DTSBR116 00123 05 FILLER PIC X(05) DTSBR116 00124 VALUE 'DATE:'. DTSBR116 00125 05 FILLER PIC X(01) VALUE SPACE. DTSBR116 00126 05 WS-SYS-DATE PIC X(08) VALUE SPACES. DTSBR116 00127 01 HEADER-2. DTSBR116 00128 05 FILLER PIC X(01) VALUE SPACE. DTSBR116 00129 05 FILLER PIC X(39) VALUE SPACES. DTSBR116 00130 05 WS-AGY-NAME-LINE2 PIC X(50) VALUE SPACES. DTSBR116 00131 05 FILLER PIC X(28) VALUE SPACES. DTSBR116 00132 05 FILLER PIC X(05) DTSBR116 00133 VALUE 'TIME:'. DTSBR116 00134 05 FILLER PIC X(01) VALUE SPACE. DTSBR116 00135 05 WS-SYS-TIME PIC X(08) VALUE SPACES. DTSBR116 00136 01 HEADER-3. DTSBR116 00137 05 FILLER PIC X(01) VALUE SPACE. DTSBR116 00138 05 FILLER PIC X(42) DTSBR116 00139 VALUE 'ROUTE TO: REGISTRATION AND RATES'. DTSBR116 00140 05 FILLER PIC X(02) VALUE SPACES. DTSBR116 00141 05 FILLER PIC X(39) DTSBR116 00142 VALUE 'NEW, REACTIVATED, INACTIVATED EMPLOYERS'. DTSBR116 00143 05 FILLER PIC X(05) DTSBR116 00144 VALUE ' LIST'. DTSBR116 00145 05 FILLER PIC X(29) VALUE SPACES. DTSBR116 00146 05 FILLER PIC X(05) DTSBR116 00147 VALUE 'PAGE:'. DTSBR116 00148 05 FILLER PIC X(03) VALUE SPACES. DTSBR116 00149 05 HDR3-PAGE-CNT PIC ZZ,ZZ9. DTSBR116 00150 01 HEADER-4. DTSBR116 00151 05 FILLER PIC X(10) VALUE SPACES. DTSBR116 00152 05 FILLER PIC X(20) DTSBR116 00153 VALUE ' EMPLOYER SERVICES '. DTSBR116 00154 01 HEADER-5. DTSBR116 00155 05 FILLER PIC X(10) VALUE SPACES. DTSBR116 00156 05 FILLER PIC X(20) DTSBR116 00157 VALUE ' LMI '. DTSBR116 00158 01 HEADER-6. DTSBR116 00159 05 FILLER PIC X(56) VALUE SPACES. DTSBR116 00160 05 WS-REPORT-TITLE PIC X(21) VALUE SPACES. DTSBR116 00161 01 HEADER-7 PIC X(133) VALUE SPACES. DTSBR116 00162 01 HEADER-8 PIC X(133) VALUE SPACES. DTSBR116 00163 01 HEADER-9. DTSBR116 00164 05 FILLER PIC X(01) VALUE SPACE. DTSBR116 00165 05 WS-COLUMN-HEADING1 PIC X(125) VALUE SPACES. DTSBR116 00166 01 HEADER-10. DTSBR116 00167 05 FILLER PIC X(01) VALUE SPACE. DTSBR116 00168 05 WS-COLUMN-HEADING2 PIC X(125) VALUE SPACES. DTSBR116 00169 DTSBR116 00170 01 DETAIL-LINE-2. DTSBR116 00171 05 FILLER PIC X(01) VALUE SPACE. DTSBR116 00172 05 WS-EMP-NO PIC 999B999. DTSBR116 00173 05 FILLER PIC X(03) VALUE SPACES. DTSBR116 00174 05 WS-PRIMARY-NAME PIC X(40) VALUE SPACES. DTSBR116 00175 05 FILLER PIC X(07) VALUE SPACES. DTSBR116 00176 05 WS-LIAB-DATE PIC X(10) VALUE SPACES. DTSBR116 00177 05 FILLER PIC X(13) VALUE SPACES. DTSBR116 00178 05 WS-INACT-DATE PIC X(10) VALUE SPACES. DTSBR116 00179 05 FILLER PIC X(11) VALUE SPACES. DTSBR116 00180 05 WS-NUM-DELQ-RPTS PIC ZZZ. DTSBR116 00181 05 FILLER PIC X(13) VALUE SPACES. DTSBR116 00182 05 WS-EMP-CLASS PIC X(12) VALUE SPACES. DTSBR116 00183 DTSBR116 00184 01 FOOTING-LINE-5. DTSBR116 00185 05 FILLER PIC X(50) VALUE SPACES. DTSBR116 00186 05 FOOT-NUMBER-ONE PIC ZZ,ZZ9. DTSBR116 00187 05 FILLER PIC X(01) VALUE SPACES. DTSBR116 00188 05 FILLER PIC X(09) DTSBR116 00189 VALUE 'ACCOUNTS '. DTSBR116 00190 05 WS-REPORT-FOOTING PIC X(11) VALUE SPACES. DTSBR116 00191 DTSBR116 00192 01 SUM-LINE-3. DTSBR116 00193 05 FILLER PIC X(50) VALUE SPACES. DTSBR116 00194 05 SUM-NUMBER-ONE PIC ZZ,ZZ9. DTSBR116 00195 05 FILLER PIC X(01) VALUE SPACES. DTSBR116 00196 05 FILLER PIC X(40) DTSBR116 00197 VALUE 'ACCOUNTS SET UP, REACTIVATED, OR INACTIV'. DTSBR116 00198 05 FILLER PIC X(04) DTSBR116 00199 VALUE 'ATED'. DTSBR116 00200 01 SUM-LINE-6. DTSBR116 00201 05 FILLER PIC X(25) VALUE SPACES. DTSBR116 00202 05 FILLER PIC X(17) DTSBR116 00203 VALUE '*** END OF REPORT'. DTSBR116 00204 EJECT DTSBR116 00205 LINKAGE SECTION. DTSBR116 00206 DTSBR116 00207 01 LRCM-LINK-AREA. DTSBR116 00208 ++INCLUDE DTSILRCM DTSBR116 00209 EJECT DTSBR116 00210 01 R116-REC. DTSBR116 00211 ++INCLUDE DTSIR116 DTSBR116 00212 EJECT DTSBR116 00213 EJECT DTSBR116 00214 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR116 00215 R116-REC. DTSBR116 00216 DTSBR116 00217 IF FIRST-TIME-IND = 'Y' DTSBR116 00218 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR116 00219 MOVE 'N' TO FIRST-TIME-IND. DTSBR116 00220 DTSBR116 00221 IF LRCM-EOR-88 DTSBR116 00222 PERFORM P1010-SET-FOOTING THRU P1010-EXIT DTSBR116 00223 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR116 00224 ELSE DTSBR116 00225 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR116 00226 DTSBR116 00227 GOBACK. DTSBR116 00228 EJECT DTSBR116 00229 I1000-INITIATE. DTSBR116 00230 PERFORM P1020-SET-HEADINGS THRU P1020-EXIT. DTSBR116 00231 MOVE R116-CATEGORY TO WS-CATEGORY-HOLD. DTSBR116 00232 OPEN OUTPUT PRT-FILE1. DTSBR116 00233 MOVE LRCM-SYS-DATE TO WS-SYS-DATE. DTSBR116 00234 MOVE LRCM-SYS-TIME TO WS-SYS-TIME. DTSBR116 00235 MOVE LRCM-AGY-NAME-LINE1 TO WS-AGY-NAME-LINE1. DTSBR116 00236 MOVE LRCM-AGY-NAME-LINE2 TO WS-AGY-NAME-LINE2. DTSBR116 00237 MOVE SPACES TO PRT-RECORD. DTSBR116 00238 DTSBR116 00239 I1000-EXIT. DTSBR116 00240 EXIT. DTSBR116 00241 EJECT DTSBR116 00242 P1000-PROCESS. DTSBR116 00243 DTSBR116 00244 IF R116-EMP-CLASS = 'C' DTSBR116 00245 GO TO P1000-EXIT. DTSBR116 00246 DTSBR116 00247 IF R116-CATEGORY = WS-CATEGORY-HOLD DTSBR116 00248 NEXT SENTENCE DTSBR116 00249 ELSE DTSBR116 00250 PERFORM P1010-SET-FOOTING THRU P1010-EXIT DTSBR116 00251 MOVE R116-CATEGORY TO WS-CATEGORY-HOLD DTSBR116 00252 PERFORM P3000-PRINT-FOOTER THRU P3000-EXIT DTSBR116 00253 MOVE +60 TO WS-LINE-CNT2 DTSBR116 00254 PERFORM P1020-SET-HEADINGS THRU P1020-EXIT. DTSBR116 00255 DTSBR116 00256 EVALUATE TRUE DTSBR116 00257 WHEN R116-NEW-88 DTSBR116 00258 MOVE R116-NEW-EMP-NO TO WS-EMP-NO DTSBR116 00259 MOVE R116-NEW-LIAB-DATE TO L001-FED-8-DATE-9 DTSBR116 00260 WHEN R116-REACT-88 DTSBR116 00261 MOVE R116-REACT-EMP-NO TO WS-EMP-NO DTSBR116 00262 MOVE R116-REACT-LIAB-DATE TO L001-FED-8-DATE-9 DTSBR116 00263 WHEN R116-INACT-88 DTSBR116 00264 MOVE R116-INACT-EMP-NO TO WS-EMP-NO DTSBR116 00265 MOVE R116-INACT-LIAB-DATE TO L001-FED-8-DATE-9 DTSBR116 00266 END-EVALUATE. DTSBR116 00267 SET L001-FROM-FED-8 TO TRUE. DTSBR116 00268 PERFORM S001-DATE THRU S001-EXIT. DTSBR116 00269 MOVE L001-SLASH-8-DATE TO WS-LIAB-DATE. DTSBR116 00270 DTSBR116 00271 IF R116-INACT-DATE = 999999999 DTSBR116 00272 MOVE SPACES TO WS-INACT-DATE DTSBR116 00273 ELSE DTSBR116 00274 MOVE R116-INACT-DATE TO L001-FED-8-DATE-9 DTSBR116 00275 SET L001-FROM-FED-8 TO TRUE DTSBR116 00276 PERFORM S001-DATE THRU S001-EXIT DTSBR116 00277 MOVE L001-SLASH-8-DATE TO WS-INACT-DATE. DTSBR116 00278 DTSBR116 00279 EVALUATE TRUE DTSBR116 00280 WHEN R116-CLASS-RATED-88 DTSBR116 00281 MOVE 'RATED ' TO WS-EMP-CLASS DTSBR116 00282 WHEN R116-CLASS-SELF-INS-88 DTSBR116 00283 MOVE 'SELF INSURED' TO WS-EMP-CLASS DTSBR116 00284 WHEN OTHER DTSBR116 00285 MOVE 'UNKNOWN' TO WS-EMP-CLASS DTSBR116 00286 END-EVALUATE. DTSBR116 00287 DTSBR116 00288 MOVE R116-PRIMARY-NAME TO WS-PRIMARY-NAME. DTSBR116 00289 MOVE R116-NUM-DELQ-RPTS TO WS-NUM-DELQ-RPTS. DTSBR116 00290 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR116 00291 WRITE PRT-RECORD FROM DETAIL-LINE-2 AFTER 2. DTSBR116 00292 ADD +2 TO WS-LINE-CNT2. DTSBR116 00293 ADD +1 TO WS-FOOT-NUMBER-ONE. DTSBR116 00294 ADD +1 TO WS-SUM-NUMBER-ONE. DTSBR116 00295 DTSBR116 00296 P1000-EXIT. DTSBR116 00297 EXIT. DTSBR116 00298 EJECT DTSBR116 00299 P1010-SET-FOOTING. DTSBR116 00300 DTSBR116 00301 EVALUATE TRUE DTSBR116 00302 WHEN WS-HOLD-NEW-88 DTSBR116 00303 MOVE 'SET UP ' TO WS-REPORT-FOOTING DTSBR116 00304 WHEN WS-HOLD-REACT-88 DTSBR116 00305 MOVE 'REACTIVATED' TO WS-REPORT-FOOTING DTSBR116 00306 WHEN WS-HOLD-INACT-88 DTSBR116 00307 MOVE 'INACTIVATED' TO WS-REPORT-FOOTING DTSBR116 00308 END-EVALUATE. DTSBR116 00309 DTSBR116 00310 P1010-EXIT. DTSBR116 00311 EXIT. DTSBR116 00312 DTSBR116 00313 P1020-SET-HEADINGS. DTSBR116 00314 DTSBR116 00315 MOVE WS-COLUMN-HEADING3 TO WS-COLUMN-HEADING1. DTSBR116 00316 MOVE WS-COLUMN-HEADING4 TO WS-COLUMN-HEADING2. DTSBR116 00317 EVALUATE TRUE DTSBR116 00318 WHEN R116-NEW-88 DTSBR116 00319 MOVE ' NEW ACCOUNTS ' TO WS-REPORT-TITLE DTSBR116 00320 WHEN R116-REACT-88 DTSBR116 00321 MOVE 'ACCOUNT REACTIVATIONS' TO WS-REPORT-TITLE DTSBR116 00322 WHEN R116-INACT-88 DTSBR116 00323 MOVE 'ACCOUNT INACTIVATIONS' TO WS-REPORT-TITLE DTSBR116 00324 END-EVALUATE. DTSBR116 00325 DTSBR116 00326 P1020-EXIT. DTSBR116 00327 EXIT. DTSBR116 00328 EJECT DTSBR116 00329 DTSBR116 00330 P2000-PRINT-HEADER. DTSBR116 00331 IF WS-LINE-CNT GREATER 58 OR DTSBR116 00332 WS-LINE-CNT2 GREATER 58 DTSBR116 00333 MOVE +0 TO WS-LINE-CNT DTSBR116 00334 MOVE +0 TO WS-LINE-CNT2 DTSBR116 00335 ADD +1 TO WS-PAGE-CNT DTSBR116 00336 MOVE WS-PAGE-CNT TO HDR3-PAGE-CNT DTSBR116 00337 WRITE PRT-RECORD FROM HEADER-1 AFTER TOP-OF-PAGE DTSBR116 00338 WRITE PRT-RECORD FROM HEADER-2 AFTER 1 DTSBR116 00339 WRITE PRT-RECORD FROM HEADER-3 AFTER 1 DTSBR116 00340 WRITE PRT-RECORD FROM HEADER-4 AFTER 1 DTSBR116 00341 WRITE PRT-RECORD FROM HEADER-5 AFTER 1 DTSBR116 00342 WRITE PRT-RECORD FROM HEADER-6 AFTER 1 DTSBR116 00343 WRITE PRT-RECORD FROM HEADER-7 AFTER 1 DTSBR116 00344 WRITE PRT-RECORD FROM HEADER-8 AFTER 1 DTSBR116 00345 WRITE PRT-RECORD FROM HEADER-9 AFTER 1 DTSBR116 00346 WRITE PRT-RECORD FROM HEADER-10 AFTER 1 DTSBR116 00347 ADD +10 TO WS-LINE-CNT2. DTSBR116 00348 P2000-EXIT. DTSBR116 00349 EXIT. DTSBR116 00350 DTSBR116 00351 P3000-PRINT-FOOTER. DTSBR116 00352 IF WS-LINE-CNT2 > 52 DTSBR116 00353 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR116 00354 END-IF. DTSBR116 00355 DTSBR116 00356 MOVE WS-FOOT-NUMBER-ONE TO FOOT-NUMBER-ONE. DTSBR116 00357 WRITE PRT-RECORD FROM FOOTING-LINE-5 AFTER 5. DTSBR116 00358 DTSBR116 00359 MOVE +0 TO WS-FOOT-NUMBER-ONE. DTSBR116 00360 DTSBR116 00361 P3000-EXIT. DTSBR116 00362 EXIT. DTSBR116 00363 DTSBR116 00364 T1000-TERMINATE. DTSBR116 00365 DTSBR116 00366 IF WS-LINE-CNT2 > 52 DTSBR116 00367 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR116 00368 END-IF. DTSBR116 00369 DTSBR116 00370 MOVE WS-FOOT-NUMBER-ONE TO FOOT-NUMBER-ONE. DTSBR116 00371 WRITE PRT-RECORD FROM FOOTING-LINE-5 AFTER 5. DTSBR116 00372 DTSBR116 00373 MOVE WS-SUM-NUMBER-ONE TO SUM-NUMBER-ONE. DTSBR116 00374 WRITE PRT-RECORD FROM SUM-LINE-3 AFTER 3. DTSBR116 00375 WRITE PRT-RECORD FROM SUM-LINE-6 AFTER 3. DTSBR116 00376 DTSBR116 00377 CLOSE PRT-FILE1. DTSBR116 00378 DTSBR116 00379 T1000-EXIT. DTSBR116 00380 EXIT. DTSBR116 00381 EJECT DTSBR116 00382 S001-DATE. DTSBR116 00383 DTSBR116 00384 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR116 00385 DTSBR116 00386 S001-EXIT. DTSBR116 00387 EXIT. DTSBR116 00388 DTSBR116 00389 S999-ABEND. DTSBR116 00390 DTSBR116 00391 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR116 00392 DTSBR116 00393 S999-EXIT. DTSBR116 00394 EXIT. DTSBR116 00395 DTSBR116