00001  IDENTIFICATION DIVISION.                                         04/05/04
00002  PROGRAM-ID.             DTSBD310.                                DTSBD310
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV007
00004  DATE-WRITTEN.           JANUARY 1991.                            DTSBD310
00005  DATE-COMPILED.                                                   DTSBD310
00006      SKIP3                                                        DTSBD310
00007 *****                                                             DTSBD310
00008 *                                                                 DTSBD310
00009 *    FUNCTION:  REGISTRATION PROCESSING DRIVER.                   DTSBD310
00010 *                                                                 DTSBD310
00011 *                                                                 DTSBD310
00012 *    MODIFICATION LOG:                                            DTSBD310
00013 *                                                                 DTSBD310
00014 *    01/09/92  INITIAL DEVELOPMENT.                               DTSBD310
00015 *              WORK ORDER:                      PROGRAMMER: TCL   DTSBD310
00016 *                                                                 DTSBD310
00017 *    10/15/1998  REVIEWED AND MODIFIED FOR DC.                    DTSBD310
00018 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBD310
00019 *                                                                 DTSBD310
00020 *    10/31/2001  MODIFIED TO CALL DTSBD317 FOR HOUSEHOLD NOTICES. DTSBD310
00021 *                REFERENCE: HOUSEHOLD           PROGRAMMER: GD    DTSBD310
00022 *                                                                 DTSBD310
00023 *    07/23/2003  MODIFIED TO CALL DTSBD318 TO UPDATE THE EFT      DTSBD310
00024 *                ENROLLMENT INDICATOR.                            DTSBD310
00025 *                REFERENCE: EFT                 PROGRAMMER: GD    DTSBD310
00026 *                                                                 DTSBD310
00027 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD310
00028 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD310
00029 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBD310
00030 *                                                                 DTSBD310
00031 *                                                                 DTSBD310
00032 *  DESCRIPTION:                                                   DTSBD310
00033 *                                                                 DTSBD310
00034 *      EXAMINES T001-TRN-CD AND CALLS THE APPROPRIATE             DTSBD310
00035 *      REGISTRATION PROCESSING MODULE.                            DTSBD310
00036 *                                                                 DTSBD310
00037 *****                                                             DTSBD310
00038      SKIP3                                                        DTSBD310
00039  ENVIRONMENT DIVISION.                                            DTSBD310
00040      EJECT                                                        DTSBD310
00041  DATA DIVISION.                                                   DTSBD310
00042      SKIP3                                                        DTSBD310
00043  WORKING-STORAGE SECTION.                                         DTSBD310
000435 77  PAN-VALET PICTURE X(24) VALUE '007DTSBD310  04/05/04'.       DTSBD310
00044      SKIP3                                                        DTSBD310
00045  01  WRK-AREA.                                                    DTSBD310
00046      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +310.DTSBD310
00047      EJECT                                                        DTSBD310
00048  01  MSG-TABLE.                                                   DTSBD310
00049      05  MSG1-INVALID-TRN-CD.                                     DTSBD310
00050          10  MSG1-ID         PIC  X(11)  VALUE 'DTSBD310905'.     DTSBD310
00051          10  MSG1-SHORT-TEXT PIC  X(20)  VALUE 'INVALID TRN CD'.  DTSBD310
00052          10  MSG1-LONG-TEXT.                                      DTSBD310
00053              15  FILLER      PIC  X(30)                           DTSBD310
00054                    VALUE 'TRANSACTION FAILED - TRANSACTI'.        DTSBD310
00055              15  FILLER      PIC  X(30)                           DTSBD310
00056                    VALUE 'ON CODE NOT VALID             '.        DTSBD310
00057      EJECT                                                        DTSBD310
00058  LINKAGE SECTION.                                                 DTSBD310
00059      SKIP3                                                        DTSBD310
00060  01  LBCM-LINK-AREA.                                              DTSBD310
00061  ++INCLUDE DTSILBCM                                               DTSBD310
00062      EJECT                                                        DTSBD310
00063  01  MPRF-REC.                                                    DTSBD310
00064  ++INCLUDE DTSIMPRF                                               DTSBD310
00065      EJECT                                                        DTSBD310
00066  01  TSKL-REC.                                                    DTSBD310
00067  ++INCLUDE DTSITSKL                                               DTSBD310
00068      SKIP2                                                        DTSBD310
00069  01  T001-REC REDEFINES TSKL-REC.                                 DTSBD310
00070  ++INCLUDE DTSIT001                                               DTSBD310
00071      EJECT                                                        DTSBD310
00072  PROCEDURE DIVISION USING LBCM-LINK-AREA                          DTSBD310
00073                           MPRF-REC                                DTSBD310
00074                           TSKL-REC.                               DTSBD310
00075                                                                   DTSBD310
00076                                                                   DTSBD310
00077      IF TSKL-REGISTRATION-88                                      DTSBD310
00078          IF T001-LIABLE-PKG                                       DTSBD310
00079              CALL 'DTSBD311' USING LBCM-LINK-AREA                 DTSBD310
00080                                    MPRF-REC                       DTSBD310
00081                                    T001-REC                       DTSBD310
00082          ELSE                                                     DTSBD310
00083          IF T001-NOT-LIABLE-LTR                                   DTSBD310
00084              CALL 'DTSBD312' USING LBCM-LINK-AREA                 DTSBD310
00085                                    MPRF-REC                       DTSBD310
00086                                    T001-REC                       DTSBD310
00087          ELSE                                                     DTSBD310
00088          IF T001-INACTIVE-LTR                                     DTSBD310
00089              CALL 'DTSBD313' USING LBCM-LINK-AREA                 DTSBD310
00090                                    MPRF-REC                       DTSBD310
00091                                    T001-REC                       DTSBD310
00092          ELSE                                                     DTSBD310
00093          IF T001-ERA-CYCLE                                        DTSBD310
00094              CALL 'DTSBD314' USING LBCM-LINK-AREA                 DTSBD310
00095                                    MPRF-REC                       DTSBD310
00096                                    T001-REC                       DTSBD310
00097          ELSE                                                     DTSBD310
00098          IF T001-FILE-CLERK-LIST                                  DTSBD310
00099              CALL 'DTSBD316' USING LBCM-LINK-AREA                 DTSBD310
00100                                    MPRF-REC                       DTSBD310
00101                                    T001-REC                       DTSBD310
00102          ELSE                                                     DTSBD310
00103          IF T001-HSEHLD-NOTICES                                   DTSBD310
00104              CALL 'DTSBD317' USING LBCM-LINK-AREA                 DTSBD310
00105                                    MPRF-REC                       DTSBD310
00106                                    T001-REC                       DTSBD310
00107          ELSE                                                     DTSBD310
00108          IF T001-EFT-ENROLLMENT                                   DTSBD310
00109              CALL 'DTSBD318' USING LBCM-LINK-AREA                 DTSBD310
00110                                    MPRF-REC                       DTSBD310
00111                                    T001-REC                       DTSBD310
00112          ELSE                                                     DTSBD310
00113              SET LBCM-TRN-NOT-OK-88 TO TRUE                       DTSBD310
00114              MOVE MSG1-INVALID-TRN-CD TO LBCM-TRN-MSG-AREA        DTSBD310
00115      ELSE                                                         DTSBD310
00116          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD310
00117                                                                   DTSBD310
00118                                                                   DTSBD310
00119      GOBACK.                                                      DTSBD310
00120      EJECT                                                        DTSBD310
00121  S999-ABEND.                                                      DTSBD310
00122      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD310
00123  S999-EXIT.                                                       DTSBD310
00124      EXIT.                                                        DTSBD310
