庫物件指令碼抽取指令碼

set pagesize 0
set linesize 4000
set feedback off
col text for a4000
spool I:\J1_G3_ZBQ.sql
select 
  case when ds.line=1 and rownum=1 then 'create or replace '||text
       when ds.line=1 and ds.type='PROCEDURE' and rownum<>1 then '/'||chr(10)||'create or replace '||text 
       when ds.line=1 and ds.type='FUNCTION' and rownum<>1 then '/'||chr(10)||'create or replace '||text
       when ds.line=1 and ds.type='PACKAGE'  and rownum<>1 then '/'||chr(10)||'create or replace '||text
       when ds.line=1 and ds.type='PACKAGE BODY'  and rownum<>1 then '/'||chr(10)||'create or replace '||text
       when rownum=(select max(rownum) from dba_source ds 
where (ds.owner='J1_G3_ZBQ' and ds.name in ('CP_TRANS_G3SJGS',
                                            'CP_TRANS_G3SJZG',
                                            'F_GET_DM_TRANS_COL',
                                            'F_GET_TABLE_ALIAS_NAME',
                                            'PKG_0_ETL_COMMON',
                                            'PKG_0_ETL_COMMON_SJ',
                                            'PKG_0_ETL_SJJH',
                                            'PRINT_PROC',
                                            'P_0_TYZH_XML_ADDON',
                                            'P_DQC_DATE_CHECK',
                                            'P_DQC_DATE_CHECK_ALL',
                                            'P_ETL_XMLLDMCHK',
                                            'P_GET_G3CODE',
                                            'P_S2ZBQ_DATE_CHECK',
                                            'P_UP_PZB',
                                            'P_XT_RECOMPILE'))
        and ds.type in ('PROCEDURE','FUNCTION','PACKAGE','PACKAGE BODY')) then text||chr(10)||'/'       
  else text 
  end text
  from dba_source  ds 
where (ds.owner='J1_G3_ZBQ' and ds.name in ('CP_TRANS_G3SJGS',
                                            'CP_TRANS_G3SJZG',
                                            'F_GET_DM_TRANS_COL',
                                            'F_GET_TABLE_ALIAS_NAME',
                                            'PKG_0_ETL_COMMON',
                                            'PKG_0_ETL_COMMON_SJ',
                                            'PKG_0_ETL_SJJH',
                                            'PRINT_PROC',
                                            'P_0_TYZH_XML_ADDON',
                                            'P_DQC_DATE_CHECK',
                                            'P_DQC_DATE_CHECK_ALL',
                                            'P_ETL_XMLLDMCHK',
                                            'P_GET_G3CODE',
                                            'P_S2ZBQ_DATE_CHECK',
                                            'P_UP_PZB',
                                            'P_XT_RECOMPILE'))
        and ds.type in ('PROCEDURE','FUNCTION','PACKAGE','PACKAGE BODY');
spool off
clear columns
set pagesize 14
set feedback on