procedure make_it(p_tblname  in varchar2, 
                  p_col1     in varchar2 ) is

  v_query   varchar2(4000);

begin

   v_query := ' select ' || p_col1 || ' from ' || p_tblname ;

   EXECUTE IMMEDIATE v_query;

end make_it;

CREATE FUNCTION print_table( piv_tname IN VARCHAR2)
  RETURN SYS_REFCURSOR
IS
  v_cur SYS_REFCURSOR;
BEGIN
  
  OPEN v_cur FOR 'SELECT * FROM '||piv_tname||' WHERE ROWNUM < 3';
  
  RETURN v_cur;
END print_table;
/
sho err

VAR table_cur REFCURSOR

EXEC :table_cur := print_table('EMPLOYEES');

PRINT :table_cur

EXEC :table_cur := print_table('DEPARTMENTS');

PRINT :table_cur

DROP FUNCTION print_table
/

SQL> @orafaq

Function created.

No errors.

PL/SQL procedure successfully completed.


LOCATION_ID STREET_ADDRESS                           POSTAL_CODE
----------- ---------------------------------------- ------------
CITY                           STATE_PROVINCE            CO
------------------------------ ------------------------- --
       1000 1297 Via Cola di Rie                     00989
Roma                                                     IT

       1100 93091 Calle della Testa                  10934
Venice                                                   IT



PL/SQL procedure successfully completed.


DEPARTMENT_ID DEPARTMENT_NAME                MANAGER_ID LOCATION_ID
------------- ------------------------------ ---------- -----------
           10 Administration                        200        1700
           20 Marketing                             201        1800


Function dropped.