108 lines
8.5 KiB
COBOL
108 lines
8.5 KiB
COBOL
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
|