Insert data from source table to destination table dependning up on a criteria.once inserted delete from source table.

Question

HI,
I have a source table with millions of records .I need to insert some of the data (depending on a condition) to a repository table.
Once they are inserted they can be deleted from the source table.
The deletion is taking a lot of time .
I need to reduce the time to delete the records.
ex:-  1 million records in 8 seconds.
Had already used bulk collect and cursors but cannot succeed.
Please suggest how to increase the performance.
Thanks & Regards

Answer 1

APPROACH 1:-
CREATE OR REPLACE PROCEDURE SP_BC
AS
DETAILS_REC SOURCETBL%ROWTYPE;
COUNTER NUMBER:=1;
RCOUNT NUMBER:= 1;
START_TIME PLS_INTEGER;
END_TIME PLS_INTEGER;
CURSOR C1 IS
SELECT * FROM SOURCETBL WHERE DOJ<SYDATE;
BEGIN
START_TIME := DBMS_UTILITY.GET_TIME;
    DBMS_OUTPUT.PUT_LINE(START_TIME/100);
    OPEN C1;
    LOOP
    FETCH C1 INTO DETAILS_ROW;
    EXIT WHEN  C1%NOTFOUND;
           BEGIN
            EXIT WHEN COUNTER >10000;
            INSERT INTO DESTINATIONTBL VALUES DETAILS_REC;
            IF SQL%FOUND THEN
                DELETE FROM SOURCETABLE WHERE ID= DETAILS_REC.ID;
              COUNTER:=COUNTER+1;
        END IF; 
    COMMIT;
        END;
     COUNTER:=1;
    END LOOP;
    COMMIT;
END;
APPROACH 2:-
    CREATE OR REPLACE PROCEDURE SP_BC1
IS
TYPE T_DET IS TABLE OF SOURCETBL%ROWTYPE;
T_REC T_DET;
BEGIN   
    SELECT *  BULK COLLECT INTO T_REC FROM SOURCETBL
     WHERE NAME=@NAME;
    FOR I IN  T_REC .FIRST ..T_REC .LAST
       LOOP
         INSERT INTO DESTINATIONTBL VALUES T_REC (I);
      IF SQL%FOUND THEN
      DELETE FROM SOURCETBL WHERE ID =
       WHERE ID = T_REC (I).ID;  
       END IF; 
       EXIT WHEN T_REC=0;
    END LOOP;
    COMMIT;
END;
APPROACH 3:-
CREATE OR REPLACE PROCEDURE SP_BC2
AS
TYPE REC_TYPE IS TABLE OF SOURCETBL%ROWTYPE ;
DETAILS_ROW REC_TYPE;
CURSOR C1 IS
SELECT * FROM
     SOURCETBL WHERE END<SYSDATE;
    BEGIN
    OPEN C1;
    LOOP
    FETCH C1 BULK COLLECT INTO DETAILS_ROW LIMIT 999;
    FORALL I IN 1..DETAILS_ROW.COUNT
              /* A BATCH OF 999 RECORDS WILL BE CONSIDERED FOR DATA MOVEMENT*/
INSERT INTO DESTINATIONTBL VALUES DETAILS_ROW(I);
--            IF SQL%FOUND  THEN
--                DELETE from SOURCETBL WHERE ID IN DETAILS_ROW(I).ID;
--           END IF;
        EXIT WHEN  C1%NOTFOUND; 
    COMMIT;   
    END LOOP;
    COMMIT;
3rd approach seems better but i have an issue with referring the fileds of a record type.