set pagesize 0
set heading off
set feedback off
column spid format a20 heading "Serv PID"
SELECT  distinct P.spid spid
FROM    v$session S, v$process P
WHERE   P.addr = S.paddr 
AND     P.background is NULL       
AND     P.spid IS NOT null
AND     S.status='ACTIVE'
ORDER by 1;