pl/sql,dba-ebs常用

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了pl/sql,dba-ebs常用，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含3436字，纯文字阅读大概需要5分钟。

内容图文

包括了： 查正在运行的SQL语句， 某个服务中的session 表空间管理 锁状态 数据库中当前活跃用户信息 。。。。 这些代码来至于dbadmin 项目 是一个美国的DBA 写的 不错，在googlde code中的 有 PL/SQL DBA g_sid v$session.SID%type := '-1'; g_serial# v$sess

包括了：
查正在运行的SQL语句，
某个服务中的session
表空间管理
锁状态
数据库中当前活跃用户信息
。。。。
这些代码来至于dbadmin 项目 是一个美国的DBA 写的 不错，在googlde code中的 有






PL/SQL DBA

 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;
--还有很多 见附件 。。。。。。 

内容总结

以上是互联网集市为您收集整理的pl/sql,dba-ebs常用全部内容，希望文章能够帮你解决pl/sql,dba-ebs常用所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---