How do I get to see the procedures that are running

SELECT   SUBSTR (DECODE (o.kglobtyp, 7, 'PROCEDURE'), 1, 15) "TYPE",
         SUBSTR (o.kglnaown, 1, 30) "OWNER", SUBSTR (o.kglnaobj, 1,
                                                     30) "NAME", s.indx "SID",
         s.ksuseser "SERIAL"
    FROM SYS.x$kglob o, SYS.x$kglpn p, SYS.x$ksuse s
   WHERE o.inst_id = USERENV ('Instance')
     AND p.inst_id = USERENV ('Instance')
     AND s.inst_id = USERENV ('Instance')
     AND o.kglhdpmd = 2
     AND o.kglobtyp IN (7, 8, 9, 12, 13)
     AND p.kglpnhdl = o.kglhdadr
     AND s.addr = p.kglpnses
ORDER BY 1, 2, 3;


Note that, You should have the privilege on SYS.x$kglob , SYS.x$kglpn and SYS.x$ksuse .

Cheers