00001  IDENTIFICATION DIVISION.                                         09/30/98
00002  PROGRAM-ID.             DTSBU933.                                DTSBU933
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV002
00004  DATE-WRITTEN.           DECEMBER 1991.                           DTSBU933
00005  DATE-COMPILED.                                                   DTSBU933
00006      SKIP3                                                        DTSBU933
00007 *****                                                             DTSBU933
00008 *                                                                 DTSBU933
00009 *    FUNCTION:  SIC FILE INPUT.                                   DTSBU933
00010 *                                                                 DTSBU933
00011 *                                                                 DTSBU933
00012 *    MODIFICATION LOG:                                            DTSBU933
00013 *                                                                 DTSBU933
00014 *    12/18/91  INITIAL DEVELOPMENT.                               DTSBU933
00015 *              WORK ORDER:                      PROGRAMMER: TCL   DTSBU933
00016 *                                                                 DTSBU933
00017 *    09/30/1998  REVIEWED AND MODIFIED FOR DC.                       CL**2
00018 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH      CL**2
00019 *                                                                    CL**2
00020 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**2
00021 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX      CL**2
00022 *                                                                 DTSBU933
00023 *                                                                 DTSBU933
00024 *    DESCRIPTION:                                                 DTSBU933
00025 *                                                                 DTSBU933
00026 *        DTSBU933 PERFORMS ALL REQUIRED SIC FILE INPUT.              CL**2
00027 *                                                                 DTSBU933
00028 *                                                                 DTSBU933
00029 *    GENERAL SPECIFICATIONS:                                      DTSBU933
00030 *                                                                 DTSBU933
00031 *        ALL COMMANDS ARE VALID.                                  DTSBU933
00032 *                                                                 DTSBU933
00033 *        IF AN INVALID COMMAND IS REQUESTED, THEN ABEND THE       DTSBU933
00034 *        MODULE.                                                  DTSBU933
00035 *                                                                 DTSBU933
00036 *        IF A FILE-STATUS OF OTHER THAN '00', '10', OR '23' IS    DTSBU933
00037 *        ENCOUNTERED, THEN ABEND PROCESSING (TOLERATE A           DTSBU933
00038 *        FILE-STATUS OF '97' FROM AN OPEN COMMAND).               DTSBU933
00039 *                                                                 DTSBU933
00040 *                                                                 DTSBU933
00041 *    COMMAND SPECIFIC SPECIFICATIONS:                             DTSBU933
00042 *                                                                 DTSBU933
00043 *    OPEN-READ                                                    DTSBU933
00044 *        OPEN INPUT.                                              DTSBU933
00045 *                                                                 DTSBU933
00046 *    CLOSE                                                        DTSBU933
00047 *                                                                 DTSBU933
00048 *    READ                                                         DTSBU933
00049 *                                                                 DTSBU933
00050 *    START BROWSE                                                 DTSBU933
00051 *                                                                 DTSBU933
00052 *    READ NEXT                                                    DTSBU933
00053 *                                                                 DTSBU933
00054 *****                                                             DTSBU933
00055      SKIP3                                                        DTSBU933
00056  ENVIRONMENT DIVISION.                                            DTSBU933
00057      SKIP2                                                        DTSBU933
00058  INPUT-OUTPUT SECTION.                                            DTSBU933
00059                                                                      CL**2
00060  FILE-CONTROL.                                                    DTSBU933
00061      SELECT SIC-FILE ASSIGN TO DTSFSIC                               CL**2
00062          ORGANIZATION IS INDEXED                                  DTSBU933
00063          RECORD KEY IS XSIC-KEY-AREA OF FILE-REC                  DTSBU933
00064          FILE STATUS IS FILE-STATUS                               DTSBU933
00065          ACCESS IS DYNAMIC.                                       DTSBU933
00066      SKIP3                                                        DTSBU933
00067  DATA DIVISION.                                                   DTSBU933
00068      SKIP3                                                        DTSBU933
00069  FILE SECTION.                                                    DTSBU933
00070      SKIP3                                                        DTSBU933
00071  FD  SIC-FILE.                                                    DTSBU933
00072                                                                      CL**2
00073  01  FILE-REC.                                                    DTSBU933
00074  ++INCLUDE DTSIXSIC                                                  CL**2
00075      EJECT                                                        DTSBU933
00076  WORKING-STORAGE SECTION.                                         DTSBU933
000765 77  PAN-VALET PICTURE X(24) VALUE '002DTSBU933  09/30/98'.       DTSBU933
00077      SKIP3                                                        DTSBU933
00078  01  WRK-AREA.                                                    DTSBU933
00079      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +933.DTSBU933
00080                                                                      CL**2
00081      05  VAR-CHAR-CNT                PIC S9(04)  COMP.            DTSBU933
00082                                                                      CL**2
00083      05  FILE-STATUS                 PIC  X(02).                  DTSBU933
00084          88  FILE-OK-88                  VALUE '00'.              DTSBU933
00085          88  FILE-NO-REC-88              VALUE '10' '23'.         DTSBU933
00086          88  FILE-VERIFY-88              VALUE '97'.              DTSBU933
00087      EJECT                                                        DTSBU933
00088  LINKAGE SECTION.                                                 DTSBU933
00089      SKIP3                                                        DTSBU933
00090  01  L933-LINK-AREA.                                              DTSBU933
00091  ++INCLUDE DTSIL933                                                  CL**2
00092      EJECT                                                        DTSBU933
00093  01  LINK-REC.                                                    DTSBU933
00094  ++INCLUDE DTSIXSIC                                                  CL**2
00095      EJECT                                                        DTSBU933
00096  PROCEDURE DIVISION USING L933-LINK-AREA                          DTSBU933
00097                           LINK-REC.                               DTSBU933
00098                                                                      CL**2
00099                                                                      CL**2
00100      SET L933-OK-88 TO TRUE.                                      DTSBU933
00101                                                                      CL**2
00102      IF L933-TRACE-88                                             DTSBU933
00103          PERFORM S9100-PRE-DISPLAY THRU S9100-EXIT.               DTSBU933
00104                                                                      CL**2
00105      IF L933-READ-NEXT-88                                         DTSBU933
00106          PERFORM P2300-READ-NEXT THRU P2300-EXIT                  DTSBU933
00107      ELSE                                                         DTSBU933
00108      IF L933-READ-88                                              DTSBU933
00109          PERFORM P2100-READ THRU P2100-EXIT                       DTSBU933
00110      ELSE                                                         DTSBU933
00111      IF L933-START-BROWSE-88                                      DTSBU933
00112          PERFORM P2200-START-BROWSE THRU P2200-EXIT               DTSBU933
00113      ELSE                                                         DTSBU933
00114      IF L933-OPEN-READ-88                                         DTSBU933
00115          PERFORM P1100-OPEN THRU P1100-EXIT                       DTSBU933
00116      ELSE                                                         DTSBU933
00117      IF L933-CLOSE-88                                             DTSBU933
00118          PERFORM P1200-CLOSE THRU P1200-EXIT                      DTSBU933
00119      ELSE                                                         DTSBU933
00120          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU933
00121                                                                      CL**2
00122      IF L933-TRACE-88                                             DTSBU933
00123          PERFORM S9200-POST-DISPLAY THRU S9200-EXIT.              DTSBU933
00124                                                                      CL**2
00125                                                                      CL**2
00126      GOBACK.                                                      DTSBU933
00127      EJECT                                                        DTSBU933
00128  P1100-OPEN.                                                      DTSBU933
00129      OPEN INPUT SIC-FILE.                                         DTSBU933
00130                                                                      CL**2
00131      IF FILE-OK-88 OR FILE-VERIFY-88                              DTSBU933
00132          NEXT SENTENCE                                            DTSBU933
00133      ELSE                                                         DTSBU933
00134          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU933
00135  P1100-EXIT.                                                      DTSBU933
00136      EXIT.                                                        DTSBU933
00137      SKIP3                                                        DTSBU933
00138  P1200-CLOSE.                                                     DTSBU933
00139      CLOSE SIC-FILE.                                              DTSBU933
00140                                                                      CL**2
00141      IF FILE-OK-88                                                DTSBU933
00142          NEXT SENTENCE                                            DTSBU933
00143      ELSE                                                         DTSBU933
00144          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU933
00145  P1200-EXIT.                                                      DTSBU933
00146      EXIT.                                                        DTSBU933
00147      EJECT                                                        DTSBU933
00148  P2100-READ.                                                      DTSBU933
00149      MOVE XSIC-KEY-AREA OF LINK-REC TO XSIC-KEY-AREA OF FILE-REC. DTSBU933
00150                                                                      CL**2
00151      READ SIC-FILE.                                               DTSBU933
00152                                                                      CL**2
00153      IF FILE-OK-88                                                DTSBU933
00154          PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT               DTSBU933
00155      ELSE                                                         DTSBU933
00156      IF FILE-NO-REC-88                                            DTSBU933
00157          PERFORM S1100-NO-REC THRU S1100-EXIT                     DTSBU933
00158      ELSE                                                         DTSBU933
00159          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU933
00160  P2100-EXIT.                                                      DTSBU933
00161      EXIT.                                                        DTSBU933
00162      EJECT                                                        DTSBU933
00163  P2200-START-BROWSE.                                              DTSBU933
00164      MOVE XSIC-KEY-AREA OF LINK-REC TO XSIC-KEY-AREA OF FILE-REC. DTSBU933
00165                                                                      CL**2
00166      START SIC-FILE                                               DTSBU933
00167          KEY IS NOT < XSIC-KEY-AREA OF FILE-REC.                  DTSBU933
00168                                                                      CL**2
00169      IF FILE-OK-88                                                DTSBU933
00170          PERFORM P2300-READ-NEXT THRU P2300-EXIT                  DTSBU933
00171      ELSE                                                         DTSBU933
00172      IF FILE-NO-REC-88                                            DTSBU933
00173          PERFORM S1100-NO-REC THRU S1100-EXIT                     DTSBU933
00174      ELSE                                                         DTSBU933
00175          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU933
00176  P2200-EXIT.                                                      DTSBU933
00177      EXIT.                                                        DTSBU933
00178      EJECT                                                        DTSBU933
00179  P2300-READ-NEXT.                                                 DTSBU933
00180      READ SIC-FILE NEXT.                                          DTSBU933
00181                                                                      CL**2
00182      IF FILE-OK-88                                                DTSBU933
00183          PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT               DTSBU933
00184      ELSE                                                         DTSBU933
00185      IF FILE-NO-REC-88                                            DTSBU933
00186          PERFORM S1100-NO-REC THRU S1100-EXIT                     DTSBU933
00187      ELSE                                                         DTSBU933
00188          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU933
00189  P2300-EXIT.                                                      DTSBU933
00190      EXIT.                                                        DTSBU933
00191      EJECT                                                        DTSBU933
00192  S1100-NO-REC.                                                    DTSBU933
00193      SET L933-NO-REC-88 TO TRUE.                                  DTSBU933
00194  S1100-EXIT.                                                      DTSBU933
00195      EXIT.                                                        DTSBU933
00196      EJECT                                                        DTSBU933
00197  S2200-FILE-TO-LINK.                                              DTSBU933
00198      MOVE FILE-REC TO LINK-REC.                                   DTSBU933
00199  S2200-EXIT.                                                      DTSBU933
00200      EXIT.                                                        DTSBU933
00201      EJECT                                                        DTSBU933
00202  S9100-PRE-DISPLAY.                                               DTSBU933
00203      DISPLAY ' '.                                                 DTSBU933
00204                                                                      CL**2
00205      DISPLAY ' '.                                                 DTSBU933
00206                                                                      CL**2
00207      DISPLAY '*** DTSBU933 PRE  TRACE DISPLAY ***'.                  CL**2
00208                                                                      CL**2
00209      DISPLAY L933-MOD-NAME                                        DTSBU933
00210              ' = L933-MOD-NAME'.                                  DTSBU933
00211                                                                      CL**2
00212      DISPLAY L933-CMND-CD                                         DTSBU933
00213              ' = L933-CMND-CD'.                                   DTSBU933
00214                                                                      CL**2
00215      PERFORM S9300-REC-DISPLAY THRU S9300-EXIT.                   DTSBU933
00216  S9100-EXIT.                                                      DTSBU933
00217      EXIT.                                                        DTSBU933
00218      SKIP3                                                        DTSBU933
00219  S9200-POST-DISPLAY.                                              DTSBU933
00220      DISPLAY ' '.                                                 DTSBU933
00221                                                                      CL**2
00222      DISPLAY ' '.                                                 DTSBU933
00223                                                                      CL**2
00224      DISPLAY '*** DTSBU933 POST TRACE DISPLAY ***'.                  CL**2
00225                                                                      CL**2
00226      DISPLAY L933-RESULT-IND                                      DTSBU933
00227              ' = L933-RESULT-IND'.                                DTSBU933
00228                                                                      CL**2
00229      PERFORM S9300-REC-DISPLAY THRU S9300-EXIT.                   DTSBU933
00230  S9200-EXIT.                                                      DTSBU933
00231      EXIT.                                                        DTSBU933
00232      SKIP3                                                        DTSBU933
00233  S9300-REC-DISPLAY.                                               DTSBU933
00234      DISPLAY ' '.                                                 DTSBU933
00235                                                                      CL**2
00236      DISPLAY XSIC-KEY-AREA OF LINK-REC                            DTSBU933
00237              ' = XSIC-KEY-AREA'.                                  DTSBU933
00238  S9300-EXIT.                                                      DTSBU933
00239      EXIT.                                                        DTSBU933
00240      EJECT                                                        DTSBU933
00241  S999-ABEND.                                                      DTSBU933
00242      DISPLAY '*** I/O MODULE ABENDING'.                           DTSBU933
00243                                                                      CL**2
00244      DISPLAY '*** CMND-CD = ' L933-CMND-CD.                       DTSBU933
00245                                                                      CL**2
00246      DISPLAY '*** FILE-STATUS = ' FILE-STATUS.                    DTSBU933
00247                                                                      CL**2
00248      PERFORM S9300-REC-DISPLAY THRU S9300-EXIT.                   DTSBU933
00249                                                                      CL**2
00250      CALL 'DTSBU999' USING WRK-ABEND-CD.                             CL**2
00251  S999-EXIT.                                                       DTSBU933
00252      EXIT.                                                        DTSBU933
