Pular para o conteúdo principal

Monitora Sessões com LAST_CALL_ET alto

create or replace procedure dba_app.monitora_sessions is
vServer VARCHAR2(30) := 'smtp.denilson.com.br';
vSender VARCHAR2(30) := '';
vDest VARCHAR2(100) := '';
vSubj VARCHAR2(50) := 'Verificar Sessão - Produção';
vMesg VARCHAR2(32000):='Verificar Sessão'||UTL_TCP.CRLF;
vManda NUMBER:=0;
l_mail_conn utl_smtp.connection;

BEGIN
l_mail_conn := utl_smtp.open_connection(vServer, 25);
utl_smtp.helo(l_mail_conn, vServer);
utl_smtp.mail(l_mail_conn, vSender);
utl_smtp.rcpt(l_mail_conn, vDest);

utl_smtp.open_data(l_mail_conn );
utl_smtp.write_data(l_mail_conn, 'Subject'||':'|| 'Verificar Sessao - Producao' || UTL_TCP.CRLF);

FOR I IN(select username, sid, serial#, trunc(last_call_et/60) dur
from v$session
where last_call_et > 20*60
and status = 'ACTIVE' )
LOOP

vManda := vManda +1;
vMesg:=vMesg||UTL_TCP.CRLF||rpad(i.username,20,' ' )||' '||'SID:'||' '||rpad(i.sid,5,' ') ||' '||'SERIAL#:'||' '||i.serial#||' '||'TEMPO:'||' '||i.dur||'Min '||UTL_TCP.CRLF;

END LOOP;

dbms_output.put_line(vManda);

if (vManda >= 1) then
utl_smtp.write_data(l_mail_conn,vMesg);
utl_smtp.close_data(l_mail_conn );
utl_smtp.quit(l_mail_conn);
end if;

EXCEPTION WHEN OTHERS THEN
NULL;
END;
/

-- Agendando execução Procedure
BEGIN
DBMS_SCHEDULER.create_job (
job_name => 'sys.monitor_sessions',
job_type => 'PLSQL_BLOCK',
job_action => 'begin monitora_sessions; end;',
start_date => SYSTIMESTAMP,
repeat_interval => 'freq=MINUTELY; INTERVAL=20',
end_date => NULL,
enabled => TRUE,
comments => 'Monitor Sessoes');
END;
/

Comentários

Postagens mais visitadas deste blog

Index SKIP SCAN???

Index Skip Scan nada mais é que o "split" logico de um indice composto, ou seja, se sua clausula WHERE não tiver todos os campos do indice composto, ele é dividido em menores sub-indices Exemplo: -------- SQL> create table teste(a number,b number); Table created. SQL> begin 2 for i in 1..1000 3 loop 4 insert into teste values(i, 56); 5 end loop; 6 end; 7 / PL/SQL procedure successfully completed. SQL> create index idx_teste on teste(a,b); Index created. SQL> analyze table teste compute statistics; Table analyzed. SQL> explain plan for select /*+ index_ss(teste idx_teste) */ * from teste where b=56; Explained. SQL> start ?\rdbms\admin\utlxpls.sql -------------------------------------------------------------------------------- | Operation | Name | Rows | Bytes| Cost | Pstart| Pstop | -------------------------------------------------------------------------------- | SELECT STATEMENT | | 1

Webcenter Content - Jython to Checkin Content with Attachments (CHECKIN_NEW_WITH_RENDITIONS)

In the last few days, i had to load a content that, by its requirements, needs to attach files to the content. My first alternative would be Batch Loading, however for the bacth loder file it was not possible because it does not actually support the rendition service. With the next option, i tried to use the IdcCommand, but still had many problems, such as errors below: sample hda file: [oracle @ hostname bin] $ cat idctst.txt @Properties LocalData IdcService = EDIT_RENDITIONS dID = 37020 renditionKeys = addRendition0 addRendition0.name = test543 addRendition0.action = edit addRendition0.file = test.txt addRendition0.file: path = / u01 / oracle / domains / content_domain / ucm / cs / vault / ~ temp / test.txt @end << EOD >> Executing: [oracle @ hostname bin] $ ./IdcCommand -f idctst.txt -u sysadmin -l log.log -c server Error: Java HotSpot (TM) 64-Bit Server VM warning: Using the ParNew young collector with the Serial old collector is deprecated and w

Configurar Tamanho de UNDO e tempo de RETENÇÃO (UNDO_RETENTION)

-- Tamanho Undo Atual SELECT SUM(a.bytes) "UNDO_SIZE" FROM v$datafile a, v$tablespace b, dba_tablespaces c WHERE c.contents = 'UNDO' AND c.status = 'ONLINE' AND b.name = c.tablespace_name AND a.ts# = b.ts#; -- Blocos de UNDO por Seg. SELECT MAX(undoblks/((end_time-begin_time)*3600*24)) "UNDO_BLOCK_PER_SEC" FROM v$undostat; --Tamanho do Bloco SELECT TO_NUMBER(value) "DB_BLOCK_SIZE [KByte]" FROM v$parameter WHERE name = 'db_block_size'; -- Select calcula UNDO RETENTION SELECT d.undo_size/(1024*1024) "ACTUAL UNDO SIZE [MByte]", SUBSTR(e.value,1,25) "UNDO RETENTION [Sec]", ROUND((d.undo_size / (to_number(f.value) * g.undo_block_per_sec))) "OPTIMAL UNDO RETENTION [Sec]" FROM ( SELECT SUM(a.bytes) undo_size FROM v$datafile a, v$tablespace b, dba_tablespaces c WHERE c.contents = 'UNDO'