03      ACCOUNT-TYPE-TABLE              PEDEFINES MTIOAREA.
              05  DOCD-IOAREA.
                 10  ACCT-KEY-FIELDS.
                  15  ACCOUNT-TYPE                    PIC X(02).
                 10  ACCT-RESULT-FIELDS.
                  15  ACCOUNT-TYPE-NAME               PIC X(30).
                  15  ACCT-TYPE-SHORT-NAME            PIC X(12).