Loop
   Set_progress_bar(%);
    Synchronize;
End loop;

PROCEDURE Set_Progress_bar (Elaborati Number		,
			Da_elaborare	Number		,
			Messaggio VarChar2 	) IS
							
	Next_Width	Number(4);
	Previous_Width 	Number(4);
		
BEGIN
	
:PROGRESS_BAR.Messaggio := Messaggio;
   
  Next_Width := Floor(Elaborati/Da_Elaborare*400);
Previous_Width := Floor(Get_Item_Property('PROGRESS_BAR.Progress_Bar',Width));
  	
	If Previous_Width < 400 And Next_Width <> Previous_Width Then	
		Set_Item_Property('PROGRESS_BAR.Progress_Bar',Width, Next_Width);
		:PROGRESS_BAR.Position := To_Char(Round(Next_Width/4,2),'990.00')  || '%';  
		Synchronize;     	    	
	End If;	
 		
 	If Elaborati >= Da_Elaborare Then
		Set_Item_Property('PROGRESS_BAR.Progress_Bar',Width,400);
		:PROGRESS_BAR.Position := '100.00%';
	End If; 
 		
END;

procedure XYZ (parameter) Is
 cursor data is
    select x from y;
 tot_row number;
  row number := 1;
begin
  select count(*)
  into tot_row
  from y;
 
  open data;
  loop
   fetch data into...
   exit when data%notfound;
   set_progress_bar(row,tot_row,message);
   synchronize;
   
   -- varouse procedute for maniplating data

  end loop;
  close data;
end;