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

72
Copybook/DTSIT025.cpy Normal file
View File

@ -0,0 +1,72 @@
00001 ***** 04/28/15
00002 * DTSIT025
00003 * DTSIT025 ESTABLISH ELECTRONIC PAYMENT TRANSACTION LV002
00004 * TRANSACTION RECORD. DTSIT025
00005 * DTSIT025
00006 * DTSIT025
00007 * 02/27/2003 INITIAL DEVELOPMENT. GD DTSIT025
00008 * CL**2
00009 * 04/27/2015 ADD NEW FIELDS AT END OF RECORD TO MATCH APAY CL**2
00010 * RECORDS. WHEN PROCESSING ACH RETURN TRANSACTIONS CL**2
00011 * ALL MUST HAVE AN 'NG' BUT ONLY 1 CAN HAVE THE CL**2
00012 * THE RETURN FEE CHARGED. ZL1 CL**2
00013 ***** DTSIT025
00014 DTSIT025
00015 10 T025-LENGTH PIC S9(04) COMP. DTSIT025
00016 DTSIT025
00017 10 T025-COMMON-AREA. DTSIT025
00018 15 T025-REC-TYPE PIC X(03) VALUE '025'. DTSIT025
00019 15 T025-EMP-NO PIC S9(07) COMP-3. DTSIT025
00020 15 T025-ORIGIN PIC X(10). DTSIT025
00021 15 FILLER REDEFINES T025-ORIGIN. DTSIT025
00022 20 T025-OP-ID PIC X(08). DTSIT025
00023 20 T025-SCR-ID PIC X(02). DTSIT025
00024 15 T025-SYS-DATE PIC S9(09) COMP-3. DTSIT025
00025 15 T025-SYS-TIME PIC S9(07) COMP-3. DTSIT025
00026 DTSIT025
00027 10 T025-DATA-AREA. DTSIT025
00028 15 T025-PAY-TYPE PIC X(02). DTSIT025
00029 88 T025-OR-PAY-88 VALUE 'OR'. DTSIT025
00030 88 T025-PA-PAY-88 VALUE 'PA'. DTSIT025
00031 88 T025-PAY-REV-88 VALUE 'PR'. DTSIT025
00032 88 T025-NG-CHECK-88 VALUE 'NG'. DTSIT025
00033 88 T025-REFUND-88 VALUE 'RF'. DTSIT025
00034 DTSIT025
00035 15 T025-NAME-CHECK PIC X(04). DTSIT025
00036 DTSIT025
00037 15 T025-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIT025
00038 DTSIT025
00039 15 T025-RECEIVED-DATE PIC S9(09) COMP-3. DTSIT025
00040 DTSIT025
00041 15 T025-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIT025
00042 DTSIT025
00043 15 T025-TRACE-NO PIC S9(13) COMP-3. DTSIT025
00044 DTSIT025
00045 15 T025-APPLIC-YRQ PIC S9(05) COMP-3. DTSIT025
00046 DTSIT025
00047 15 T025-APPLIC-IND PIC X(02). DTSIT025
00048 DTSIT025
00049 15 T025-APPLIC-DOC-NO. DTSIT025
00050 20 T025-APPLIC-BATCH-NO DTSIT025
00051 PIC S9(05) COMP-3. DTSIT025
00052 20 T025-APPLIC-ITEM-NO DTSIT025
00053 PIC S9(03) COMP-3. DTSIT025
00054 DTSIT025
00055 15 T025-RESPONSIBLE-ACTIVITY DTSIT025
00056 PIC X(03). DTSIT025
00057 DTSIT025
00058 15 T025-RESPONSIBLE-OP-ID PIC X(08). DTSIT025
00059 CL**2
00060 15 T025-WAIVE-INT-IND PIC X(01). CL**2
00061 88 T025-WAIVE-INT-YES-88 VALUE 'Y'. CL**2
00062 88 T025-WAIVE-INT-NO-88 VALUE 'N'. CL**2
00063 CL**2
00064 15 T025-WAIVE-LATE-PEN-IND PIC X(01). CL**2
00065 88 T025-WAIVE-LATE-PEN-YES-88 VALUE 'Y'. CL**2
00066 88 T025-WAIVE-LATE-PEN-NO-88 VALUE 'N'. CL**2
00067 CL**2
00068 15 T025-NSF-PEN-CHARGE-IND PIC X(01). CL**2
00069 88 T025-NSF-PEN-CHARGE-YES-88 VALUE 'Y'. CL**2
00070 88 T025-NSF-PEN-CHARGE-NO-88 VALUE 'N'. CL**2
00071 DTSIT025
00072 15 FILLER PIC X(45). CL**2