column ora_usuario format a20
column maquina format a50
column programa format a20
column tegn format a4
column servicio format a20
column idses format 9999
column idsrv format 9999
column codapp format a12


SELECT nvl(ses.codigo_aplicacion,ses.modulo) codapp,ses.idsesion as idses,srv.idservicio as idsrv,ses.ora_usuario,ses.maquina||' / '||ses.maquina1 as maquina,ses.programa,ses.tegnologia tegn,srv.servicio
FROM t_mods_sesion ses
    ,t_mods_servicios srv
    ,t_mods_sesion_servicio ses_srv
WHERE ses_srv.idsesion = ses.idsesion
    AND ses_srv.idservicio = srv.idservicio
    AND ses_srv.activo = 'S'
    AND srv.activo = 'S'
    AND ses.activo = 'S'
    AND upper(srv.servicio) like upper('%&1%')
order by ses.ora_usuario,ses.maquina,ses.programa,ses.tegnologia,srv.servicio;
