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