问在Oracle中使用SQL*Plus提取PL/SQL过程DDL？

EN

SQL> set long 10000
SQL> spool get_ddl.txt
SQL> select dbms_metadata.get_ddl('PROCEDURE','INSERT_NEW','ADMIN') from dual;

DBMS_METADATA.GET_DDL('PROCEDURE','INSERT_NEW','ADMIN')
--------------------------------------------------------------------------------

  CREATE OR REPLACE PROCEDURE "ADMIN"."INSERT_NEW" (IN_SCHEMA_NAME varchar2, IN_
TABLE_NAME varchar2)
AS
BEGIN
dbms_output.put_line('INSERTED ' || IN_SCHEMA_NAME || '.' || IN_TABLE_NAME );
INSERT INTO TABLES_PKEYS (SCHEMA_NAME,TABLE_NAME,COLUMN_NAME,PKEY_INDEX)SELECT c
ons.owner,cols.table_name,cols.column_name,cols.position FROM all_constraints co
ns, all_cons_columns cols WHERE cols.owner=IN_SCHEMA_NAME AND cols.TABLE_NAME=IN
_TABLE_NAME AND cons.constraint_type = 'P' AND cons.constraint_name =cols.constr
aint_name AND cons.owner = cols.owner;

DBMS_METADATA.GET_DDL('PROCEDURE','INSERT_NEW','ADMIN')
--------------------------------------------------------------------------------
EXCEPTION WHEN OTHERS THEN
dbms_output.put_line('ERROR WHEN INSERTING ' || SQLERRM );
END INSERT_NEW;


SQL> spool off

[oracle @testsrv Desktop]$ cat get_ddl.txt