как определить SHARED и DEDICATED сервер

SELECT   v$process.program
  FROM   v$session, v$process
 WHERE   audsid = SYS_CONTEXT ('USERENV', 'SESSIONID')
         AND v$process.addr = v$session.paddr;