25 lines
1.9 KiB
COBOL
25 lines
1.9 KiB
COBOL
00001 ***** 05/22/01
|
|
00002 * DTSIIEAE
|
|
00003 * DTSIIEAE ALTERNATE INDEX FILE LV001
|
|
00004 * ELECTRONIC FILER ID SEARCH RECORD DEFINITION. DTSIIEAE
|
|
00005 * DTSIIEAE
|
|
00006 * FUNCTION: ONE EXISTS FOR EACH ACTIVE ITEM. DTSIIEAE
|
|
00007 * INPUT: ELF-ID OR ELF-ID AND DATA TYPE DTSIIEAE
|
|
00008 * RETURN: LOG NUMBER OF ACTIVE ITEM. DTSIIEAE
|
|
00009 * DTSIIEAE
|
|
00010 * 01/17/2001 INITIAL DEVELOPMENT. GD DTSIIEAE
|
|
00011 * DTSIIEAE
|
|
00012 ***** DTSIIEAE
|
|
00013 DTSIIEAE
|
|
00014 10 IEAE-KEY-AREA. DTSIIEAE
|
|
00015 15 IEAE-REC-TYPE PIC S9(04) COMP. DTSIIEAE
|
|
00016 88 IEAE-EAE-88 VALUE +13. DTSIIEAE
|
|
00017 15 IEAE-ELF-ID PIC S9(07) COMP-3. DTSIIEAE
|
|
00018 15 IEAE-DATA-TYPE-CD PIC X(02). DTSIIEAE
|
|
00019 88 IEAE-PRINT-UC30-88 VALUE '01'. DTSIIEAE
|
|
00020 88 IEAE-BEN-CHARGE-88 VALUE '02'. DTSIIEAE
|
|
00021 88 IEAE-WAGE-ONLY-88 VALUE '11'. DTSIIEAE
|
|
00022 88 IEAE-WAGE-TAX-88 VALUE '12'. DTSIIEAE
|
|
00023 15 IEAE-LOG-NO PIC 9(10). DTSIIEAE
|
|
00024 15 IEAE-KEY-FILLER PIC X(46). DTSIIEAE
|