ストアドパッケージをファイル出力する（仕様部、本体部を別々に出力できるので便利！）

SET LIN 20000
-- １行に収まらない内場合改行して表示
SET WRAP ON
SET PAGESIZE 0
SET LONG 400000
SET LONGCHUNKSIZE 400000
-- 問い合わせの結果レコード件数表示制御
SET FEEDBACK OFF
-- コマンド表示制御
SET ECHO OFF
-- コマンド結果表示制御
SET TERMOUT OFF
-- 行末の空白除去
SET TRIMS ON
-- バインド変数新旧表示除去
SET VERIFY OFF
--DDLの終わりにスラッシュ「/」
EXEC DBMS_METADATA.SET_TRANSFORM_PARAM( DBMS_METADATA.SESSION_TRANSFORM,'SQLTERMINATOR',TRUE );
--出力ファイル名変数定義
col spoolout_file_name new_value spool_file_name format a50
--仕様部ファイル
select 'PACKAGE_'||'&1'||'.'||'&2'||'_'||'SPEC.sql' spoolout_file_name 
from dual;
spool &spool_file_name
-- Oracleのバグなのか「EDITIONABLE」がついて出力されるので
-- これを無理やり除去する
SELECT REGEXP_REPLACE (
DBMS_METADATA.GET_DDL('PACKAGE_SPEC','&2','&1' )
,' EDITIONABLE ', ' '
)
from dual
;

-- パッケージに関わる権限
-- オブジェクトに対する権限が付与されている場合忘れがちなので注意必要
select DBMS_METADATA.GET_DEPENDENT_DDL('OBJECT_GRANT',t.TABLE_NAME, '&1' )
from dba_tab_privs t 
where t.TABLE_NAME = '&2' and t.GRANTOR = '&1' and t.TYPE = 'PACKAGE'
;

spool off;
--仕様部ファイル
select 'PACKAGE_'||'&1'||'.'||'&2'||'_'||'BODY.sql' spoolout_file_name from dual;
spool &spool_file_name
SELECT REGEXP_REPLACE (DBMS_METADATA.GET_DDL('PACKAGE_BODY','&2','&1' )
, ' EDITIONABLE ', ' ')
from dual
;
-- パッケージに関わる権限
select DBMS_METADATA.GET_DEPENDENT_DDL('OBJECT_GRANT',t.TABLE_NAME, '&1' )
from dba_tab_privs t 
where t.TABLE_NAME = '&2' and t.GRANTOR = '&1' and t.TYPE = 'PACKAGE'
;

spool off;
exitCopy

sqlplus -s system/pass@vm013/orau8 @get_PACKAGE.sql SCOTT MY_PACKAGECopy

SQL> @PACKAGE_SCOTT.PAC01_SPEC.sql

パッケージが作成されました。

SQL>Copy