123 lines
9.7 KiB
COBOL
123 lines
9.7 KiB
COBOL
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
|