PROCEDURE update_set IS

  CURSOR cur_get_recs IS
   SELECT account_num,
          ttw_active_flag,
          acct_rowid,
          rowid driver_rowid
     FROM driver_table
      FOR UPDATE OF processed;

BEGIN
  -- we have multiple DML statements so cannot use FORALL, instead use FOR LOOP
  FOR driver_record IN cur_get_recs LOOP

    BEGIN
      UPDATE account a
         SET ttw_active_flag = driver_record.ttw_active_flag
       WHERE a.rowid = driver_record.acct_rowid;

      -- now update the driver table
      UPDATE driver_table
         SET processed = 'Y'
       WHERE ROWID = driver_record.driver_rowid;

      IF MOD(cur_get_recs%ROWCOUNT,1000) = 0
      THEN
        COMMIT;
      END IF;

    EXCEPTION
      WHEN OTHERS THEN
         dbms_output.put_line('Update failed for Acct: ' || driver_record.account_num ||
                              ' with Error: ' || SQLCODE || ' (' || SQLERRM || ')');
    END;
  END LOOP;
  COMMIT;
END;

alter table driver_table add update_timestamp timestamp;

declare
   timestamp_v timestamp := sys_timestamp;
begin
   update driver_table set
           update_timestamp = timestamp_v
         , updated = 'Y'
   ;

   update account a set
           ttw_active_flag = (
                               select b.ttw_active_flag
                               from driver_table b
                               where a.rowid = b.acct_rowid
                               and update_timestamp = timestamp_v
                             )
   where rowid in (
                    select acct_rowid
                    from driver_table
                    where update_timestamp = timestamp_v
                  )
   ;

   commit;
end;
/

PROCEDURE update_set (p_commit_rate IN NUMBER)
IS

  CURSOR cur_get_recs IS
   SELECT account_num,
          ttw_active_flag,
          acct_rowid,
          rowid driver_rowid
     FROM driver_table;

  TYPE driver_rec IS RECORD (
    account_no      driver_table.account_no%TYPE,
    ttw_active_flag driver_table.ttw_active_flag%TYPE,
    acct_rowid      driver_table.acct_rowid%TYPE,
    driver_rowid    driver_table.drv_rowid%TYPE );

  TYPE driver_recs_tt IS TABLE OF driver_rec;
    
  driver_record  driver_recs_tt;    

BEGIN
  
  OPEN cur_get_recs;
  LOOP
    FETCH cur_get_recs BULK COLLECT INTO driver_record LIMIT p_commit_rate;
    EXIT WHEN driver_record.COUNT = 0;

    -- we have multiple DML statements so cannot use FORALL, instead use FOR LOOP
    FOR i IN 1..driver_record.COUNT
    LOOP  
 
      BEGIN
        UPDATE account a
           SET ttw_active_flag = driver_record(i).ttw_active_flag
         WHERE a.rowid = driver_record(i).acct_rowid;
  
        -- now update the driver table
        UPDATE driver_table
           SET processed = 'Y'
         WHERE ROWID = driver_record(i).driver_rowid;

      EXCEPTION
        -- if either update fails then we get here. Result is no update to driver
        -- table and record will be processed the next time.
      WHEN OTHERS THEN
         dbms_output.put_line('Update failed for Acct: ' || driver_record(i).account_num ||
                              ' with Error: ' || SQLCODE || ' (' || SQLERRM || ')');
      END;
    END LOOP;

    dbms_output.put_line('Commiting ' || driver_record.COUNT);
    -- commit the batch
    COMMIT;

  END LOOP;  

  CLOSE cur_get_driver_recs;

END;