03 PHASE-ACTIVITY-TABLE               REDEFINES MTIOAREA.     00000001
              05  DOCD-IOAREA.                                          00000002
                 10  PACT-KEY-FIELDS.                                   00000003
                  15  BUDGET-FY.                                        00000004
                      20  BUDGET-FY-CC                PIC X(02).        00000005
                      20  BUDGET-FY-YY                PIC X(02).        00000006
                  15  PHASE                           PIC X(01).        00000007
                  15  ACTIVITY                        PIC X(04).        00000008
                 10  PACT-RESULT-FIELDS.                                00000010
                  15  CE-INDICATOR                    PIC X(01).        00000100