21 lines
1.6 KiB
COBOL
21 lines
1.6 KiB
COBOL
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
|