— pkg_lst.sql
— mdw 02/02/00
— list of all packages and procedures stored on the
— database (that can be seen)
set pause on
set pages 24
set pause ‘Any Key>’
col name form a20 word wrap
col o_type form a15 word wrap
col owner form a20 word wrap
prompt ‘will ignore sys and system pl/sql’
spoo pkg_lst.lst
select
 object_name  Name
,object_type  O_Type
,owner        Owner
,status
from all_objects
where (object_type like ‘P%’
or object_type =’FUNCTION’)
and owner like upper(‘&OBJ_OWNER’||’%’)
and owner not in (‘SYS’,’SYSTEM’)
order by 1,2,3
/
spool off
clear colu