function pbt3gvck(version positive)return binary_integer is external library sys.dbms_trace_lib name "pbt3gvck" with context parameters(context, version,return);
function pbt3gmt(flags in binary_integer)return binary_integer is external library sys.dbms_trace_lib name "pbt3gmt" with context parameters(context, flags,return);
function pbt3grn return binary_integer is external library sys.dbms_trace_lib name "pbt3grn" with context parameters(context,return);
function pbt3glm(limit in binary_integer)return binary_integer is external library sys.dbms_trace_lib name "pbt3glm" with context parameters(context, limit,return);
function pbt3gco(commentinvarchar2)return binary_integer is external library sys.dbms_trace_lib name "pbt3gco" with context parameters(context,comment,commentlength,return);
function pbt3gtl return binary_integer is external library sys.dbms_trace_lib name "pbt3gtl" with context parameters(context,return);
function internal_version_check return binary_integer is begin return pbt3gvck(pbt3g_version); end internal_version_check;
procedure set_or_clear_trace(trace_level in binary_integer)is discard integer; begin if(internal_version_check <> 0)then return; endif; discard := pbt3gmt(trace_level); end;
procedure set_plsql_trace(trace_level in binary_integer)is begin set_or_clear_trace(trace_level); end;
function get_plsql_trace_level return binary_integer is begin if(internal_version_check <> 0)then returnnull; else return pbt3gtl; endif; end;
procedure clear_plsql_trace is begin set_or_clear_trace(trace_stop); end;
procedure pause_plsql_trace is begin set_or_clear_trace(trace_pause); end;
procedure resume_plsql_trace is begin set_or_clear_trace(trace_resume); end;
procedure limit_plsql_trace(limit in binary_integer := 8192)is discard binary_integer;
begin if(internal_version_check <> 0)then return; endif; discard := pbt3glm(limit); end;