37 lines
2.8 KiB
COBOL
37 lines
2.8 KiB
COBOL
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
|