03 TRANS-TYPE-TABLE                   REDEFINES MTIOAREA.     00000001
              05  DOCD-IOAREA.                                          00000002
                 10  TRTT-KEY-FIELDS.                                   00000003
                  15  TRANS-CODE                      PIC X(02).        00000004
                  15  TRANS-TYPE                      PIC X(01).        00000005
                 10  TRTT-RESULT-FIELDS.                                00000010
                  15  TRANS-DESC                      PIC X(50).        00000100