select o.name, decode(o.type#, 7, 'PROCEDURE', 8, 'FUNCTION', 9, 'PACKAGE', 11, 'PACKAGE BODY', 12, 'TRIGGER', 13, 'TYPE', 14, 'TYPE BODY', 22, 'LIBRARY', 87, 'ASSEMBLY', 'UNDEFINED'), s.line, s.source from sys."_CURRENT_EDITION_OBJ" o, sys.source$ s where o.obj# = s.obj# and ( o.type# in (7, 8, 9, 11, 12, 14, 22) OR ( o.type# = 13 AND o.subname is null)) and o.owner# = userenv('SCHEMAID') union all select o.name, 'JAVA SOURCE', s.joxftlno, s.joxftsrc from sys."_CURRENT_EDITION_OBJ" o, x$joxscd s where o.obj# = s.joxftobn and o.type# = 28 and o.owner# = userenv('SCHEMAID')
해당 쿼리 참조해보시면 될 것 같습니다.
패키지 뿐만 아니고 함수 및 프로시저 등도 가능합니다.