20 lines
1.5 KiB
COBOL
20 lines
1.5 KiB
COBOL
00001 ***** 07/01/08
|
|
00002 * DTSIIRFD
|
|
00003 * DTSIIRFD ALTERNATE INDEX FILE REFUND RECORD DEFINITION. LV001
|
|
00004 * DTSIIRFD
|
|
00005 * DTSIIRFD
|
|
00006 * 02/08/2008 INITIAL DEVELOPMENT. GD DTSIIRFD
|
|
00007 * DTSIIRFD
|
|
00008 ***** DTSIIRFD
|
|
00009 DTSIIRFD
|
|
00010 10 IRFD-KEY-AREA. DTSIIRFD
|
|
00011 15 IRFD-REC-TYPE PIC S9(04) COMP. DTSIIRFD
|
|
00012 88 IRFD-RFD-88 VALUE +22. DTSIIRFD
|
|
00013 15 IRFD-CFO-BATCH-NO PIC 9(03). DTSIIRFD
|
|
00014 15 IRFD-CFO-SEQ-NO PIC 9(05). DTSIIRFD
|
|
00015 15 IRFD-CFO-REQUEST-DATE PIC 9(08). DTSIIRFD
|
|
00016 15 IRFD-EMP-NO PIC S9(07) COMP-3. DTSIIRFD
|
|
00017 15 IRFD-TAX-BATCH-NO PIC S9(05) COMP-3. DTSIIRFD
|
|
00018 15 IRFD-TAX-ITEM-NO PIC S9(03) COMP-3. DTSIIRFD
|
|
00019 15 IRFD-KEY-FILLER PIC X(37). DTSIIRFD
|