Declare
  Previous_Width Number(10,5);
  tm_Name Varchar2(20);
  Vcount1 number;
  Vinc number;
  vREMAINDER3		NUMBER;	
  COUNTER NUMBER := 0;
Begin

Vinc := round(Vcount1/100);
IF (MOD(:SYSTEM.CURSOR_RECORD,Vinc) = 0 ) THEN
   
  Previous_Width := Get_Item_Property('Progress_Bar',Width);
		    
   If counter <= 100 Then
     
       Set_Item_Property('Progress_Bar',Width,  Previous_Width+ (Get_Item_Property('FRAME',Width)/100)));
        :Position := counter   || '%';
        Counter := counter +1;
	        
	 Synchronize;
	
    End If;
END IF;