set lines 200
set pages 30000
--SET TRIMOUT OFF
--SET TRIMS OFF
SET COLSEP '|'
SET VER OFF

begin
dbms_output.put_line('----------------------------------------------------------------------');
dbms_output.put_line('ID-IDSESION');
dbms_output.put_line('A-ACTIVE');
dbms_output.put_line('U-%ORA_USUARIO%');
dbms_output.put_line('M-%MACHINE%');
dbms_output.put_line('IP-%IP%');
dbms_output.put_line('T-%TEGNOLOGIA%');
dbms_output.put_line('P-%PROGRAMA%');
dbms_output.put_line('----------------------------------------------------------------------');
end;
/

--column ID format 999 word_wrapped
column OS_USUARIO format a20 word_wrapped
column ORA_USUARIO format a20 word_wrapped
column MAQUINA format a20 word_wrapped
column IP format a19 word_wrapped
column PROGRAMA format a20 word_wrapped
column MODULO format a20 HEADING MODULO word_wrapped
column TEGNOLOGIA format a4 word_wrapped
column HORA_INICIO format a8 HEADING HINICIO word_wrapped
column HORA_FIN format a8 HEADING HFIN word_wrapped
column ADMINDBA format a3 HEADING DBA word_wrapped

SET TERM OFF
DEFINE V_1 = ''
COLUMN VV_1 NOPRINT NEW_VALUE V_1
SELECT '&&1' VV_1 FROM dual;

DEFINE V_2 = ''
COLUMN VV_2 NOPRINT NEW_VALUE V_2
SELECT '&&2' VV_2 FROM dual;
SET TERM ON

SELECT IDSESION ID, ACTIVO, ORA_USUARIO, MAQUINA, IP, PROGRAMA, TEGNOLOGIA, HORA_INICIO, HORA_FIN, ADMINDBA
FROM ASTSYSADMIN.T_MODS_SESION
where (UPPER('&V_1') = 'ALL') 
OR (UPPER('&V_1') = 'ID' AND IDSESION = '&V_2')
OR (UPPER('&V_1') = 'A' AND ACTIVO = UPPER('&V_2'))
OR (UPPER('&V_1') = 'U' AND ORA_USUARIO LIKE UPPER('%&V_2%'))
OR (UPPER('&V_1') = 'M' AND MAQUINA LIKE UPPER('%&V_2%'))
OR (UPPER('&V_1') = 'IP' AND IP LIKE UPPER('%&V_2%'))
OR (UPPER('&V_1') = 'T' AND TEGNOLOGIA LIKE UPPER('%&V_2%'))
OR (UPPER('&V_1') = 'P' AND PROGRAMA LIKE UPPER('%&V_2%'))
ORDER BY ACTIVO,TEGNOLOGIA,PROGRAMA,ORA_USUARIO,MAQUINA;

UNDEFINE V_1
UNDEFINE V_2