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

36
Copybook/DTSIR333.cpy Normal file
View File

@ -0,0 +1,36 @@
00001 ***** 02/13/20
00002 * DTSIR333
00003 * DTSIR333 RETURNED ACH PAYMENT RECORD 02/12/20 ZL1. LV004
00004 * DTSIR333
00005 ***** DTSIR333
00006 DTSIR333
00007 10 R333-LENGTH PIC S9(04) COMP. CL**2
00008 DTSIR333
00009 DTSIR333
00010 10 R333-SORT-AREA. CL**2
00011 15 R333-REC-TYPE PIC X(03) VALUE '333'. CL**3
00012 DTSIR333
00013 15 R333-EMP-NO PIC S9(07) COMP-3. CL**2
00014 DTSIR333
00015 DTSIR333
00016 10 R333-DATA-AREA. CL**2
00017 15 R333-ACH-ACCOUNT-NO PIC X(20). CL**4
00018 DTSIR333
00019 15 R333-CURR-MAIL-DATE PIC S9(09) COMP-3. CL**2
00020 DTSIR333
00021 15 R333-ESSP-PAYMENT-ID PIC 9(15). CL**3
00022 DTSIR333
00023 15 R333-ACH-AMOUNT PIC S9(09)V9(02) COMP-3. CL**3
00024 DTSIR333
00025 15 R333-ACH-RETURN-DATE PIC X(08). CL**3
00026 DTSIR333
00027 15 R333-REASON-RETURNED PIC X(60). CL**3
00028 DTSIR333
00029 15 R333-PRIMARY-NAME PIC X(40). CL**2
00030 CL**3
00031 15 FILLER PIC X(40). CL**3
00032 DTSIR333
00033 15 R333-FMT-ADDR. CL**2
00034 20 R333-FMT-LINE OCCURS 5 TIMES CL**2
00035 INDEXED BY R333-FMT-IDX CL**2
00036 PIC X(40). DTSIR333