27 lines
2.1 KiB
COBOL
27 lines
2.1 KiB
COBOL
00001 ***** 05/22/01
|
|
00002 * DTSIIEER
|
|
00003 * DTSIIEER ALTERNATE INDEX FILE LV001
|
|
00004 * EMPLOYER SEARCH BY REPORTING DATE AND DTSIIEER
|
|
00005 * DATA TYPE RECORD DEFINITION. DTSIIEER
|
|
00006 * DTSIIEER
|
|
00007 * FUNCTION: ONE EXISTS FOR EACH EMPLOYER FOR WHOM DTSIIEER
|
|
00008 * AN ELECTRONIC SUBMISSION IS ON FILE. DTSIIEER
|
|
00009 * DTSIIEER
|
|
00010 * 01/17/2001 INITIAL DEVELOPMENT. GD DTSIIEER
|
|
00011 * DTSIIEER
|
|
00012 * NOTE: THE REPORTING DATE IS IN NINES COMPLEMENT FORM, DTSIIEER
|
|
00013 * SO AN EMPLOYER'S RECORDS ARE RETURNED IN REVERSE DTSIIEER
|
|
00014 * CHRONOLOGICAL ORDER BY REPORTING DATE (I.E., THE DTSIIEER
|
|
00015 * MOST RECENT RECORD IS FIRST). DTSIIEER
|
|
00016 * DTSIIEER
|
|
00017 ***** DTSIIEER
|
|
00018 DTSIIEER
|
|
00019 10 IEER-KEY-AREA. DTSIIEER
|
|
00020 15 IEER-REC-TYPE PIC S9(04) COMP. DTSIIEER
|
|
00021 88 IEER-EER-88 VALUE +17. DTSIIEER
|
|
00022 15 IEER-EMP-NO PIC S9(07) COMP-3. DTSIIEER
|
|
00023 15 IEER-RPT-DATE-XOR PIC S9(09) COMP-3. DTSIIEER
|
|
00024 15 IEER-DATA-TYPE-CD PIC X(02). DTSIIEER
|
|
00025 15 IEER-LOG-NO PIC 9(10). DTSIIEER
|
|
00026 15 IEER-KEY-FILLER PIC X(41). DTSIIEER
|