03 AGENCY-TABLE                       REDEFINES MTIOAREA.     00000001
              05  DOCD-IOAREA.                                          00000002
                 10  AGCY-KEY-FIELDS.                                   00000003
                  15  FISC-YEAR.                                        00000004
                      20  FISC-YEAR-CC                PIC X(02).        00000005
                      20  FISC-YEAR-YY                PIC X(02).        00000006
                  15  AGENCY                          PIC X(03).        00000007
                 10  AGCY-RESULT-FIELDS.                                00000008
                  15  AGENCY-APRVCODE                 PIC X.            00000009
                  15  AGENCY-NAME                     PIC X(30).        00000010
                  15  AGENCY-SHORT-NAME               PIC X(12).        00000011
                  15  AGENCY-MANAGER-NAME             PIC X(30).        00000012
                  15  CURRENT-BUDGET-PHASE            PIC 9(01).        00000013
                  15  REPT-CAT-REQD-OPT-SP            PIC X(01).        00000014
                  15  REPT-CAT-REQD-OPT-RV            PIC X(01).        00000015
                  15  DEFAULT-BUYER-ACCOUNT.                            00000016
                   20  DEFAULT-FUND                   PIC X(04).        00000017
                   20  DEFAULT-AGENCY                 PIC X(03).        00000018
                   20  DEFAULT-ORGANIZATION           PIC X(04).        00000019
                   20  DEFAULT-APPR-UNIT              PIC X(09).        00000020
                   20  DEFAULT-ACTIVITY               PIC X(04).        00000021
                   20  DEFAULT-FUNCTION               PIC X(04).        00000022
                   20  DEFAULT-OBJECT                 PIC X(04).        00000023
                  15  BP-EXCLUDE                      PIC X(01).        00000024
                  15  AGENCY-CLASS                    PIC X(04).        00000025
                  15  AGENCY-CATEGORY                 PIC X(04).        00000026
                  15  AGENCY-TYPE                     PIC X(04).        00000027
                  15  AGENCY-GROUP                    PIC X(04).        00000028
                  15  FED-BILLING-REPT-CAT            PIC X(04).        00000029
                  15  FED-BILLING-PROJ-DAT.                             00000030
                   20  FED-BILLING-PROJECT            PIC X(05).        00000031
                   20  FED-BILLING-SUB-PROJ           PIC X(02).        00000040
                   20  FED-BILLING-PHASE              PIC X(01).        00000100