03 ACTIVITY-TABLE                     REDEFINES MTIOAREA.   
              05  DOCD-IOAREA.                                         
                 10  ACTV-KEY-FIELDS.                                 
                  15  FISC-YEAR.                                    
                   20  FISC-YEAR-CC                   PIC X(02).  
                   20  FISC-YEAR-YY                   PIC X(02).  
                  15  ACTIVITY                        PIC X(04).  
                 10  ACTV-RESULT-FIELDS.                          
                  15  ACTIVITY-CLASS                  PIC X(04). 
                  15  ACTIVITY-CATEGORY               PIC X(04).  
                  15  ACTIVITY-TYPE                   PIC X(04).  
                  15  ACTIVITY-GROUP                  PIC X(02). 
                  15  ACTIVITY-NAME                   PIC X(30).   
                  15  ACTIVITY-SHORT-NAME             PIC X(12). 
                  15  GRANT                           PIC X(4).   
                  15  PROJECT                         PIC X(04).  
                  15  XFUNCTION                       PIC X(04).    
                  15  JOB-REQD-OPT-SP                 PIC X(01).    
                  15  JOB-REQD-OPT-RV                 PIC X(01).    
                  15  ELIGIBILITY-IND                 PIC X(01).     
                  15  MAJOR-GASB-TYPE                 PIC X(02).
                  15  MINOR-GASB-TYPE                 PIC X(02).