package source

select object_name, subobject_name from user_objects where object_type = 'PACKAGE BODY';

select * from user_objects where object_name = 'PKG_XXX';

select text from user_source where name = 'PKG_XXX';