wrap objects

Sample code to wrap any objects from schema.

declare

vFonte varchar2(32767);

vCursor number;

vError number;

begin

vCursor := dbms_sql.open_cursor;

for rObjetos in (select owner, name, type

from dba_source

where type in ('PACKAGE BODY', 'PROCEDURE', 'FUNCTION')

and line = 1

and instr(text, 'wrapped') "< " 1

and owner = 'DENILSON'

order by owner, name, type) loop

SELECT DBMS_METADATA.GET_DDL(rObjetos.type,

rObjetos.name,

rObjetos.owner)

into vFonte

FROM dual;

dbms_sql.parse(vCursor, vFonte, dbms_sql.native);

vError := dbms_sql.execute(vCursor);

dbms_ddl.create_wrapped(ddl => vFonte);

end loop;

dbms_sql.close_cursor(vCursor);

end;

/