SQL> SHOW ERRORS PROCEDURE PROGRESS_BAR

SQL> GRANT EXECUTE ON DBMS_LOCK TO user_name_that_is_supposed_to_use_it;

declare					
   v_ctr number:=0;	
   v_pct number :=0;		
   v_resales_disti_cost number:=0;		
   v_all_cnt number:=0;
   v_time_remaining number:=0;
   v_time1	date;
   v_time2	date;
   v_elapse_seconds number:=0;

     ABC1 VARCHAR2(5):=' ';
      ABC2 NUMBER(10,2):=0;
      XYZ VARCHAR2(6);
      Z NUMBER(10);
      ABC3 NUMBER(10);
      var1 varchar2(100);
      AAA VARCHAR2(100);
  CURSOR C1 IS SELECT folio,bonus,HOLD,bonus_Rat FROM sholders,COMPANY ;

begin					
--    Set_item_Property('Progress',Width,0);  
  v_all_cnt := get_all_count2;
  v_time1 := sysdate;

set_item_property('dual.progress',width, 0);

For a IN c1 Loop
     ABC1:=a.folio;
     ABC2:=a.bonus;
      ABC3:=a.HOLD;    
      Z   :=a.bonus_rat; 
      UPDATE sholders SET bonus =ABC3/100*Z WHERE folio=abc1; 
     --delete from sholders;
    --Set_item_Property('Progress',Width,i); 
   
	  		  	if v_pct = 0 Then
		  		 v_time1 := sysdate;
				  	end if;
				  	
			  	v_pct := v_pct + 1;
			  	:dual.pct:= to_char((v_pct/v_all_cnt)*100) || ' %';
--exit when :dual.progress =:dual.pct;
set_item_property('dual.progress',width, round( v_pct/v_all_cnt,2*2)*300);

synchronize;
	
    if v_pct > 0 Then				  	
 	   v_time2 := sysdate;
				  	
 Begin
   select (v_time2-v_time1)*60*60*24 				  	    into v_elapse_seconds				  	    from dual; --in seconds
  end;
v_time_remaining := (v_elapse_seconds * (v_all_cnt-v_pct))/v_pct;
:dual.timerem := to_char(v_time_remaining, '9999') || ' seconds left.';
synchronize;

end if;
 END LOOP;
--end loop;
forms_ddl('commit');
 message('Done');
 message('Done');
exception
when NO_DATA_FOUND then
:dual.progress:= -1;
set_item_property('dual.pct',width, 100);
:dual.progress:= '100'||'%';
when TOO_MANY_ROWS then
:dual.progress := -1;
DBMS_SCHEDULER.drop_job (job_name => 'APEX__JOB_LANG_LAUFEND',FORCE=> true) ;
end;

CURSOR C1 IS SELECT folio,bonus,HOLD,bonus_Rat FROM sholders,COMPANY ;