http://www.tiantiansoft.com/bbs/dispbbs.asp?BoardID=3&id=111448

truncate table your_table_name

TRUNCATE TABLE 删除表中的所有行，但表结构及其列、约束、索引等保持不变。新行标识所用的计数值重置为该列的种子。

在pb中直接写出，使用动态的才成
string sql
                sql="truncate table " + ar_tna
                execute immediate :sql using l_ts_sqlca;
                commit using l_ts_sqlca;