ORACLE子存储过程中的COMMIT语句引发的问题

今天花了一天时间在恢复表数据，就是因为在子存储过程中出现了个commit语句，简单描述如下：

SP_ADD_PRODUCT中调用了两个子存储过程SP_SUB_RMV_PRODUCT和SP_SUB_ADD_PRODUCT，其中SP_SUB_RMV_PRODUCT会将好几张表中的数据删除，

然后SP_SUB_ADD_PRODUCT会重新添加信息。

问题出现在：SP_SUB_RMV_PRODUCT中在结束时使用了COMMIT语句，在SP_SUB_RMV_PRODUCT处理失败时，存储过程回滚，但由于之前的COMMIT,导致数据不能完全回滚，从而产生数据不一致。

CREATE OR REPLACE PROCEDURE SP_ADD_PRODUCT(I_ID IN NUMBER, SV_NAME IN VARCHAR2, RETCODE NUMBER)
AS
  I_INDEX INTEGER := 0;
BEGIN

  .......
  
	DELETE FROM TBL_A;
	
	
	SP_SUB_RMV_PRODUCT(I_INDEX, SV_NAME);            --子存储过程1
	
	.......
	
	SP_SUB_ADD_PRODUCT(I_INDEX, SV_NAME, RETCODE);   --子存储过程2
	IF (NUMBER <> 0)
		RAISE EXCEPTION;
  END IF;
  
  ......

  COMMIT;

  EXCEPTION
   WHEN others THEN

       ROLLBACK;


END;

--子存储过程1
CREATE OR REPLACE PROCEDURE SP_SUB_ADD_PRODUCT(I_ID IN NUMBER, SV_NAME IN VARCHAR2, RETCODE NUMBER)
AS
  I_INDEX INTEGER := 0;
BEGIN

  .......
  
  
  COMMIT;                                            --不应该出现的语句

  EXCEPTION
   ......

END;