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;