Query the process ID of the current session

select spid

  from v$process

 where addr = (select paddr

                 from v$session

                where sid = (select distinct sid from v$mystat));