01  EDMAP2I.
           02  FILLER PIC X(12).
           02  TimeL    COMP  PIC  S9(4).
           02  TimeF    PICTURE X.
           02  FILLER REDEFINES TimeF.
             03 TimeA    PICTURE X.
           02  TimeI  PIC X(5).
           02  EMPNOL    COMP  PIC  S9(4).
           02  EMPNOF    PICTURE X.
           02  FILLER REDEFINES EMPNOF.
             03 EMPNOA    PICTURE X.
           02  EMPNOI  PIC X(5).
           02  SSNOL    COMP  PIC  S9(4).
           02  SSNOF    PICTURE X.
           02  FILLER REDEFINES SSNOF.
             03 SSNOA    PICTURE X.
           02  SSNOI  PIC X(10).
           02  FNAMEL    COMP  PIC  S9(4).
           02  FNAMEF    PICTURE X.
           02  FILLER REDEFINES FNAMEF.
             03 FNAMEA    PICTURE X.
           02  FNAMEI  PIC X(20).
           02  LNAMEL    COMP  PIC  S9(4).
           02  LNAMEF    PICTURE X.
           02  FILLER REDEFINES LNAMEF.
             03 LNAMEA    PICTURE X.
           02  LNAMEI  PIC X(20).
           02  DPTL    COMP  PIC  S9(4).
           02  DPTF    PICTURE X.
           02  FILLER REDEFINES DPTF.
             03 DPTA    PICTURE X.
           02  DPTI  PIC X(5).
           02  MSGXL    COMP  PIC  S9(4).
           02  MSGXF    PICTURE X.
           02  FILLER REDEFINES MSGXF.
             03 MSGXA    PICTURE X.
           02  MSGXI  PIC X(59).
           02  MSGL    COMP  PIC  S9(4).
           02  MSGF    PICTURE X.
           02  FILLER REDEFINES MSGF.
             03 MSGA    PICTURE X.
           02  MSGI  PIC X(60).
       01  EDMAP2O REDEFINES EDMAP2I.
           02  FILLER PIC X(12).
           02  FILLER PICTURE X(3).
           02  TimeO  PIC X(5).
           02  FILLER PICTURE X(3).
           02  EMPNOO  PIC X(5).
           02  FILLER PICTURE X(3).
           02  SSNOO  PIC X(10).
           02  FILLER PICTURE X(3).
           02  FNAMEO  PIC X(20).
           02  FILLER PICTURE X(3).
           02  LNAMEO  PIC X(20).
           02  FILLER PICTURE X(3).
           02  DPTO  PIC X(5).
           02  FILLER PICTURE X(3).
           02  MSGXO  PIC X(59).
           02  FILLER PICTURE X(3).
           02  MSGO  PIC X(60).