-- ************************************************************
-- *** Feel free to use this SQL-code, but please           ***
-- *** do not remove these copyright lines.                 ***
-- *** (C) Roger Felix - Lund - Sweden                      ***
-- *** [roger_felix@hotmail.com, web_master@work.utfors.se] ***
-- *** URL: http://hem.fyristorg.com/publish/index.html     ***
-- ************************************************************

create or replace
PROCEDURE DYNAMIC_SQL (SQL_TEXT IN VARCHAR2) AS
   source_cursor integer;
   e             VARCHAR2(1000);
   dummy         integer;
BEGIN
   source_cursor := dbms_sql.open_cursor;
   dbms_sql.parse(source_cursor,
                     SQL_TEXT, dbms_sql.native);
   dummy := dbms_sql.execute(source_cursor);
   dbms_sql.close_cursor(source_cursor);
EXCEPTION
  WHEN OTHERS THEN
      e := sqlerrm;
      -- INSERT INTO DEBUG VALUES ('DYNAMIC_SQL '||SQL_TEXT ||' '||e);
END;
/