如何得到一个存储过程的创建脚本

1，如何得到一个存储过程的创建脚本
查询数据字典：user_source 和 dba_source
SQL>select text from dba_source where name='p_******' and type='PROCEDURE';

2，如何得到数据库中无效的存储过程
查询数据字典：dba_objects
SQL> select object_name from dba_objects where object