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