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
