DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
20
Copybook/DTSIIFID.cpy
Normal file
20
Copybook/DTSIIFID.cpy
Normal file
@ -0,0 +1,20 @@
|
||||
00001 ***** 01/29/02
|
||||
00002 * DTSIIFID
|
||||
00003 * DTSIIFID ALTERNATE INDEX FILE 'FIELD REPRESENTATIVE ID' LV004
|
||||
00004 * RECORD DEFINITION. DTSIIFID
|
||||
00005 * DTSIIFID
|
||||
00006 * DTSIIFID
|
||||
00007 * 08/25/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIIFID
|
||||
00008 * DTSIIFID
|
||||
00009 ***** DTSIIFID
|
||||
00010 DTSIIFID
|
||||
00011 10 IFID-KEY-AREA. DTSIIFID
|
||||
00012 15 IFID-REC-TYPE PIC S9(04) COMP. DTSIIFID
|
||||
00013 88 IFID-FID-88 VALUE +04. DTSIIFID
|
||||
00014 15 IFID-FLD-REP-ID PIC X(02). DTSIIFID
|
||||
00015 15 IFID-DUE-DATE PIC S9(09) COMP-3. DTSIIFID
|
||||
00016 15 IFID-ASSIGN-NO PIC S9(09) COMP-3. DTSIIFID
|
||||
00017 15 IFID-EMP-NO PIC S9(07) COMP-3. DTSIIFID
|
||||
00018 15 IFID-STATUS-CD PIC X(01). DTSIIFID
|
||||
00019 15 IFID-ASSIGN-TYPE PIC X(02). DTSIIFID
|
||||
00020 15 IFID-KEY-FILLER PIC X(43). DTSIIFID
|
||||
Reference in New Issue
Block a user