00001 IDENTIFICATION DIVISION. 07/08/08 00002 PROGRAM-ID. DTSBU921. DTSBU921 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV011 00004 DATE-WRITTEN. FEBRUARY 1992. DTSBU921 00005 DATE-COMPILED. DTSBU921 00006 SKIP3 DTSBU921 00007 ***** DTSBU921 00008 * DTSBU921 00009 * FUNCTION: ALTERNATE INDEX FILE INPUT/OUTPUT. DTSBU921 00010 * DTSBU921 00011 * DTSBU921 00012 * MODIFICATION LOG: DTSBU921 00013 * DTSBU921 00014 * 02/03/92 INITIAL DEVELOPMENT. DTSBU921 00015 * WORK ORDER: PROGRAMMER: TCL DTSBU921 00016 * DTSBU921 00017 * 09/18/95 IBTN RECORD PROCESSING ADDED. DTSBU921 00018 * WORK ORDER: JR PROGRAMMER: EHH DTSBU921 00019 * DTSBU921 00020 * 09/29/1998 REVIEWED AND MODIFIED FOR DC. DTSBU921 00021 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBU921 00022 * DTSBU921 00023 * 04/22/2003 ADDED ITRT AND ITRE AIX RECORDS FOR ELECTRONIC DTSBU921 00024 * PAYMENT AND REPORTING. DTSBU921 00025 * REFERENCE: EFT PROGRAMMER: GD DTSBU921 00026 * DTSBU921 00027 * 10/23/2006 RECOMPILED FOR NEW VERSION OF IPES (INCLUDES DTSBU921 00028 * PERCENTAGE TRANSFERRED). DTSBU921 00029 * REFERENCE: PROGRAMMER: GD DTSBU921 00030 * DTSBU921 00031 * 02/08/2008 MODIFIED FOR IRFD REFUND RECORD. DTSBU921 00032 * REFERENCE: PROGRAMMER: GD DTSBU921 00033 * DTSBU921 00034 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU921 00035 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU921 00036 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBU921 00037 * DTSBU921 00038 * DTSBU921 00039 * DESCRIPTION: DTSBU921 00040 * DTSBU921 00041 * DTSBU921 PERFORMS ALL REQUIRED ALTERNATE INDEX FILE DTSBU921 00042 * INPUT/OUTPUT. DTSBU921 00043 * DTSBU921 00044 * DTSBU921 00045 * GENERAL SPECIFICATIONS: DTSBU921 00046 * DTSBU921 00047 * IF AN INVALID COMMAND IS REQUESTED, THEN ABEND THE DTSBU921 00048 * MODULE. DTSBU921 00049 * DTSBU921 00050 * IF A FILE-STATUS OF OTHER THAN '00', '10', OR '23' IS DTSBU921 00051 * ENCOUNTERED, THEN ABEND PROCESSING (TOLERATE A DTSBU921 00052 * FILE-STATUS OF '97' FROM AN OPEN COMMAND). DTSBU921 00053 * DTSBU921 00054 * DTSBU921 00055 * COMMAND SPECIFIC SPECIFICATIONS: DTSBU921 00056 * DTSBU921 00057 * OPEN-READ DTSBU921 00058 * OPEN INPUT. DTSBU921 00059 * DTSBU921 00060 * OPEN-UPDATE DTSBU921 00061 * OPEN I-O. DTSBU921 00062 * DTSBU921 00063 * CLOSE DTSBU921 00064 * DTSBU921 00065 * READ DTSBU921 00066 * DTSBU921 00067 * START BROWSE DTSBU921 00068 * IF THE START-BROWSE IS SUCCESSFUL, THEN PERFORM THE DTSBU921 00069 * READ-NEXT LOGIC. A SUCCESSFUL START-BROWSE RETURNS DTSBU921 00070 * A RECORD. DTSBU921 00071 * DTSBU921 00072 * READ NEXT DTSBU921 00073 * IF A BREAK IN REC-TYPE OCCURS, THEN RETURN DTSBU921 00074 * L921-NO-REC-88. DTSBU921 00075 * DTSBU921 00076 * WRITE DTSBU921 00077 * PRIOR TO THE WRITE, MOVE SPACES TO I***-KEY-FILLER. DTSBU921 00078 * DTSBU921 00079 * DELETE DTSBU921 00080 * DTSBU921 00081 ***** DTSBU921 00082 SKIP3 DTSBU921 00083 ENVIRONMENT DIVISION. DTSBU921 00084 SKIP2 DTSBU921 00085 INPUT-OUTPUT SECTION. DTSBU921 00086 DTSBU921 00087 FILE-CONTROL. DTSBU921 00088 SELECT AIX-FILE ASSIGN TO DTSFAIX DTSBU921 00089 ORGANIZATION IS INDEXED DTSBU921 00090 RECORD KEY IS ISKL-KEY-AREA OF FILE-REC DTSBU921 00091 FILE STATUS IS FILE-STATUS DTSBU921 00092 ACCESS IS DYNAMIC. DTSBU921 00093 SKIP3 DTSBU921 00094 DATA DIVISION. DTSBU921 00095 SKIP3 DTSBU921 00096 FILE SECTION. DTSBU921 00097 SKIP3 DTSBU921 00098 FD AIX-FILE. DTSBU921 00099 DTSBU921 00100 01 FILE-REC. DTSBU921 00101 ++INCLUDE DTSIISKL DTSBU921 00102 EJECT DTSBU921 00103 WORKING-STORAGE SECTION. DTSBU921 001035 77 PAN-VALET PICTURE X(24) VALUE '011DTSBU921 07/08/08'. DTSBU921 00104 SKIP3 DTSBU921 00105 01 WRK-AREA. DTSBU921 00106 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +921.DTSBU921 00107 DTSBU921 00108 05 FILE-STATUS PIC X(02). DTSBU921 00109 88 FILE-OK-88 VALUE '00'. DTSBU921 00110 88 FILE-NO-REC-88 VALUE '10' '23'. DTSBU921 00111 88 FILE-VERIFY-88 VALUE '97'. DTSBU921 00112 DTSBU921 00113 05 WRK-REC-PREFIX PIC X(04). DTSBU921 00114 EJECT DTSBU921 00115 01 L991-LINK-AREA. DTSBU921 00116 ++INCLUDE DTSIL991 DTSBU921 00117 EJECT DTSBU921 00118 01 ILEN-LITERALS. DTSBU921 00119 ++INCLUDE DTSIILEN DTSBU921 00120 EJECT DTSBU921 00121 LINKAGE SECTION. DTSBU921 00122 SKIP3 DTSBU921 00123 01 L921-LINK-AREA. DTSBU921 00124 05 L921-CONTROL-BLOCK. DTSBU921 00125 ++INCLUDE DTSIL921 DTSBU921 00126 SKIP3 DTSBU921 00127 01 LINK-REC. DTSBU921 00128 05 ISKL-REC. DTSBU921 00129 ++INCLUDE DTSIISKL DTSBU921 00130 SKIP3 DTSBU921 00131 05 IBTB-REC REDEFINES ISKL-REC. DTSBU921 00132 ++INCLUDE DTSIIBTB DTSBU921 00133 SKIP3 DTSBU921 00134 05 IFAN-REC REDEFINES ISKL-REC. DTSBU921 00135 ++INCLUDE DTSIIFAN DTSBU921 00136 SKIP3 DTSBU921 00137 05 IFID-REC REDEFINES ISKL-REC. DTSBU921 00138 ++INCLUDE DTSIIFID DTSBU921 00139 SKIP3 DTSBU921 00140 05 IEIN-REC REDEFINES ISKL-REC. DTSBU921 00141 ++INCLUDE DTSIIEIN DTSBU921 00142 SKIP3 DTSBU921 00143 05 IOPN-REC REDEFINES ISKL-REC. DTSBU921 00144 ++INCLUDE DTSIIOPN DTSBU921 00145 SKIP3 DTSBU921 00146 05 IOPS-REC REDEFINES ISKL-REC. DTSBU921 00147 ++INCLUDE DTSIIOPS DTSBU921 00148 SKIP3 DTSBU921 00149 05 IPES-REC REDEFINES ISKL-REC. DTSBU921 00150 ++INCLUDE DTSIIPES DTSBU921 00151 SKIP3 DTSBU921 00152 05 ITDS-REC REDEFINES ISKL-REC. DTSBU921 00153 ++INCLUDE DTSIITDS DTSBU921 00154 SKIP3 DTSBU921 00155 05 ITRE-REC REDEFINES ISKL-REC. DTSBU921 00156 ++INCLUDE DTSIITRE DTSBU921 00157 SKIP3 DTSBU921 00158 05 ITRT-REC REDEFINES ISKL-REC. DTSBU921 00159 ++INCLUDE DTSIITRT DTSBU921 00160 SKIP3 DTSBU921 00161 05 IZIP-REC REDEFINES ISKL-REC. DTSBU921 00162 ++INCLUDE DTSIIZIP DTSBU921 00163 SKIP3 DTSBU921 00164 05 IBTN-REC REDEFINES ISKL-REC. DTSBU921 00165 ++INCLUDE DTSIIBTN DTSBU921 00166 SKIP3 DTSBU921 00167 05 IENM-REC REDEFINES ISKL-REC. DTSBU921 00168 ++INCLUDE DTSIIENM DTSBU921 00169 SKIP3 DTSBU921 00170 05 IEAL-REC REDEFINES ISKL-REC. DTSBU921 00171 ++INCLUDE DTSIIEAL DTSBU921 00172 SKIP3 DTSBU921 00173 05 IEAE-REC REDEFINES ISKL-REC. DTSBU921 00174 ++INCLUDE DTSIIEAE DTSBU921 00175 SKIP3 DTSBU921 00176 05 IEBX-REC REDEFINES ISKL-REC. DTSBU921 00177 ++INCLUDE DTSIIEBX DTSBU921 00178 SKIP3 DTSBU921 00179 05 IEOP-REC REDEFINES ISKL-REC. DTSBU921 00180 ++INCLUDE DTSIIEOP DTSBU921 00181 SKIP3 DTSBU921 00182 05 IESR-REC REDEFINES ISKL-REC. DTSBU921 00183 ++INCLUDE DTSIIESR DTSBU921 00184 SKIP3 DTSBU921 00185 05 IEER-REC REDEFINES ISKL-REC. DTSBU921 00186 ++INCLUDE DTSIIEER DTSBU921 00187 SKIP3 DTSBU921 00188 05 IEET-REC REDEFINES ISKL-REC. DTSBU921 00189 ++INCLUDE DTSIIEET DTSBU921 00190 SKIP3 DTSBU921 00191 05 IEPR-REC REDEFINES ISKL-REC. DTSBU921 00192 ++INCLUDE DTSIIEPR DTSBU921 00193 EJECT DTSBU921 00194 05 IRFD-REC REDEFINES ISKL-REC. DTSBU921 00195 ++INCLUDE DTSIIRFD DTSBU921 00196 EJECT DTSBU921 00197 PROCEDURE DIVISION USING L921-LINK-AREA DTSBU921 00198 LINK-REC. DTSBU921 00199 DTSBU921 00200 DTSBU921 00201 SET L921-OK-88 TO TRUE. DTSBU921 00202 DTSBU921 00203 IF L921-TRACE-88 DTSBU921 00204 PERFORM S9100-PRE-DISPLAY THRU S9100-EXIT. DTSBU921 00205 DTSBU921 00206 IF L921-READ-NEXT-88 DTSBU921 00207 PERFORM P2300-READ-NEXT THRU P2300-EXIT DTSBU921 00208 ELSE DTSBU921 00209 IF L921-READ-88 DTSBU921 00210 PERFORM P2100-READ THRU P2100-EXIT DTSBU921 00211 ELSE DTSBU921 00212 IF L921-START-BROWSE-88 DTSBU921 00213 PERFORM P2200-START-BROWSE THRU P2200-EXIT DTSBU921 00214 ELSE DTSBU921 00215 IF L921-WRITE-88 DTSBU921 00216 PERFORM P3100-WRITE THRU P3100-EXIT DTSBU921 00217 ELSE DTSBU921 00218 IF L921-DELETE-88 DTSBU921 00219 PERFORM P3300-DELETE THRU P3300-EXIT DTSBU921 00220 ELSE DTSBU921 00221 IF L921-OPEN-READ-88 DTSBU921 00222 OR DTSBU921 00223 L921-OPEN-UPDATE-88 DTSBU921 00224 PERFORM P1100-OPEN THRU P1100-EXIT DTSBU921 00225 ELSE DTSBU921 00226 IF L921-CLOSE-88 DTSBU921 00227 PERFORM P1200-CLOSE THRU P1200-EXIT DTSBU921 00228 ELSE DTSBU921 00229 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921 00230 DTSBU921 00231 IF L921-TRACE-88 DTSBU921 00232 PERFORM S9200-POST-DISPLAY THRU S9200-EXIT. DTSBU921 00233 DTSBU921 00234 DTSBU921 00235 GOBACK. DTSBU921 00236 EJECT DTSBU921 00237 P1100-OPEN. DTSBU921 00238 IF L921-OPEN-UPDATE-88 DTSBU921 00239 OPEN I-O AIX-FILE DTSBU921 00240 ELSE DTSBU921 00241 OPEN INPUT AIX-FILE. DTSBU921 00242 DTSBU921 00243 IF FILE-OK-88 OR FILE-VERIFY-88 DTSBU921 00244 NEXT SENTENCE DTSBU921 00245 ELSE DTSBU921 00246 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921 00247 P1100-EXIT. DTSBU921 00248 EXIT. DTSBU921 00249 SKIP3 DTSBU921 00250 P1200-CLOSE. DTSBU921 00251 CLOSE AIX-FILE. DTSBU921 00252 DTSBU921 00253 IF FILE-OK-88 DTSBU921 00254 NEXT SENTENCE DTSBU921 00255 ELSE DTSBU921 00256 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921 00257 P1200-EXIT. DTSBU921 00258 EXIT. DTSBU921 00259 EJECT DTSBU921 00260 P2100-READ. DTSBU921 00261 MOVE ISKL-KEY-AREA OF LINK-REC TO ISKL-KEY-AREA OF FILE-REC. DTSBU921 00262 DTSBU921 00263 READ AIX-FILE. DTSBU921 00264 DTSBU921 00265 IF FILE-OK-88 DTSBU921 00266 PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT DTSBU921 00267 ELSE DTSBU921 00268 IF FILE-NO-REC-88 DTSBU921 00269 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU921 00270 ELSE DTSBU921 00271 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921 00272 P2100-EXIT. DTSBU921 00273 EXIT. DTSBU921 00274 EJECT DTSBU921 00275 P2200-START-BROWSE. DTSBU921 00276 MOVE ISKL-KEY-AREA OF LINK-REC TO ISKL-KEY-AREA OF FILE-REC. DTSBU921 00277 DTSBU921 00278 START AIX-FILE DTSBU921 00279 KEY IS NOT < ISKL-KEY-AREA OF FILE-REC. DTSBU921 00280 DTSBU921 00281 IF FILE-OK-88 DTSBU921 00282 PERFORM P2300-READ-NEXT THRU P2300-EXIT DTSBU921 00283 ELSE DTSBU921 00284 IF FILE-NO-REC-88 DTSBU921 00285 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU921 00286 ELSE DTSBU921 00287 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921 00288 P2200-EXIT. DTSBU921 00289 EXIT. DTSBU921 00290 EJECT DTSBU921 00291 P2300-READ-NEXT. DTSBU921 00292 READ AIX-FILE NEXT. DTSBU921 00293 DTSBU921 00294 IF FILE-OK-88 DTSBU921 00295 IF ISKL-REC-TYPE OF FILE-REC = ISKL-REC-TYPE OF LINK-REC DTSBU921 00296 PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT DTSBU921 00297 ELSE DTSBU921 00298 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU921 00299 ELSE DTSBU921 00300 IF FILE-NO-REC-88 DTSBU921 00301 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU921 00302 ELSE DTSBU921 00303 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921 00304 P2300-EXIT. DTSBU921 00305 EXIT. DTSBU921 00306 EJECT DTSBU921 00307 P3100-WRITE. DTSBU921 00308 PERFORM S2100-LINK-TO-FILE THRU S2100-EXIT. DTSBU921 00309 DTSBU921 00310 WRITE FILE-REC. DTSBU921 00311 DTSBU921 00312 IF FILE-OK-88 DTSBU921 00313 NEXT SENTENCE DTSBU921 00314 ELSE DTSBU921 00315 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921 00316 P3100-EXIT. DTSBU921 00317 EXIT. DTSBU921 00318 EJECT DTSBU921 00319 P3300-DELETE. DTSBU921 00320 MOVE ISKL-KEY-AREA OF LINK-REC TO ISKL-KEY-AREA OF FILE-REC. DTSBU921 00321 DTSBU921 00322 DELETE AIX-FILE RECORD. DTSBU921 00323 DTSBU921 00324 IF FILE-OK-88 DTSBU921 00325 NEXT SENTENCE DTSBU921 00326 ELSE DTSBU921 00327 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921 00328 P3300-EXIT. DTSBU921 00329 EXIT. DTSBU921 00330 EJECT DTSBU921 00331 S1100-NO-REC. DTSBU921 00332 SET L921-NO-REC-88 TO TRUE. DTSBU921 00333 S1100-EXIT. DTSBU921 00334 EXIT. DTSBU921 00335 SKIP3 DTSBU921 00336 S2100-LINK-TO-FILE. DTSBU921 00337 GO TO S2101-BTB DTSBU921 00338 S2102-EIN DTSBU921 00339 S2103-FAN DTSBU921 00340 S2104-FID DTSBU921 00341 S2105-OPN DTSBU921 00342 S2106-OPS DTSBU921 00343 S2107-PES DTSBU921 00344 S2108-TDS DTSBU921 00345 S2109-ZIP DTSBU921 00346 S2110-BTN DTSBU921 00347 S2111-ENM DTSBU921 00348 S2112-EAL DTSBU921 00349 S2113-EAE DTSBU921 00350 S2114-EBX DTSBU921 00351 S2115-EOP DTSBU921 00352 S2116-ESR DTSBU921 00353 S2117-EER DTSBU921 00354 S2118-EET DTSBU921 00355 S2119-EPR DTSBU921 00356 S2120-TRT DTSBU921 00357 S2121-TRE DTSBU921 00358 S2122-RFD DTSBU921 00359 DEPENDING ON ISKL-REC-TYPE OF LINK-REC. DTSBU921 00360 DTSBU921 00361 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921 00362 DTSBU921 00363 DTSBU921 00364 S2101-BTB. DTSBU921 00365 MOVE LOW-VALUES TO IBTB-KEY-FILLER. DTSBU921 00366 DTSBU921 00367 MOVE IBTB-REC TO FILE-REC. DTSBU921 00368 DTSBU921 00369 GO TO S2100-EXIT. DTSBU921 00370 SKIP3 DTSBU921 00371 S2102-EIN. DTSBU921 00372 MOVE LOW-VALUES TO IEIN-KEY-FILLER. DTSBU921 00373 DTSBU921 00374 MOVE IEIN-REC TO FILE-REC. DTSBU921 00375 DTSBU921 00376 GO TO S2100-EXIT. DTSBU921 00377 SKIP3 DTSBU921 00378 S2103-FAN. DTSBU921 00379 MOVE LOW-VALUES TO IFAN-KEY-FILLER. DTSBU921 00380 DTSBU921 00381 MOVE IFAN-REC TO FILE-REC. DTSBU921 00382 DTSBU921 00383 GO TO S2100-EXIT. DTSBU921 00384 SKIP3 DTSBU921 00385 S2104-FID. DTSBU921 00386 MOVE LOW-VALUES TO IFID-KEY-FILLER. DTSBU921 00387 DTSBU921 00388 MOVE IFID-REC TO FILE-REC. DTSBU921 00389 DTSBU921 00390 GO TO S2100-EXIT. DTSBU921 00391 SKIP3 DTSBU921 00392 S2105-OPN. DTSBU921 00393 MOVE LOW-VALUES TO IOPN-KEY-FILLER. DTSBU921 00394 DTSBU921 00395 MOVE IOPN-REC TO FILE-REC. DTSBU921 00396 DTSBU921 00397 GO TO S2100-EXIT. DTSBU921 00398 SKIP3 DTSBU921 00399 S2106-OPS. DTSBU921 00400 MOVE LOW-VALUES TO IOPS-KEY-FILLER. DTSBU921 00401 DTSBU921 00402 MOVE IOPS-REC TO FILE-REC. DTSBU921 00403 DTSBU921 00404 GO TO S2100-EXIT. DTSBU921 00405 SKIP3 DTSBU921 00406 S2107-PES. DTSBU921 00407 MOVE LOW-VALUES TO IPES-KEY-FILLER. DTSBU921 00408 DTSBU921 00409 MOVE IPES-REC TO FILE-REC. DTSBU921 00410 DTSBU921 00411 GO TO S2100-EXIT. DTSBU921 00412 SKIP3 DTSBU921 00413 S2108-TDS. DTSBU921 00414 MOVE LOW-VALUES TO ITDS-KEY-FILLER. DTSBU921 00415 DTSBU921 00416 MOVE ITDS-REC TO FILE-REC. DTSBU921 00417 DTSBU921 00418 GO TO S2100-EXIT. DTSBU921 00419 SKIP3 DTSBU921 00420 S2109-ZIP. DTSBU921 00421 MOVE LOW-VALUES TO IZIP-KEY-FILLER. DTSBU921 00422 DTSBU921 00423 MOVE IZIP-REC TO FILE-REC. DTSBU921 00424 DTSBU921 00425 GO TO S2100-EXIT. DTSBU921 00426 SKIP3 DTSBU921 00427 S2110-BTN. DTSBU921 00428 MOVE LOW-VALUES TO IBTN-KEY-FILLER. DTSBU921 00429 DTSBU921 00430 MOVE IBTN-REC TO FILE-REC. DTSBU921 00431 DTSBU921 00432 GO TO S2100-EXIT. DTSBU921 00433 SKIP3 DTSBU921 00434 S2111-ENM. DTSBU921 00435 MOVE LOW-VALUES TO IENM-KEY-FILLER. DTSBU921 00436 DTSBU921 00437 MOVE IENM-REC TO FILE-REC. DTSBU921 00438 DTSBU921 00439 GO TO S2100-EXIT. DTSBU921 00440 SKIP3 DTSBU921 00441 S2112-EAL. DTSBU921 00442 MOVE LOW-VALUES TO IEAL-KEY-FILLER. DTSBU921 00443 DTSBU921 00444 MOVE IEAL-REC TO FILE-REC. DTSBU921 00445 DTSBU921 00446 GO TO S2100-EXIT. DTSBU921 00447 SKIP3 DTSBU921 00448 S2113-EAE. DTSBU921 00449 MOVE LOW-VALUES TO IEAE-KEY-FILLER. DTSBU921 00450 DTSBU921 00451 MOVE IEAE-REC TO FILE-REC. DTSBU921 00452 DTSBU921 00453 GO TO S2100-EXIT. DTSBU921 00454 SKIP3 DTSBU921 00455 S2114-EBX. DTSBU921 00456 MOVE LOW-VALUES TO IEBX-KEY-FILLER. DTSBU921 00457 DTSBU921 00458 MOVE IEBX-REC TO FILE-REC. DTSBU921 00459 DTSBU921 00460 GO TO S2100-EXIT. DTSBU921 00461 SKIP3 DTSBU921 00462 S2115-EOP. DTSBU921 00463 MOVE LOW-VALUES TO IEOP-KEY-FILLER. DTSBU921 00464 DTSBU921 00465 MOVE IEOP-REC TO FILE-REC. DTSBU921 00466 DTSBU921 00467 GO TO S2100-EXIT. DTSBU921 00468 SKIP3 DTSBU921 00469 S2116-ESR. DTSBU921 00470 MOVE LOW-VALUES TO IESR-KEY-FILLER. DTSBU921 00471 DTSBU921 00472 MOVE IESR-REC TO FILE-REC. DTSBU921 00473 DTSBU921 00474 GO TO S2100-EXIT. DTSBU921 00475 SKIP3 DTSBU921 00476 S2117-EER. DTSBU921 00477 MOVE LOW-VALUES TO IEER-KEY-FILLER. DTSBU921 00478 DTSBU921 00479 MOVE IEER-REC TO FILE-REC. DTSBU921 00480 DTSBU921 00481 GO TO S2100-EXIT. DTSBU921 00482 SKIP3 DTSBU921 00483 S2118-EET. DTSBU921 00484 MOVE LOW-VALUES TO IEET-KEY-FILLER. DTSBU921 00485 DTSBU921 00486 MOVE IEET-REC TO FILE-REC. DTSBU921 00487 DTSBU921 00488 GO TO S2100-EXIT. DTSBU921 00489 SKIP3 DTSBU921 00490 S2119-EPR. DTSBU921 00491 MOVE LOW-VALUES TO IEPR-KEY-FILLER. DTSBU921 00492 DTSBU921 00493 MOVE IEPR-REC TO FILE-REC. DTSBU921 00494 DTSBU921 00495 GO TO S2100-EXIT. DTSBU921 00496 SKIP3 DTSBU921 00497 S2120-TRT. DTSBU921 00498 MOVE LOW-VALUES TO ITRT-KEY-FILLER. DTSBU921 00499 DTSBU921 00500 MOVE ITRT-REC TO FILE-REC. DTSBU921 00501 DTSBU921 00502 GO TO S2100-EXIT. DTSBU921 00503 SKIP3 DTSBU921 00504 S2121-TRE. DTSBU921 00505 MOVE LOW-VALUES TO ITRE-KEY-FILLER. DTSBU921 00506 DTSBU921 00507 MOVE ITRE-REC TO FILE-REC. DTSBU921 00508 DTSBU921 00509 GO TO S2100-EXIT. DTSBU921 00510 SKIP3 DTSBU921 00511 S2122-RFD. DTSBU921 00512 MOVE LOW-VALUES TO IRFD-KEY-FILLER. DTSBU921 00513 DTSBU921 00514 MOVE IRFD-REC TO FILE-REC. DTSBU921 00515 DTSBU921 00516 GO TO S2100-EXIT. DTSBU921 00517 SKIP3 DTSBU921 00518 S2100-EXIT. DTSBU921 00519 EXIT. DTSBU921 00520 EJECT DTSBU921 00521 S2200-FILE-TO-LINK. DTSBU921 00522 MOVE FILE-REC TO LINK-REC. DTSBU921 00523 S2200-EXIT. DTSBU921 00524 EXIT. DTSBU921 00525 EJECT DTSBU921 00526 S9100-PRE-DISPLAY. DTSBU921 00527 DISPLAY ' '. DTSBU921 00528 DTSBU921 00529 DISPLAY ' '. DTSBU921 00530 DTSBU921 00531 DISPLAY '*** DTSBU921 PRE TRACE DISPLAY ***'. DTSBU921 00532 DTSBU921 00533 DISPLAY L921-MOD-NAME DTSBU921 00534 ' = L921-MOD-NAME'. DTSBU921 00535 DTSBU921 00536 DISPLAY L921-CMND-CD DTSBU921 00537 ' = L921-CMND-CD'. DTSBU921 00538 DTSBU921 00539 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU921 00540 S9100-EXIT. DTSBU921 00541 EXIT. DTSBU921 00542 SKIP3 DTSBU921 00543 S9200-POST-DISPLAY. DTSBU921 00544 DISPLAY ' '. DTSBU921 00545 DTSBU921 00546 DISPLAY ' '. DTSBU921 00547 DTSBU921 00548 DISPLAY '*** DTSBU921 POST TRACE DISPLAY ***'. DTSBU921 00549 DTSBU921 00550 DISPLAY L921-RESULT-IND DTSBU921 00551 ' = L921-RESULT-IND'. DTSBU921 00552 DTSBU921 00553 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU921 00554 S9200-EXIT. DTSBU921 00555 EXIT. DTSBU921 00556 SKIP3 DTSBU921 00557 S9300-REC-DISPLAY. DTSBU921 00558 DISPLAY ' '. DTSBU921 00559 DTSBU921 00560 IF (ISKL-REC-TYPE OF LINK-REC < +1) DTSBU921 00561 OR DTSBU921 00562 (ISKL-REC-TYPE OF LINK-REC > ILEN-MAX-REC-ID) DTSBU921 00563 MOVE SPACES TO WRK-REC-PREFIX DTSBU921 00564 ELSE DTSBU921 00565 MOVE ILEN-PREFIX (ISKL-REC-TYPE OF LINK-REC) DTSBU921 00566 TO WRK-REC-PREFIX. DTSBU921 00567 DTSBU921 00568 IF WRK-REC-PREFIX = SPACES DTSBU921 00569 MOVE '????' TO WRK-REC-PREFIX. DTSBU921 00570 DTSBU921 00571 MOVE ILEN-LENGTH TO L991-REQ-CHAR-CNT. DTSBU921 00572 DTSBU921 00573 MOVE ISKL-KEY-AREA OF LINK-REC TO L991-REQ-AREA. DTSBU921 00574 DTSBU921 00575 PERFORM S991-HEX-FORMAT THRU S991-EXIT. DTSBU921 00576 DTSBU921 00577 DISPLAY 'REC TYPE = ' DTSBU921 00578 WRK-REC-PREFIX. DTSBU921 00579 DTSBU921 00580 DISPLAY 'KEY AREA = ' DTSBU921 00581 L991-REPLY-HEX-1-AREA. DTSBU921 00582 DTSBU921 00583 DISPLAY ' ' DTSBU921 00584 L991-REPLY-HEX-2-AREA. DTSBU921 00585 DTSBU921 00586 DISPLAY ' ' DTSBU921 00587 L991-REPLY-AN-AREA. DTSBU921 00588 S9300-EXIT. DTSBU921 00589 EXIT. DTSBU921 00590 EJECT DTSBU921 00591 S991-HEX-FORMAT. DTSBU921 00592 CALL 'DTSBU991' USING L991-LINK-AREA. DTSBU921 00593 S991-EXIT. DTSBU921 00594 EXIT. DTSBU921 00595 SKIP3 DTSBU921 00596 S999-ABEND. DTSBU921 00597 DISPLAY '*** I/O MODULE ABENDING'. DTSBU921 00598 DTSBU921 00599 DISPLAY '*** CMND-CD = ' L921-CMND-CD. DTSBU921 00600 DTSBU921 00601 DISPLAY '*** FILE-STATUS = ' FILE-STATUS. DTSBU921 00602 DTSBU921 00603 DISPLAY '*** CALLING MODULE = ' L921-MOD-NAME. DTSBU921 00604 DTSBU921 00605 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU921 00606 DTSBU921 00607 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBU921 00608 S999-EXIT. DTSBU921 00609 EXIT. DTSBU921