DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
21
Copybook/DTSIIENM.cpy
Normal file
21
Copybook/DTSIIENM.cpy
Normal file
@ -0,0 +1,21 @@
|
||||
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
|
||||
Reference in New Issue
Block a user