DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
23
Copybook/DTSIIPES.cpy
Normal file
23
Copybook/DTSIIPES.cpy
Normal file
@ -0,0 +1,23 @@
|
||||
00001 ***** 04/24/07
|
||||
00002 * DTSIIPES
|
||||
00003 * DTSIIPES ALTERNATE INDEX FILE LV004
|
||||
00004 * 'PREDECESSOR / EFFECTIVE DATE / SUCCESSOR' DTSIIPES
|
||||
00005 * RECORD DEFINITION. DTSIIPES
|
||||
00006 * DTSIIPES
|
||||
00007 * DTSIIPES
|
||||
00008 * 08/25/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIIPES
|
||||
00009 * 10/20/2006 ADDED PERCENT-TRNSFRD. GD DTSIIPES
|
||||
00010 * DTSIIPES
|
||||
00011 ***** DTSIIPES
|
||||
00012 DTSIIPES
|
||||
00013 10 IPES-KEY-AREA. DTSIIPES
|
||||
00014 15 IPES-REC-TYPE PIC S9(04) COMP. DTSIIPES
|
||||
00015 88 IPES-PES-88 VALUE +07. DTSIIPES
|
||||
00016 15 IPES-PRED-EMP-NO PIC S9(07) COMP-3. DTSIIPES
|
||||
00017 15 IPES-EFF-DATE PIC S9(09) COMP-3. DTSIIPES
|
||||
00018 15 IPES-SUC-EMP-NO PIC S9(07) COMP-3. DTSIIPES
|
||||
00019 15 IPES-EXP-TRNSF-CD PIC X(01). DTSIIPES
|
||||
00020 88 IPES-EXP-TRNSF-NO-88 VALUE 'N'. DTSIIPES
|
||||
00021 88 IPES-EXP-TRNSF-YES-88 VALUE 'Y'. DTSIIPES
|
||||
00022 15 IPES-PERCENT-TRNSFRD PIC S9V9(04) COMP-3. DTSIIPES
|
||||
00023 15 IPES-KEY-FILLER PIC X(45). DTSIIPES
|
||||
Reference in New Issue
Block a user