00001 *****                                                             08/31/98
00002 *                                                                 DTSIMIO
00003 *    08/31/1998  REVIEWED AND MODIFIED FOR DC.  EHH                  LV003
00004 *                                                                    CL**3
00005 *****                                                             DTSIMIO
00006                                                                      CL**3
00007      05  MIO-KEY-AREA.                                            DTSIMIO
00008          10  MIO-EMP-NO                  PIC S9(07)      COMP-3.  DTSIMIO
00009          10  MIO-REC-TYPE                PIC S9(04)      COMP.    DTSIMIO
00010          10  MIO-KEY-FILLER              PIC  X(10).              DTSIMIO
00011                                                                      CL**3
00012      05  MIO-CONTROL-AREA.                                        DTSIMIO
00013          10  MIO-COMPRESSION-IND         PIC  X(01).              DTSIMIO
00014              88  MIO-COMPRESS-NO-88             VALUE '0'.        DTSIMIO
00015              88  MIO-COMPRESS-1-88              VALUE '1'.        DTSIMIO
00016          10  MIO-DATA-LENGTH             PIC S9(04)      COMP.    DTSIMIO
00017                                                                      CL**3
00018      05  MIO-DATA-AREA.                                           DTSIMIO
00019          10  MIO-DATA-CHAR OCCURS 1515 TIMES                      DTSIMIO
00020                            INDEXED BY MIO-DATA-IDX                DTSIMIO
00021                                          PIC  X(01).              DTSIMIO