删除oracle末用户的表数据

begin
for cr in (select o.object_name a from dba_objects o where o.owner='TEST' and o.object_type = 'TABLE' order by o.object_name) loop
dbms_output.put_line(CONCAT(CONCAT('delete from ',cr.a),'; '));
end loop;
end;