INSERT INTO T_MODS_TEMP_SESION (
   IDLOG, SERVICIO, OS_USUARIO, 
   ORA_USUARIO, MAQUINA, IP, 
   PROGRAMA, MODULO)
select 1, servicio, OS_USUARIO, ORA_USUARIO, MAQUINA, IP, PROGRAMA, MODULO
from t_mods_logon_log
where idlog = &1;

column servicio format a25
column os_usuario format a25
column ora_usuario format a25
column maquina format a25
column modulo format a25
column programa format a25
column ip format a25


select * from T_MODS_TEMP_SESION;

declare
v_out number;
v_res number;
v_ses varchar2(100);
v_apl varchar2(100);
begin
v_res := FUNC_MODS_CHECK_SERVICES(1, v_out, v_ses, v_apl);
dbms_output.put_line('v_res:'||v_res);
dbms_output.put_line('v_out:'||v_out);
dbms_output.put_line('v_ses:'||v_ses);
dbms_output.put_line('v_apl:'||v_apl);
end;
/

rollback;
