00001  IDENTIFICATION DIVISION.                                         08/07/12
00002  PROGRAM-ID.             DTSBD380.                                DTSBD380
00003  AUTHOR.                 TRW.                                        LV011
00004  DATE-WRITTEN.           JULY 2003.                               DTSBD380
00005  DATE-COMPILED.                                                   DTSBD380
00006      SKIP3                                                        DTSBD380
00007 *****                                                             DTSBD380
00008 *                                                                 DTSBD380
00009 *    FUNCTION:  STATUS UPDATE DRIVER.                             DTSBD380
00010 *                                                                 DTSBD380
00011 *                                                                 DTSBD380
00012 *    MODIFICATION LOG:                                            DTSBD380
00013 *                                                                 DTSBD380
00014 *    07/23/2003  INITIAL DEVELOPMENT.                             DTSBD380
00015 *                WORK ORDER:                      PROGRAMMER:     DTSBD380
00016 *                                                                 DTSBD380
00017 *    01/18/2005  MODIFIED FOR T003 NOTEPAD TRANSACTION.           DTSBD380
00018 *                WORK ORDER:                      PROGRAMMER: GD  DTSBD380
00019 *                                                                 DTSBD380
00020 *    06/01/2005  MODIFIED FOR NEW T002 TRANSACTION - BATCH        DTSBD380
00021 *                LIABILITY DETERMINATIONS.                        DTSBD380
00022 *                WORK ORDER:                      PROGRAMMER: GD  DTSBD380
00023 *                                                                 DTSBD380
00024 *    06/16/2008  MODIFIED FOR NEW T003 TRANSACTION - MEVL RECORDS DTSBD380
00025 *                WORK ORDER: REFUNDS              PROGRAMMER: GD  DTSBD380
00026 *                                                                 DTSBD380
00027 *    04/26/2012  MODIFIED FOR NEW T040 TRANSACTION - WEB AUDITS   DTSBD380
00028 *                WORK ORDER: AUDITS               PROGRAMMER: ZL1 DTSBD380
00029 *                                                                 DTSBD380
00030 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD380
00031 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD380
00032 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBD380
00033 *                                                                 DTSBD380
00034 *                                                                 DTSBD380
00035 *  DESCRIPTION:                                                   DTSBD380
00036 *                                                                 DTSBD380
00037 *      EXAMINES T002-TRN-CD AND CALLS THE APPROPRIATE             DTSBD380
00038 *      STATUS UPDATE PROCESSING MODULE.                           DTSBD380
00039 *                                                                 DTSBD380
00040 *****                                                             DTSBD380
00041      SKIP3                                                        DTSBD380
00042  ENVIRONMENT DIVISION.                                            DTSBD380
00043      EJECT                                                        DTSBD380
00044  DATA DIVISION.                                                   DTSBD380
00045      SKIP3                                                        DTSBD380
00046  WORKING-STORAGE SECTION.                                         DTSBD380
000465 77  PAN-VALET PICTURE X(24) VALUE '011DTSBD380  08/07/12'.       DTSBD380
00047      SKIP3                                                        DTSBD380
00048  01  WRK-AREA.                                                    DTSBD380
00049      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +380.DTSBD380
00050      EJECT                                                        DTSBD380
00051  01  MSG-TABLE.                                                   DTSBD380
00052      05  MSG1-INVALID-TRN-CD.                                     DTSBD380
00053          10  MSG1-ID         PIC  X(11)  VALUE 'DTSBD380905'.     DTSBD380
00054          10  MSG1-SHORT-TEXT PIC  X(20)  VALUE 'INVALID TRN CD'.  DTSBD380
00055          10  MSG1-LONG-TEXT.                                      DTSBD380
00056              15  FILLER      PIC  X(30)                           DTSBD380
00057                    VALUE 'TRANSACTION FAILED - TRANSACTI'.        DTSBD380
00058              15  FILLER      PIC  X(30)                           DTSBD380
00059                    VALUE 'ON CODE NOT VALID             '.        DTSBD380
00060      EJECT                                                        DTSBD380
00061  LINKAGE SECTION.                                                 DTSBD380
00062      SKIP3                                                        DTSBD380
00063  01  LBCM-LINK-AREA.                                              DTSBD380
00064  ++INCLUDE DTSILBCM                                               DTSBD380
00065      EJECT                                                        DTSBD380
00066  01  MPRF-REC.                                                    DTSBD380
00067  ++INCLUDE DTSIMPRF                                               DTSBD380
00068      EJECT                                                        DTSBD380
00069  01  TSKL-REC.                                                    DTSBD380
00070  ++INCLUDE DTSITSKL                                               DTSBD380
00071      SKIP2                                                        DTSBD380
00072  01  T002-REC REDEFINES TSKL-REC.                                 DTSBD380
00073  ++INCLUDE DTSIT002                                               DTSBD380
00074                                                                   DTSBD380
00075  01  T003-REC REDEFINES TSKL-REC.                                 DTSBD380
00076  ++INCLUDE DTSIT003                                               DTSBD380
00077      EJECT                                                        DTSBD380
00078  01  T040-REC REDEFINES TSKL-REC.                                 DTSBD380
00079  ++INCLUDE DTSIT040                                               DTSBD380
00080      EJECT                                                        DTSBD380
00081  PROCEDURE DIVISION USING LBCM-LINK-AREA                          DTSBD380
00082                           MPRF-REC                                DTSBD380
00083                           TSKL-REC.                               DTSBD380
00084                                                                   DTSBD380
00085                                                                   DTSBD380
00086      IF TSKL-AUTO-EMP-STATUS-88                                   DTSBD380
00087          PERFORM P1000-AUTO-EMP-STATUS THRU P1000-EXIT            DTSBD380
00088      ELSE                                                         DTSBD380
00089          IF TSKL-NOTEPAD-88                                       DTSBD380
00090             PERFORM P2000-NOTEPAD      THRU P2000-EXIT            DTSBD380
00091          ELSE                                                     DTSBD380
00092          IF TSKL-WEB-AUDIT-88                                     DTSBD380
00093             PERFORM P3000-WEB-AUDIT    THRU P3000-EXIT            DTSBD380
00094          ELSE                                                     DTSBD380
00095             PERFORM S999-ABEND THRU S999-EXIT                     DTSBD380
00096          END-IF                                                   DTSBD380
00097      END-IF.                                                      DTSBD380
00098                                                                   DTSBD380
00099                                                                   DTSBD380
00100      GOBACK.                                                      DTSBD380
00101      EJECT                                                        DTSBD380
00102  P1000-AUTO-EMP-STATUS.                                           DTSBD380
00103      EVALUATE TRUE                                                DTSBD380
00104         WHEN T002-DETERM-88                                       DTSBD380
00105            CALL 'DTSBD381' USING LBCM-LINK-AREA                   DTSBD380
00106                                  MPRF-REC                         DTSBD380
00107                                  T002-REC                         DTSBD380
00108                                                                   DTSBD380
00109         WHEN T002-EMP-RATE-88                                     DTSBD380
00110            DISPLAY 'BD380 - RATE ' MPRF-EMP-NO                    DTSBD380
00111            CALL 'DTSBD382' USING LBCM-LINK-AREA                   DTSBD380
00112                                  MPRF-REC                         DTSBD380
00113                                  T002-REC                         DTSBD380
00114                                                                   DTSBD380
00115         WHEN T002-EMP-ADDR-88                                     DTSBD380
00116            CALL 'DTSBD383' USING LBCM-LINK-AREA                   DTSBD380
00117                                  MPRF-REC                         DTSBD380
00118                                  T002-REC                         DTSBD380
00119                                                                   DTSBD380
00120         WHEN T002-CONTACT-88                                      DTSBD380
00121            CALL 'DTSBD384' USING LBCM-LINK-AREA                   DTSBD380
00122                                   MPRF-REC                        DTSBD380
00123                                   T002-REC                        DTSBD380
00124                                                                   DTSBD380
00125         WHEN T002-EMP-NAME-88                                     DTSBD380
00126            CALL 'DTSBD386' USING LBCM-LINK-AREA                   DTSBD380
00127                                   MPRF-REC                        DTSBD380
00128                                   T002-REC                        DTSBD380
00129                                                                   DTSBD380
00130         WHEN T002-EMP-REL-88                                      DTSBD380
00131            CALL 'DTSBD387' USING LBCM-LINK-AREA                   DTSBD380
00132                                   MPRF-REC                        DTSBD380
00133                                   T002-REC                        DTSBD380
00134                                                                   DTSBD380
00135         WHEN OTHER                                                DTSBD380
00136             SET LBCM-TRN-NOT-OK-88 TO TRUE                        DTSBD380
00137             MOVE MSG1-INVALID-TRN-CD TO LBCM-TRN-MSG-AREA         DTSBD380
00138      END-EVALUATE.                                                DTSBD380
00139                                                                   DTSBD380
00140  P1000-EXIT.                                                      DTSBD380
00141      EXIT.                                                        DTSBD380
00142                                                                   DTSBD380
00143  P2000-NOTEPAD.                                                   DTSBD380
00144      DISPLAY 'DTSBD380 P2000 ' T003-EMP-NO '  ' T003-TRN-CD.      DTSBD380
00145      EVALUATE TRUE                                                DTSBD380
00146         WHEN T003-ADD-MNTE-88                                     DTSBD380
00147            CALL 'DTSBD385' USING LBCM-LINK-AREA                   DTSBD380
00148                                  MPRF-REC                         DTSBD380
00149                                  T003-REC                         DTSBD380
00150                                                                   DTSBD380
00151         WHEN T003-ADD-MEVL-88                                     DTSBD380
00152            CALL 'DTSBD385' USING LBCM-LINK-AREA                   DTSBD380
00153                                  MPRF-REC                         DTSBD380
00154                                  T003-REC                         DTSBD380
00155                                                                   DTSBD380
00156         WHEN OTHER                                                DTSBD380
00157             SET LBCM-TRN-NOT-OK-88 TO TRUE                        DTSBD380
00158             MOVE MSG1-INVALID-TRN-CD TO LBCM-TRN-MSG-AREA         DTSBD380
00159      END-EVALUATE.                                                DTSBD380
00160                                                                   DTSBD380
00161  P2000-EXIT.                                                      DTSBD380
00162      EXIT.                                                        DTSBD380
00163  P3000-WEB-AUDIT.                                                 DTSBD380
00164      EVALUATE TRUE                                                DTSBD380
00165         WHEN T040-MFAS-88                                         DTSBD380
00166            CALL 'DTSBD388' USING LBCM-LINK-AREA                   DTSBD380
00167                                  MPRF-REC                         DTSBD380
00168                                  T040-REC                         DTSBD380
00169                                                                   DTSBD380
00170         WHEN T040-MAUR-88                                         DTSBD380
00171            CALL 'DTSBD388' USING LBCM-LINK-AREA                   DTSBD380
00172                                  MPRF-REC                         DTSBD380
00173                                  T040-REC                         DTSBD380
00174                                                                   DTSBD380
00175         WHEN T040-MAUY-88                                         DTSBD380
00176            CALL 'DTSBD388' USING LBCM-LINK-AREA                   DTSBD380
00177                                  MPRF-REC                         DTSBD380
00178                                  T040-REC                         DTSBD380
00179                                                                   DTSBD380
00180         WHEN OTHER                                                DTSBD380
00181             SET LBCM-TRN-NOT-OK-88 TO TRUE                        DTSBD380
00182             MOVE MSG1-INVALID-TRN-CD TO LBCM-TRN-MSG-AREA         DTSBD380
00183      END-EVALUATE.                                                DTSBD380
00184                                                                   DTSBD380
00185  P3000-EXIT.                                                      DTSBD380
00186      EXIT.                                                        DTSBD380
00187                                                                   DTSBD380
00188  S999-ABEND.                                                      DTSBD380
00189      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD380
00190  S999-EXIT.                                                       DTSBD380
00191      EXIT.                                                        DTSBD380
