24 lines
1.8 KiB
COBOL
24 lines
1.8 KiB
COBOL
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
|