–pkg_txt.sql
— mdw 7/97
— pull out text for a package.
set long 64000
set pages 1000
set trims on
set lines 79
set pause on
set array 1
set pause ‘Any Key…>’
spool pkg_txt.lst
SELECT TEXT
FROM SYS.DBA_SOURCE
WHERE (TYPE = ‘PACKAGE BODY’
or type = ‘PROCEDURE’
or type = ‘FUNCTION’)
AND NAME LIKE UPPER(NVL(‘&PKG_NAME’,’ERIC’)||’%’)
ORDER BY name,owner,LINE
/
spool off
set pages 40