03 BUD-OBJ-CLS-TABLE                  REDEFINES MTIOAREA.     00000001
              05  DOCD-IOAREA.                                          00000002
                 10  BOBC-KEY-FIELDS.                                   00000003
                  15  FISC-YEAR.                                        00000004
                   20  FISC-YEAR-CC                   PIC X(02).        00000005
                   20  FISC-YEAR-YY                   PIC X(02).        00000006
                  15  BUDGET-OBJ-CLASS                PIC X(03).        00000007
                 10  BOBC-RESULT-FIELDS.                                00000008
                  15  BUD-OBJ-CLS-NAME                PIC X(30).        00000009
                  15  BUD-OBJ-CLS-SHRT-NM             PIC X(12).        00000010
                  15  REIMBURSEMENT-IND               PIC X(01).        00000011
                      88  REIMBURSABLE                  VALUE 'Y'.      00000020
                      88  NONREIMBURSABLE               VALUE 'N'.      00000100