-- ********************************************************************
-- * Copyright Notice : (c)1998,1999,2000,2001,2002 OraPub, Inc.
-- * Filename : sessinfo.sql
-- * Author : Craig A. Shallahamer
-- * Original : 17-AUG-98
-- * Last Update : 14-may-02
-- * Description : Show session related information
-- * Usage : start sessinfo.sql
-- ********************************************************************
def osm_prog = 'sessinfo.sql'
def osm_title = 'Session Information'
start osmtitle
col "Session Info" form A80
col a form a60 fold_after 1
set verify off
accept sid prompt 'Please enter the value for Sid if known : '
accept client_identifier prompt 'Please enter the value for client identifer : '
accept module prompt 'Please enter the value for module : '
accept terminal prompt 'Please enter the value for terminal if known : '
accept machine prompt 'Please enter the machine name if known : '
accept process prompt 'Please enter the value for Client Process if known : '
accept spid prompt 'Please enter the value for Server Process if known : '
accept osuser prompt 'Please enter the value for OS User if known : '
accept username prompt 'Please enter the value for DB User if known : '
accept progname prompt 'Please enter the value for program name : '
set heading off
select 'Sid, Serial#, Aud sid : '|| s.sid||' , '||s.serial#||' , '||s.audsid a,
'DB User / OS User : '||s.username||' / '||s.osuser a,
'Machine - Terminal : '||s.machine||' - '|| s.terminal a,
'OS Process Ids : '||s.process||' (Client) '||p.spid||' (Server)' a,
'Client Program Name - ID : '||s.program||' - '||s.client_identifier a,
'Module - Action : '||s.module||' - '||s.action a
from v$process p,
v$session s
where p.addr = s.paddr
and s.sid = nvl('&SID',s.sid)
and nvl(s.terminal,' ') like nvl('%&terminal%',nvl(s.terminal,' '))
and s.process = nvl('&Process',s.process)
and p.spid = nvl('&spid',p.spid)
and upper(s.username) like nvl(upper('%&username%'),upper(s.username))
and nvl(upper(s.osuser),' ') like nvl(upper('%&OSUser%'),nvl(upper(s.osuser),' '))
and nvl(upper(s.machine),' ') like nvl(upper('%&machine%'),nvl(upper(s.machine),' '))
and nvl(upper(s.program),' ') like nvl(upper('%&progname%'),'%')
and nvl(s.module,' ') like nvl('%&module%',nvl(s.module,' '))
/
set heading on
start osmclear