00001  IDENTIFICATION DIVISION.                                         11/11/02
00002  PROGRAM-ID.             DTSBD340.                                DTSBD340
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV005
00004  DATE-WRITTEN.           JANUARY 1991.                            DTSBD340
00005  DATE-COMPILED.                                                   DTSBD340
00006      SKIP3                                                        DTSBD340
00007 *****                                                             DTSBD340
00008 *                                                                 DTSBD340
00009 *    FUNCTION:  RATING PROCESSING DRIVER.                         DTSBD340
00010 *                                                                 DTSBD340
00011 *                                                                 DTSBD340
00012 *    MODIFICATION LOG:                                            DTSBD340
00013 *                                                                 DTSBD340
00014 *    01/24/92  INITIAL DEVELOPMENT.                               DTSBD340
00015 *              WORK ORDER:                      PROGRAMMER: TCL   DTSBD340
00016 *                                                                 DTSBD340
00017 *    01/16/1998  REVIEWED AND MODIFIED FOR DC.                    DTSBD340
00018 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBD340
00019 *                                                                 DTSBD340
00020 *    08/20/2002  MODIFIED TO CALL DTSBD343 WHEN T006-FINAL-RATE   DTSBD340
00021 *                IF TRUE.                                         DTSBD340
00022 *                REFERENCE: HOUSEHOLD           PROGRAMMER: GD    DTSBD340
00023 *                                                                 DTSBD340
00024 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD340
00025 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD340
00026 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBD340
00027 *                                                                 DTSBD340
00028 *                                                                 DTSBD340
00029 *  DESCRIPTION:                                                   DTSBD340
00030 *                                                                 DTSBD340
00031 *      EXAMINES T006-TRN-CD AND CALLS THE APPROPRIATE             DTSBD340
00032 *      RATING PROCESSING MODULE.                                  DTSBD340
00033 *                                                                 DTSBD340
00034 *****                                                             DTSBD340
00035      SKIP3                                                        DTSBD340
00036  ENVIRONMENT DIVISION.                                            DTSBD340
00037      EJECT                                                        DTSBD340
00038  DATA DIVISION.                                                   DTSBD340
00039      SKIP3                                                        DTSBD340
00040  WORKING-STORAGE SECTION.                                         DTSBD340
000405 77  PAN-VALET PICTURE X(24) VALUE '005DTSBD340  11/11/02'.       DTSBD340
00041      SKIP3                                                        DTSBD340
00042  01  WRK-AREA.                                                    DTSBD340
00043      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +340.DTSBD340
00044      EJECT                                                        DTSBD340
00045  01  MSG-TABLE.                                                   DTSBD340
00046      05  MSG1-INVALID-TRN-CD.                                     DTSBD340
00047          10  MSG1-ID         PIC  X(11)  VALUE 'DTSBD340905'.     DTSBD340
00048          10  MSG1-SHORT-TEXT PIC  X(20)  VALUE 'INVALID TRN CD'.  DTSBD340
00049          10  MSG1-LONG-TEXT.                                      DTSBD340
00050              15  FILLER      PIC  X(30)                           DTSBD340
00051                    VALUE 'TRANSACTION FAILED - TRANSACTI'.        DTSBD340
00052              15  FILLER      PIC  X(30)                           DTSBD340
00053                    VALUE 'ON CODE NOT VALID             '.        DTSBD340
00054      EJECT                                                        DTSBD340
00055  LINKAGE SECTION.                                                 DTSBD340
00056      SKIP3                                                        DTSBD340
00057  01  LBCM-LINK-AREA.                                              DTSBD340
00058  ++INCLUDE DTSILBCM                                               DTSBD340
00059      EJECT                                                        DTSBD340
00060  01  MPRF-REC.                                                    DTSBD340
00061  ++INCLUDE DTSIMPRF                                               DTSBD340
00062      EJECT                                                        DTSBD340
00063  01  T006-REC.                                                    DTSBD340
00064  ++INCLUDE DTSIT006                                               DTSBD340
00065      EJECT                                                        DTSBD340
00066  PROCEDURE DIVISION USING LBCM-LINK-AREA                          DTSBD340
00067                           MPRF-REC                                DTSBD340
00068                           T006-REC.                               DTSBD340
00069                                                                   DTSBD340
00070                                                                   DTSBD340
00071      EVALUATE TRUE                                                DTSBD340
00072                                                                   DTSBD340
00073         WHEN T006-UIRTE-EXIST-CHK                                 DTSBD340
00074            CALL 'DTSBD341' USING LBCM-LINK-AREA                   DTSBD340
00075                                  MPRF-REC                         DTSBD340
00076                                  T006-REC                         DTSBD340
00077                                                                   DTSBD340
00078         WHEN T006-UIRTE-NOTICE                                    DTSBD340
00079            CALL 'DTSBD343' USING LBCM-LINK-AREA                   DTSBD340
00080                                  MPRF-REC                         DTSBD340
00081                                  T006-REC                         DTSBD340
00082                                                                   DTSBD340
00083         WHEN T006-FINAL-RATE                                      DTSBD340
00084            CALL 'DTSBD343' USING LBCM-LINK-AREA                   DTSBD340
00085                                  MPRF-REC                         DTSBD340
00086                                  T006-REC                         DTSBD340
00087                                                                   DTSBD340
00088         WHEN OTHER                                                DTSBD340
00089            SET LBCM-TRN-NOT-OK-88 TO TRUE                         DTSBD340
00090            MOVE MSG1-INVALID-TRN-CD TO LBCM-TRN-MSG-AREA          DTSBD340
00091      END-EVALUATE.                                                DTSBD340
00092                                                                   DTSBD340
00093                                                                   DTSBD340
00094      GOBACK.                                                      DTSBD340
00095      EJECT                                                        DTSBD340
00096  S999-ABEND.                                                      DTSBD340
00097      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD340
00098  S999-EXIT.                                                       DTSBD340
00099      EXIT.                                                        DTSBD340
