00001  IDENTIFICATION DIVISION.                                         10/02/09
00002  PROGRAM-ID.             DTSBD386.                                DTSBD386
00003  AUTHOR.                 NORTHROP GRUMMAN.                           LV003
00004  DATE-WRITTEN.           JUNE 2005.                               DTSBD386
00005  DATE-COMPILED.                                                   DTSBD386
00006                                                                   DTSBD386
00007 *****                                                             DTSBD386
00008 *                                                                 DTSBD386
00009 *    FUNCTION:  ADD ADDITIONAL EMPLOYER NAMES FROM WEB            DTSBD386
00010 *               REGISTRATIONS                                     DTSBD386
00011 *               THE ENTITY NAME AND THE FIRST TRADE NAME ARE      DTSBD386
00012 *               COPIED TO THE MPRF RECORD IN DTSBD142. ANY        DTSBD386
00013 *               REMAINING TRADE NAMES ARE PROCESSED IN THIS       DTSBD386
00014 *               MODULE.                                           DTSBD386
00015 *                                                                 DTSBD386
00016 *    MODIFICATION LOG:                                            DTSBD386
00017 *                                                                 DTSBD386
00018 *    06/01/2005  INITIAL DEVELOPMENT.                             DTSBD386
00019 *                WORK ORDER:                      PROGRAMMER: GD  DTSBD386
00020 *                                                                 DTSBD386
00021 *    09/25/2009  MODIFIED S330 TO SET L331-OP-ID FROM T002-OP-ID  DTSBD386
00022 *                TO DISTINGUISH MODIFICATIONS FROM THE WEB FROM   DTSBD386
00023 *                THOSE MADE BY STAFF.                             DTSBD386
00024 *                WORK ORDER:                      PROGRAMMER: GD  DTSBD386
00025 *                                                                 DTSBD386
00026 *    MM/DD/CCYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD386
00027 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD386
00028 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBD386
00029 *                                                                 DTSBD386
00030 *                                                                 DTSBD386
00031 *  DESCRIPTION:                                                   DTSBD386
00032 *                                                                 DTSBD386
00033 *                                                                 DTSBD386
00034 *                                                                 DTSBD386
00035 *      MASTER FILE RECORDS READ:                                  DTSBD386
00036 *                                                                 DTSBD386
00037 *        MRTE                                                     DTSBD386
00038 *                                                                 DTSBD386
00039 *                                                                 DTSBD386
00040 *      MASTER FILE RECORDS UPDATED:                               DTSBD386
00041 *                                                                 DTSBD386
00042 *        MTAA                                                     DTSBD386
00043 *                                                                 DTSBD386
00044 *                                                                 DTSBD386
00045 *      REPORT RECORDS WRITTEN:                                    DTSBD386
00046 *                                                                 DTSBD386
00047 *        NONE                                                     DTSBD386
00048 *                                                                 DTSBD386
00049 *                                                                 DTSBD386
00050 *      MODULES CALLED:                                            DTSBD386
00051 *                                                                 DTSBD386
00052 *        DTSBU331 FORMAT AND WRITE MLOG RECORD OCCURRENCE.        DTSBD386
00053 *        DTSBU910 MASTER FILE I/O DRIVER.                         DTSBD386
00054 *        DTSBU927 BTC FILE OUTPUT.                                DTSBD386
00055 *        DTSBU941 VARIABLE LENGTH RECORD INPUT 1.                 DTSBD386
00056 *        DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1.     DTSBD386
00057 *        DTSBU947 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 2.     DTSBD386
00058 *                                                                 DTSBD386
00059 *****                                                             DTSBD386
00060      SKIP3                                                        DTSBD386
00061  ENVIRONMENT DIVISION.                                            DTSBD386
00062      SKIP3                                                        DTSBD386
00063  DATA DIVISION.                                                   DTSBD386
00064      EJECT                                                        DTSBD386
00065  WORKING-STORAGE SECTION.                                         DTSBD386
000655 77  PAN-VALET PICTURE X(24) VALUE '003DTSBD386  10/02/09'.       DTSBD386
00066      SKIP3                                                        DTSBD386
00067  01  WRK-AREA.                                                    DTSBD386
00068      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +386.DTSBD386
00069      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD386'.DTSBD386
00070      05  WRK-ABEND-MSG               PIC  X(60).                  DTSBD386
00071      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBD386
00072      05  WRK-EMP-NO                  PIC S9(07)  COMP-3.          DTSBD386
00073      05  WRK-TRACE-IND               PIC  X(01)  VALUE SPACES.    DTSBD386
00074      05  WRK-ID-NO                   PIC S9(03)  COMP-3.          DTSBD386
00075                                                                   DTSBD386
00076      05  WRK-NAME-FOUND-IND          PIC  X(01)  VALUE 'N'.       DTSBD386
00077          88  WRK-NAME-FOUND-YES-88    VALUE 'Y'.                  DTSBD386
00078          88  WRK-NAME-FOUND-NO-88     VALUE 'N'.                  DTSBD386
00079                                                                   DTSBD386
00080      05  DISP-DATE                   PIC  X(10)  VALUE SPACES.    DTSBD386
00081      05  DISP-TIME                   PIC  X(08)  VALUE SPACES.    DTSBD386
00082      05  DISP-ABSTIME                PIC  X(16)  VALUE SPACES.    DTSBD386
00083                                                                   DTSBD386
00084      05  WRK-MSG-TEXT.                                            DTSBD386
00085          10 WRK-MSG-LINE             PIC  X(50).                  DTSBD386
00086                                                                   DTSBD386
00087  01  MSG-TABLE.                                                   DTSBD386
00088      05  MSG1-AREA.                                               DTSBD386
00089          10  MSG1-ID         PIC  X(11)  VALUE 'DTSBD386001'.     DTSBD386
00090          10  MSG1-SHORT-TEXT PIC  X(20)  VALUE '               '. DTSBD386
00091          10  MSG1-LONG-TEXT.                                      DTSBD386
00092              15  FILLER      PIC  X(30)                           DTSBD386
00093                    VALUE 'TRANSACTION FAILED -          '.        DTSBD386
00094              15  FILLER      PIC  X(30)                           DTSBD386
00095                    VALUE '                              '.        DTSBD386
00096      EJECT                                                        DTSBD386
00097  01 Y106-REC.                                                     DTSBD386
00098  ++INCLUDE DTSIY106                                               DTSBD386
00099      EJECT                                                        DTSBD386
00100  01 L004-LINK-AREA.                                               DTSBD386
00101  ++INCLUDE DTSIL004                                               DTSBD386
00102      EJECT                                                        DTSBD386
00103  01 L005-LINK-AREA.                                               DTSBD386
00104  ++INCLUDE DTSIL005                                               DTSBD386
00105      EJECT                                                        DTSBD386
00106  01 L006-LINK-AREA.                                               DTSBD386
00107  ++INCLUDE DTSIL006                                               DTSBD386
00108      EJECT                                                        DTSBD386
00109  01 L056-LINK-AREA.                                               DTSBD386
00110  ++INCLUDE DTSIL056                                               DTSBD386
00111      EJECT                                                        DTSBD386
00112  01  L331-LINK-AREA.                                              DTSBD386
00113  ++INCLUDE DTSIL331                                               DTSBD386
00114      EJECT                                                        DTSBD386
00115  01  L910-LINK-AREA.                                              DTSBD386
00116  ++INCLUDE DTSIL910                                               DTSBD386
00117      EJECT                                                        DTSBD386
00118  01  MSKL-REC.                                                    DTSBD386
00119  ++INCLUDE DTSIMSKL                                               DTSBD386
00120      EJECT                                                        DTSBD386
00121  01  MTAD-REC.                                                    DTSBD386
00122  ++INCLUDE DTSIMTAD                                               DTSBD386
00123                                                                   DTSBD386
00124  01  MTAA-REC.                                                    DTSBD386
00125  ++INCLUDE DTSIMTAA                                               DTSBD386
00126                                                                   DTSBD386
00127  01  R907-REC.                                                    DTSBD386
00128  ++INCLUDE DTSIR907                                               DTSBD386
00129      EJECT                                                        DTSBD386
00130                                                                   DTSBD386
00131  LINKAGE SECTION.                                                 DTSBD386
00132      SKIP3                                                        DTSBD386
00133  01  LBCM-LINK-AREA.                                              DTSBD386
00134  ++INCLUDE DTSILBCM                                               DTSBD386
00135      EJECT                                                        DTSBD386
00136  01  MPRF-REC.                                                    DTSBD386
00137  ++INCLUDE DTSIMPRF                                               DTSBD386
00138      EJECT                                                        DTSBD386
00139  01  T002-REC.                                                    DTSBD386
00140  ++INCLUDE DTSIT002                                               DTSBD386
00141      EJECT                                                        DTSBD386
00142  PROCEDURE DIVISION USING LBCM-LINK-AREA                          DTSBD386
00143                           MPRF-REC                                DTSBD386
00144                           T002-REC.                               DTSBD386
00145                                                                   DTSBD386
00146      IF FIRST-TIME-IND = 'Y'                                      DTSBD386
00147          PERFORM I0000-INITIATE THRU I0000-EXIT                   DTSBD386
00148          MOVE 'N' TO FIRST-TIME-IND                               DTSBD386
00149      END-IF.                                                      DTSBD386
00150                                                                   DTSBD386
00151      PERFORM P0000-PROCESS THRU P0000-EXIT                        DTSBD386
00152                                                                   DTSBD386
00153      GOBACK.                                                      DTSBD386
00154                                                                   DTSBD386
00155  I0000-INITIATE.                                                  DTSBD386
00156                                                                   DTSBD386
00157      MOVE +0                  TO WRK-EMP-NO.                      DTSBD386
00158      MOVE LENGTH OF R907-REC  TO R907-LENGTH.                     DTSBD386
00159                                                                   DTSBD386
00160  I0000-EXIT.                                                      DTSBD386
00161      EXIT.                                                        DTSBD386
00162                                                                   DTSBD386
00163  P0000-PROCESS.                                                   DTSBD386
00164                                                                   DTSBD386
00165      IF T002-EMP-NAME-88                                          DTSBD386
00166         MOVE T002-DATA-AREA                 TO Y106-REC           DTSBD386
00167         IF Y106-EMP-NAME-ENTITY-88                                DTSBD386
00168            PERFORM P1000-ADD-ENTITY-NAME    THRU P1000-EXIT       DTSBD386
00169         ELSE                                                      DTSBD386
00170            IF Y106-EMP-NAME-TRADE-88                              DTSBD386
00171               PERFORM P2000-ADD-TRADE-NAME  THRU P2000-EXIT       DTSBD386
00172            END-IF                                                 DTSBD386
00173         END-IF                                                    DTSBD386
00174      END-IF.                                                      DTSBD386
00175                                                                   DTSBD386
00176                                                                   DTSBD386
00177  P0000-EXIT.                                                      DTSBD386
00178      EXIT.                                                        DTSBD386
00179                                                                   DTSBD386
00180  P1000-ADD-ENTITY-NAME.                                           DTSBD386
00181 *&                                                                DTSBD386
00182      DISPLAY 'BD386 P1000 ' MPRF-EMP-NO                           DTSBD386
00183         '  ' Y106-EMP-NAME                                        DTSBD386
00184 *&                                                                DTSBD386
00185      SET WRK-NAME-FOUND-NO-88          TO TRUE                    DTSBD386
00186      MOVE +0                           TO WRK-ID-NO.              DTSBD386
00187      DISPLAY 'WRK-ID 1 ' WRK-ID-NO.                               DTSBD386
00188                                                                   DTSBD386
00189      MOVE LOW-VALUES                   TO MPRF-REC.               DTSBD386
00190                                                                   DTSBD386
00191      MOVE T002-EMP-NO                  TO MPRF-EMP-NO.            DTSBD386
00192      SET MPRF-PRF-88                   TO TRUE.                   DTSBD386
00193      MOVE MPRF-KEY-AREA                TO MSKL-KEY-AREA.          DTSBD386
00194                                                                   DTSBD386
00195      PERFORM S910-READ                    THRU S910-EXIT.         DTSBD386
00196      IF L910-OK-88                                                DTSBD386
00197         MOVE MSKL-REC                 TO MPRF-REC                 DTSBD386
00198         IF MPRF-PRIMARY-IS-ENTITY-88                              DTSBD386
00199            IF MPRF-PRIMARY-NAME = Y106-EMP-NAME                   DTSBD386
00200               DISPLAY 'NEW NAME SAME AS EXISTING NAME '           DTSBD386
00201               GO TO P1000-EXIT                                    DTSBD386
00202            END-IF                                                 DTSBD386
00203         ELSE                                                      DTSBD386
00204            IF MPRF-ENTITY-NAME = Y106-EMP-NAME                    DTSBD386
00205               DISPLAY 'NEW NAME SAME AS EXISTING NAME '           DTSBD386
00206               GO TO P1000-EXIT                                    DTSBD386
00207            END-IF                                                 DTSBD386
00208         END-IF                                                    DTSBD386
00209      END-IF.                                                      DTSBD386
00210                                                                   DTSBD386
00211      PERFORM S330-INIT-MLOG            THRU S330-EXIT.            DTSBD386
00212                                                                   DTSBD386
00213                                                                   DTSBD386
00214      IF MPRF-PRIMARY-IS-ENTITY-88                                 DTSBD386
00215         MOVE 'MPRF-PRIMARY-NAME'       TO L331-FIELD-NAME         DTSBD386
00216      ELSE                                                         DTSBD386
00217         MOVE 'MPRF-ENTITY-NAME'        TO L331-FIELD-NAME         DTSBD386
00218      END-IF.                                                      DTSBD386
00219      MOVE  SPACES                      TO L331-FROM-VALUE         DTSBD386
00220      MOVE  Y106-EMP-NAME               TO L331-TO-VALUE           DTSBD386
00221      PERFORM S331-WRITE-MLOG           THRU S331-EXIT             DTSBD386
00222      IF MPRF-PRIMARY-IS-ENTITY-88                                 DTSBD386
00223         MOVE Y106-EMP-NAME             TO MPRF-PRIMARY-NAME       DTSBD386
00224      ELSE                                                         DTSBD386
00225         MOVE Y106-EMP-NAME             TO MPRF-ENTITY-NAME        DTSBD386
00226      END-IF.                                                      DTSBD386
00227                                                                   DTSBD386
00228                                                                   DTSBD386
00229      MOVE LBCM-CURR-RUN-DATE           TO MPRF-CHNG-DATE.         DTSBD386
00230                                                                   DTSBD386
00231      MOVE MPRF-REC                     TO MSKL-REC.               DTSBD386
00232      PERFORM S910-REWRITE              THRU S910-EXIT.            DTSBD386
00233                                                                   DTSBD386
00234  P1000-EXIT.                                                      DTSBD386
00235      EXIT.                                                        DTSBD386
00236                                                                   DTSBD386
00237  P2000-ADD-TRADE-NAME.                                            DTSBD386
00238 *&                                                                DTSBD386
00239      DISPLAY 'BD386 P2000 ' MPRF-EMP-NO                           DTSBD386
00240         '  ' Y106-EMP-NAME                                        DTSBD386
00241 *&                                                                DTSBD386
00242      SET WRK-NAME-FOUND-NO-88          TO TRUE                    DTSBD386
00243      MOVE +0                           TO WRK-ID-NO.              DTSBD386
00244      DISPLAY 'WRK-ID 1 ' WRK-ID-NO.                               DTSBD386
00245                                                                   DTSBD386
00246      MOVE LOW-VALUES                   TO MTAA-REC.               DTSBD386
00247                                                                   DTSBD386
00248      MOVE T002-EMP-NO                  TO MTAA-EMP-NO.            DTSBD386
00249      SET MTAA-TAA-88                   TO TRUE.                   DTSBD386
00250      MOVE MTAA-KEY-AREA                TO MSKL-KEY-AREA.          DTSBD386
00251                                                                   DTSBD386
00252      PERFORM S910-START-BROWSE            THRU S910-EXIT.         DTSBD386
00253      IF L910-OK-88                                                DTSBD386
00254         PERFORM                                                   DTSBD386
00255           UNTIL L910-NO-REC-88                                    DTSBD386
00256           OR WRK-NAME-FOUND-YES-88                                DTSBD386
00257             MOVE MSKL-REC                 TO MTAA-REC             DTSBD386
00258             DISPLAY 'L910 RESULT ' L910-RESULT-IND                DTSBD386
00259             MOVE MTAA-ID-NO               TO WRK-ID-NO            DTSBD386
00260             IF WRK-ID-NO NUMERIC                                  DTSBD386
00261               DISPLAY 'WRK-ID 2 ' WRK-ID-NO                       DTSBD386
00262             ELSE                                                  DTSBD386
00263               DISPLAY 'NON NUMERIC ID 2 '                         DTSBD386
00264             END-IF                                                DTSBD386
00265             IF MTAA-NAME = Y106-EMP-NAME                          DTSBD386
00266                SET WRK-NAME-FOUND-YES-88  TO TRUE                 DTSBD386
00267             ELSE                                                  DTSBD386
00268                PERFORM S910-READ-NEXT     THRU S910-EXIT          DTSBD386
00269             END-IF                                                DTSBD386
00270          END-PERFORM                                              DTSBD386
00271      END-IF.                                                      DTSBD386
00272                                                                   DTSBD386
00273      IF WRK-NAME-FOUND-YES-88                                     DTSBD386
00274         GO TO P2000-EXIT                                          DTSBD386
00275      END-IF.                                                      DTSBD386
00276                                                                   DTSBD386
00277      PERFORM S330-INIT-MLOG            THRU S330-EXIT.            DTSBD386
00278                                                                   DTSBD386
00279      MOVE T002-EMP-NO                  TO MTAA-EMP-NO.            DTSBD386
00280             IF WRK-ID-NO NUMERIC                                  DTSBD386
00281               DISPLAY 'WRK-ID 3 ' WRK-ID-NO                       DTSBD386
00282             ELSE                                                  DTSBD386
00283               DISPLAY 'NON NUMERIC ID 3 '                         DTSBD386
00284             END-IF.                                               DTSBD386
00285      ADD +1                            TO WRK-ID-NO.              DTSBD386
00286      MOVE WRK-ID-NO                    TO MTAA-ID-NO.             DTSBD386
00287                                                                   DTSBD386
00288                                                                   DTSBD386
00289      MOVE +0                           TO MTAA-PURGE-DATE.        DTSBD386
00290                                                                   DTSBD386
00291      MOVE 'MTAA-NAME'                  TO L331-FIELD-NAME         DTSBD386
00292      MOVE  SPACES                      TO L331-FROM-VALUE         DTSBD386
00293      MOVE  Y106-EMP-NAME               TO L331-TO-VALUE           DTSBD386
00294      PERFORM S331-WRITE-MLOG           THRU S331-EXIT             DTSBD386
00295      MOVE Y106-EMP-NAME                TO MTAA-NAME.              DTSBD386
00296                                                                   DTSBD386
00297      MOVE SPACES                       TO MTAA-ADDRESS.           DTSBD386
00298      MOVE SPACES                       TO MTAA-PHONE-NUMBERS.     DTSBD386
00299      MOVE SPACES                       TO MTAA-EMAIL-ADDRESS.     DTSBD386
00300      SET MTAA-UC223-NO-88              TO TRUE.                   DTSBD386
00301      SET MTAA-MISSING-RPT-LTRS-NO-88   TO TRUE.                   DTSBD386
00302      SET MTAA-PHYSICAL-ADDRESS-NO-88   TO TRUE.                   DTSBD386
00303                                                                   DTSBD386
00304      MOVE LBCM-ABSTIME                 TO MTAA-ESTB-ABSTIME       DTSBD386
00305                                                                   DTSBD386
00306      MOVE LBCM-CURR-RUN-DATE           TO MTAA-ESTB-DATE          DTSBD386
00307                                           MTAA-CHNG-DATE.         DTSBD386
00308      SET MTAA-NOT-CONVERTED-88         TO TRUE.                   DTSBD386
00309                                                                   DTSBD386
00310      MOVE MTAA-REC                     TO MSKL-REC.               DTSBD386
00311      PERFORM S910-WRITE                THRU S910-EXIT.            DTSBD386
00312                                                                   DTSBD386
00313                                                                   DTSBD386
00314  P2000-EXIT.                                                      DTSBD386
00315      EXIT.                                                        DTSBD386
00316                                                                   DTSBD386
00317  S005-FROM-ABSTIME.                                               DTSBD386
00318      SET L005-FROM-ABSTIME       TO TRUE.                         DTSBD386
00319      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBD386
00320                                                                   DTSBD386
00321  S005-EXIT.                                                       DTSBD386
00322      EXIT.                                                        DTSBD386
00323                                                                   DTSBD386
00324  S330-INIT-MLOG.                                                  DTSBD386
00325      MOVE T002-EMP-NO            TO L331-EMP-NO.                  DTSBD386
00326      MOVE LBCM-CURR-RUN-DATE     TO L331-CURR-RUN-DATE.           DTSBD386
00327      ADD  +1000                  TO LBCM-EMP-ABSTIME.             DTSBD386
00328      MOVE LBCM-EMP-ABSTIME       TO L331-UPDATE-ABSTIME.          DTSBD386
00329      MOVE T002-OP-ID             TO L331-OP-ID.                   DTSBD386
00330      MOVE LBCM-ABSTIME           TO L005-ABSTIME.                 DTSBD386
00331      PERFORM S005-FROM-ABSTIME   THRU S005-EXIT.                  DTSBD386
00332      MOVE L005-DATE-8-SLASH-TIME TO L331-REC-OCC-ID.              DTSBD386
00333                                                                   DTSBD386
00334  S330-EXIT.                                                       DTSBD386
00335      EXIT.                                                        DTSBD386
00336                                                                   DTSBD386
00337  S331-WRITE-MLOG.                                                 DTSBD386
00338      CALL 'DTSBU331' USING L331-LINK-AREA.                        DTSBD386
00339      SET LBCM-EMP-UPDATE-YES-88  TO TRUE.                         DTSBD386
00340                                                                   DTSBD386
00341  S331-EXIT.                                                       DTSBD386
00342      EXIT.                                                        DTSBD386
00343                                                                   DTSBD386
00344  S910-OPEN-READ.                                                  DTSBD386
00345      SET L910-OPEN-READ-88 TO TRUE.                               DTSBD386
00346      GO TO S910-MSTR-IO.                                          DTSBD386
00347                                                                   DTSBD386
00348  S910-OPEN-UPDATE.                                                DTSBD386
00349      SET L910-OPEN-UPDATE-88 TO TRUE.                             DTSBD386
00350      GO TO S910-MSTR-IO.                                          DTSBD386
00351                                                                   DTSBD386
00352  S910-OPEN-UPDATE-NO-AIX.                                         DTSBD386
00353      SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE.                      DTSBD386
00354      GO TO S910-MSTR-IO.                                          DTSBD386
00355                                                                   DTSBD386
00356  S910-READ.                                                       DTSBD386
00357      SET L910-READ-88 TO TRUE.                                    DTSBD386
00358      GO TO S910-MSTR-IO.                                          DTSBD386
00359                                                                   DTSBD386
00360  S910-START-BROWSE.                                               DTSBD386
00361      SET L910-START-BROWSE-88 TO TRUE.                            DTSBD386
00362      GO TO S910-MSTR-IO.                                          DTSBD386
00363                                                                   DTSBD386
00364  S910-READ-NEXT.                                                  DTSBD386
00365      SET L910-READ-NEXT-88 TO TRUE.                               DTSBD386
00366      GO TO S910-MSTR-IO.                                          DTSBD386
00367                                                                   DTSBD386
00368  S910-COUNT.                                                      DTSBD386
00369      SET L910-COUNT-88 TO TRUE.                                   DTSBD386
00370      GO TO S910-MSTR-IO.                                          DTSBD386
00371                                                                   DTSBD386
00372  S910-WRITE.                                                      DTSBD386
00373      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD386
00374      SET L910-WRITE-88 TO TRUE.                                   DTSBD386
00375      GO TO S910-MSTR-IO.                                          DTSBD386
00376                                                                   DTSBD386
00377  S910-REWRITE.                                                    DTSBD386
00378      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD386
00379      SET L910-REWRITE-88 TO TRUE.                                 DTSBD386
00380      GO TO S910-MSTR-IO.                                          DTSBD386
00381                                                                   DTSBD386
00382  S910-DELETE.                                                     DTSBD386
00383      SET L910-DELETE-88 TO TRUE.                                  DTSBD386
00384      GO TO S910-MSTR-IO.                                          DTSBD386
00385                                                                   DTSBD386
00386  S910-CLOSE.                                                      DTSBD386
00387      SET L910-CLOSE-88     TO TRUE.                               DTSBD386
00388      GO TO S910-MSTR-IO.                                          DTSBD386
00389                                                                   DTSBD386
00390  S910-MSTR-IO.                                                    DTSBD386
00391      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBD386
00392                            MSKL-REC.                              DTSBD386
00393  S910-EXIT.                                                       DTSBD386
00394      EXIT.                                                        DTSBD386
00395                                                                   DTSBD386
00396  S947-WRITE-R907.                                                 DTSBD386
00397      CALL 'DTSBU947' USING R907-REC.                              DTSBD386
00398                                                                   DTSBD386
00399  S947-EXIT.                                                       DTSBD386
00400      EXIT.                                                        DTSBD386
00401                                                                   DTSBD386
00402  S999-ABEND.                                                      DTSBD386
00403      DISPLAY '*** DTSBD383 ABENDING : '                           DTSBD386
00404              WRK-ABEND-MSG.                                       DTSBD386
00405                                                                   DTSBD386
00406      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD386
00407  S999-EXIT.                                                       DTSBD386
00408      EXIT.                                                        DTSBD386
00409                                                                   DTSBD386
