01  EDMAP1I.
           02  FILLER PIC X(12).
           02  DATEL    COMP  PIC  S9(4).
           02  DATEF    PICTURE X.
           02  FILLER REDEFINES DATEF.
             03 DATEA    PICTURE X.
           02  FILLER   PICTURE X(2).
           02  DATEI  PIC X(10).
           02  EMPFILEL    COMP  PIC  S9(4).
           02  EMPFILEF    PICTURE X.
           02  FILLER REDEFINES EMPFILEF.
             03 EMPFILEA    PICTURE X.
           02  FILLER   PICTURE X(2).
           02  EMPFILEI  PIC X(1).
           02  PagingL    COMP  PIC  S9(4).
           02  PagingF    PICTURE X.
           02  FILLER REDEFINES PagingF.
             03 PagingA    PICTURE X.
           02  FILLER   PICTURE X(2).
           02  PagingI  PIC X(1).
           02  ExitL    COMP  PIC  S9(4).
           02  ExitF    PICTURE X.
           02  FILLER REDEFINES ExitF.
             03 ExitA    PICTURE X.
           02  FILLER   PICTURE X(2).
           02  ExitI  PIC X(1).
           02  MESSAGEL    COMP  PIC  S9(4).
           02  MESSAGEF    PICTURE X.
           02  FILLER REDEFINES MESSAGEF.
             03 MESSAGEA    PICTURE X.
           02  FILLER   PICTURE X(2).
           02  MESSAGEI  PIC X(59).
       01  EDMAP1O REDEFINES EDMAP1I.
           02  FILLER PIC X(12).
           02  FILLER PICTURE X(3).
           02  DATEC    PICTURE X.
           02  DATEH    PICTURE X.
           02  DATEO  PIC X(10).
           02  FILLER PICTURE X(3).
           02  EMPFILEC    PICTURE X.
           02  EMPFILEH    PICTURE X.
           02  EMPFILEO  PIC X(1).
           02  FILLER PICTURE X(3).
           02  PagingC    PICTURE X.
           02  PagingH    PICTURE X.
           02  PagingO  PIC X(1).
           02  FILLER PICTURE X(3).
           02  ExitC    PICTURE X.
           02  ExitH    PICTURE X.
           02  ExitO  PIC X(1).
           02  FILLER PICTURE X(3).
           02  MESSAGEC    PICTURE X.
           02  MESSAGEH    PICTURE X.
           02  MESSAGEO  PIC X(59).