begin
	IF :PRODUCT_INFO.CHECK ='Y' THEN	
		first_record;
loop	
	
		 SELECT ALL  DEALER_CONTRIBUTION.DISTRIBUTOR_CODE,       
 DISTRIBUTOR_INFO_2.DISTRIBUTOR_NAME,          
 PRODUCT_TARGET1.YEAR_NO,            
 PRODUCT_TARGET1.MONTH_ID,               
 DEALER_CONTRIBUTION.PRODUCT_CODE,
 DEALER_CONTRIBUTION.PRODUCT_NAME,          
 ((DEALER_CONTRIBUTION.CONTRIBUTION/100)*( PRODUCT_TARGET1.TARGET_QTY))TARGETED_QTY_MONTHLY,   
 (((DEALER_CONTRIBUTION.CONTRIBUTION/100)*( PRODUCT_TARGET1.TARGET_QTY))*(DEALER_CONTRIBUTION.INV_RATE))TARGETED_AMT_MONTHLY,                                  
 DEALER_CONTRIBUTION.INV_RATE  
 

INTO DISTRIBUTOR_CODE,       
DISTRIBUTOR_NAME,           
TARGET_YEAR,            
MONTH_ID,               
PRODUCT_CODE,
PRODUCT_NAME,          
TARGETED_QTY_MONTHLY,   
TARGETED_AMT_MONTHLY,                                  
INV_RATE
FROM DEALER_CONTRIBUTION,PRODUCT_TARGET1,DISTRIBUTOR_INFO_2
WHERE DEALER_CONTRIBUTION.PRODUCT_CODE=PRODUCT_TARGET1.PRODUCT_CODE AND DEALER_CONTRIBUTION.YEAR_NO=PRODUCT_TARGET1.YEAR_NO AND 
DISTRIBUTOR_INFO_2.DISTRIBUTOR_CODE=DEALER_CONTRIBUTION.DISTRIBUTOR_CODE; 
INSERT INTO DEALER_TARGET_TBL2(DISTRIBUTOR_CODE,       
DISTRIBUTOR_NAME,       
TARGET_YEAR,            
MONTH_ID,               
PRODUCT_CODE,
PRODUCT_NAME,          
TARGETED_QTY_MONTHLY,   
TARGETED_AMT_MONTHLY,                                  
INV_RATE)
VALUES(DISTRIBUTOR_CODE,       
DISTRIBUTOR_NAME,           
TARGET_YEAR,            
MONTH_ID,               
PRODUCT_CODE,
PRODUCT_NAME,          
TARGETED_QTY_MONTHLY,   
TARGETED_AMT_MONTHLY,                                  
INV_RATE);
--GO_BLOCK('DEALER_TARGET_TBL2');
	--execute_query();
	COMMIT;
	exit when :system.last_record = 'TRUE';	
	next_record;
  end loop;
end if;
  commit;
END;