如何查询一个存储过程是否在运行

在itpub上有人问这样一个问题：

如何看一个存储过程是否在执行？

不少高手作了回答，这里记录一下，供以后查询

1、select * from v$db_object_cache where locks > 0 and pins > 0 and type='PROCEDURE';

2、select * from v$access where OBJECT=upper('PROCEDURE_NAME');