Pass table name as parameter PLS-00357

Question

create or replace
PROCEDURE universal_p (
tab IN VARCHAR2,
col IN VARCHAR2,
whr IN VARCHAR2 := NULL)
IS
TYPE cv_type IS REF CURSOR;
cv cv_type;
val VARCHAR2(32767);
BEGIN
OPEN cv FOR
'SELECT ' || col ||
' FROM ' || tab ||
' WHERE ' || NVL (whr, '1 = 1');
LOOP
FETCH cv INTO val;
EXIT WHEN cv%NOTFOUND;
IF cv%ROWCOUNT = 1
THEN
DBMS_OUTPUT.PUT_LINE (RPAD ('-', 60, '-'));
DBMS_OUTPUT.PUT_LINE (
'Contents of ' ||
UPPER (tab) || '.' || UPPER (col));
DBMS_OUTPUT.PUT_LINE (RPAD ('-', 60, '-'));
END IF;
DBMS_OUTPUT.PUT_LINE (val);
END LOOP;
CLOSE cv;
END;
WHEN I CALL THIS PROCEDURE I got error messasge
ORA-06550: Table,View Or Sequence reference not allowed in this context.
PLS-00357:
Can anyone can help me, please ?
WHEN
Edited by: user6446424 on 11.3.2010 13:59

Answer 1

Works for me:
SQL> create or replace
  2  PROCEDURE universal_p (
  3  tab IN VARCHAR2,
  4  col IN VARCHAR2,
  5  whr IN VARCHAR2 := NULL)
  6  IS
  7  TYPE cv_type IS REF CURSOR;
  8  cv cv_type;
  9  val VARCHAR2(32767);
10  BEGIN
11  OPEN cv FOR
12  'SELECT ' || col ||
13  ' FROM ' || tab ||
14  ' WHERE ' || NVL (whr, '1 = 1');
15
16  LOOP
17  FETCH cv INTO val;
18  EXIT WHEN cv%NOTFOUND;
19  IF cv%ROWCOUNT = 1
20  THEN
21  DBMS_OUTPUT.PUT_LINE (RPAD ('-', 60, '-'));
22  DBMS_OUTPUT.PUT_LINE (
23  'Contents of ' ||
24  UPPER (tab) || '.' || UPPER (col));
25  DBMS_OUTPUT.PUT_LINE (RPAD ('-', 60, '-'));
26  END IF;
27  DBMS_OUTPUT.PUT_LINE (val);
28  END LOOP;
29
30
31  CLOSE cv;
32  END;
33
34  /
Procedure created.
SQL> exec universal_p('EMP','ENAME')
Contents of EMP.ENAME
SMITH
ALLEN
WARD
JONES
MARTIN
BLAKE
CLARK
SCOTT
KING
TURNER
ADAMS
JAMES
FORD
MILLER
PL/SQL procedure successfully completed.
SQL> select * from v$version
  2  ;
BANNER
Oracle Database 11g Enterprise Edition Release 11.1.0.6.0 - Production
PL/SQL Release 11.1.0.6.0 - Production
CORE    11.1.0.6.0      Production
TNS for 32-bit Windows: Version 11.1.0.6.0 - Production
NLSRTL Version 11.1.0.6.0 - ProductionMax
http://oracleitalia.wordpress.com