Need to add a check in between the stored procedure

Question

Hi Team, I am new to pl/sql and need to add a check in between the below procedure such that, Only if the Insert is successfull the delete should execute, if not the loop should be ended.
Please help me.
CREATE OR REPLACE PROCEDURE Archive_psuser_grants AS
i NUMBER:=1;
CURSOR c IS SELECT * FROM ps_user_grants1 WHERE DATABASE = 'F90PRD';
BEGIN
FOR records IN c loop
INSERT INTO ps_user_grants_archive VALUES (records.DATABASE,records.username,records.level_type,records.privilege,records.grantable,records.owner,records.table_name,records.column_name,records.sr_number,records.initially_granted);
i := i+1;
IF mod(i, 1000) = 0 THEN -- Commit every 1000 records
dbms_output.put_line ( '1K records applied into archive table ');
COMMIT;
end if;
end loop;
COMMIT;
dbms_output.put_line ( 'Rows successfully Inserted into Archive Table ');
delete FROM ps_user_grants WHERE DATABASE = 'F90PRD';
COMMIT;
dbms_output.put_line ( 'Rows successfully Deleted from Original Table ');
END Archive_psuser_grants;
Thanks in advance,
Sri
Edited by: user3969470 on Feb 9, 2011 8:50 PM

Answer 1

ROW by ROW, is SLOW by SLOW.
COMMIT inside LOOP is a GREAT mechanism for producing ORA-01555; SNAPSHOT TOO OLD, error
You need to implement EXCEPTION handler(s)
What should be done where DELETE fails?