生成编译无效PACKAGE BODY的语句

郑全

select 'alter PACKAGE ' ||  owner || '.'  ||  object_name || ' compile body;'  comp_stat from dba_objects where status<>'VALID'  and object_type='PACKAGE BODY' order by 1;

COMP_STAT
--------------------------------------------------------------------------------
alter PACKAGE SYSMAN.EM_FLAT_COMPTGT compile body;
alter PACKAGE SYSMAN.MGMT_ECM_POLICY compile body;