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