22 lines
1.7 KiB
COBOL
22 lines
1.7 KiB
COBOL
00001 ***** 05/22/01
|
|
00002 * DTSIIENM
|
|
00003 * DTSIIENM ALTERNATE INDEX FILE LV001
|
|
00004 * ELECTRONIC FILER NAME SEARCH RECORD DEFINITION. DTSIIENM
|
|
00005 * DTSIIENM
|
|
00006 * DTSIIENM
|
|
00007 * 01/17/2001 INITIAL DEVELOPMENT. GD DTSIIENM
|
|
00008 * DTSIIENM
|
|
00009 ***** DTSIIENM
|
|
00010 DTSIIENM
|
|
00011 10 IENM-KEY-AREA. DTSIIENM
|
|
00012 15 IENM-REC-TYPE PIC S9(04) COMP. DTSIIENM
|
|
00013 88 IENM-ENM-88 VALUE +11. DTSIIENM
|
|
00014 15 IENM-NAME PIC X(40). DTSIIENM
|
|
00015 15 IENM-ELF-ID PIC S9(07) COMP-3. DTSIIENM
|
|
00016 15 IENM-DATA-TYPE-CD PIC X(02). DTSIIENM
|
|
00017 88 IENM-PRINT-UC30-88 VALUE '01'. DTSIIENM
|
|
00018 88 IENM-BEN-CHARGE-88 VALUE '02'. DTSIIENM
|
|
00019 88 IENM-WAGE-ONLY-88 VALUE '11'. DTSIIENM
|
|
00020 88 IENM-WAGE-TAX-88 VALUE '12'. DTSIIENM
|
|
00021 15 IENM-KEY-FILLER PIC X(16). DTSIIENM
|