00001 ***** 07/01/08 00002 * DTSIMRFD 00003 * DTSIMRFD MASTER FILE 'REFUND' RECORD LV001 00004 * DEFINITION. DTSIMRFD 00005 * DTSIMRFD 00006 * DTSIMRFD 00007 * 02/06/2008 INITIAL DEVELOPMENT. GD DTSIMRFD 00008 * DTSIMRFD 00009 ***** DTSIMRFD 00010 DTSIMRFD 00011 10 MRFD-KEY-AREA. DTSIMRFD 00012 15 MRFD-EMP-NO PIC S9(07) COMP-3. DTSIMRFD 00013 15 MRFD-REC-TYPE PIC S9(04) COMP. DTSIMRFD 00014 88 MRFD-RFD-88 VALUE +50. DTSIMRFD 00015 15 MRFD-TAX-DOC-NO. DTSIMRFD 00016 20 MRFD-TAX-BATCH-NO PIC S9(05) COMP-3. DTSIMRFD 00017 20 MRFD-TAX-ITEM-NO PIC S9(03) COMP-3. DTSIMRFD 00018 15 MRFD-KEY-FILLER PIC X(05). DTSIMRFD 00019 DTSIMRFD 00020 10 MRFD-PURGE-DATE PIC S9(09) COMP-3. DTSIMRFD 00021 DTSIMRFD 00022 10 MRFD-DATA-AREA. DTSIMRFD 00023 15 MRFD-TAX-RF-TYPE PIC X(02). DTSIMRFD 00024 88 MRFD-RF-88 VALUE 'RF'. DTSIMRFD 00025 88 MRFD-RR-88 VALUE 'RR'. DTSIMRFD 00026 DTSIMRFD 00027 15 MRFD-REFUND-AMT PIC S9(09)V9(02) COMP-3. DTSIMRFD 00028 DTSIMRFD 00029 15 MRFD-CFO-AGENCY PIC X(03). DTSIMRFD 00030 DTSIMRFD 00031 15 MRFD-CFO-TYPE PIC X(01). DTSIMRFD 00032 DTSIMRFD 00033 15 MRFD-CFO-REQUEST-DATE PIC 9(08). DTSIMRFD 00034 DTSIMRFD 00035 15 MRFD-CFO-BATCH-NO PIC 9(03). DTSIMRFD 00036 DTSIMRFD 00037 15 MRFD-CFO-SEQ-NO PIC 9(05). DTSIMRFD 00038 DTSIMRFD 00039 15 MRFD-CURR-DOC-NO PIC X(08). DTSIMRFD 00040 DTSIMRFD 00041 15 MRFD-CURR-DOC-NO-SFX PIC X(03). DTSIMRFD 00042 DTSIMRFD 00043 15 MRFD-RESPONSIBLE-OP-ID PIC X(08). DTSIMRFD 00044 DTSIMRFD 00045 15 MRFD-CFO-CHECK-DATE PIC S9(09) COMP-3. DTSIMRFD 00046 DTSIMRFD 00047 15 MRFD-CFO-CHECK-NO PIC X(09). DTSIMRFD 00048 DTSIMRFD 00049 15 MRFD-CFO-APPROVAL-DATE PIC S9(09) COMP-3. DTSIMRFD 00050 DTSIMRFD 00051 ***************************************************************** DTSIMRFD 00052 * BATCH AND ITEM NUMBER OF THE ORIGINAL PAYMENT DTSIMRFD 00053 * FROM WHICH THE REFUND IS ISSUED. DTSIMRFD 00054 ***************************************************************** DTSIMRFD 00055 15 MRFD-PAY-BATCH-NO PIC S9(05) COMP-3. DTSIMRFD 00056 15 MRFD-PAY-ITEM-NO PIC S9(03) COMP-3. DTSIMRFD 00057 DTSIMRFD 00058 15 FILLER PIC X(18). DTSIMRFD 00059 DTSIMRFD 00060 15 MRFD-CONVERTED-IND PIC X(01). DTSIMRFD 00061 88 MRFD-CONVERTED-88 VALUE 'Y'. DTSIMRFD 00062 88 MRFD-NOT-CONVERTED-88 VALUE 'N'. DTSIMRFD 00063 DTSIMRFD 00064 DTSIMRFD 00065 15 MRFD-ESTB-DATE PIC S9(09) COMP-3. DTSIMRFD 00066 DTSIMRFD 00067 15 MRFD-CHNG-DATE PIC S9(09) COMP-3. DTSIMRFD