00001 IDENTIFICATION DIVISION. 02/21/01 00002 PROGRAM-ID. DTSBR724. DTSBR724 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV014 00004 DATE-WRITTEN. AUGUST 1994. DTSBR724 00005 DATE-COMPILED. DTSBR724 00006 DTSBR724 00007 ***** DTSBR724 00008 * DTSBR724 00009 * CALLING SEQUENCE: DTSBD300 CALLS DTSBR724 00010 * DTSBD180 WHICH UPDATES DTSIR724 DTSBR724 00011 * DTSBR724 READS DTSIR724 RECORDS. DTSBR724 00012 * DTSBR724 00013 * MODIFICATION HISTORY: DTSBR724 00014 * DTSBR724 00015 * 08-03-94 INITIAL DEVELOPMENT DTSBR724 00016 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR724 00017 * DTSBR724 00018 * 03-30-95 MOVED OPID NAME TO LINE UP UNDER THE CE NUMBER INSTEAD DTSBR724 00019 * OF UNDER THE WORD "DESTINATION". REQUESTED BY USERS. DTSBR724 00020 * REFERENCE RFP #RAP PROGRAMMER: MJA DTSBR724 00021 * DTSBR724 00022 * 10-06-96 ADDED FIELD WS-DAYS-OVERDUE TO USE AS SOURCE FOR THE DTSBR724 00023 * PAGE HEADING. REPORT WRITER BUG ON TERMINATION CAUSED DTSBR724 00024 * OC7 ABEND. DTSBR724 00025 * REFERENCE RFP #PROD RECOVERY PROGRAMMER: SFW DTSBR724 00026 * DTSBR724 00027 * 02-21-97 ADDING L071-NAM TO THE CONTROL FIELDS FOR THE REPORT DTSBR724 00028 * IS A TRICK TO COMPENSATE FOR A REPORT WRITER BUG. DTSBR724 00029 * REFERENCE RFP #PROD RECOVERY PROGRAMMER: SFW DTSBR724 00030 * DTSBR724 00031 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR724 00032 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR724 00033 * REFERENCE RFP #**** PROGRAMMER: XXX DTSBR724 00034 * DTSBR724 00035 * DTSBR724 00036 * DESCRIPTION: DTSBR724 00037 * DTSBR724 00038 * THIS MODULE PRINTS A LIST OF ALL TICKLERS WITH A TRIGGER DTSBR724 00039 * DATE NOT GREATER THAN CURRENT DATE MINUS A DAYS PARM. DTSBR724 00040 * DTSBR724 00041 * DTSBR724 00042 * RECORDS READ: DTSBR724 00043 * DTSBR724 00044 * NONE. DTSBR724 00045 * DTSBR724 00046 * DTSBR724 00047 * PRINTED OUTPUTS: DTSBR724 00048 * DTSBR724 00049 * 724R1 TICKLER TRIGGER OVERDUE LIST DTSBR724 00050 * DTSBR724 00051 * DTSBR724 00052 * RECORDS WRITTEN: DTSBR724 00053 * DTSBR724 00054 * NONE. DTSBR724 00055 * DTSBR724 00056 * DTSBR724 00057 * MODULES CALLED: DTSBR724 00058 * DTSBR724 00059 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR724 00060 * DTSBU037 MISCELLANEOUS CODES EDIT/DESCRIPTION DTSBR724 00061 * DTSBU071 NAME EDIT/LOOKUP MODULE DTSBR724 00062 * DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE DTSBR724 00063 ***** DTSBR724 00064 EJECT DTSBR724 00065 ENVIRONMENT DIVISION. DTSBR724 00066 DTSBR724 00067 CONFIGURATION SECTION. DTSBR724 00068 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR724 00069 DTSBR724 00070 INPUT-OUTPUT SECTION. DTSBR724 00071 DTSBR724 00072 FILE-CONTROL. DTSBR724 00073 SELECT PRT-FILE ASSIGN TO RPT724R1. DTSBR724 00074 DTSBR724 00075 DATA DIVISION. DTSBR724 00076 DTSBR724 00077 FILE SECTION. DTSBR724 00078 DTSBR724 00079 FD PRT-FILE DTSBR724 00080 RECORDING MODE IS F. DTSBR724 00081 01 PRT-RECORD PIC X(133). DTSBR724 00082 DTSBR724 00083 EJECT DTSBR724 00084 WORKING-STORAGE SECTION. DTSBR724 000845 77 PAN-VALET PICTURE X(24) VALUE '014DTSBR724 02/21/01'. DTSBR724 00085 DTSBR724 00086 01 WRK-AREA. DTSBR724 00087 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +724.DTSBR724 00088 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR724 00089 05 FIRST-PAGE-IND PIC X(01) VALUE 'Y'. DTSBR724 00090 DTSBR724 00091 05 WS-BLANK-LINE PIC X(133) VALUE SPACES. DTSBR724 00092 05 WRK-PAGE-TRUNCATE PIC 9(01) VALUE ZERO. DTSBR724 00093 88 WRK-ODD-PAGE-88 VALUE 1 3 5 7 9. DTSBR724 00094 DTSBR724 00095 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR724 00096 05 WS-NUMBER-TWO PIC S9(03) COMP-3 VALUE +0. DTSBR724 00097 05 WS-FOOT-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. DTSBR724 00098 05 WS-FOOT-NUMBER-TWO PIC S9(05) COMP-3 VALUE +0. DTSBR724 00099 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR724 00100 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR724 00101 05 WS-PAGE-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR724 00102 DTSBR724 00103 05 WS-DAYS-OVERDUE PIC 9(03) VALUE ZERO. DTSBR724 00104 05 WS-DEST-OP-ID PIC X(08) VALUE SPACES. DTSBR724 00105 DTSBR724 00106 01 PAGE-HEADING. DTSBR724 00107 05 HDR1-LINE-1. DTSBR724 00108 10 FILLER PIC X(01) VALUE SPACE. DTSBR724 00109 10 FILLER PIC X(05) DTSBR724 00110 VALUE '724R1'. DTSBR724 00111 10 FILLER PIC X(34) VALUE SPACES. DTSBR724 00112 10 HDR1-AGY-NAME-LINE1 PIC X(50) VALUE SPACE. DTSBR724 00113 10 FILLER PIC X(28) VALUE SPACES. DTSBR724 00114 10 FILLER PIC X(05) DTSBR724 00115 VALUE 'DATE:'. DTSBR724 00116 10 FILLER PIC X(01) VALUE SPACE. DTSBR724 00117 10 HDR1-SYS-DATE PIC X(08) VALUE SPACE. DTSBR724 00118 05 HDR1-LINE-2. DTSBR724 00119 10 FILLER PIC X(40) VALUE SPACES. DTSBR724 00120 10 HDR1-AGY-NAME-LINE2 PIC X(50) VALUE SPACE. DTSBR724 00121 10 FILLER PIC X(28) VALUE SPACES. DTSBR724 00122 10 FILLER PIC X(05) DTSBR724 00123 VALUE 'TIME:'. DTSBR724 00124 10 FILLER PIC X(01) VALUE SPACE. DTSBR724 00125 10 HDR1-SYS-TIME PIC X(08) VALUE SPACE. DTSBR724 00126 05 HDR1-LINE-3. DTSBR724 00127 10 FILLER PIC X(01) VALUE SPACE. DTSBR724 00128 10 FILLER PIC X(30) DTSBR724 00129 VALUE 'ROUTE TO: CHIEF, TAX DIVISION '. DTSBR724 00130 10 FILLER PIC X(20) VALUE SPACES. DTSBR724 00131 10 FILLER PIC X(28) DTSBR724 00132 VALUE 'TICKLER TRIGGER OVERDUE LIST'. DTSBR724 00133 10 FILLER PIC X(39) VALUE SPACES. DTSBR724 00134 10 FILLER PIC X(05) DTSBR724 00135 VALUE 'PAGE:'. DTSBR724 00136 10 FILLER PIC X(03) VALUE SPACES. DTSBR724 00137 10 HDR1-PAGE-CNT PIC ZZ,ZZ9. DTSBR724 00138 05 HDR1-LINE-4. DTSBR724 00139 10 FILLER PIC X(01) VALUE SPACE. DTSBR724 00140 10 FILLER PIC X(20) DTSBR724 00141 VALUE 'TICKLER DESTINATION:'. DTSBR724 00142 10 FILLER PIC X(01) VALUE SPACE. DTSBR724 00143 10 HDR1-DEST-OP-ID PIC X(08) VALUE SPACE. DTSBR724 00144 10 FILLER PIC X(27) VALUE SPACES. DTSBR724 00145 10 FILLER PIC X(13) DTSBR724 00146 VALUE 'DAYS OVERDUE:'. DTSBR724 00147 10 HDR1-DAYS-OVERDUE PIC ZZ9. DTSBR724 00148 05 HDR1-LINE-5. DTSBR724 00149 10 FILLER PIC X(22) VALUE SPACES. DTSBR724 00150 10 HDR1-NAM PIC X(32) VALUE SPACE. DTSBR724 00151 05 HDR1-LINE-6 PIC X(133) VALUE SPACES. DTSBR724 00152 05 HDR1-LINE-7 PIC X(133) VALUE SPACES. DTSBR724 00153 05 HDR1-LINE-8. DTSBR724 00154 10 FILLER PIC X(14) VALUE SPACES. DTSBR724 00155 10 FILLER PIC X(07) DTSBR724 00156 VALUE 'TRIGGER'. DTSBR724 00157 10 FILLER PIC X(60) VALUE SPACES. DTSBR724 00158 10 FILLER PIC X(07) DTSBR724 00159 VALUE 'TICKLER'. DTSBR724 00160 05 HDR1-LINE-9. DTSBR724 00161 10 FILLER PIC X(16) VALUE SPACES. DTSBR724 00162 10 FILLER PIC X(04) DTSBR724 00163 VALUE 'DATE'. DTSBR724 00164 10 FILLER PIC X(06) VALUE SPACES. DTSBR724 00165 10 FILLER PIC X(06) DTSBR724 00166 VALUE 'EMP NO'. DTSBR724 00167 10 FILLER PIC X(08) VALUE SPACES. DTSBR724 00168 10 FILLER PIC X(13) DTSBR724 00169 VALUE 'PRIMARY NAME'. DTSBR724 00170 10 FILLER PIC X(30) VALUE SPACES. DTSBR724 00171 10 FILLER PIC X(04) DTSBR724 00172 VALUE 'TYPE'. DTSBR724 00173 05 HDR1-LINE-10 PIC X(133) VALUE SPACES. DTSBR724 00174 DTSBR724 00175 01 DETAIL-LINE. DTSBR724 00176 05 DTL1-LINE-2. DTSBR724 00177 10 FILLER PIC X(12) VALUE SPACES. DTSBR724 00178 10 DTL1-SLASH-8-DATE PIC X(10) VALUE SPACE. DTSBR724 00179 10 FILLER PIC X(04) VALUE SPACES. DTSBR724 00180 10 DTL1-EMP-NO PIC 999B999. DTSBR724 00181 10 FILLER PIC X(05) VALUE SPACES. DTSBR724 00182 10 DTL1-PRIMARY-NAME PIC X(40) VALUE SPACE. DTSBR724 00183 10 FILLER PIC X(05) VALUE SPACES. DTSBR724 00184 10 DTL1-TYPE PIC X(03) VALUE SPACE. DTSBR724 00185 10 FILLER PIC X(02) VALUE SPACES. DTSBR724 00186 10 DTL1-SHORT-DSCR PIC X(10) VALUE SPACE. DTSBR724 00187 DTSBR724 00188 01 CONTROL-FOOTING. DTSBR724 00189 05 CTF-LINE-3. DTSBR724 00190 10 FILLER PIC X(15) VALUE SPACES. DTSBR724 00191 10 FILLER PIC X(22) DTSBR724 00192 VALUE '*** END OF DESTINATION'. DTSBR724 00193 DTSBR724 00194 01 CONTROL-FOOTING-FINAL. DTSBR724 00195 05 CFF-LINE-3. DTSBR724 00196 10 FILLER PIC X(15) VALUE SPACES. DTSBR724 00197 10 FILLER PIC X(17) DTSBR724 00198 VALUE '*** END OF REPORT'. DTSBR724 00199 EJECT DTSBR724 00200 01 L001-LINK-AREA. DTSBR724 00201 ++INCLUDE DTSIL001 DTSBR724 00202 EJECT DTSBR724 00203 01 L037-LINK-AREA. DTSBR724 00204 ++INCLUDE DTSIL037 DTSBR724 00205 EJECT DTSBR724 00206 01 L071-LINK-AREA. DTSBR724 00207 ++INCLUDE DTSIL071 DTSBR724 00208 EJECT DTSBR724 00209 01 L082-LINK-AREA. DTSBR724 00210 ++INCLUDE DTSIL082 DTSBR724 00211 EJECT DTSBR724 00212 LINKAGE SECTION. DTSBR724 00213 DTSBR724 00214 01 LRCM-LINK-AREA. DTSBR724 00215 ++INCLUDE DTSILRCM DTSBR724 00216 EJECT DTSBR724 00217 01 R724-REC. DTSBR724 00218 ++INCLUDE DTSIR724 DTSBR724 00219 EJECT DTSBR724 00220 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR724 00221 R724-REC. DTSBR724 00222 DTSBR724 00223 IF FIRST-TIME-IND = 'Y' DTSBR724 00224 PERFORM I1000-INITIATE DTSBR724 00225 THRU I1000-EXIT DTSBR724 00226 MOVE 'N' TO FIRST-TIME-IND. DTSBR724 00227 DTSBR724 00228 IF LRCM-EOR-88 DTSBR724 00229 PERFORM T1000-TERMINATE DTSBR724 00230 THRU T1000-EXIT DTSBR724 00231 ELSE DTSBR724 00232 PERFORM P1000-PROCESS DTSBR724 00233 THRU P1000-EXIT. DTSBR724 00234 DTSBR724 00235 GOBACK. DTSBR724 00236 EJECT DTSBR724 00237 I1000-INITIATE. DTSBR724 00238 DTSBR724 00239 OPEN OUTPUT PRT-FILE. DTSBR724 00240 MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE. DTSBR724 00241 MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME. DTSBR724 00242 MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1. DTSBR724 00243 MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2. DTSBR724 00244 MOVE SPACES TO PRT-RECORD. DTSBR724 00245 DTSBR724 00246 I1000-EXIT. DTSBR724 00247 EXIT. DTSBR724 00248 EJECT DTSBR724 00249 P1000-PROCESS. DTSBR724 00250 * DTSBR724 00251 IF R724-DEST-OP-ID NOT = WS-DEST-OP-ID DTSBR724 00252 MOVE R724-DEST-OP-ID TO WS-DEST-OP-ID DTSBR724 00253 IF WS-NUMBER-ONE = +0 DTSBR724 00254 MOVE +99 TO WS-NUMBER-ONE DTSBR724 00255 ELSE DTSBR724 00256 PERFORM P3000-PRINT-FOOTER THRU P3000-EXIT DTSBR724 00257 MOVE +0 TO WS-PAGE-CNT DTSBR724 00258 MOVE +60 TO WS-LINE-CNT2 DTSBR724 00259 END-IF DTSBR724 00260 END-IF. DTSBR724 00261 DTSBR724 00262 * DTSBR724 00263 PERFORM P1010-SETUP-OP-NAME DTSBR724 00264 THRU P1010-EXIT. DTSBR724 00265 DTSBR724 00266 PERFORM P1020-SETUP-TRIGGER-DATE DTSBR724 00267 THRU P1020-EXIT. DTSBR724 00268 DTSBR724 00269 PERFORM P1030-SETUP-TYPE-DESCRIP DTSBR724 00270 THRU P1030-EXIT. DTSBR724 00271 DTSBR724 00272 MOVE R724-DAYS-OVERDUE TO WS-DAYS-OVERDUE. DTSBR724 00273 MOVE WS-DAYS-OVERDUE TO HDR1-DAYS-OVERDUE. DTSBR724 00274 MOVE R724-DEST-OP-ID TO HDR1-DEST-OP-ID. DTSBR724 00275 MOVE R724-EMP-NO TO DTL1-EMP-NO. DTSBR724 00276 MOVE R724-PRIMARY-NAME TO DTL1-PRIMARY-NAME. DTSBR724 00277 MOVE R724-TYPE TO DTL1-TYPE. DTSBR724 00278 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR724 00279 WRITE PRT-RECORD FROM DTL1-LINE-2 AFTER 2. DTSBR724 00280 ADD +2 TO WS-LINE-CNT2. DTSBR724 00281 DTSBR724 00282 P1000-EXIT. DTSBR724 00283 EXIT. DTSBR724 00284 EJECT DTSBR724 00285 P1010-SETUP-OP-NAME. DTSBR724 00286 MOVE R724-DEST-OP-ID TO L082-OP-ID. DTSBR724 00287 DTSBR724 00288 PERFORM S082-GET-DEST-OP-ID DTSBR724 00289 THRU S082-EXIT. DTSBR724 00290 DTSBR724 00291 MOVE L082-NAME TO L071-NAM. DTSBR724 00292 MOVE L082-NAME TO HDR1-NAM. DTSBR724 00293 MOVE 2 TO L071-NAME-FORMAT. DTSBR724 00294 DTSBR724 00295 PERFORM S071-DESLASH-NAME DTSBR724 00296 THRU S071-EXIT. DTSBR724 00297 DTSBR724 00298 P1010-EXIT. DTSBR724 00299 EXIT. DTSBR724 00300 DTSBR724 00301 P1020-SETUP-TRIGGER-DATE. DTSBR724 00302 DTSBR724 00303 SET L001-FROM-FED-8 TO TRUE. DTSBR724 00304 MOVE R724-TRIGGER-DATE TO L001-FED-8-DATE-9. DTSBR724 00305 DTSBR724 00306 PERFORM S001-SET-SLASHED-DATE DTSBR724 00307 THRU S001-EXIT. DTSBR724 00308 MOVE L001-SLASH-8-DATE TO DTL1-SLASH-8-DATE. DTSBR724 00309 DTSBR724 00310 P1020-EXIT. DTSBR724 00311 EXIT. DTSBR724 00312 DTSBR724 00313 P1030-SETUP-TYPE-DESCRIP. DTSBR724 00314 DTSBR724 00315 SET L037-MTCK-TYPE TO TRUE. DTSBR724 00316 MOVE R724-TYPE TO L037-CD. DTSBR724 00317 DTSBR724 00318 PERFORM S037-GET-DESCRIP DTSBR724 00319 THRU S037-EXIT. DTSBR724 00320 DTSBR724 00321 MOVE L037-SHORT-DSCR TO DTL1-SHORT-DSCR. DTSBR724 00322 DTSBR724 00323 P1030-EXIT. DTSBR724 00324 EXIT. DTSBR724 00325 DTSBR724 00326 P2000-PRINT-HEADER. DTSBR724 00327 IF WS-LINE-CNT GREATER 56 OR DTSBR724 00328 WS-LINE-CNT2 GREATER 56 DTSBR724 00329 MOVE +0 TO WS-LINE-CNT DTSBR724 00330 MOVE +0 TO WS-LINE-CNT2 DTSBR724 00331 ADD +1 TO WS-PAGE-CNT DTSBR724 00332 MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT DTSBR724 00333 WRITE PRT-RECORD FROM HDR1-LINE-1 AFTER TOP-OF-PAGE DTSBR724 00334 WRITE PRT-RECORD FROM HDR1-LINE-2 AFTER 1 DTSBR724 00335 WRITE PRT-RECORD FROM HDR1-LINE-3 AFTER 1 DTSBR724 00336 WRITE PRT-RECORD FROM HDR1-LINE-4 AFTER 1 DTSBR724 00337 WRITE PRT-RECORD FROM HDR1-LINE-5 AFTER 1 DTSBR724 00338 WRITE PRT-RECORD FROM HDR1-LINE-6 AFTER 1 DTSBR724 00339 WRITE PRT-RECORD FROM HDR1-LINE-7 AFTER 1 DTSBR724 00340 WRITE PRT-RECORD FROM HDR1-LINE-8 AFTER 1 DTSBR724 00341 WRITE PRT-RECORD FROM HDR1-LINE-9 AFTER 1 DTSBR724 00342 WRITE PRT-RECORD FROM HDR1-LINE-10 AFTER 1 DTSBR724 00343 ADD +10 TO WS-LINE-CNT2. DTSBR724 00344 P2000-EXIT. DTSBR724 00345 EXIT. DTSBR724 00346 DTSBR724 00347 P3000-PRINT-FOOTER. DTSBR724 00348 IF WS-LINE-CNT2 > 52 DTSBR724 00349 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR724 00350 END-IF. DTSBR724 00351 DTSBR724 00352 WRITE PRT-RECORD FROM CTF-LINE-3 AFTER 3. DTSBR724 00353 DTSBR724 00354 MOVE WS-PAGE-CNT TO WRK-PAGE-TRUNCATE. DTSBR724 00355 IF WRK-ODD-PAGE-88 DTSBR724 00356 WRITE PRT-RECORD FROM WS-BLANK-LINE DTSBR724 00357 AFTER TOP-OF-PAGE DTSBR724 00358 WRITE PRT-RECORD FROM WS-BLANK-LINE AFTER 58 DTSBR724 00359 ADD +60 TO WS-LINE-CNT2 DTSBR724 00360 MOVE +0 TO WS-PAGE-CNT DTSBR724 00361 END-IF. DTSBR724 00362 DTSBR724 00363 P3000-EXIT. DTSBR724 00364 EXIT. DTSBR724 00365 DTSBR724 00366 T1000-TERMINATE. DTSBR724 00367 DTSBR724 00368 IF WS-LINE-CNT2 > 52 DTSBR724 00369 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR724 00370 END-IF. DTSBR724 00371 DTSBR724 00372 WRITE PRT-RECORD FROM CTF-LINE-3 AFTER 3. DTSBR724 00373 WRITE PRT-RECORD FROM CFF-LINE-3 AFTER 3. DTSBR724 00374 DTSBR724 00375 CLOSE PRT-FILE. DTSBR724 00376 DTSBR724 00377 T1000-EXIT. DTSBR724 00378 EXIT. DTSBR724 00379 DTSBR724 00380 S001-SET-SLASHED-DATE. DTSBR724 00381 DTSBR724 00382 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR724 00383 DTSBR724 00384 S001-EXIT. DTSBR724 00385 EXIT. DTSBR724 00386 DTSBR724 00387 S037-GET-DESCRIP. DTSBR724 00388 DTSBR724 00389 CALL 'DTSBU037' USING L037-LINK-AREA. DTSBR724 00390 DTSBR724 00391 S037-EXIT. DTSBR724 00392 EXIT. DTSBR724 00393 DTSBR724 00394 S071-DESLASH-NAME. DTSBR724 00395 DTSBR724 00396 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR724 00397 DTSBR724 00398 S071-EXIT. DTSBR724 00399 EXIT. DTSBR724 00400 DTSBR724 00401 S082-GET-DEST-OP-ID. DTSBR724 00402 DTSBR724 00403 CALL 'DTSBU082' USING L082-LINK-AREA. DTSBR724 00404 DTSBR724 00405 S082-EXIT. DTSBR724 00406 EXIT. DTSBR724 00407 DTSBR724 00408 *S999-ABEND. DTSBR724 00409 * DTSBR724 00410 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR724 00411 * DTSBR724 00412 *S999-EXIT. DTSBR724 00413 * EXIT. DTSBR724