00001 *****                                                             12/01/05
00002 *                                                                 DTSIESKL
00003 *    DTSIESKL  ELECTRONIC MEDIA SKELETAL RECORDDEFINITION            LV015
00004 *                                                                 DTSIESKL
00005 *****                                                             DTSIESKL
00006      SKIP1                                                        DTSIESKL
00007          10  ESKL-KEY-AREA.                                       DTSIESKL
00008              15  ESKL-REC-TYPE           PIC S9(04)       COMP.   DTSIESKL
00009                  88  ESKL-HDR-88             VALUE +01.           DTSIESKL
00010                  88  ESKL-PRF-88             VALUE +02.           DTSIESKL
00011                  88  ESKL-LOG-88             VALUE +03.           DTSIESKL
00012                  88  ESKL-MSG-88             VALUE +04.           DTSIESKL
00013                  88  ESKL-EMH-88             VALUE +05.           DTSIESKL
00014                  88  ESKL-TRG-88             VALUE +06.           DTSIESKL
00015              15  ESKL-KEY-FILLER         PIC  X(22).              DTSIESKL
00016          10  ESKL-ELOG-KEY-AREA REDEFINES ESKL-KEY-AREA.          DTSIESKL
00017              15  FILLER                  PIC S9(04)       COMP.   DTSIESKL
00018              15  ESKL-ELOG-LOG-NO        PIC  9(10).                 CL*15
00019              15  FILLER                  PIC  X(12).              DTSIESKL
00020          10  ESKL-EEMH-KEY-AREA REDEFINES ESKL-KEY-AREA.          DTSIESKL
00021              15  FILLER                  PIC S9(04)       COMP.   DTSIESKL
00022              15  ESKL-EMP-NO             PIC S9(07)       COMP-3. DTSIESKL
00023              15  ESKL-REPORTING-DATE     PIC S9(09)       COMP-3. DTSIESKL
00024              15  ESKL-DATA-TYPE-CD       PIC  X(02).              DTSIESKL
00025              15  ESKL-EEMH-LOG-NO        PIC  X(10).                 CL*15
00026              15  FILLER                  PIC  X(01).              DTSIESKL
00027      SKIP1                                                        DTSIESKL
00028          10  ESKL-DATA-AREA.                                      DTSIESKL
00029              15  ESKL-DATA-FILLER        PIC  X(1000).            DTSIESKL