00001  IDENTIFICATION DIVISION.                                         09/14/05
00002  PROGRAM-ID.             DTSBD320.                                DTSBD320
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV007
00004  DATE-WRITTEN.           JANUARY 1991.                            DTSBD320
00005  DATE-COMPILED.                                                   DTSBD320
00006      SKIP3                                                        DTSBD320
00007 *****                                                             DTSBD320
00008 *                                                                 DTSBD320
00009 *    FUNCTION:  COLLECTIONS PROCESSING DRIVER.                    DTSBD320
00010 *                                                                 DTSBD320
00011 *                                                                 DTSBD320
00012 *    MODIFICATION LOG:                                            DTSBD320
00013 *                                                                 DTSBD320
00014 *    01/24/92  INITIAL DEVELOPMENT.                               DTSBD320
00015 *              WORK ORDER:                      PROGRAMMER: TCL   DTSBD320
00016 *                                                                 DTSBD320
00017 *    01/29/1999  REVIEWED AND MODIFIED FOR DC.                    DTSBD320
00018 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBD320
00019 *                                                                 DTSBD320
00020 *    04/30/2004  MODIFIED TO CALL DTSBD326 FOR COMPROMISE         DTSBD320
00021 *                SETTLEMENTS                                      DTSBD320
00022 *                REFERENCE: COMPROMISE          PROGRAMMER: GD    DTSBD320
00023 *                                                                 DTSBD320
00024 *    09/05/2005  MODIFIED TO CALL DTSBD327 FOR STATMENT OF        DTSBD320
00025 *                ACCOUNTS - OVERNIGHT PRINTING                    DTSBD320
00026 *                REFERENCE: SPEC067             PROGRAMMER: ZL1   DTSBD320
00027 *                                                                 DTSBD320
00028 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD320
00029 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD320
00030 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBD320
00031 *                                                                 DTSBD320
00032 *                                                                 DTSBD320
00033 *  DESCRIPTION:                                                   DTSBD320
00034 *                                                                 DTSBD320
00035 *      EXAMINES T011-TRN-CD AND CALLS THE APPROPRIATE             DTSBD320
00036 *      COLLECTIONS PROCESSING MODULE.                             DTSBD320
00037 *                                                                 DTSBD320
00038 *****                                                             DTSBD320
00039      SKIP3                                                        DTSBD320
00040  ENVIRONMENT DIVISION.                                            DTSBD320
00041      EJECT                                                        DTSBD320
00042  DATA DIVISION.                                                   DTSBD320
00043      SKIP3                                                        DTSBD320
00044  WORKING-STORAGE SECTION.                                         DTSBD320
000445 77  PAN-VALET PICTURE X(24) VALUE '007DTSBD320  09/14/05'.       DTSBD320
00045      SKIP3                                                        DTSBD320
00046  01  WRK-AREA.                                                    DTSBD320
00047      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +320.DTSBD320
00048      EJECT                                                        DTSBD320
00049  01  MSG-TABLE.                                                   DTSBD320
00050      05  MSG1-INVALID-TRN-CD.                                     DTSBD320
00051          10  MSG1-ID         PIC  X(11)  VALUE 'DTSBD320905'.     DTSBD320
00052          10  MSG1-SHORT-TEXT PIC  X(20)  VALUE 'INVALID TRN CD'.  DTSBD320
00053          10  MSG1-LONG-TEXT.                                      DTSBD320
00054              15  FILLER      PIC  X(30)                           DTSBD320
00055                    VALUE 'TRANSACTION FAILED - TRANSACTI'.        DTSBD320
00056              15  FILLER      PIC  X(30)                           DTSBD320
00057                    VALUE 'ON CODE NOT VALID             '.        DTSBD320
00058      EJECT                                                        DTSBD320
00059  LINKAGE SECTION.                                                 DTSBD320
00060      SKIP3                                                        DTSBD320
00061  01  LBCM-LINK-AREA.                                              DTSBD320
00062  ++INCLUDE DTSILBCM                                               DTSBD320
00063      EJECT                                                        DTSBD320
00064  01  MPRF-REC.                                                    DTSBD320
00065  ++INCLUDE DTSIMPRF                                               DTSBD320
00066      EJECT                                                        DTSBD320
00067  01  T011-REC.                                                    DTSBD320
00068  ++INCLUDE DTSIT011                                               DTSBD320
00069      EJECT                                                        DTSBD320
00070  PROCEDURE DIVISION USING LBCM-LINK-AREA                          DTSBD320
00071                           MPRF-REC                                DTSBD320
00072                           T011-REC.                               DTSBD320
00073                                                                   DTSBD320
00074                                                                   DTSBD320
00075      IF T011-LIN-PKG                                              DTSBD320
00076          CALL 'DTSBD321' USING LBCM-LINK-AREA                     DTSBD320
00077                                MPRF-REC                           DTSBD320
00078                                T011-REC                           DTSBD320
00079      ELSE                                                         DTSBD320
00080      IF T011-LIN-TCK                                              DTSBD320
00081          CALL 'DTSBD322' USING LBCM-LINK-AREA                     DTSBD320
00082                                MPRF-REC                           DTSBD320
00083                                T011-REC                           DTSBD320
00084 *****ELSE                                                         DTSBD320
00085 *****IF T011-BNK-TCK-POC                                          DTSBD320
00086 *********CALL 'DTSBD323' USING LBCM-LINK-AREA                     DTSBD320
00087 *******************************MPRF-REC                           DTSBD320
00088 *******************************T011-REC                           DTSBD320
00089      ELSE                                                         DTSBD320
00090      IF T011-DPC-TCK                                              DTSBD320
00091          CALL 'DTSBD324' USING LBCM-LINK-AREA                     DTSBD320
00092                                MPRF-REC                           DTSBD320
00093                                T011-REC                           DTSBD320
00094      ELSE                                                         DTSBD320
00095      IF T011-DPC-PKG                                              DTSBD320
00096          CALL 'DTSBD325' USING LBCM-LINK-AREA                     DTSBD320
00097                                MPRF-REC                           DTSBD320
00098                                T011-REC                           DTSBD320
00099      ELSE                                                         DTSBD320
00100      IF (T011-CMP-PKG                                             DTSBD320
00101      OR T011-CMP-TCK                                              DTSBD320
00102      OR T011-CMP-WD)                                              DTSBD320
00103          CALL 'DTSBD326' USING LBCM-LINK-AREA                     DTSBD320
00104                                MPRF-REC                           DTSBD320
00105                                T011-REC                           DTSBD320
00106      ELSE                                                         DTSBD320
00107      IF T011-STMT-OF-ACCT                                         DTSBD320
00108          CALL 'DTSBD327' USING LBCM-LINK-AREA                     DTSBD320
00109                                MPRF-REC                           DTSBD320
00110                                T011-REC                           DTSBD320
00111      ELSE                                                         DTSBD320
00112          SET LBCM-TRN-NOT-OK-88 TO TRUE                           DTSBD320
00113          MOVE MSG1-INVALID-TRN-CD TO LBCM-TRN-MSG-AREA.           DTSBD320
00114                                                                   DTSBD320
00115                                                                   DTSBD320
00116      GOBACK.                                                      DTSBD320
00117      EJECT                                                        DTSBD320
00118  S999-ABEND.                                                      DTSBD320
00119      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD320
00120  S999-EXIT.                                                       DTSBD320
00121      EXIT.                                                        DTSBD320
