-- ************************************************************
-- *** Feel free to use this SQL-code, but please           ***
-- *** do not remove these copyright lines.                 ***
-- *** (C) Roger Felix - Lund - Sweden                      ***
-- *** [roger_felix@hotmail.com, web_master@work.utfors.se] ***
-- *** URL: http://hem.fyristorg.com/publish/index.html     ***
-- ************************************************************

CREATE OR REPLACE VIEW comp (text)
AS select distinct 'alter '||
  replace(replace (object_type,'PACKAGE BODY','PACKAGE'),'PACKAGE SPEC','PACKAGE')||  ' '||owner||'.'||object_name||' compile; ' text
from all_objects  where status = 'INVALID'
/