set linesize 300
set serveroutput on


begin
    dbms_output.put_line('  ');
    dbms_output.put_line('-- NOTA -----------------------------------------------------------------------------------------');
    dbms_output.put_line('Lista de objetos que dependen del objeto '||upper('&1')||'.'||upper('&2')||'. Tipo de dato:'|| upper('&3'));
    dbms_output.put_line('Si compilamos ('||upper('&3')||'-'||upper('&1')||'.'||upper('&2')||'), la lista de objetos mostrados se veran afectados.');
    dbms_output.put_line('El arbol de dependencias no puede mostrarse completo para evitar bucles.');
    dbms_output.put_line('Lo que si es seguro es que en el aparecen todos los objetos que dependen del parametro de entrada,');
    dbms_output.put_line('asi como el proceso o procesos que lo tienen pinchado en memoria.');
    dbms_output.put_line('En instalaciones RAC este script debe ejecutarse en cada nodo.');
    dbms_output.put_line('-------------------------------------------------------------------------------------------------');
    dbms_output.put_line('Si el script devuelve que no se ha encontrado el objeto, o te has confundido en el propietario/nombre');
    dbms_output.put_line('o en el tipo de objeto. A continuacion se muestra la lista de objetos permitidos:');

    dbms_output.put(rpad(' - CLUSTER',23,' '));	    
    dbms_output.put(rpad(' - INDEX',23,' '));	    
    dbms_output.put(rpad(' - LOB',23,' '));	    
    dbms_output.put(rpad(' - RESOURCE PLAN',23,' '));	    
    dbms_output.put_line(rpad(' - TABLE',23,' '));

    dbms_output.put(rpad(' - CONSUMER GROUP',23,' '));	    
    dbms_output.put(rpad(' - INDEXTYPE',23,' '));	    
    dbms_output.put(rpad(' - LOCATION',23,' '));	    
    dbms_output.put(rpad(' - RULE SET',23,' '));	    
    dbms_output.put_line(rpad(' - TRIGGER',23,' '));

    dbms_output.put(rpad(' - CONTEXT',23,' '));	    
    dbms_output.put(rpad(' - JAVA CLASS',23,' '));	    
    dbms_output.put(rpad(' - MATERIALIZED VIEW',23,' '));	    
    dbms_output.put(rpad(' - RULE',23,' '));	    
    dbms_output.put_line(rpad(' - TYPE BODY',23,' '));

    dbms_output.put(rpad(' - DIMENSION',23,' '));	    
    dbms_output.put(rpad(' - JAVA DATA',23,' '));	    
    dbms_output.put(rpad(' - NEXT OBJECT',23,' '));	    
    dbms_output.put(rpad(' - SECURITY PROFILE',23,' '));	    
    dbms_output.put_line(rpad(' - TYPE',23,' '));

    dbms_output.put(rpad(' - DIRECTORY',23,' '));	    
    dbms_output.put(rpad(' - JAVA RESOURCE',23,' '));	    
    dbms_output.put(rpad(' - OPERATOR',23,' '));	    
    dbms_output.put(rpad(' - SEQUENCE',23,' '));	    
    dbms_output.put_line(rpad(' - VIEW',23,' '));

    dbms_output.put(rpad(' - EVALUATION CONTEXT',23,' '));	    
    dbms_output.put(rpad(' - JAVA SOURCE',23,' '));	    
    dbms_output.put(rpad(' - PACKAGE BODY',23,' '));	    
    dbms_output.put(rpad(' - SUBSCRIPTION',23,' '));	    
    dbms_output.put_line(rpad(' - XML SCHEMA',23,' '));

    dbms_output.put(rpad(' - FUNCTION',23,' '));	    
    dbms_output.put(rpad(' - LIBRARY',23,' '));	    
    dbms_output.put(rpad(' - PACKAGE',23,' '));	    
    dbms_output.put_line(rpad(' - SYNONYM',23,' '));	

    dbms_output.put(rpad(' - INDEX PARTITION',23,' '));	    
    dbms_output.put(rpad(' - LOB PARTITION',23,' '));	    
    dbms_output.put(rpad(' - PROCEDURE',23,' '));	    
    dbms_output.put_line(rpad(' - TABLE PARTITION',23,' '));	

    dbms_output.put(rpad(' - INDEX SUBPARTITION',23,' '));	    
    dbms_output.put(rpad(' - LOB SUBPARTITION',23,' '));	    
    dbms_output.put(rpad(' - QUEUE',23,' '));	    
    dbms_output.put_line(rpad(' - TABLE SUBPARTITION',23,' '));	

    dbms_output.put_line('-------------------------------------------------------------------------------------------------');

    dbms_output.put_line('La columna MEMORY (USERNAME#SID#SERIAL#LOCK) incluye la siguiente informacion:');
    dbms_output.put_line('USERNAME: usuario de BBDD');
    dbms_output.put_line('SID: Sid de la sesion');
    dbms_output.put_line('SERIAL: Serial de la sesion');
    dbms_output.put_line('LOCK: tipo de bloqueo. C --> bloqueo de codigo, Otro --> bloqueo de v$lock.type');

    dbms_output.put_line('-------------------------------------------------------------------------------------------------');
end;
/


exec SYS.PKG_ACC_DEP_ASC_LOCK('&1', '&2', upper('&3'), null);

UNDEFINE 1
UNDEFINE 2
UNDEFINE 3

CLEAR BUFFER