Hello Aleem

I did a trace from toad and here are the results:

14/02/2002 6:06:10 PM

select /*+ CHOOSE */
 CREATED, LAST_DDL_TIME, 
 OBJECT_ID, STATUS, TIMESTAMP
from ALL_OBJECTS
 where object_name = :objname 
 and object_type = :objtype
 and owner = :ownere 

:OBJNAME = PSTUB
:OBJTYPE = PROCEDURE
:OWNERE = SYS
14/02/2002 6:06:11 PM

select /*+ CHOOSE */ TEXT from ALL_SOURCE where OWNER= :lOWNER and
NAME=:NAME and type = :BTYPE order by LINE

:BTYPE = PROCEDURE
:LOWNER = SYS
:NAME = PSTUB
14/02/2002 6:06:11 PM

select PRIVILEGE, GRANTEE, GRANTABLE, GRANTOR  
 from all_tab_privs
 where table_name = :tname
 and table_schema=:lowner
 order by grantee

:LOWNER = SYS
:TNAME = PSTUB
14/02/2002 6:06:14 PM

Select  /*+ CHOOSE */ Line, Position, substr(text,1,200) text From
All_Errors where owner=:owner  and name=:ObjName and type=:objType order by
sequence

:OWNER = SYS
:OBJNAME = PSTUB
:OBJTYPE = PROCEDURE
14/02/2002 6:06:15 PM

Select /*+ CHOOSE */ distinct 
  owner uses_owner,
  name object_used, 
  type 
from ALL_DEPENDENCIES
where 
 referenced_owner=:owner and 
 referenced_name=:name and 
 ( referenced_type<>'NON-EXISTENT') and 
 ( referenced_type=:type 
 ) 

:NAME = PSTUB
:TYPE = PROCEDURE
:OWNER = SYS
14/02/2002 6:06:17 PM

Select /*+ CHOOSE */ distinct 
  referenced_owner uses_owner,
  referenced_name object_used, 
  referenced_type 
from ALL_DEPENDENCIES
where 
 owner=:owner and 
 name=:name and 
 ( type=:type 
 ) 

:NAME = PSTUB
:TYPE = PROCEDURE
:OWNER = SYS
14/02/2002 6:06:19 PM

select /*+ CHOOSE */ argument_name Argument, data_type,  in_out,
data_length, data_precision, default_value 
 from all_arguments where (owner=:lowner) and 
 (data_level=0) and 
 (object_name=:objName) 
 and (package_name is null) 
and     object_id = ( 
 select object_id from 
 all_objects where (owner=:lowner) and 
 object_name =:objName
 and    object_type in ('PACKAGE', 'PROCEDURE', 'FUNCTION'))
 order by position

:LOWNER = SYS
:OBJNAME = PSTUB
14/02/2002 6:06:34 PM

select /*+ CHOOSE */ TEXT from ALL_SOURCE where OWNER= :lOWNER and
NAME=:NAME and type = :BTYPE order by LINE

:BTYPE = PROCEDURE
:LOWNER = SYS
:NAME = ODCISTATSOPTIONSDUMP


Yechiel Adar, Mehish Computer Services
[EMAIL PROTECTED]

> -----Original Message-----
> From: Abdul Aleem [SMTP:[EMAIL PROTECTED]]
> Sent: Thu, February 14, 2002 9:13 AM
> To:   Multiple recipients of list ORACLE-L
> Subject:      View for Procedure/Function SQL Code
> 
> Hi!
> Is there a view to see the code written in the procedure/function code,
> the
> parameters, return types etc.
> TIA!
> 
> Aleem
> -- 
> Please see the official ORACLE-L FAQ: http://www.orafaq.com
> -- 
> Author: Abdul Aleem
>   INET: [EMAIL PROTECTED]
> 
> Fat City Network Services    -- (858) 538-5051  FAX: (858) 538-5051
> San Diego, California        -- Public Internet access / Mailing Lists
> --------------------------------------------------------------------
> To REMOVE yourself from this mailing list, send an E-Mail message
> to: [EMAIL PROTECTED] (note EXACT spelling of 'ListGuru') and in
> the message BODY, include a line containing: UNSUB ORACLE-L
> (or the name of mailing list you want to be removed from).  You may
> also send the HELP command for other information (like subscribing).
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
>  This e-mail was scanned by the eSafe Mail Gateway 
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

-- 
Please see the official ORACLE-L FAQ: http://www.orafaq.com
-- 
Author: =?iso-8859-8?Q?=E0=E3=F8_=E9=E7=E9=E0=EC?=
  INET: [EMAIL PROTECTED]

Fat City Network Services    -- (858) 538-5051  FAX: (858) 538-5051
San Diego, California        -- Public Internet access / Mailing Lists
--------------------------------------------------------------------
To REMOVE yourself from this mailing list, send an E-Mail message
to: [EMAIL PROTECTED] (note EXACT spelling of 'ListGuru') and in
the message BODY, include a line containing: UNSUB ORACLE-L
(or the name of mailing list you want to be removed from).  You may
also send the HELP command for other information (like subscribing).

Reply via email to