如何判断当前数据库在执行那些存储过程

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

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