user_procedures

QL> desc user_procedures;
Name

Null? Type
----------------------------------------- -------- ----------------------------
OBJECT_NAME VARCHAR2(128)
PROCEDURE_NAME VARCHAR2(30)
OBJECT_ID NUMBER
SUBPROGRAM_ID NUMBER
OVERLOAD VARCHAR2(40)
OBJECT_TYPE VARCHAR2(19)
AGGREGATE VARCHAR2(3)
PIPELINED VARCHAR2(3)
IMPLTYPEOWNER VARCHAR2(30)
IMPLTYPENAME VARCHAR2(30)
PARALLEL VARCHAR2(3)
INTERFACE VARCHAR2(3)
DETERMINISTIC VARCHAR2(3)
AUTHID VARCHAR2(12)

QL> select OBJECT_NAME from user_procedures where rownum<=1;

BJECT_NAME
-------------------------------------------------------------------------------
deptddd_thh

QL> desc user_source
Name Null? Type
----------------------------------------- -------- ----------------------------
NAME VARCHAR2(30)
TYPE VARCHAR2(12)
LINE NUMBER
TEXT VARCHAR2(4000)

SQL> select name,type from user_source where name='DEPTDDD_THH';

NAME TYPE

DEPTDDD_THH PROCEDURE
DEPTDDD_THH PROCEDURE
DEPTDDD_THH PROCEDURE
DEPTDDD_THH PROCEDURE
DEPTDDD_THH PROCEDURE
DEPTDDD_THH PROCEDURE
DEPTDDD_THH PROCEDURE

select text from user_source where name='DEPTDDD_THH';