rem name		who.sql
rem
rem purpose	Print a listing of the persons currently logged on.
rem
rem usage		@who.sql
rem
rem parameters	none
rem ..............................................................

select spid "pid",substr(s.username,1,13) "DB user",
substr(p.username,1,9) "O/S user",
substr(s.program,1,40) "program"
from v$process p, v$session s
where p.addr=s.paddr
and s.username is not null
and s.username <> 'SYS'
order by s.username ;

