dokuwiki

This is an old revision of the document!

---

PROCEDURE DELETE_ROWS
   ( p_table_name IN varchar2)
   IS
   statement_cursor integer;
   rows_del         number;
BEGIN
   statement_cursor := dbms_sql.open_cursor;
   dbms_sql.parse(statement_cursor, 
                  'delete from '||p_table_name,
                  dbms_sql.native);
   rows_del := dbms_sql.execute(statement_cursor);
   -- dbms_sql.fetch_rows
   dbms_output.put_line('zeilen geloescht '||rows_del);
   dbms_sql.close_cursor(statement_cursor);
END; -- Procedure

PROCEDURE COUNT_ROWS
   ( p_table_name in varchar2
    )
   IS
   row_count number;
   sql_code  varchar2(1000);
BEGIN
   sql_code := 'select count(*) from '||p_table_name;
   -- objekt namen koennen nicht als bind variablen verwendet werden
   execute immediate sql_code into row_count;
   dbms_output.put_line(p_table_name ||' contains '
                        ||row_count||' rows');
END; -- Procedure