giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

86
Batch/DTSBD318.cob Normal file
View File

@ -0,0 +1,86 @@
00001 IDENTIFICATION DIVISION. 04/05/04
00002 PROGRAM-ID. DTSBD318. DTSBD318
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV001
00004 DATE-WRITTEN. SEPT 2003. DTSBD318
00005 DATE-COMPILED. DTSBD318
00006 SKIP3 DTSBD318
00007 ***** DTSBD318
00008 * DTSBD318
00009 * FUNCTION: SET EFT INDICATOR DTSBD318
00010 * DTSBD318
00011 * DTSBD318
00012 * MODIFICATION LOG: DTSBD318
00013 * DTSBD318
00014 * 09/10/2003 MODIFIED FOR EFT ENROLLMENT. DTSBD318
00015 * REFERENCE: DC DEVELOPMENT PROGRAMMER: ZL1 DTSBD318
00016 * DTSBD318
00017 DTSBD318
00018 * DESCRIPTION: DTSBD318
00019 * DTSBD318
00020 * MASTER FILE RECORDS READ: DTSBD318
00021 * DTSBD318
00022 * MRTE DTSBD318
00023 * MSOL DTSBD318
00024 * DTSBD318
00025 * DTSBD318
00026 * MASTER FILE RECORDS UPDATED: DTSBD318
00027 * DTSBD318
00028 * NONE DTSBD318
00029 * DTSBD318
00030 * REPORT RECORDS WRITTEN: DTSBD318
00031 * DTSBD318
00032 * NONE DTSBD318
00033 * DTSBD318
00034 * DTSBD318
00035 * MODULES CALLED: DTSBD318
00036 * DTSBD318
00037 * NONE DTSBD318
00038 * DTSBD318
00039 * DTSBD318
00040 ***** DTSBD318
00041 SKIP3 DTSBD318
00042 ENVIRONMENT DIVISION. DTSBD318
00043 EJECT DTSBD318
00044 DATA DIVISION. DTSBD318
00045 SKIP3 DTSBD318
00046 WORKING-STORAGE SECTION. DTSBD318
000465 77 PAN-VALET PICTURE X(24) VALUE '001DTSBD318 04/05/04'. DTSBD318
00047 SKIP3 DTSBD318
00048 01 WRK-AREA. DTSBD318
00049 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +318.DTSBD318
00050 DTSBD318
00051 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD318'.DTSBD318
00052 DTSBD318
00053 01 MSKL-REC. DTSBD318
00054 ++INCLUDE DTSIMSKL DTSBD318
00055 EJECT DTSBD318
00056 LINKAGE SECTION. DTSBD318
00057 SKIP3 DTSBD318
00058 01 LBCM-LINK-AREA. DTSBD318
00059 ++INCLUDE DTSILBCM DTSBD318
00060 EJECT DTSBD318
00061 01 MPRF-REC. DTSBD318
00062 ++INCLUDE DTSIMPRF DTSBD318
00063 EJECT DTSBD318
00064 01 T001-REC. DTSBD318
00065 ++INCLUDE DTSIT001 DTSBD318
00066 EJECT DTSBD318
00067 PROCEDURE DIVISION USING LBCM-LINK-AREA DTSBD318
00068 MPRF-REC DTSBD318
00069 T001-REC. DTSBD318
00070 DTSBD318
00071 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBD318
00072 DTSBD318
00073 DTSBD318
00074 GOBACK. DTSBD318
00075 DTSBD318
00076 P0000-PROCESS. DTSBD318
00077 DTSBD318
00078 IF T001-EFT-ENROLL-ADD-88 DTSBD318
00079 SET MPRF-EFT-ENROLLED-YES-88 TO TRUE DTSBD318
00080 ELSE DTSBD318
00081 IF T001-EFT-ENROLL-DEL-88 DTSBD318
00082 SET MPRF-EFT-ENROLLED-NO-88 TO TRUE. DTSBD318
00083 DTSBD318
00084 P0000-EXIT. EXIT. DTSBD318
00085 EJECT DTSBD318