Há uma coluna TYPE na visualização all_source. O tipo pode ter 2 valores - 'PACKAGE' e 'PACKAGE BODY'. Então, para obter a especificação,
select text from all_source
where name = 'PACK_JACK'
and type = 'PACKAGE'
order by line;
e para obter o corpo
select text from all_source
where name = 'PACK_JACK'
and type = 'PACKAGE BODY'
order by line;
Além disso, em vez de usar all_source, você pode usar user_source. all_source inclui tudo, incluindo pacotes do sistema. USER_SOURCE tem apenas pacotes definidos pelo usuário.
