PROCEDURE delete_table
   ( p_table_name IN varchar2 )
   IS
  v_cur integer;
BEGIN
  v_cur := dbms_sql.open_cursor;
  dbms_sql.parse(v_cur, 'delete from '||p_table_name, dbms_sql.native);
  dbms_output.put_line(dbms_sql.execute(v_cur));
  dbms_sql.close_cursor(v_cur);
  rollback;
END;