03 BASIS-CODE-TABLE                   REDEFINES MTIOAREA. 
     05  DOCH-IOAREA.                             
           10  BAS2-KEY-FIELDS.                    
                 15  FISC-YEAR.                         
                       20  FISC-YEAR-CC      	PIC X(02).   
                       20  FISC-YEAR-YY      	PIC X(02).   
                 15  AGENCY                	PIC X(03).   
                 15  BASIS-CODE            	PIC X(04).   
     05  DOCD-IOAREA.                            
           10  BAS2-LINE-KEY-FIELDS.              
                 15  OBJECT-OBJECT-CLASS   	PIC X(04).  
           10  BAS2-RESULT-FIELDS.                
                 15  INCL-EXCL-IND         	PIC X(01).  
                 15  OBJECT-CLASS-IND      	PIC X(01).