Mega Code Archive
Package for running dynamic sql based on DBMS_SQL package
<![CDATA[
SQL> CREATE OR REPLACE PACKAGE dynsql
2 IS
3 PROCEDURE execute (cur IN INTEGER);
4 FUNCTION execute (cur IN INTEGER) RETURN INTEGER;
5 END dynsql;
6 /
Package created.
SQL>
SQL> CREATE OR REPLACE PACKAGE BODY dynsql
2 IS
3 PROCEDURE execute (cur IN INTEGER)
4 IS
5 feedback INTEGER;
6 BEGIN
7 feedback := DBMS_SQL.EXECUTE (cur);
8 END;
9
10 FUNCTION execute (cur IN INTEGER) RETURN INTEGER
11 IS
12 BEGIN
13 RETURN DBMS_SQL.EXECUTE (cur);
14 END;
15
16 END dynsql;
17 /
Package body created.
SQL>
]]>