下面是编程之家 jb51.cc 通过网络收集整理的代码片段。
编程之家小编现在分享给大家,也给大家做个参考。
g_sid v$session.SID%type := '-1'; g_serial# v$session.SERIAL#%type; g_terminal v$session.TERMINAL%type; g_username v$session.username%type; function get_object_by_id(p_object_id in number) return varchar2 is l_object_name varchar2(1000); begin select owner || '.' || object_name into l_object_name from dba_objects where object_id = p_object_id; return l_object_name; exception when others then return p_object_id; end; function get_objects_locked_by_session(p_sid in number) return varchar2 is l_result varchar2(1000) := ''; cursor locks is select get_object_by_id(id1) locked_object from v$lock where type = 'TM' and sid = p_sid; begin for c in locks loop if l_result is not null then l_result := l_result || chr(10); end if; l_result := l_result || c.locked_object; end loop; return l_result; end; procedure get_session_info(p_sid in number) is begin select serial#,terminal,username into g_serial#,g_terminal,g_username from v$session where sid = p_sid; end get_session_info; function get_session_serial#(p_sid in number) return v$session.SERIAL#%type is begin if p_sid != g_sid then get_session_info(p_sid); end if; return g_serial#; end get_session_serial#; function get_session_terminal(p_sid in number) return v$session.terminal%type is begin if p_sid != g_sid then get_session_info(p_sid); end if; return g_terminal; end get_session_terminal; function get_session_username(p_sid in number) return v$session.username%type is begin if p_sid != g_sid then get_session_info(p_sid); end if; return g_username; end get_session_username; function get_sids(p_process in varchar2) return varchar2 is cursor users_sids is select sid,module,program from v$session s where s.process = p_process or s.process like p_process || ':%'; result varchar2(1000); begin result := ''; for c in users_sids loop if c.program = 'JDBC Thin Client' then result := 'Web sessions'; else if result is not null then result := result || chr(10); end if; result := result || to_char(c.sid) || ' ' || nvl(c.module,'Main Menu'); end if; end loop; return result; end; --还有很多 见附件 。。。。。。
以上是编程之家(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。