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

73
Copybook/DTSIR301.cpy Normal file
View File

@ -0,0 +1,73 @@
00001 ***** 01/02/06
00002 * DTSIR301
00003 * DTSIR301 BATCH CONTROL SUMMARY REPORT RECORD. LV008
00004 * DTSIR301
00005 * DTSIR301
00006 * 10/10/1998 REVIEWED AND MODIFIED FOR DC. DTSIR301
00007 * 12/19/2005 ADDED BANK BATCH NUMBER. GD. DTSIR301
00008 * DTSIR301
00009 ***** DTSIR301
00010 DTSIR301
00011 10 R301-LENGTH PIC S9(04) COMP. DTSIR301
00012 DTSIR301
00013 10 R301-SORT-AREA. DTSIR301
00014 15 R301-REC-TYPE PIC X(03) VALUE '301'. DTSIR301
00015 15 R301-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIR301
00016 15 R301-BATCH-NO PIC S9(05) COMP-3. DTSIR301
00017 DTSIR301
00018 10 R301-DATA-AREA. DTSIR301
00019 15 R301-CURR-RUN-DATE PIC S9(09) COMP-3. DTSIR301
00020 DTSIR301
00021 15 R301-BATCH-BALANCED-IND PIC X(01). DTSIR301
00022 88 R301-BATCH-BALANCED-NO-88 VALUE 'N'. DTSIR301
00023 88 R301-BATCH-BALANCED-YES-88 VALUE 'Y'. DTSIR301
00024 DTSIR301
00025 15 R301-BATCH-HELD-IND PIC X(01). DTSIR301
00026 88 R301-BATCH-HELD-NO-88 VALUE 'N'. DTSIR301
00027 88 R301-BATCH-HELD-YES-88 VALUE 'Y'. DTSIR301
00028 DTSIR301
00029 15 R301-ESTB-DATA. DTSIR301
00030 20 R301-ESTB-OP-ID PIC X(08). DTSIR301
00031 20 R301-ESTB-DATE PIC S9(09) COMP-3. DTSIR301
00032 DTSIR301
00033 15 R301-CHNG-DATA. DTSIR301
00034 20 R301-CHNG-OP-ID PIC X(08). DTSIR301
00035 20 R301-CHNG-DATE PIC S9(09) COMP-3. DTSIR301
00036 DTSIR301
00037 15 R301-SUCCEEDED-PREV-DATA. DTSIR301
00038 20 R301-SUCCEEDED-PREV-TRAN-CNT DTSIR301
00039 PIC S9(03) COMP-3. DTSIR301
00040 20 R301-SUCCEEDED-PREV-REMIT-AMT DTSIR301
00041 PIC S9(09)V9(02) COMP-3. DTSIR301
00042 DTSIR301
00043 15 R301-SUCCEEDED-TODAY-DATA. DTSIR301
00044 20 R301-SUCCEEDED-TODAY-TRAN-CNT DTSIR301
00045 PIC S9(03) COMP-3. DTSIR301
00046 20 R301-SUCCEEDED-TODAY-REMIT-AMT DTSIR301
00047 PIC S9(09)V9(02) COMP-3. DTSIR301
00048 DTSIR301
00049 15 R301-FAILED-TODAY-DATA. DTSIR301
00050 20 R301-FAILED-TODAY-TRAN-CNT DTSIR301
00051 PIC S9(03) COMP-3. DTSIR301
00052 20 R301-FAILED-TODAY-REMIT-AMT DTSIR301
00053 PIC S9(09)V9(02) COMP-3. DTSIR301
00054 DTSIR301
00055 15 R301-BYPASSED-TODAY-DATA. DTSIR301
00056 20 R301-BYPASSED-TODAY-TRAN-CNT DTSIR301
00057 PIC S9(03) COMP-3. DTSIR301
00058 20 R301-BYPASSED-TODAY-REMIT-AMT DTSIR301
00059 PIC S9(09)V9(02) COMP-3. DTSIR301
00060 DTSIR301
00061 15 R301-ATC-FILE-DATA. DTSIR301
00062 20 R301-ATC-FILE-TRAN-CNT DTSIR301
00063 PIC S9(03) COMP-3. DTSIR301
00064 20 R301-ATC-FILE-REMIT-AMT DTSIR301
00065 PIC S9(09)V9(02) COMP-3. DTSIR301
00066 DTSIR301
00067 15 R301-CONTROL-DATA. DTSIR301
00068 20 R301-CONTROL-TRAN-CNT DTSIR301
00069 PIC S9(03) COMP-3. DTSIR301
00070 20 R301-CONTROL-REMIT-AMT DTSIR301
00071 PIC S9(09)V9(02) COMP-3. DTSIR301
00072 DTSIR301
00073 15 R301-BANK-BATCH-NO PIC S9(05) COMP-3. DTSIR301