BULK UPDATE

Question

Hi,
I am trying to do Update in batches, but with very little success. I did some reading and tried using BULK COLLECT and FORALL to accomplish the task. I am not sure where I messed up but only one row is being updated. Also I am not sure if there is a better wasy of doing this.
I am currently using 10.2.
Any help would be appreciated. The goal is to update "temp_emp_new" based on "temp_emp_base".
Create the base tables:
CREATE TABLE temp_emp_base AS
SELECT ROWNUM AS emp_id
     , SYSDATE - (365 * ROWNUM) AS emp_dob
  FROM all_objects
WHERE ROWNUM < 11;
COMMIT ;
CREATE TABLE temp_emp_new
    emp_id NUMBER,
    emp_dob DATE
INSERT INTO temp_emp_new
   SELECT emp_id
        , NULL AS emp_dob
     FROM temp_emp_base;
COMMIT ;Try to update temp_emp_new based on temp_emp_base:
DECLARE
   TYPE emp_id_tab IS TABLE OF temp_emp_new.emp_id%TYPE;
   TYPE emp_tab IS TABLE OF temp_emp_new%ROWTYPE;
   CURSOR emp_cur
   IS
      SELECT emp_id
        FROM temp_emp_new;
   t_emp_id       emp_id_tab     := emp_id_tab ();
   l_start           NUMBER;
   l_size            NUMBER            := 5;
   l_cnt             NUMBER            := 0;
   dml_errors        EXCEPTION;
   PRAGMA EXCEPTION_INIT (dml_errors, -24381);
BEGIN
   l_start := DBMS_UTILITY.get_time;
   OPEN emp_cur;
   LOOP
      DBMS_APPLICATION_INFO.set_client_info ('processing ' || l_cnt || ' thru ' || (l_cnt + l_size));
      FETCH emp_cur
      BULK COLLECT INTO t_emp_id
           LIMIT l_size;
      BEGIN
         FORALL i IN t_emp_id.FIRST .. t_emp_id.LAST SAVE EXCEPTIONS
            UPDATE temp_emp_new mza
               SET (mza.emp_dob) =
                      (SELECT NVL (mza.emp_dob, m.emp_dob) AS emp_dob
                         FROM temp_emp_base m
                        WHERE mza.emp_id = m.emp_id
                          AND m.emp_id = t_emp_id (i));
         COMMIT;
      EXCEPTION
         WHEN dml_errors
         THEN
            FOR i IN 1 .. SQL%BULK_EXCEPTIONS.COUNT
            LOOP
               DBMS_OUTPUT.put_line (   'Error occurred during iteration '
                                     || SQL%BULK_EXCEPTIONS (i).ERROR_INDEX
                                     || ' Oracle error is '
                                     || SQL%BULK_EXCEPTIONS (i).ERROR_CODE);
            END LOOP;
      END;
      EXIT WHEN t_emp_id.COUNT = 0;
      l_cnt := l_cnt + l_size;
   END LOOP;
   CLOSE emp_cur;
   DBMS_OUTPUT.put_line ('Bulk Updates   : ' || (DBMS_UTILITY.get_time - l_start));
   COMMIT;
END;

Answer 1

Managed to correct my mistake.
I just thought about it a little more and got the answer. Actually I think it was just about taking a fresh look in the morning.
Thanks for the suggestions anyways.
DECLARE
The table types and cursor are now created from "temp_emp_base".
I am also creating a Table Type for the column whose values I need for the UPDATE.
   TYPE emp_id_tab IS TABLE OF temp_emp_base.emp_id%TYPE;
   TYPE emp_dob_tab IS TABLE OF temp_emp_base.emp_dob%TYPE;
   TYPE emp_tab IS TABLE OF temp_emp_base%ROWTYPE;
   CURSOR emp_cur
   IS
      SELECT emp_id, emp_dob
        FROM temp_emp_base;
   t_emp_id                      emp_id_tab := emp_id_tab();
   t_emp_dob                     emp_dob_tab := emp_dob_tab();
   l_start                       NUMBER;
   l_size                        NUMBER := 5;
   l_cnt                         NUMBER := 0;
   dml_errors                    EXCEPTION;
   PRAGMA EXCEPTION_INIT(dml_errors, -24381);
BEGIN
   l_start := DBMS_UTILITY.get_time;
   OPEN emp_cur;
   LOOP
      DBMS_APPLICATION_INFO.set_client_info('processing ' || l_cnt || ' thru ' ||(l_cnt + l_size) );
      FETCH emp_cur
      BULK COLLECT INTO t_emp_id, t_emp_dob LIMIT l_size;
      BEGIN
  The UPDATE statement updates "temp_emp_new" and the BULK COLLECT
  has the data from "temp_emp_base"
         FORALL i IN t_emp_id.FIRST .. t_emp_id.LAST SAVE EXCEPTIONS
            UPDATE temp_emp_new mza
               SET mza.emp_dob = NVL(mza.emp_dob, t_emp_dob(i) )
             WHERE mza.emp_id = t_emp_id(i);
         COMMIT;
      EXCEPTION
         WHEN dml_errors THEN
            FOR i IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
               DBMS_OUTPUT.put_line('Error occurred during iteration '
                  || SQL%BULK_EXCEPTIONS(i).ERROR_INDEX
                  || ' Oracle error is '
                  || SQL%BULK_EXCEPTIONS(i).ERROR_CODE);
            END LOOP;
      END;
      EXIT WHEN t_emp_id.COUNT = 0;
      l_cnt := l_cnt + l_size;
   END LOOP;
   CLOSE emp_cur;
   DBMS_OUTPUT.put_line('Bulk Updates   : ' ||(DBMS_UTILITY.get_time - l_start) );
   COMMIT;
END base;