DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
19
Copybook/DTSIIRFD.cpy
Normal file
19
Copybook/DTSIIRFD.cpy
Normal file
@ -0,0 +1,19 @@
|
||||
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
|
||||
Reference in New Issue
Block a user