21 lines
1.6 KiB
COBOL
21 lines
1.6 KiB
COBOL
00001 ***** 05/22/01
|
|
00002 * DTSIIEET
|
|
00003 * DTSIIEET ALTERNATE INDEX FILE LV001
|
|
00004 * EMPLOYER/DATA TYPE SEARCH RECORD DEFINITION. DTSIIEET
|
|
00005 * DTSIIEET
|
|
00006 * FUNCTION: ONE EXISTS FOR EACH EMPLOYER FOR WHOM DTSIIEET
|
|
00007 * AN ELECTRONIC SUBMISSION IS ON FILE. DTSIIEET
|
|
00008 * DTSIIEET
|
|
00009 * 01/17/2001 INITIAL DEVELOPMENT. GD DTSIIEET
|
|
00010 * DTSIIEET
|
|
00011 ***** DTSIIEET
|
|
00012 DTSIIEET
|
|
00013 10 IEET-KEY-AREA. DTSIIEET
|
|
00014 15 IEET-REC-TYPE PIC S9(04) COMP. DTSIIEET
|
|
00015 88 IEET-EET-88 VALUE +18. DTSIIEET
|
|
00016 15 IEET-EMP-NO PIC S9(07) COMP-3. DTSIIEET
|
|
00017 15 IEET-DATA-TYPE-CD PIC X(02). DTSIIEET
|
|
00018 15 IEET-RPT-DATE-XOR PIC S9(09) COMP-3. DTSIIEET
|
|
00019 15 IEET-LOG-NO PIC 9(10). DTSIIEET
|
|
00020 15 IEET-KEY-FILLER PIC X(41). DTSIIEET
|