Why is the below given block giving an exception

Question

DECLARE
TYPE typ_tab_oid IS TABLE OF ncs_domain.sco_item_results.OID%TYPE;
v_tab typ_tab_oid;
CURSOR cur_oid
IS
SELECT OID
FROM ncs_domain.sco_item_results sir
WHERE sir.is_total = 'Y';
v_error_code NUMBER (10);
v_error_messg VARCHAR2 (4000);
BEGIN
BEGIN
OPEN cur_oid;
LOOP
FETCH cur_oid
BULK COLLECT INTO v_tab LIMIT 1000;
EXECUTE IMMEDIATE 'explain plan into ncs_domain.my_plan_table for FETCH cur_oid
BULK COLLECT INTO v_tab LIMIT 1000';
FORALL i IN 1 .. v_tab.COUNT
DELETE FROM ncs_domain.sco_item_results_bkp sir
WHERE sir.OID = v_tab (i);
EXECUTE IMMEDIATE 'explain plan into ncs_domain.my_plan_table for DELETE FROM ncs_domain.sco_item_results_bkp sir
WHERE sir.OID = v_tab (i)';
COMMIT;
EXIT WHEN cur_oid%NOTFOUND;
END LOOP;
CLOSE cur_oid;
EXCEPTION
WHEN OTHERS
THEN
ROLLBACK;
v_error_code := SQLCODE;
v_error_messg := SQLERRM;
INSERT INTO ncs_domain.my_error_log
VALUES (v_error_code, v_error_messg);
COMMIT;
raise_application_error (-20001,
v_error_code || ' ' || v_error_messg
END;
EXCEPTION
WHEN OTHERS
THEN
raise_application_error (-20002, 'can not insert into error log table');
END;
Edited by: user8731258 on Dec 3, 2009 9:26 PM

Answer 1

You still seem to be missing the \ tag before and after your code, which makes it a bit difficult.
A FORALL loop can only run a single statement.
[code]
FORALL i IN 1 .. v_tab.COUNT
  DELETE FROM ncs_domain.sco_item_results_bkp sir
   WHERE sir.OID = v_tab (i);
[/code]
is the extent of the FORALL.  Outside of the FORALL, the variable i is undefined-- that counter only exists in the FORALL so you can't use it in subsequent statements.
You could change the FORALL to a regular FOR loop (in which case you'd lose the bulk bind benefits) so that the loop counter is visible to more of your code
[code]
FOR i IN 1 .. v_tab.COUNT
LOOP
  DELETE FROM ncs_domain.sco_item_results_bkp sir
   WHERE sir.OID = v_tab (i);
  v_plan :='explain plan into ncs_domain.my_plan_table for DELETE FROM ncs_domain.sco_item_results_bkp sir'---line 33
      ||'WHERE sir.OID ='||v_tab (i);
  EXECUTE IMMEDIATE v_plan;
END LOOP;
[/code]
Justin