oracle学习43-oracle导出空表

select 'alter table ' || OWNER || '.' || table_name || ' allocate extent;' as sqlSTR
   from all_tables
  where num_rows = 0
    and OWNER = 'MEDSURGERY'
  order by sqlSTR asc-- OWNER = 'MEDSURGERY' 分别更改： MEDICU , MEDCOMM, MEDSURGERY

DECLARE
 SMLSQL  VARCHAR2(100);
 BEGIN
 FOR I IN (select 'alter table '||OWNER||'.' || table_name || ' allocate extent' as sqlSTR from all_tables
 where num_rows = 0 and OWNER ('MEDSURGERY','MEDCOMM','MEDICU') order by sqlSTR asc)
 LOOP
 SMLSQL := I.SQLSTR;
 execute immediate SMLSQL;
 SMLSQL :='';
 end loop;
 end;