Gunther Oracle APEX und Datenbank Wiki

Diese Seite ist nicht editierbar. Sie können den Quelltext sehen, jedoch nicht verändern. Kontaktieren Sie den Administrator, wenn Sie glauben, dass hier ein Fehler vorliegt.
====Den Name und die Zeilennummer eines PL/SQL Package für ein SQL Statement in der DB ermitteln====

Über **V$SESSION** und **V$SQL** lässt sich das PL/SQL Package ermitteln das ein bestimmtes SQL Statement aufgerufen hat.

In <fc #008000>**V$SESSION**</fc>  steht uns zur Verfügung (aus der Doku [[http://docs.oracle.com/cd/E11882_01/server.112/e40402/dynviews_3016.htm]| Database Reference 11g R2]] )

  * **PLSQL_ENTRY_OBJECT_ID** - Object ID of the top-most PL/SQL subprogram on the stack (or NULL if there is no PL/SQL subprogram on the stack)
  * **PLSQL_ENTRY_SUBPROGRAM_ID** - Subprogram ID of the top-most PL/SQL subprogram on the stack (or NULL if there is no PL/SQL subprogram on the stack)
  * **PLSQL_OBJECT_ID** - Object ID of the currently executing PL/SQL subprogram (or NULL if executing SQL)
  * **PLSQL_SUBPROGRAM_ID** - Subprogram ID of the currently executing PL/SQL object (or NULL if executing SQL)


Über die <fc #008000>**V$SQL**</fc> lässt sich sogar die Zeilennummer im PL/SQL Block ermitteln.

In der V$SQL kann verwendet werden (aus der Doku [[http://docs.oracle.com/cd/E18283_01/server.112/e17110/dynviews_3043.htm|Database Reference 11g R2]] 
)

  * **ROGRAM_ID** - Program identifier
  * **PROGRAM_LINE#** - Program line number	


Mit der ID kann über die DBA_OBJECTS der Objekt Name ermittelt werden.

<code sql>	
select * from dba_objects where  object_id=&MY_PROGRAM_ID
</code>
=== Anlayse ===

Das ist sehr praktisch um zum Beispiel zu analysieren, welche PL/SQL Objekte in letzter Zeit aufgerufen und welche Zeile SQL Code hier verwendet wurde:
<code sql>
select count(*)
    , obj.owner
    , obj.object_type
    , obj.object_name
    , s.PROGRAM_LINE#
    , min(to_date(s.first_load_time,'YYYY-MM-DD/HH24:MI:SS')) as min_first_load
    , max(to_date(s.first_load_time,'YYYY-MM-DD/HH24:MI:SS')) as max_first_load    
  from dba_objects obj
     , v$sql s
 where s.program_id = obj.object_id
   and s.program_id != 0
 group by obj.owner
        , obj.object_type
        , obj.object_name
        , obj.subobject_name
        , s.PROGRAM_LINE#
order by obj.owner  
</code>