03 EFT-APPL-TYPE-TABLE                REDEFINES MTIOAREA.     00000001
              05  DOCD-IOAREA.                                          00000002
                 10  EFTA-KEY-FIELDS.                                   00000003
                  15  APPLICATION-TYPE                PIC X(02).        00000004
                 10  EFTA-RESULT-FIELDS.                                00000010
                  15  DESCRIPTION-20                  PIC X(20).        00000100