1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
|
Connected to Oracle Database 11g Enterprise Edition Release 11.2.0.3.0
SQL>
SQL> CREATE OR REPLACE Package Null_Package Is
2 Procedure Null_proc;
3 End;
4 /
Package created
SQL> CREATE OR REPLACE Package Body Null_Package Is
2 Procedure Null_proc
3 Is
4 Begin
5 Null;
6 End;
7 End;
8 /
Package body created
SQL> set serveroutput on
SQL>
SQL> Declare
2 hOpenOrig NUMBER;
3 hModifyOrig NUMBER;
4 hTransDDL NUMBER;
5 l_ddl Clob;
6 Begin
7 --
8 hOpenOrig := dbms_metadata.open('PACKAGE');
9 --
10 hModifyOrig := dbms_metadata.add_transform(hOpenOrig,'MODIFY');
11 dbms_metadata.set_remap_param(hModifyOrig,'REMAP_SCHEMA','MNI',null);
12 dbms_metadata.set_filter(hOpenOrig, 'NAME','NULL_PACKAGE');
13 --
14 hTransDDL := dbms_metadata.add_transform(hOpenOrig ,'DDL');
15 dbms_metadata.set_transform_param(hTransDDL, 'PRETTY', TRUE);
16 dbms_metadata.set_transform_param(hTransDDL, 'SQLTERMINATOR', TRUE);
17 --
18 l_ddl := dbms_metadata.fetch_clob(hOpenOrig);
19 --
20 dbms_output.put_line(SubStr(l_ddl,1,1000));
21 --
22 dbms_metadata.close(hOpenOrig);
23 End;
24 /
CREATE OR REPLACE PACKAGE "NULL_PACKAGE" Is
Procedure Null_proc;
End;
/
CREATE OR REPLACE PACKAGE BODY "NULL_PACKAGE" Is
Procedure Null_proc
Is
Begin
Null;
End;
End;
/
PL/SQL procedure successfully completed
SQL> |
Partager