DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
122
Batch/DTSBD320.cob
Normal file
122
Batch/DTSBD320.cob
Normal file
@ -0,0 +1,122 @@
|
||||
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
|
||||
Reference in New Issue
Block a user