Tune PLSQL block

Question

Table bk_logmnr_contents consists of the 150000 rows.
And below block takes 90 minutes to execute the block.
What changes i can do so that below block will tune?
DECLARE
CURSOR c_logmnr
IS
SELECT row_id,sql_redo
FROM bk_logmnr_contents;
text VARCHAR2(2000);
BEGIN
     FOR i IN c_logmnr
     LOOP
          BEGIN
               IF UPPER(i.SQL_REDO) LIKE 'INSERT INTO "TEST".%' THEN
               IF UPPER(i.SQL_REDO) LIKE 'INSERT INTO "TEST"."LEAD"%' THEN
                         SELECT REPLACE(REPLACE( sql_redo, ',NULL);', ');' ),'"BOUNCE_MSG_T","")','"BOUNCE_MSG_T")')
                         INTO text
                         FROM bk_logmnr_contents
                         WHERE row_id =i.row_id
                         AND UPPER(SQL_REDO) LIKE 'INSERT INTO "TEST"."LEAD"%';
                         INSERT INTO bk_logmnr_contents_ins(sql_redo) VALUES(text);
                    ELSE
                         SELECT sql_redo
                         INTO text
                         FROM bk_logmnr_contents
                         WHERE row_id =i.row_id
                         AND UPPER(SQL_REDO) LIKE 'INSERT INTO "TEST".%';
                         INSERT INTO bk_logmnr_contents_ins(sql_redo) VALUES(text);
                    END IF;
               END IF;
               IF UPPER(i.SQL_REDO) LIKE 'DELETE FROM "TEST".%' THEN
               IF UPPER(i.SQL_REDO) LIKE 'DELETE FROM "TEST"."FORMSVAL"%' THEN
                    SELECT REPLACE( SUBSTR(sql_redo,1,INSTR(sql_REDO,'ROWID')-6)||';', 'and "SYSCREATED" =', 'AND TO_DATE("SYSCREATED", ''DD-MON-RR'') =' ) sql_redo
                    INTO text
                    FROM bk_logmnr_contents
                    WHERE row_id =i.row_id
                    AND UPPER(i.SQL_REDO) LIKE 'DELETE FROM "TEST".%';
                    INSERT INTO bk_logmnr_contents_ins(sql_redo) VALUES(text);
               ELSE     
                    SELECT SUBSTR(sql_redo,1,INSTR(sql_REDO,'ROWID')-6)||';' sql_redo
                    INTO text
                    FROM bk_logmnr_contents
                    WHERE row_id =i.row_id
                    AND UPPER(SQL_REDO) LIKE 'DELETE FROM "TEST".%';
                    INSERT INTO bk_logmnr_contents_ins(sql_redo) VALUES(text);
                    END IF;
               END IF;
               --DATABASE
               IF UPPER(i.sql_REDO) LIKE 'UPDATE "TEST"."DATABASE"%' THEN
                    SELECT a.sql_redo|| b.ID||';'
                    INTO text
                    FROM DATABASE b,(SELECT SUBSTR(sql_redo,1,INSTR(sql_REDO,'ROWID')-1) || ' id =' sql_redo , row_id
                                   FROM bk_logmnr_contents WHERE row_id =i.row_id) a
                    WHERE UPPER(sql_REDO) LIKE 'UPDATE "TEST"."DATABASE"%'
                    AND a.row_id=b.ROWID AND b.ROWID = i.row_id;
                    INSERT INTO bk_logmnr_contents_ins(sql_redo) VALUES(text);
               END IF;
               --LEAD
               IF UPPER(i.sql_REDO) LIKE 'UPDATE "TEST"."LEAD"%' THEN
                    SELECT a.sql_redo|| b.ID||';'
                    INTO text
                    FROM lead b,(SELECT SUBSTR(sql_redo,1,INSTR(sql_REDO,'ROWID')-1) || ' id =' sql_redo , row_id
                                   FROM bk_logmnr_contents WHERE row_id =i.row_id) a
                    WHERE UPPER(sql_REDO) LIKE 'UPDATE "TEST"."LEAD"%'
                    AND a.row_id=b.ROWID AND b.ROWID = i.row_id;
                    INSERT INTO bk_logmnr_contents_ins(sql_redo) VALUES(text);
               END IF;
          EXCEPTION
                    WHEN OTHERS THEN
                    NULL;
          END;
     END LOOP;
END;     
Thanks,

Answer 1

What you are doing is row by row (slow by slow) processing, because you are using a cursor loop with SQL embedded in it.
This is generally bad practice.
What you need to do is to minimise PL/SQL and maximise SQL. i.e. try and get rid of the loop and do as much processing in as few SQL statements as possible.
An demonstration of the performance difference between doing a single SQL statement and the same functionality in a loop..
SQL> ed
Wrote file afiedt.buf
  1  declare
  2    v_sysdate DATE;
  3  begin
  4    v_sysdate := SYSDATE;
  5    INSERT INTO mytable SELECT rownum FROM DUAL CONNECT BY ROWNUM <= 1000000;
  6    DBMS_OUTPUT.PUT_LINE('Single Transaction: Time Taken: '||ROUND(((SYSDATE-v_sysdate)*(24*60*60)),0));
  7    EXECUTE IMMEDIATE 'TRUNCATE TABLE mytable';
  8    v_sysdate := SYSDATE;
  9    FOR i IN 1..1000000
10    LOOP
11      INSERT INTO mytable (x) VALUES (i);
12    END LOOP;
13    DBMS_OUTPUT.PUT_LINE('Multi Transaction: Time Taken: '||ROUND(((SYSDATE-v_sysdate)*(24*60*60)),0));
14    EXECUTE IMMEDIATE 'TRUNCATE TABLE mytable';
15* end;
SQL> /
Single Transaction: Time Taken: 1
Multi Transaction: Time Taken: 37
PL/SQL procedure successfully completed.
SQL>As you can see the single insert is vastly faster than the looped insert statements, both achieving the same results.