数据库版本：

SQL> select * from v$version;

BANNER
----------------------------------------------------------------
Oracle Database 10g Enterprise Edition Release 10.1.0.2.0 - Prod
PL/SQL Release 10.1.0.2.0 - Production
CORE 10.1.0.2.0 Production
TNS for 32-bit Windows: Version 10.1.0.2.0 - Production
NLSRTL Version 10.1.0.2.0 - Production

基本调用方法：
begin
EXECUTE IMMEDIATE 'truncate table test.t';
end;

测试：
SQL> conn test/test
已连接。
SQL> select * from t;

未选定行

SQL> desc t
名称
--------------------------------------------------
OWNER
OBJECT_NAME
SUBOBJECT_NAME
OBJECT_ID
DATA_OBJECT_ID
OBJECT_TYPE
CREATED
LAST_DDL_TIME
TIMESTAMP
STATUS
TEMPORARY
GENERATED
SECONDARY

SQL> insert into t select * from all_objects;

已创建47382行。

SQL> commit;

提交完成。

SQL> begin
2 EXECUTE IMMEDIATE 'truncate table test.t';
3 end;
4 /

PL/SQL 过程已成功完成。

SQL> select count(*) from t;

COUNT(*)
----------
0
测试之二，truncate操作对表上的对象有没有影响？
创建一个测试过程：
create or replace procedure test
2 as
3 a varchar2(40);
4 begin
5 select object_name into a from t;
6 dbms_output.put_line(a);
7* end;
SQL> /

过程已创建。

SQL> alter procedure test compile;

过程已更改。

SQL> insert into t
2 select * from all_objects
3 where rownum<21;

已创建20行。

SQL> commit;

提交完成。

SQL> select owner,object_name,object_type,status from dba_objects
2 where object_name='TEST';

OWNER
------------------------------
OBJECT_NAME
--------------------------------------------------------------------------
OBJECT_TYPE STATUS
------------------- -------
TEST
TEST
PROCEDURE VALID
SQL> begin
2 EXECUTE IMMEDIATE 'truncate table test.t';
3 end;
4 /

PL/SQL 过程已成功完成。

SQL> select * from t;

未选定行

SQL> select owner,object_name,object_type,status from dba_objects
2 where object_name='TEST';

OWNER
------------------------------
OBJECT_NAME
------------------------------------------------------------------------------
OBJECT_TYPE STATUS
------------------- -------
TEST
TEST
PROCEDURE VALID

执行truncate操作后，过程test的状态依然有效。

测试之三，使用命名过程。
SQL> create or replace procedure truct
2 as
3 begin
4 EXECUTE IMMEDIATE 'truncate table test.t';
5 end;
6 /

过程已创建。

SQL> alter procedure truct compile;

过程已更改。

SQL> insert into t
2 select * from dba_objects
3 where rownum<31;

已创建30行。

SQL> commit;

提交完成。

SQL> select count(*) from t;

COUNT(*)
----------
30

SQL> execute truct;

PL/SQL 过程已成功完成。

SQL> select count(*) from t;

COUNT(*)
----------
0

SQL> select owner,object_name,object_type,status from dba_objects
2 where object_name='TEST';

OWNER
------------------------------
OBJECT_NAME
--------------------------------------------------------------------------
OBJECT_TYPE STATUS
------------------- -------
TEST
TEST
PROCEDURE VALID
SQL>