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