Other database delete is not working on forall statement

Question

Dear all,
My scenario is , i create a program, the program fetch the data from database x and i want to delete on the same x database but i am running this program at y database, so
so i created a view
create or replace view vw_ibs_pda_bills_x as
SELECT *
        FROM ibs_pda_bills_x@testarch1my program
Declare
      CURSOR c2 IS
      SELECT *
        FROM vw_ibs_pda_bills_x
       WHERE bill_month <= '31-dec-2008'; -- AND bpref_no = :cons;
       opr varchar2(10) := 'DELETE';
      TYPE tsch IS TABLE OF c2%ROWTYPE;
      vtsch      tsch;
      cnt        NUMBER := 0;
      stime      NUMBER;
      etime      NUMBER;
      DURATION   NUMBER;
      rcount     NUMBER;
      errorsd   PLS_INTEGER;
      ecode     NUMBER;
      val1   VARCHAR2 (100);
      val2   VARCHAR2 (100);
      val3   VARCHAR2 (100);
      val4   VARCHAR2 (100);
   BEGIN
      BEGIN
         stime := DBMS_UTILITY.get_time ();
         OPEN c2;
         LOOP
            FETCH c2
            BULK COLLECT INTO vtsch LIMIT 1000;
            IF vtsch.COUNT = 1000
            THEN
               cnt := cnt + 1;
            END IF;
        If opr = 'INSERT' Then
                FORALL i IN 1 .. vtsch.COUNT SAVE EXCEPTIONS
                      INSERT INTO dlul.ibs_pda_bills
                    VALUES vtsch (i);
        Else
                FORALL i IN 1 .. vtsch.COUNT SAVE EXCEPTIONS
                    Delete from vw_ibs_pda_bills_x where bill_month = vtsch(i).bill_month;
        End if;
            EXIT WHEN c2%NOTFOUND;
         END LOOP;
         etime := DBMS_UTILITY.get_time ();
         DURATION := ((etime - stime) / 100) / 60;
         rcount :=
             (cnt * 1000) + vtsch.COUNT - NVL (SQL%BULK_EXCEPTIONS.COUNT, 0);
     If opr = 'INSERT' Then
         INSERT INTO process_stage_log
              VALUES (SYSDATE, 'IBS_PDA_BILLS', DURATION, rcount);
     Else
         INSERT INTO process_stage_log
              VALUES (SYSDATE, 'IBS_PDA_BILLS-D', DURATION, rcount);
     End if;
         CLOSE c2;
         COMMIT;
      EXCEPTION
         WHEN OTHERS
         THEN
            errorsd := SQL%BULK_EXCEPTIONS.COUNT;
            IF errorsd > 0
            THEN
               FOR j IN 1 .. errorsd
               LOOP
                  ecode := SQL%BULK_EXCEPTIONS (j).ERROR_CODE;
                  val1 :=
                       vtsch (SQL%BULK_EXCEPTIONS (j).ERROR_INDEX).sch_code;
                  val2 :=
                       vtsch (SQL%BULK_EXCEPTIONS (j).ERROR_INDEX).bpref_no;
                  val3 :=
                     vtsch (SQL%BULK_EXCEPTIONS (j).ERROR_INDEX).bill_month;
                  val4 :=
                     vtsch (SQL%BULK_EXCEPTIONS (j).ERROR_INDEX).service_code;
              If opr = 'INSERT' Then         
                  INSERT INTO process_error_log
                       VALUES (SYSDATE, ecode, 'IBS_PDA_BILLS', 'sch_code', val1,
                               'bpref_no', val2, 'bill_month', val3, 'service_code', val4,'INSERT');
          Else
                  INSERT INTO process_error_log
                       VALUES (SYSDATE, ecode, 'IBS_PDA_BILLS', 'sch_code', val1,
                               'bpref_no', val2, 'bill_month', val3, 'service_code', val4,'DELETE');
          End if;
               END LOOP;
            END IF;
      END;
   END pda_insert;the program want to do the delet option for all delete is not working. The program executed successful but the operation delete is not happening
how to solve this issue.
please help me
kanish

Answer 1

No error encountered in my log table
the new workaround you said, that is instead of for all , already i tried for i in 1.. to like
instead of forall delete i tried the following way
Declare
      CURSOR c2 IS
SELECT *
        FROM ibs_pda_bills_x@testarch1
       WHERE bill_month <= '31-dec-2008'; -- AND bpref_no = :cons;
       opr varchar2(10) := 'DELETE';
      TYPE tsch IS TABLE OF c2%ROWTYPE;
      vtsch      tsch;
      cnt        NUMBER := 0;
      stime      NUMBER;
      etime      NUMBER;
      DURATION   NUMBER;
      rcount     NUMBER;
      errorsd   PLS_INTEGER;
      ecode     NUMBER;
      val1   VARCHAR2 (100);
      val2   VARCHAR2 (100);
      val3   VARCHAR2 (100);
      val4   VARCHAR2 (100);
   BEGIN
      BEGIN
         stime := DBMS_UTILITY.get_time ();
         OPEN c2;
         LOOP
            FETCH c2
            BULK COLLECT INTO vtsch LIMIT 1000;
            IF vtsch.COUNT = 1000
            THEN
               cnt := cnt + 1;
            END IF;
        If opr = 'INSERT' Then
                FORALL i IN 1 .. vtsch.COUNT SAVE EXCEPTIONS
                      INSERT INTO dlul.ibs_pda_bills
                    VALUES vtsch (i);
        Else
               /* fORALL i IN 1 .. vtsch.COUNT SAVE EXCEPTIONS
                 Delete from vw_ibs_pda_bills_x where to_char(bill_month,'dd-mm-rrrr') = to_char(vtsch (i).bill_month,'dd-mm-rrrr');*/
                 for i in 1..vtsch.count loop
                   delete ibs_pda_bills_x@testarch1 where to_char(bill_month,'dd-mm-rrrr') = to_char(vtsch (i).bill_month,'dd-mm-rrrr');
                 end loop; 
        End if;
            EXIT WHEN c2%NOTFOUND;
         END LOOP;
         etime := DBMS_UTILITY.get_time ();
         DURATION := ((etime - stime) / 100) / 60;
         rcount :=
             (cnt * 1000) + vtsch.COUNT - NVL (SQL%BULK_EXCEPTIONS.COUNT, 0);
     If opr = 'INSERT' Then
         INSERT INTO process_stage_log
              VALUES (SYSDATE, 'IBS_PDA_BILLS', DURATION, rcount);
     Else
         INSERT INTO process_stage_log
              VALUES (SYSDATE, 'IBS_PDA_BILLS-D', DURATION, rcount);
     End if;
         CLOSE c2;
         COMMIT;
      EXCEPTION
         WHEN OTHERS
         THEN
            errorsd := SQL%BULK_EXCEPTIONS.COUNT;
            IF errorsd > 0
            THEN
               FOR j IN 1 .. errorsd
               LOOP
                  ecode := SQL%BULK_EXCEPTIONS (j).ERROR_CODE;
                  val1 :=
                       vtsch (SQL%BULK_EXCEPTIONS (j).ERROR_INDEX).sch_code;
                  val2 :=
                       vtsch (SQL%BULK_EXCEPTIONS (j).ERROR_INDEX).bpref_no;
                  val3 :=
                     vtsch (SQL%BULK_EXCEPTIONS (j).ERROR_INDEX).bill_month;
                  val4 :=
                     vtsch (SQL%BULK_EXCEPTIONS (j).ERROR_INDEX).service_code;
              If opr = 'INSERT' Then         
                  INSERT INTO process_error_log
                       VALUES (SYSDATE, ecode, 'IBS_PDA_BILLS', 'sch_code', val1,
                               'bpref_no', val2, 'bill_month', val3, 'service_code', val4,'INSERT');
          Else
                  INSERT INTO process_error_log
                       VALUES (SYSDATE, ecode, 'IBS_PDA_BILLS', 'sch_code', val1,
                               'bpref_no', val2, 'bill_month', val3, 'service_code', val4,'DELETE');
          End if;
               END LOOP;
            END IF;
      END;
   END pda_insert;i am receiving the following error
ORA-02055: distributed update operation failed; rollback required
ORA-06531: Reference to uninitialized collection
ORA-06512: at line 77
ORA-06531: Reference to uninitialized collection
kanish