00001 *****                                                             08/24/98
00002 *                                                                 DTSIL017
00003 *    DTSIL017  FEIN FROM SCREEN FORMAT/EDIT MODULE LINKAGE.          LV003
00004 *                                                                 DTSIL017
00005 *****                                                             DTSIL017
00006      SKIP1                                                        DTSIL017
00007          10  L017-RESULT-IND             PIC  X(01).              DTSIL017
00008              88  L017-NO-ENTRY               VALUE '0'.           DTSIL017
00009              88  L017-VALID                  VALUE '1'.           DTSIL017
00010              88  L017-NOT-VALID              VALUE '2'.           DTSIL017
00011      SKIP1                                                        DTSIL017
00012          10  L017-S-FEIN-AREA.                                    DTSIL017
00013              15  L017-S-FEIN1-AREA.                               DTSIL017
00014                  20  L017-S-FEIN1-L      PIC S9(04)      COMP.    DTSIL017
00015                  20  L017-S-FEIN1-A      PIC  X(01).              DTSIL017
00016                  20  L017-S-FEIN1        PIC  X(02).              DTSIL017
00017              15  L017-S-FEIN2-AREA.                               DTSIL017
00018                  20  L017-S-FEIN2-L      PIC S9(04)      COMP.    DTSIL017
00019                  20  L017-S-FEIN2-A      PIC  X(01).              DTSIL017
00020                  20  L017-S-FEIN2        PIC  X(07).              DTSIL017
00021      SKIP1                                                        DTSIL017
00022          10  L017-FEIN                   PIC S9(09)      COMP-3.  DTSIL017
00023      SKIP1                                                        DTSIL017
00024          10  FILLER                      PIC  X(09).              DTSIL017