03  PMT-ENTRY-TABLE            REDEFINES MTIOAREA. 
     05  DOCH-IOAREA.                                   
           10  RPET-KEY-FIELDS.                           
                 15  ACCOUNT-NUMBER          		PIC X(20).     
                 15  INVOICE-NUMBER          		PIC X(12).     
                 15  INVOICE-DATE.                          
                       20 INVOICE-YEAR.                       
                             25 INVOICE-YEAR-CC   	PIC X(02).     
                             25 INVOICE-YEAR-YY   	PIC X(02).     
                       20 INVOICE-MONTH         	PIC X(02).     
                       20 INVOICE-DAY           	PIC X(02).     
     05  DOCD-IOAREA.                                
           10  LKEY-FIELDS.                            
                 15  LINE-NUMBER             		PIC X(02).  
           10  RESULT-FIELDS.                          
                 15  FUND                    		PIC X(04).  
                 15  AGENCY                  		PIC X(03).  
                 15  XORGANIZATION           		PIC X(04).  
                 15  SUB-ORGANIZATION        		PIC X(02).  
                 15  APPR-UNIT               		PIC X(09).  
                 15  ACTIVITY                		PIC X(04).  
                 15  XFUNCTION               		PIC X(04).  
                 15  OBJECT                  		PIC X(04).  
                 15  SUB-OBJECT              		PIC X(02).  
                 15  PROJECT-JOB-NUMBER      		PIC X(08).  
                 15  PJ-NUMBER EDEFINES   
                       PROJECT-JOB-NUMBER.                 
                       20  WS-PROJECT           	PIC X(05).  
                       20  WS-SUBPROJECT        	PIC X(02).    
                       20  WS-PHASE             	PIC X(01).    
                 15  REPORTING-CATEGORY         	PIC X(04).     
                 15  COMMODITY-CODE          	      PIC X(14).    
                 15  AMOUNT                  		PIC 9(14).    
                 15  AMOUNT-9 REDEFINES     
                       AMOUNT                    	PIC S9(12)V99.