00001 *****                                                             05/22/01
00002 *                                                                 DTSIIEPR
00003 *    DTSIIEPR  ALTERNATE INDEX FILE                                  LV001
00004 *              ELECTRONIC FILER ID SEARCH RECORD DEFINITION.      DTSIIEPR
00005 *                                                                 DTSIIEPR
00006 *    FUNCTION: ONE EXISTS FOR EACH ELECTRONIC FILER PROFILE REC.  DTSIIEPR
00007 *              INPUT: ELF-ID                                      DTSIIEPR
00008 *              RETURN: DATA-TYPE-CD                               DTSIIEPR
00009 *                                                                 DTSIIEPR
00010 *              THIS RECORD EXISTS ONLY TO SIMPLIFY THE SEARCH     DTSIIEPR
00011 *              PROCESS IN SCREEN L6.                              DTSIIEPR
00012 *                                                                 DTSIIEPR
00013 *              01/17/2001  INITIAL DEVELOPMENT.  GD               DTSIIEPR
00014 *                                                                 DTSIIEPR
00015 *****                                                             DTSIIEPR
00016                                                                   DTSIIEPR
00017          10  IEPR-KEY-AREA.                                       DTSIIEPR
00018              15  IEPR-REC-TYPE           PIC S9(04)       COMP.   DTSIIEPR
00019                  88  IEPR-EPR-88             VALUE +19.           DTSIIEPR
00020              15  IEPR-ELF-ID             PIC S9(07)       COMP-3. DTSIIEPR
00021              15  IEPR-DATA-TYPE-CD       PIC  X(02).              DTSIIEPR
00022                  88  IEPR-PRINT-UC30-88      VALUE '01'.          DTSIIEPR
00023                  88  IEPR-BEN-CHARGE-88      VALUE '02'.          DTSIIEPR
00024                  88  IEPR-WAGE-ONLY-88       VALUE '11'.          DTSIIEPR
00025                  88  IEPR-WAGE-TAX-88        VALUE '12'.          DTSIIEPR
00026              15  IEPR-KEY-FILLER         PIC  X(56).              DTSIIEPR