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