00001  IDENTIFICATION DIVISION.                                         10/02/09
00002  PROGRAM-ID.             DTSBD381.                                DTSBD381
00003  AUTHOR.                 NORTHROP GRUMMAN.                           LV003
00004  DATE-WRITTEN.           JUNE 2005.                               DTSBD381
00005  DATE-COMPILED.                                                   DTSBD381
00006                                                                   DTSBD381
00007 *****                                                             DTSBD381
00008 *                                                                 DTSBD381
00009 *    FUNCTION:  ADD MSOL, MERD RECORDS FOR WEB LIABILITY          DTSBD381
00010 *               DETERMINATIONS. INPUT DATA FROM T002 TRANSACTION. DTSBD381
00011 *                                                                 DTSBD381
00012 *    MODIFICATION LOG:                                            DTSBD381
00013 *                                                                 DTSBD381
00014 *    06/01/2005  INITIAL DEVELOPMENT.                             DTSBD381
00015 *                WORK ORDER:                      PROGRAMMER: GD  DTSBD381
00016 *                                                                 DTSBD381
00017 *    09/25/2009  MODIFIED S330 TO SET L331-OP-ID FROM T002-OP-ID  DTSBD381
00018 *                TO DISTINGUISH MODIFICATIONS FROM THE WEB FROM   DTSBD381
00019 *                THOSE MADE BY STAFF.                             DTSBD381
00020 *                WORK ORDER:                      PROGRAMMER: GD  DTSBD381
00021 *                                                                 DTSBD381
00022 *    MM/DD/CCYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD381
00023 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD381
00024 *               REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX    DTSBD381
00025 *                                                                 DTSBD381
00026 *                                                                 DTSBD381
00027 *  DESCRIPTION:                                                   DTSBD381
00028 *                                                                 DTSBD381
00029 *                                                                 DTSBD381
00030 *                                                                 DTSBD381
00031 *      MASTER FILE RECORDS READ:                                  DTSBD381
00032 *                                                                 DTSBD381
00033 *        NONE                                                     DTSBD381
00034 *                                                                 DTSBD381
00035 *                                                                 DTSBD381
00036 *      MASTER FILE RECORDS UPDATED:                               DTSBD381
00037 *                                                                 DTSBD381
00038 *        MSOL AND MERD                                            DTSBD381
00039 *                                                                 DTSBD381
00040 *                                                                 DTSBD381
00041 *      REPORT RECORDS WRITTEN:                                    DTSBD381
00042 *                                                                 DTSBD381
00043 *        NONE                                                     DTSBD381
00044 *                                                                 DTSBD381
00045 *                                                                 DTSBD381
00046 *      MODULES CALLED:                                            DTSBD381
00047 *                                                                 DTSBD381
00048 *        DTSBU331 FORMAT AND WRITE MLOG RECORD OCCURRENCE.        DTSBD381
00049 *        DTSBU910 MASTER FILE I/O DRIVER.                         DTSBD381
00050 *        DTSBU927 BTC FILE OUTPUT.                                DTSBD381
00051 *        DTSBU941 VARIABLE LENGTH RECORD INPUT 1.                 DTSBD381
00052 *        DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1.     DTSBD381
00053 *        DTSBU947 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 2.     DTSBD381
00054 *                                                                 DTSBD381
00055 *****                                                             DTSBD381
00056      SKIP3                                                        DTSBD381
00057  ENVIRONMENT DIVISION.                                            DTSBD381
00058      SKIP3                                                        DTSBD381
00059  DATA DIVISION.                                                   DTSBD381
00060      EJECT                                                        DTSBD381
00061  WORKING-STORAGE SECTION.                                         DTSBD381
000615 77  PAN-VALET PICTURE X(24) VALUE '003DTSBD381  10/02/09'.       DTSBD381
00062      SKIP3                                                        DTSBD381
00063  01  WRK-AREA.                                                    DTSBD381
00064      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +381.DTSBD381
00065      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD381'.DTSBD381
00066      05  WRK-ABEND-MSG               PIC  X(60).                  DTSBD381
00067      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBD381
00068      05  WRK-EMP-NO                  PIC S9(07)  COMP-3.          DTSBD381
00069      05  WRK-TRACE-IND               PIC  X(01)  VALUE SPACES.    DTSBD381
00070                                                                   DTSBD381
00071      05  WRK-LIAB-DATE               PIC S9(09)  COMP-3 VALUE 0.  DTSBD381
00072      05  WRK-INACT-DATE              PIC S9(09)  COMP-3 VALUE 0.  DTSBD381
00073      05  WRK-FIRST-LIAB-YRQ          PIC S9(05)  COMP-3 VALUE 0.  DTSBD381
00074      05  WRK-LAST-LIAB-YRQ           PIC S9(05)  COMP-3 VALUE 0.  DTSBD381
00075      05  WRK-ALL-NINES-QTR           PIC S9(05)  COMP-3           DTSBD381
00076                                        VALUE +99999.              DTSBD381
00077      05  WRK-ALL-NINES-DATE          PIC S9(09)  COMP-3           DTSBD381
00078                                        VALUE +999999999.          DTSBD381
00079                                                                   DTSBD381
00080      05  WRK-MSOL-CNT                PIC S9(07)  COMP-3 VALUE 0.  DTSBD381
00081      05  WRK-MERD-CNT                PIC S9(07)  COMP-3 VALUE 0.  DTSBD381
00082      05  WRK-R907-REC-CNT            PIC S9(07)  COMP-3 VALUE 0.  DTSBD381
00083                                                                   DTSBD381
00084      05  DISP-DATE                   PIC  X(10)  VALUE SPACES.    DTSBD381
00085      05  DISP-TIME                   PIC  X(08)  VALUE SPACES.    DTSBD381
00086      05  DISP-ABSTIME                PIC  X(16)  VALUE SPACES.    DTSBD381
00087                                                                   DTSBD381
00088      05  WRK-CURR-TIME               PIC  S9(07) COMP-3 VALUE +0. DTSBD381
00089      05  WRK-CURR-DATE               PIC  S9(09) COMP-3 VALUE +0. DTSBD381
00090      05  WRK-CURR-YR                 PIC  9(04)  VALUE ZEROS.     DTSBD381
00091      05  WRK-ABSTIME                 PIC  S9(15) COMP-3 VALUE +0. DTSBD381
00092                                                                   DTSBD381
00093      05  WRK-MSG-TEXT.                                            DTSBD381
00094          10 WRK-MSG-LINE             PIC  X(50).                  DTSBD381
00095                                                                   DTSBD381
00096  01  MSG-TABLE.                                                   DTSBD381
00097      05  MSG1-ADDRESS-MISSING.                                    DTSBD381
00098          10  MSG1-ID         PIC  X(11)  VALUE 'DTSBD383909'.     DTSBD381
00099          10  MSG1-SHORT-TEXT PIC  X(20)  VALUE 'NAME & ADDR CHG'. DTSBD381
00100          10  MSG1-LONG-TEXT.                                      DTSBD381
00101              15  FILLER      PIC  X(30)                           DTSBD381
00102                    VALUE 'TRANSACTION FAILED - EXPECTED '.        DTSBD381
00103              15  FILLER      PIC  X(30)                           DTSBD381
00104                    VALUE 'NAME OR ADDRESS NOT FOUND     '.        DTSBD381
00105      EJECT                                                        DTSBD381
00106  01  Y104-REC.                                                    DTSBD381
00107  ++INCLUDE DTSIY104                                               DTSBD381
00108      EJECT                                                        DTSBD381
00109  01  L001-LINK-AREA.                                              DTSBD381
00110  ++INCLUDE DTSIL001                                               DTSBD381
00111      EJECT                                                        DTSBD381
00112  01  L004-LINK-AREA.                                              DTSBD381
00113  ++INCLUDE DTSIL004                                               DTSBD381
00114      EJECT                                                        DTSBD381
00115  01  L331-LINK-AREA.                                              DTSBD381
00116  ++INCLUDE DTSIL331                                               DTSBD381
00117      EJECT                                                        DTSBD381
00118  01  L910-LINK-AREA.                                              DTSBD381
00119  ++INCLUDE DTSIL910                                               DTSBD381
00120      EJECT                                                        DTSBD381
00121  01  MSKL-REC.                                                    DTSBD381
00122  ++INCLUDE DTSIMSKL                                               DTSBD381
00123      EJECT                                                        DTSBD381
00124  01  MSOL-REC.                                                    DTSBD381
00125  ++INCLUDE DTSIMSOL                                               DTSBD381
00126  01  MERD-REC.                                                    DTSBD381
00127  ++INCLUDE DTSIMERD                                               DTSBD381
00128      EJECT                                                        DTSBD381
00129  01  RSKL-REC.                                                    DTSBD381
00130  ++INCLUDE DTSIRSK1                                               DTSBD381
00131      EJECT                                                        DTSBD381
00132  01  R128-REC.                                                    DTSBD381
00133  ++INCLUDE DTSIR128                                               DTSBD381
00134      EJECT                                                        DTSBD381
00135  01  R907-REC.                                                    DTSBD381
00136  ++INCLUDE DTSIR907                                               DTSBD381
00137      EJECT                                                        DTSBD381
00138                                                                   DTSBD381
00139  LINKAGE SECTION.                                                 DTSBD381
00140      SKIP3                                                        DTSBD381
00141  01  LBCM-LINK-AREA.                                              DTSBD381
00142  ++INCLUDE DTSILBCM                                               DTSBD381
00143      EJECT                                                        DTSBD381
00144  01  MPRF-REC.                                                    DTSBD381
00145  ++INCLUDE DTSIMPRF                                               DTSBD381
00146      EJECT                                                        DTSBD381
00147  01  T002-REC.                                                    DTSBD381
00148  ++INCLUDE DTSIT002                                               DTSBD381
00149      EJECT                                                        DTSBD381
00150  PROCEDURE DIVISION USING LBCM-LINK-AREA                          DTSBD381
00151                           MPRF-REC                                DTSBD381
00152                           T002-REC.                               DTSBD381
00153                                                                   DTSBD381
00154      IF FIRST-TIME-IND = 'Y'                                      DTSBD381
00155          PERFORM I0000-INITIATE THRU I0000-EXIT                   DTSBD381
00156          MOVE 'N' TO FIRST-TIME-IND                               DTSBD381
00157      END-IF.                                                      DTSBD381
00158                                                                   DTSBD381
00159      IF MPRF-EMP-NO  NOT =  WRK-EMP-NO                            DTSBD381
00160          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBD381
00161          MOVE MPRF-EMP-NO TO WRK-EMP-NO                           DTSBD381
00162      END-IF.                                                      DTSBD381
00163                                                                   DTSBD381
00164      GOBACK.                                                      DTSBD381
00165                                                                   DTSBD381
00166  I0000-INITIATE.                                                  DTSBD381
00167                                                                   DTSBD381
00168      MOVE +0 TO WRK-EMP-NO.                                       DTSBD381
00169      MOVE LENGTH OF R128-REC  TO R128-LENGTH.                     DTSBD381
00170      MOVE LENGTH OF R907-REC  TO R907-LENGTH.                     DTSBD381
00171                                                                   DTSBD381
00172  I0000-EXIT.                                                      DTSBD381
00173      EXIT.                                                        DTSBD381
00174                                                                   DTSBD381
00175  P0000-PROCESS.                                                   DTSBD381
00176      IF T002-DETERM-88                                            DTSBD381
00177         MOVE T002-DATA-AREA            TO Y104-REC                DTSBD381
00178         DISPLAY 'BD381 ' T002-EMP-NO                              DTSBD381
00179            '  ' Y104-STAFF-REVIEW-IND                             DTSBD381
00180         IF Y104-STAFF-REVIEW-YES-88                               DTSBD381
00181         OR Y104-LIAB-CD = SPACES                                  DTSBD381
00182         OR MPRF-ELIGIBLE-NOT-SUBJECT-88                           DTSBD381
00183            PERFORM P3000-WRITE-R128    THRU P3000-EXIT            DTSBD381
00184         ELSE                                                      DTSBD381
00185            PERFORM P1000-ADD-MSOL      THRU P1000-EXIT            DTSBD381
00186            PERFORM P2000-ADD-MERD      THRU P2000-EXIT            DTSBD381
00187            PERFORM P3000-WRITE-R128    THRU P3000-EXIT            DTSBD381
00188         END-IF                                                    DTSBD381
00189      ELSE                                                         DTSBD381
00190         GO TO P0000-EXIT                                          DTSBD381
00191      END-IF.                                                      DTSBD381
00192                                                                   DTSBD381
00193  P0000-EXIT.                                                      DTSBD381
00194      EXIT.                                                        DTSBD381
00195                                                                   DTSBD381
00196  P1000-ADD-MSOL.                                                  DTSBD381
00197      PERFORM S330-INIT-MLOG        THRU S330-EXIT.                DTSBD381
00198                                                                   DTSBD381
00199      PERFORM P1100-LIAB-DATES      THRU P1100-EXIT.               DTSBD381
00200                                                                   DTSBD381
00201      MOVE WRK-LIAB-DATE            TO L001-FED-8-DATE-9.          DTSBD381
00202      MOVE L001-FED-8-DATE-X        TO L331-REC-OCC-ID.            DTSBD381
00203      MOVE SPACE                    TO L331-FROM-VALUE.            DTSBD381
00204                                                                   DTSBD381
00205      MOVE LOW-VALUES               TO MSOL-REC.                   DTSBD381
00206      MOVE T002-EMP-NO              TO MSOL-EMP-NO.                DTSBD381
00207      SET MSOL-SOL-88               TO TRUE.                       DTSBD381
00208      MOVE WRK-LIAB-DATE            TO MSOL-LIAB-DATE.             DTSBD381
00209      MOVE +0                       TO MSOL-PURGE-DATE.            DTSBD381
00210                                                                   DTSBD381
00211                                                                   DTSBD381
00212      MOVE WRK-FIRST-LIAB-YRQ    TO MSOL-FIRST-LIAB-YRQ.           DTSBD381
00213      MOVE 'MSOL-FIRST-LIAB-YRQ' TO L331-FIELD-NAME.               DTSBD381
00214      MOVE WRK-FIRST-LIAB-YRQ    TO L004-QTR-5-9.                  DTSBD381
00215      SET L004-FROM-5            TO TRUE.                          DTSBD381
00216      PERFORM S004-YRQ           THRU S004-EXIT.                   DTSBD381
00217      MOVE L004-SLASH-QTR        TO L331-TO-VALUE.                 DTSBD381
00218      PERFORM S331-WRITE-MLOG    THRU S331-EXIT.                   DTSBD381
00219                                                                   DTSBD381
00220      MOVE WRK-LIAB-DATE         TO MSOL-LIAB-ESTB-DATE.           DTSBD381
00221      MOVE 'MSOL-LIAB-ESTB-DATE' TO L331-FIELD-NAME.               DTSBD381
00222      MOVE MSOL-LIAB-ESTB-DATE   TO L001-FED-8-DATE-9.             DTSBD381
00223      SET L001-FROM-FED-8        TO TRUE.                          DTSBD381
00224      PERFORM S001-DATE          THRU S001-EXIT.                   DTSBD381
00225      MOVE L001-SLASH-DATE       TO L331-TO-VALUE.                 DTSBD381
00226      PERFORM S331-WRITE-MLOG    THRU S331-EXIT.                   DTSBD381
00227                                                                   DTSBD381
00228      MOVE +0                    TO MSOL-LIAB-MAIL-DATE.           DTSBD381
00229      MOVE Y104-LIAB-CD          TO MSOL-LIAB-CD.                  DTSBD381
00230      MOVE 'MSOL-LIAB-CD'        TO L331-FIELD-NAME.               DTSBD381
00231      MOVE MSOL-LIAB-CD          TO L331-TO-VALUE.                 DTSBD381
00232      PERFORM S331-WRITE-MLOG    THRU S331-EXIT.                   DTSBD381
00233                                                                   DTSBD381
00234      IF Y104-ACQUIRE-IND = 'N'                                    DTSBD381
00235      AND Y104-MERGE-SPLIT-IND = 'N'                               DTSBD381
00236      AND Y104-REORG-IND = 'N'                                     DTSBD381
00237         MOVE 'Y'                  TO MSOL-NEW-EMPLOYER-IND        DTSBD381
00238      ELSE                                                         DTSBD381
00239         MOVE 'N'                  TO MSOL-NEW-EMPLOYER-IND        DTSBD381
00240      END-IF.                                                      DTSBD381
00241      MOVE 'MSOL-NEW-EMPLOYER-IND' TO L331-FIELD-NAME.             DTSBD381
00242      MOVE MSOL-NEW-EMPLOYER-IND   TO L331-TO-VALUE.               DTSBD381
00243      PERFORM S331-WRITE-MLOG      THRU S331-EXIT.                 DTSBD381
00244                                                                   DTSBD381
00245      MOVE WRK-INACT-DATE          TO MSOL-INACT-DATE.             DTSBD381
00246      IF WRK-INACT-DATE = WRK-ALL-NINES-DATE                       DTSBD381
00247          NEXT SENTENCE                                            DTSBD381
00248      ELSE                                                         DTSBD381
00249          MOVE 'MSOL-INACT-DATE'   TO L331-FIELD-NAME              DTSBD381
00250          MOVE MSOL-INACT-DATE     TO L001-FED-8-DATE-9            DTSBD381
00251          SET L001-FROM-FED-8      TO TRUE                         DTSBD381
00252          PERFORM S001-DATE        THRU S001-EXIT                  DTSBD381
00253          MOVE L001-SLASH-DATE     TO L331-TO-VALUE                DTSBD381
00254          PERFORM S331-WRITE-MLOG  THRU S331-EXIT                  DTSBD381
00255      END-IF.                                                      DTSBD381
00256                                                                   DTSBD381
00257      IF WRK-INACT-DATE = WRK-ALL-NINES-DATE                       DTSBD381
00258          MOVE +0 TO MSOL-INACT-ENTER-DATE                         DTSBD381
00259      ELSE                                                         DTSBD381
00260          MOVE LBCM-CURR-RUN-DATE TO MSOL-INACT-ENTER-DATE         DTSBD381
00261      END-IF.                                                      DTSBD381
00262                                                                   DTSBD381
00263      MOVE +0 TO MSOL-INACT-REVERSE-DATE.                          DTSBD381
00264                                                                   DTSBD381
00265      MOVE WRK-LAST-LIAB-YRQ TO MSOL-LAST-LIAB-YRQ.                DTSBD381
00266                                                                   DTSBD381
00267      IF WRK-LAST-LIAB-YRQ = +0 OR WRK-ALL-NINES-QTR               DTSBD381
00268          NEXT SENTENCE                                            DTSBD381
00269      ELSE                                                         DTSBD381
00270          MOVE 'MSOL-LAST-LIAB-YRQ'   TO L331-FIELD-NAME           DTSBD381
00271          MOVE WRK-LAST-LIAB-YRQ      TO L004-QTR-5-9              DTSBD381
00272          SET L004-FROM-5             TO TRUE                      DTSBD381
00273          PERFORM S004-YRQ            THRU S004-EXIT               DTSBD381
00274          MOVE L004-SLASH-QTR         TO L331-TO-VALUE             DTSBD381
00275          PERFORM S331-WRITE-MLOG     THRU S331-EXIT               DTSBD381
00276      END-IF.                                                      DTSBD381
00277                                                                   DTSBD381
00278      IF WRK-INACT-DATE = WRK-ALL-NINES-DATE                       DTSBD381
00279         SET MSOL-INACT-ACTIVE-88   TO TRUE                        DTSBD381
00280      ELSE                                                         DTSBD381
00281          SET MSOL-INACT-OUT-OF-BUS-88 TO TRUE                     DTSBD381
00282          MOVE 'MSOL-INACT-CD' TO L331-FIELD-NAME                  DTSBD381
00283          MOVE MSOL-INACT-CD TO L331-TO-VALUE                      DTSBD381
00284          PERFORM S331-WRITE-MLOG THRU S331-EXIT                   DTSBD381
00285      END-IF.                                                      DTSBD381
00286                                                                   DTSBD381
00287                                                                   DTSBD381
00288      SET MSOL-NOT-CONVERTED-88 TO TRUE.                           DTSBD381
00289                                                                   DTSBD381
00290      MOVE LBCM-CURR-RUN-DATE TO MSOL-ESTB-DATE                    DTSBD381
00291                                 MSOL-CHNG-DATE.                   DTSBD381
00292                                                                   DTSBD381
00293      MOVE MSOL-REC TO MSKL-REC.                                   DTSBD381
00294                                                                   DTSBD381
00295      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD381
00296                                                                   DTSBD381
00297  P1000-EXIT.                                                      DTSBD381
00298      EXIT.                                                        DTSBD381
00299                                                                   DTSBD381
00300  P1100-LIAB-DATES.                                                DTSBD381
00301      MOVE Y104-FIRST-WAGE-DT  TO L004-DATE                        DTSBD381
00302                                  WRK-LIAB-DATE.                   DTSBD381
00303      PERFORM S004-FROM-DATE   THRU S004-EXIT                      DTSBD381
00304      IF NOT L004-VALID-QTR                                        DTSBD381
00305         DISPLAY 'P1100: INVALID FIRST WAGE DATE '                 DTSBD381
00306            T002-EMP-NO '  ' Y104-FIRST-WAGE-DT                    DTSBD381
00307         MOVE 'INVALID FIRST WAGE DATE' TO WRK-ABEND-MSG           DTSBD381
00308         PERFORM S999-ABEND         THRU S999-EXIT                 DTSBD381
00309      ELSE                                                         DTSBD381
00310         MOVE L004-QTR-5-9          TO WRK-FIRST-LIAB-YRQ          DTSBD381
00311      END-IF.                                                      DTSBD381
00312                                                                   DTSBD381
00313      MOVE WRK-ALL-NINES-QTR        TO WRK-LAST-LIAB-YRQ.          DTSBD381
00314      MOVE WRK-ALL-NINES-DATE       TO WRK-INACT-DATE.             DTSBD381
00315                                                                   DTSBD381
00316 ***  IF Y104-LAST-WAGE-DT = ZERO                                  DTSBD381
00317 *       MOVE WRK-ALL-NINES-QTR     TO WRK-LAST-LIAB-YRQ           DTSBD381
00318 *       MOVE WRK-ALL-NINES-DATE    TO WRK-INACT-DATE              DTSBD381
00319 *    ELSE                                                         DTSBD381
00320 *       MOVE Y104-LAST-WAGE-DT     TO L004-DATE                   DTSBD381
00321 *                                     WRK-INACT-DATE              DTSBD381
00322 *       PERFORM S004-FROM-DATE     THRU S004-EXIT                 DTSBD381
00323 *       IF NOT L004-VALID-QTR                                     DTSBD381
00324 *          DISPLAY 'P1100: INVALID FIRST WAGE DATE '              DTSBD381
00325 *             T002-EMP-NO '  ' Y104-FIRST-WAGE-DT                 DTSBD381
00326 *          MOVE 'INVALID FIRST WAGE DATE' TO WRK-ABEND-MSG        DTSBD381
00327 *          PERFORM S999-ABEND         THRU S999-EXIT              DTSBD381
00328 *       ELSE                                                      DTSBD381
00329 *          MOVE L004-QTR-5-9       TO WRK-LAST-LIAB-YRQ           DTSBD381
00330 *       END-IF                                                    DTSBD381
00331 ***  END-IF.                                                      DTSBD381
00332                                                                   DTSBD381
00333 *&                                                                DTSBD381
00334      DISPLAY 'BD381 P1100 LIAB DATE ' WRK-LIAB-DATE               DTSBD381
00335         '  FIRST QTR ' WRK-FIRST-LIAB-YRQ                         DTSBD381
00336         '  LAST QTR ' WRK-LAST-LIAB-YRQ                           DTSBD381
00337         '  INACT ' WRK-INACT-DATE.                                DTSBD381
00338 *&                                                                DTSBD381
00339  P1100-EXIT.                                                      DTSBD381
00340      EXIT.                                                        DTSBD381
00341                                                                   DTSBD381
00342  P2000-ADD-MERD.                                                  DTSBD381
00343      MOVE LOW-VALUES TO MERD-REC.                                 DTSBD381
00344                                                                   DTSBD381
00345      MOVE T002-EMP-NO TO MERD-EMP-NO.                             DTSBD381
00346                                                                   DTSBD381
00347      SET MERD-ERD-88 TO TRUE.                                     DTSBD381
00348                                                                   DTSBD381
00349      ADD  +1000                  TO LBCM-EMP-ABSTIME.             DTSBD381
00350      MOVE LBCM-ABSTIME           TO MERD-ESTB-ABSTIME.            DTSBD381
00351                                                                   DTSBD381
00352      MOVE +0 TO MERD-PURGE-DATE.                                  DTSBD381
00353                                                                   DTSBD381
00354      IF MSOL-NEW-EMP-88                                           DTSBD381
00355          SET MERD-DETER-NEW-88 TO TRUE                            DTSBD381
00356      ELSE                                                         DTSBD381
00357          SET MERD-DETER-SUC-88 TO TRUE                            DTSBD381
00358      END-IF.                                                      DTSBD381
00359                                                                   DTSBD381
00360      MOVE MSOL-LIAB-ESTB-DATE TO MERD-EFFECTIVE-DATE.             DTSBD381
00361                                                                   DTSBD381
00362      MOVE SPACES     TO MERD-SCREEN-ID.                           DTSBD381
00363                                                                   DTSBD381
00364      EVALUATE TRUE                                                DTSBD381
00365        WHEN Y104-SOURCE-WEB-88                                    DTSBD381
00366           MOVE 'WEB REG '    TO MERD-OP-ID                        DTSBD381
00367                                                                   DTSBD381
00368        WHEN Y104-SOURCE-UC30-SYS-88                               DTSBD381
00369           MOVE 'UC30 SYS'    TO MERD-OP-ID                        DTSBD381
00370                                                                   DTSBD381
00371        WHEN Y104-SOURCE-FISC-AGNT-88                              DTSBD381
00372           MOVE 'FISC AGT'    TO MERD-OP-ID                        DTSBD381
00373                                                                   DTSBD381
00374        WHEN OTHER                                                 DTSBD381
00375           MOVE 'BATCH   '    TO MERD-OP-ID                        DTSBD381
00376                                                                   DTSBD381
00377      END-EVALUATE.                                                DTSBD381
00378                                                                   DTSBD381
00379      SET MERD-NOT-CONVERTED-88 TO TRUE.                           DTSBD381
00380                                                                   DTSBD381
00381      MOVE LBCM-CURR-RUN-DATE TO MERD-ESTB-DATE.                   DTSBD381
00382                                                                   DTSBD381
00383      MOVE MERD-REC TO MSKL-REC.                                   DTSBD381
00384                                                                   DTSBD381
00385      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD381
00386                                                                   DTSBD381
00387      IF MSOL-INACT-ACTIVE-88                                      DTSBD381
00388          NEXT SENTENCE                                            DTSBD381
00389      ELSE                                                         DTSBD381
00390          ADD +1 TO MERD-ESTB-ABSTIME                              DTSBD381
00391          SET MERD-DETER-INACT-88 TO TRUE                          DTSBD381
00392          MOVE MSOL-INACT-DATE TO MERD-EFFECTIVE-DATE              DTSBD381
00393          MOVE MERD-REC TO MSKL-REC                                DTSBD381
00394          PERFORM S910-WRITE THRU S910-EXIT                        DTSBD381
00395      END-IF.                                                      DTSBD381
00396                                                                   DTSBD381
00397  P2000-EXIT.                                                      DTSBD381
00398      EXIT.                                                        DTSBD381
00399                                                                   DTSBD381
00400  P3000-WRITE-R128.                                                DTSBD381
00401      MOVE '128'                TO R128-REC-TYPE.                  DTSBD381
00402      MOVE T002-EMP-NO          TO R128-EMP-NO.                    DTSBD381
00403      IF Y104-STAFF-REVIEW-YES-88                                  DTSBD381
00404      OR Y104-LIAB-CD = SPACES                                     DTSBD381
00405         SET R128-PENDING-DETERM-88  TO TRUE                       DTSBD381
00406      ELSE                                                         DTSBD381
00407         SET R128-LIAB-ENTERED-NEW-88  TO TRUE                     DTSBD381
00408      END-IF.                                                      DTSBD381
00409                                                                   DTSBD381
00410      MOVE Y104-SOURCE-CD       TO R128-SOURCE.                    DTSBD381
00411      IF Y104-TRADE-NAME NOT = SPACES                              DTSBD381
00412         MOVE Y104-TRADE-NAME   TO R128-LIAB-PRIMARY-NAME          DTSBD381
00413      ELSE                                                         DTSBD381
00414         MOVE Y104-ENTITY-NAME  TO R128-LIAB-PRIMARY-NAME          DTSBD381
00415      END-IF.                                                      DTSBD381
00416                                                                   DTSBD381
00417      MOVE LBCM-CURR-RUN-DATE   TO R128-ESTB-DATE.                 DTSBD381
00418                                                                   DTSBD381
00419      MOVE R128-REC             TO RSKL-REC.                       DTSBD381
00420      PERFORM S946-RPT-O        THRU S946-EXIT.                    DTSBD381
00421                                                                   DTSBD381
00422  P3000-EXIT.                                                      DTSBD381
00423      EXIT.                                                        DTSBD381
00424                                                                   DTSBD381
00425  S001-FROM-FED-8.                                                 DTSBD381
00426      SET L001-FROM-FED-8 TO TRUE.                                 DTSBD381
00427      GO TO S001-DATE.                                             DTSBD381
00428                                                                   DTSBD381
00429  S001-FROM-CAL-8.                                                 DTSBD381
00430      SET L001-FROM-CAL-8 TO TRUE.                                 DTSBD381
00431      GO TO S001-DATE.                                             DTSBD381
00432                                                                   DTSBD381
00433  S001-FROM-ABS-DAY.                                               DTSBD381
00434      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBD381
00435      GO TO S001-DATE.                                             DTSBD381
00436                                                                   DTSBD381
00437  S001-DATE.                                                       DTSBD381
00438      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBD381
00439  S001-EXIT.                                                       DTSBD381
00440      EXIT.                                                        DTSBD381
00441                                                                   DTSBD381
00442  S004-FROM-5.                                                     DTSBD381
00443      SET L004-FROM-5        TO TRUE.                              DTSBD381
00444      GO TO S004-YRQ.                                              DTSBD381
00445                                                                   DTSBD381
00446  S004-FROM-DATE.                                                  DTSBD381
00447      SET L004-FROM-DATE     TO TRUE.                              DTSBD381
00448      GO TO S004-YRQ.                                              DTSBD381
00449                                                                   DTSBD381
00450  S004-FROM-ABS.                                                   DTSBD381
00451      SET L004-FROM-ABS      TO TRUE.                              DTSBD381
00452      GO TO S004-YRQ.                                              DTSBD381
00453                                                                   DTSBD381
00454  S004-YRQ.                                                        DTSBD381
00455      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBD381
00456                                                                   DTSBD381
00457  S004-EXIT.                                                       DTSBD381
00458      EXIT.                                                        DTSBD381
00459                                                                   DTSBD381
00460  S330-INIT-MLOG.                                                  DTSBD381
00461      MOVE T002-EMP-NO            TO L331-EMP-NO.                  DTSBD381
00462      MOVE LBCM-CURR-RUN-DATE     TO L331-CURR-RUN-DATE.           DTSBD381
00463      ADD  +1000                  TO LBCM-EMP-ABSTIME.             DTSBD381
00464      MOVE LBCM-EMP-ABSTIME       TO L331-UPDATE-ABSTIME.          DTSBD381
00465      MOVE T002-OP-ID             TO L331-OP-ID.                   DTSBD381
00466                                                                   DTSBD381
00467  S330-EXIT.                                                       DTSBD381
00468      EXIT.                                                        DTSBD381
00469                                                                   DTSBD381
00470  S331-WRITE-MLOG.                                                 DTSBD381
00471      CALL 'DTSBU331' USING L331-LINK-AREA.                        DTSBD381
00472      SET LBCM-EMP-UPDATE-YES-88  TO TRUE.                         DTSBD381
00473                                                                   DTSBD381
00474  S331-EXIT.                                                       DTSBD381
00475      EXIT.                                                        DTSBD381
00476                                                                   DTSBD381
00477  S910-OPEN-READ.                                                  DTSBD381
00478      SET L910-OPEN-READ-88 TO TRUE.                               DTSBD381
00479      GO TO S910-MSTR-IO.                                          DTSBD381
00480                                                                   DTSBD381
00481  S910-OPEN-UPDATE.                                                DTSBD381
00482      SET L910-OPEN-UPDATE-88 TO TRUE.                             DTSBD381
00483      GO TO S910-MSTR-IO.                                          DTSBD381
00484                                                                   DTSBD381
00485  S910-OPEN-UPDATE-NO-AIX.                                         DTSBD381
00486      SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE.                      DTSBD381
00487      GO TO S910-MSTR-IO.                                          DTSBD381
00488                                                                   DTSBD381
00489  S910-READ.                                                       DTSBD381
00490      SET L910-READ-88 TO TRUE.                                    DTSBD381
00491      GO TO S910-MSTR-IO.                                          DTSBD381
00492                                                                   DTSBD381
00493  S910-START-BROWSE.                                               DTSBD381
00494      SET L910-START-BROWSE-88 TO TRUE.                            DTSBD381
00495      GO TO S910-MSTR-IO.                                          DTSBD381
00496                                                                   DTSBD381
00497  S910-READ-NEXT.                                                  DTSBD381
00498      SET L910-READ-NEXT-88 TO TRUE.                               DTSBD381
00499      GO TO S910-MSTR-IO.                                          DTSBD381
00500                                                                   DTSBD381
00501  S910-COUNT.                                                      DTSBD381
00502      SET L910-COUNT-88 TO TRUE.                                   DTSBD381
00503      GO TO S910-MSTR-IO.                                          DTSBD381
00504                                                                   DTSBD381
00505  S910-WRITE.                                                      DTSBD381
00506      SET L910-WRITE-88 TO TRUE.                                   DTSBD381
00507      GO TO S910-MSTR-IO.                                          DTSBD381
00508                                                                   DTSBD381
00509  S910-REWRITE.                                                    DTSBD381
00510      SET L910-REWRITE-88 TO TRUE.                                 DTSBD381
00511      GO TO S910-MSTR-IO.                                          DTSBD381
00512                                                                   DTSBD381
00513  S910-DELETE.                                                     DTSBD381
00514      SET L910-DELETE-88 TO TRUE.                                  DTSBD381
00515      GO TO S910-MSTR-IO.                                          DTSBD381
00516                                                                   DTSBD381
00517  S910-CLOSE.                                                      DTSBD381
00518      SET L910-CLOSE-88     TO TRUE.                               DTSBD381
00519      GO TO S910-MSTR-IO.                                          DTSBD381
00520                                                                   DTSBD381
00521  S910-MSTR-IO.                                                    DTSBD381
00522      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBD381
00523                            MSKL-REC.                              DTSBD381
00524  S910-EXIT.                                                       DTSBD381
00525      EXIT.                                                        DTSBD381
00526                                                                   DTSBD381
00527  S946-RPT-O.                                                      DTSBD381
00528      CALL 'DTSBU946' USING RSKL-REC.                              DTSBD381
00529  S946-EXIT.                                                       DTSBD381
00530      EXIT.                                                        DTSBD381
00531                                                                   DTSBD381
00532                                                                   DTSBD381
00533  S999-ABEND.                                                      DTSBD381
00534      DISPLAY '*** DTSBD381 ABENDING : '                           DTSBD381
00535              WRK-ABEND-MSG.                                       DTSBD381
00536                                                                   DTSBD381
00537      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD381
00538  S999-EXIT.                                                       DTSBD381
00539      EXIT.                                                        DTSBD381
00540                                                                   DTSBD381
