DECLARE 
vars... 

FUNCTION myfunc..
        
     IS
..
    BEGIN

..

      OPEN v_data_set

       FOR

           select ...
    
       RETURN(v_data_set);   

    END myfunc;

BEGIN 

FOR rec IN (
select  '' proc_name, '' usr, etc from dual 
union etc
) 

    LOOP 


        v_ret := myfunc(params); 
 

        csql := sys.dbms_sql.to_cursor_number(v_ret); 

        x     := 0 ; 

        v_tim := SYSTIMESTAMP ; 

        LOOP 

             EXIT WHEN dbms_sql.fetch_rows(csql) = 0 ; 

            x := x + 1 ; 

        END LOOP ;   

        dbms_sql.close_cursor(csql);  

        v_rows := x; 

        v_time := extract(second from (systimestamp - v_tim)) ; 
  

        dbms_output.put_line( 'PROC:' || rec.proc_name || '||    User: ' || rec.usr || '||    '||    Rows Resturned = ' || v_rows || '||    Exec Time = ' || v_time ||'||   Start time = '||v_tim|| '||'  End Time = '||systimestamp)
        ; 

    END LOOP ; 

  

END ; 

/