plsql ,dba-ebs 常用

概述pl/sql ,dba-ebs 常用

下面是内存溢出 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)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

总结

以上是内存溢出为你收集整理的pl/sql ,dba-ebs 常用全部内容，希望文章能够帮你解决pl/sql ,dba-ebs 常用所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。