CREATE EVENT "Connected_Users_del" TYPE "Disconnect"
HANDLER
begin 
call aa_connected_users_tmp;
end;

ALTER PROCEDURE "DBA"."Connected_users_tmp_ins"()
begin
declare err_notfound exception for sqlstate value '02000'; 
declare Vnm varchar(100);
declare vNAMBER integer; 
declare vNAME long varchar;
declare vUSERID long varchar;
declare vDBNUMBER integer; 
declare vEXEC long varchar;
declare vLASTREQTIME datetime; 
declare vLASTSTATMENT varchar;

declare C_1 dynamic scroll cursor for call sa_conn_activity;
//
DELETE FROM CONNECTED_USERS_TMP;
open C_1;
C_1: loop
fetch next C_1 into vNAMBER,vNAME,vUSERID,vDBNUMBER,vLASTREQTIME,vLASTSTATMENT;
if sqlstate=err_notfound then
leave C_1
end if
;
INSERT INTO CONNECTED_USERS_TMP(NUMBER_SYS_ID,NAME_SYS,USER_SYS_ID,DB_NUMBER_SYS,LAST_REQ_TIME_SYS,LASTSTATEMENT)VALUES (vNAMBER,vNAME,vUSERID,vDBNUMBER,vLASTREQTIME,vLASTSTATMENT); 
end loop C_1
;
close C_1;
commit work;
end