select OWNER , NAME , TYPE , LINE , decode(line,1,'CREATE OR REPLACE ' ||replace(text,'PACKAGE BODY ','PACKAGE BODY ' ||owner ||'.'),text) AS PKG_SOURCE from dba_source where type='PROCEDURE' and owner='$ownerName';