68 lines
5.3 KiB
COBOL
68 lines
5.3 KiB
COBOL
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
|