74 lines
5.8 KiB
COBOL
74 lines
5.8 KiB
COBOL
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
|
|
RCODE 15 T025-REC-TYPE PIC X(03). 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
|