Chaves Primárias

[David SiqueiraParticipante]

Ae Silva e Rodrigão Salve, segue um script que uso a um tempo já:

accept tb prompt "Tabela ou (Enter)=Todas.....................: "
accept cn prompt "Nome da constraint ou (Enter)=Todas.........: "
accept st prompt "Lista (E)=Enabled,(D)=Disabled,(Enter)=Todos: "
accept pr prompt "Proprietario ou (All)=Todos, (Enter)=Usuario: "
set ver off
col table_name format a25 wra
col constraint_name format a25 wra
col delete_rule format a11 heading 'DELETE_RULE'
select table_name, constraint_name, constraint_type, delete_rule, status
from all_constraints
where owner like decode(upper('&pr'),'ALL','%',NULL,USER,upper('&pr'))
and table_name like nvl(upper('&tb'),'%')
and constraint_name like nvl(upper('&cn'),'%')
and (status = decode(upper('&st'),'D','DISABLED','E','ENABLED')
or '&st' is null);

clear col
set ver on

Abraço.

David