bulk update in oracle

DECLARE
       c_limit PLS_INTEGER := 3000000;

       CURSOR cur1
       IS
          SELECT item_no
            FROM noc_item_encoded_reply
           WHERE enc_encoded_reply  is not null
		   and enc_encoded_reply like '%*';

       TYPE curr_ids_t IS TABLE OF  noc_item_encoded_reply.item_no%TYPE;
	  

       l_curr_ids   curr_ids_t;
	   
    BEGIN
       OPEN cur1 ;

       LOOP
          FETCH cur1 
          BULK COLLECT INTO l_curr_ids
          LIMIT c_limit;      -- This will make sure that every iteration has 100 records selected

          EXIT WHEN l_curr_ids.COUNT = 0;           

        FORALL indx IN 1 .. l_curr_ids.COUNT SAVE EXCEPTIONS   
		   update noc_item_encoded_reply re
         set   enc_encoded_reply = rpad(nvl(rtrim(enc_encoded_reply, '*'), '#'), length(enc_encoded_reply), '#')
         where enc_encoded_reply like '%*'          
		  and enc_encoded_reply  is not null
		  and re.item_no = l_curr_ids(indx);
      commit;  
        
	  FORALL indx IN 1 .. l_curr_ids.COUNT SAVE EXCEPTIONS 
	  update noc_item_encoded_reply_jn re
         set   enc_encoded_reply = rpad(nvl(rtrim(enc_encoded_reply, '*'), '#'), length(enc_encoded_reply), '#')
         where enc_encoded_reply like '%*'          
		  and enc_encoded_reply  is not null
		  and re.item_no = l_curr_ids(indx);
		  commit;
	 
	  FORALL indx IN 1 .. l_curr_ids.COUNT SAVE EXCEPTIONS 
	  update  noc_t_mrc re
         set   enc_encoded_reply = rpad(nvl(rtrim(enc_encoded_reply, '*'), '#'), length(enc_encoded_reply), '#')
         where enc_encoded_reply like '%*'          
		  and enc_encoded_reply  is not null
		  and re.item_no = l_curr_ids(indx);
		  commit;
		  
      
      
      FORALL indx IN 1 .. l_curr_ids.COUNT SAVE EXCEPTIONS 
      update  noc_fc_seg_v_jn re
         set   segv_encoded_reply = rpad(nvl(rtrim(segv_encoded_reply, '*'), '#'), length(segv_encoded_reply), '#')
         where segv_encoded_reply like '%*'          
      and segv_encoded_reply  is not null
      and re.segv_item_no = l_curr_ids(indx);
      commit;
      
      FORALL indx IN 1 .. l_curr_ids.COUNT SAVE EXCEPTIONS 
      update  noc_fc_seg_v re
         set   segv_encoded_reply = rpad(nvl(rtrim(segv_encoded_reply, '*'), '#'), length(segv_encoded_reply), '#')
         where segv_encoded_reply like '%*'          
      and segv_encoded_reply  is not null
      and re.segv_item_no = l_curr_ids(indx);
      commit;
      END LOOP;

    EXCEPTION
       WHEN OTHERS
       THEN
          IF SQLCODE = -24381
          THEN
             FOR indx IN 1 .. SQL%BULK_EXCEPTIONS.COUNT
             LOOP
                 -- Caputring errors occured during update
                DBMS_OUTPUT.put_line (
                      SQL%BULK_EXCEPTIONS (indx).ERROR_INDEX
                   || ': '
                   || SQL%BULK_EXCEPTIONS (indx).ERROR_CODE);

                 --<You can inset the error records to a table here>


             END LOOP;
          ELSE
             RAISE;
          END IF;
    END;

Select allOpen in new window