03 COST-ACCT-TYPE-TABLE               REDEFINES MTIOAREA.     00000001
              05  DOCD-IOAREA.                                          00000002
                 10  CAAT-KEY-LINE-FIELDS.                              00000003
                  15  ACCOUNT-TYPE                    PIC X(02).        00000004
                 10  CAAT-NON-KEY-LINE-FIELDS.                          00000005
                  15  ACCT-ALLOC-TYPE                 PIC X(01).        00000006
                 10  CAAT-INFERRED-FIELDS.                              00000010
                  15  ACCOUNT-NAME                    PIC X(12).        00000100