делай так

PROCEDURE Clear_Table( pTableName varchar2 ) is
cur integer;
stm varchar2(30);
begin
commit;
cur := DBMS_SQL.open_cursor;
begin
stm := 'delete from '||pTableName;
DBMS_SQL.Parse(cur, stm, DBMS_SQL.NATIVE);
rows := DBMS_SQL.Execute(cur);
exception
when others then raise_application_error(-20002,'Такой таблицы нет или у вас нет привилегий делать удаление!');
rollback;
end;
DBMS_SQL.close_cursor(cur);
commit;
end;

или если оракл версии 8.1.5 то можно
execute immediate 'delete from Tablename';
но у меня оракл 8.0.5 так что последнее не проверял. но работать скорее всего будет
в документации так написано