Creación de código fuente para "TYPE", "TYPE BODY", "PROCEDURE", "FUNCTION", "PACKAGE", "PACKAGE BODY" y "JAVA SOURCE"

-
Ya pase para la creacion de un indice, ahora va para los demas objetos en base a un owner o type.
El siguiente ejemplo es para extraer un package body...

___________________________________________________

select 'CREATE OR REPLACE ' from dual
/
select text
from dba_source
where owner = '&1' AND NAME = '&2' AND Type = 'PACKAGE BODY'
/
--
spool off

espero que les sea de buen uso..

Comentarios

Publicar un comentario

Entradas populares de este blog

Instalar la utilidad STATSPACK. Crear snapshots y generar informe.

-
Crear tablespace statspack_tsp con 100M en /u05/oradata/fabiancrea (crear dir. /u05/oradata/fabiancrea). Crear tablespace statspack_temp con 2M en /u05/oradata/fabiancrea . Instalar statspack con $ORACLE_HOME/rdbms/admin/spcreate.sql, indicando los datos que se piden: clave de usuario perfstat, tablespace por defecto, y tablespace temporal por defecto. $ mkdir /u05/oradata/fabiancrea $ chmod Rg+w /u05/oradata/fabiancrea SQL> create tablespace statpack_tsp datafile '/u05/oradata/fabiancrea /statpack_tsp01.dbf' size 100M autoextend on next 10M maxsize 200M extent management local autoallocate segment space management auto; Tablespace created. SQL> create temporary tablespace statpack_temp tempfile '/u05/oradata/fabiancrea/statpack_temp01.dbf' size 2M autoextend on next 1M maxsize 10M; Tablespace created. SQL> @$ORACLE_HOME/rdbms/admin/spcreate.sql ... Installing Required Packages ... ... Creating PERFSTAT user ... Choose the PERFSTAT user...
Leer más

Fragmentacion de Tablespaces.

-
Este script muestra los extents su ubicación dentro de los tablespace y a su vez permite ver la identificación de la fragmentación de los mismos. Aca se los dejo.. EXITOS !!! -- ----------------------------------------------------------------------------------- SET SERVEROUTPUT ON SIZE 1000000 SET FEEDBACK OFF SET TRIMOUT ON SET VERIFY OFF DECLARE CURSOR c_extents IS SELECT owner, segment_name, block_id AS start_block, block_id + blocks - 1 AS end_block FROM dba_extents WHERE tablespace_name = Upper('&1') ORDER BY block_id; v_last_block_id NUMBER := 0; BEGIN FOR cur_rec IN c_extents LOOP IF cur_rec.start_block > v_last_block_id + 1 THEN DBMS_OUTPUT.PUT_LINE('*** GAP ***'); END IF; v_last_block_id := cur_rec.end_block; DBMS_OUTPUT.PUT_LINE(RPAD(cur_rec.owner || '.' || cur_rec.segment_name, 40, ' ') || ' (' || cur_rec.start_block || ...
Leer más

Top 10 de los queries que estan en memoria.

-
Este query muestra los 10 queries mas pesados en memoria.... esta piola porque podemos evaluarlo para ver ocupacion de SGA que nos eta matando al equipo o en su defecto la propia base. aca se los dejo.. EXITOS !!! -- ----------------------------------------------------------------------------------- -- Author : Fabian Crea - Cristian Mendoza -- Last Modified: 15/12/2007 -- ----------------------------------------------------------------------------------- SET LINESIZE 500 SET PAGESIZE 1000 SET VERIFY OFF SELECT * FROM (SELECT Substr(a.sql_text,1,50) sql_text, Trunc(a.disk_reads/Decode(a.executions,0,1,a.executions)) reads_per_execution, a.buffer_gets, a.disk_reads, a.executions, a.sorts, a.address FROM v$sqlarea a ORDER BY 2 DESC) WHERE rownum SET PAGESIZE 14
Leer más