103 lines
8.1 KiB
COBOL
103 lines
8.1 KiB
COBOL
00001 ***** 09/18/12
|
|
00002 * DTSIAPAY
|
|
00003 * DTSIAPAY ACCOUNTING TRANSACTION 'PAYMENT' LV021
|
|
00004 * TRANSACTION RECORD DEFINITION. DTSIAPAY
|
|
00005 * DTSIAPAY
|
|
00006 * DTSIAPAY
|
|
00007 * 09/29/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIAPAY
|
|
00008 * 04/07/2003 MODIFIED FOR ELECTRONIC PAYMENT - DTSIAPAY
|
|
00009 * ADDED TRACE NUMBER. GD DTSIAPAY
|
|
00010 * 02/10/2010 MODIFIED FOR MCHK - CHECK SEQUENCE DTSIAPAY
|
|
00011 * NUMBER ADDED. GD DTSIAPAY
|
|
00012 * 03/08/2011 ADDED PAY TYPES NP AND NR FOR DTSIAPAY
|
|
00013 * NON-DOES PAYMENTS. GD DTSIAPAY
|
|
00014 * 01/09/2012 ADDED THE REFUND ID IDENTIFYING DTSIAPAY
|
|
00015 * THE REFUND IN THE SERVER DB GD DTSIAPAY
|
|
00016 * DTSIAPAY
|
|
00017 ***** DTSIAPAY
|
|
00018 DTSIAPAY
|
|
00019 10 APAY-KEY-AREA. DTSIAPAY
|
|
00020 15 APAY-DOC-NO. DTSIAPAY
|
|
00021 20 APAY-BATCH-NO PIC S9(05) COMP-3. DTSIAPAY
|
|
00022 20 APAY-ITEM-NO PIC S9(03) COMP-3. DTSIAPAY
|
|
00023 DTSIAPAY
|
|
00024 10 APAY-DATA-AREA. DTSIAPAY
|
|
00025 15 APAY-REC-TYPE PIC X(01). DTSIAPAY
|
|
00026 88 APAY-PAY-88 VALUE 'P'. DTSIAPAY
|
|
00027 DTSIAPAY
|
|
00028 DTSIAPAY
|
|
00029 15 APAY-NAME-CHECK PIC X(04). DTSIAPAY
|
|
00030 DTSIAPAY
|
|
00031 15 APAY-EMP-NO PIC S9(07) COMP-3. DTSIAPAY
|
|
00032 DTSIAPAY
|
|
00033 15 APAY-PAY-TYPE PIC X(02). DTSIAPAY
|
|
00034 88 APAY-OR-PAY-88 VALUE 'OR'. DTSIAPAY
|
|
00035 88 APAY-PAYMENT-88 VALUE 'PA'. DTSIAPAY
|
|
00036 88 APAY-PAY-REV-88 VALUE 'PR'. DTSIAPAY
|
|
00037 88 APAY-REFUND-88 VALUE 'RF'. DTSIAPAY
|
|
00038 88 APAY-REF-REV-88 VALUE 'RR'. DTSIAPAY
|
|
00039 88 APAY-NG-CHECK-88 VALUE 'NG'. DTSIAPAY
|
|
00040 88 APAY-NON-DOES-PAY-88 VALUE 'NP'. DTSIAPAY
|
|
00041 88 APAY-NON-DOES-REV-88 VALUE 'NR'. DTSIAPAY
|
|
00042 DTSIAPAY
|
|
00043 15 APAY-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIAPAY
|
|
00044 DTSIAPAY
|
|
00045 15 APAY-WAIVE-INT-IND PIC X(01). DTSIAPAY
|
|
00046 88 APAY-WAIVE-INT-YES-88 VALUE 'Y'. DTSIAPAY
|
|
00047 88 APAY-WAIVE-INT-NO-88 VALUE 'N'. DTSIAPAY
|
|
00048 DTSIAPAY
|
|
00049 15 APAY-WAIVE-LATE-PEN-IND PIC X(01). DTSIAPAY
|
|
00050 88 APAY-WAIVE-LATE-PEN-YES-88 VALUE 'Y'. DTSIAPAY
|
|
00051 88 APAY-WAIVE-LATE-PEN-NO-88 VALUE 'N'. DTSIAPAY
|
|
00052 DTSIAPAY
|
|
00053 15 APAY-NSF-PEN-CHARGE-IND PIC X(01). DTSIAPAY
|
|
00054 88 APAY-NSF-PEN-CHARGE-YES-88 VALUE 'Y'. DTSIAPAY
|
|
00055 88 APAY-NSF-PEN-CHARGE-NO-88 VALUE 'N'. DTSIAPAY
|
|
00056 DTSIAPAY
|
|
00057 15 APAY-RECEIVED-DATE PIC S9(09) COMP-3. DTSIAPAY
|
|
00058 DTSIAPAY
|
|
00059 15 APAY-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIAPAY
|
|
00060 DTSIAPAY
|
|
00061 15 APAY-APPLIC-YRQ PIC S9(05) COMP-3. DTSIAPAY
|
|
00062 DTSIAPAY
|
|
00063 15 APAY-APPLIC-IND PIC X(02). DTSIAPAY
|
|
00064 88 APAY-UI-TAX-88 VALUE 'UI'. DTSIAPAY
|
|
00065 88 APAY-SUR-88 VALUE 'SU'. DTSIAPAY
|
|
00066 88 APAY-INT-88 VALUE 'I '. DTSIAPAY
|
|
00067 88 APAY-LATE-PEN-88 VALUE 'LP'. DTSIAPAY
|
|
00068 88 APAY-NSF-PEN-88 VALUE 'NP'. DTSIAPAY
|
|
00069 88 APAY-MISC-PEN-88 VALUE 'MP'. DTSIAPAY
|
|
00070 88 APAY-CREDIT-88 VALUE 'CR'. DTSIAPAY
|
|
00071 DTSIAPAY
|
|
00072 15 APAY-APPLIC-DOC-NO. DTSIAPAY
|
|
00073 20 APAY-APPLIC-BATCH-NO DTSIAPAY
|
|
00074 PIC S9(05) COMP-3. DTSIAPAY
|
|
00075 20 APAY-APPLIC-ITEM-NO PIC S9(03) COMP-3. DTSIAPAY
|
|
00076 DTSIAPAY
|
|
00077 15 APAY-DISREGARD-EDITS-IND DTSIAPAY
|
|
00078 PIC X(01). DTSIAPAY
|
|
00079 DTSIAPAY
|
|
00080 15 APAY-RESPONSIBLE-ACTIVITY DTSIAPAY
|
|
00081 PIC X(03). DTSIAPAY
|
|
00082 DTSIAPAY
|
|
00083 15 APAY-RESPONSIBLE-OP-ID PIC X(08). DTSIAPAY
|
|
00084 DTSIAPAY
|
|
00085 15 APAY-ANNUAL-RPT-IND PIC X(01). DTSIAPAY
|
|
00086 88 APAY-ANNUAL-RPT-NULL-88 VALUE '0'. DTSIAPAY
|
|
00087 88 APAY-ANNUAL-RPT-PMT-88 VALUE '1'. DTSIAPAY
|
|
00088 88 APAY-ANNUAL-RPT-WD-88 VALUE '2'. DTSIAPAY
|
|
00089 DTSIAPAY
|
|
00090 15 APAY-TRACE-NO PIC S9(13) COMP-3. DTSIAPAY
|
|
00091 DTSIAPAY
|
|
00092 15 APAY-NSF-MNTE-ABSTIME PIC S9(15) COMP-3. DTSIAPAY
|
|
00093 DTSIAPAY
|
|
00094 15 APAY-CHECK-SCAN-DT PIC S9(09) COMP-3. DTSIAPAY
|
|
00095 15 APAY-CHECK-SEQUENCE PIC S9(05) COMP-3. DTSIAPAY
|
|
00096 DTSIAPAY
|
|
00097 15 APAY-REFUND-ID PIC S9(09) COMP-3. DTSIAPAY
|
|
00098 DTSIAPAY
|
|
00099 15 FILLER PIC X(05). DTSIAPAY
|
|
00100 DTSIAPAY
|
|
00101 15 APAY-PROCESSED-DATE PIC S9(09) COMP-3. DTSIAPAY
|
|
00102 88 APAY-NOT-PROCESSED-88 VALUE ZERO. DTSIAPAY
|