The following lines contain the word 'select', 'insert', 'update' or 'delete':
select substr(TEXT, 1, 32) into lguid
from WF_RESOURCES
where NAME = 'WF_SYSTEM_GUID'
and LANGUAGE = userenv('LANG');
select S.NAME into lsys
from WF_SYSTEMS S, WF_RESOURCES R
where R.NAME = 'WF_SYSTEM_GUID'
and R.LANGUAGE = userenv('LANG')
and S.GUID = hextoraw(R.TEXT);
select NAME, VALUE
from v$parameter
where NAME in ('aq_tm_processes', 'job_queue_processes',
'job_queue_interval')
order by NAME;
dTab(i).selectable := FALSE;
select distinct substr(ADDRESS, instr(ADDRESS, '@')+1) NAME
from WF_AGENTS
where PROTOCOL = 'SQLNET'
and DIRECTION = 'IN'
and SYSTEM_GUID <> localsguid;
select 'EXIST' into dTab(i).col02
from sys.dual
where upper(dblr.name) in (
select DB_LINK from USER_DB_LINKS
union all
select DB_LINK from ALL_DB_LINKS
where OWNER = 'PUBLIC');
dTab(i).selectable := FALSE;
select A.GUID, A.NAME, A.DIRECTION, A.QUEUE_NAME
from WF_AGENTS A
where A.SYSTEM_GUID = localsguid
and A.PROTOCOL = 'SQLNET';
select DQ.QID
into l_qid
from ALL_QUEUES DQ
where lquer.queue_name = DQ.OWNER||'.'||DQ.NAME
and QUEUE_TYPE = 'NORMAL_QUEUE';
select to_char(v.ready), to_char(v.waiting)
into dTab(i).col05, dTab(i).col06
from gv$aq v
where v.qid = l_qid;
dTab(i).selectable := FALSE;
select A.GUID, A.NAME
from WF_AGENTS A
where A.SYSTEM_GUID = localsguid
and A.PROTOCOL = 'SQLNET'
and A.STATUS = 'ENABLED'
and (A.DIRECTION is null or A.DIRECTION in ('IN', 'ANY'));
select 'YES'
into dTab(i).col02
from WF_ALL_JOBS
where upper(substr(WHAT, 1, 60))
like 'WF_EVENT.LISTEN('''||lqr.name||''')%'
and rownum < 2;
dTab(i).selectable := FALSE;
select OA.GUID OGUID,
OA.NAME,
OA.QUEUE_NAME OQUEUE,
upper(substr(TA.ADDRESS, instr(TA.ADDRESS, '@')+1)) TOSYSTEM
from WF_AGENTS OA, WF_AGENTS TA
where OA.SYSTEM_GUID = localsguid
and OA.PROTOCOL = 'SQLNET'
and OA.DIRECTION = 'OUT'
and TA.SYSTEM_GUID <> localsguid
and TA.PROTOCOL = 'SQLNET'
and TA.DIRECTION = 'IN'
and TA.ADDRESS IS NOT NULL
and TA.NAME <> 'WF_ERROR'
and TA.SYSTEM_GUID in (select GUID from WF_SYSTEMS)
union
-- propgation to a local queue
select A.GUID OGUID,
A.NAME,
A.QUEUE_NAME OQUEUE,
NULL TOSYSTEM
from WF_AGENTS A
where A.SYSTEM_GUID = localsguid
and A.PROTOCOL = 'SQLNET'
and A.DIRECTION = 'OUT'
order by TOSYSTEM;
select NAME
into dTab(i).col03
from WF_AGENTS
where GUID = ppgr.oguid
and (PROTOCOL <> 'SQLNET'
or (DIRECTION is not null and DIRECTION = 'IN'));
select null
into dTab(i).col03
from sys.dual
where exists (
select NULL
from DBA_QUEUE_SCHEDULES QS
where QS.DESTINATION = nvl(ppgr.tosystem, 'AQ$_LOCAL')
and QS.SCHEMA||'.'||QS.QNAME = ppgr.oqueue);
dTab(i).selectable := FALSE;
select SYSTEM_GUID, substr(QUEUE_NAME,1,30)
into sguid, qname
from WF_AGENTS
where GUID = aguid;
select JOB, WHAT, upper(INTERVAL) interval
from WF_ALL_JOBS
where upper(WHAT) like 'WF_EVENT.LISTEN('''||nm||''');';
select NAME
into aname
from WF_AGENTS
where GUID = l_aguid
and SYSTEM_GUID = lguid;
dTab(i).selectable := FALSE;
hTab(i).value := 'Wf_Setup.DeleteJob?h_url='||
wfa_html.base_url||'/Wf_Setup.List_Listener&h_job=';
select NEXT_DATE, upper(INTERVAL) interval
from WF_ALL_JOBS
where job = x_jobnum;
select NAME
into aname
from WF_AGENTS
where GUID = aguid
and SYSTEM_GUID = lguid;
select PROPAGATION_WINDOW, upper(NEXT_TIME) NEXT_TIME, LATENCY
from DBA_QUEUE_SCHEDULES
where DESTINATION = nvl(x_system, 'AQ$_LOCAL')
and SCHEMA||'.'||QNAME = x_qname;
'javascript:document.WF_PPGN_EDIT.h_action.value=''DELETE'';'||
wf_core.translate ('DELETE'),
wfa_html.image_loc,
null,
wf_core.translate ('DELETE'));
select name
into l_name
from wf_agents
where name = upper(h_name);
if (h_action = 'DELETE') then
Wf_Setup.DeletePropagation(h_qname, h_system);
Wf_Setup.DeletePropagation(h_qname, h_system);
procedure DeleteJob(
h_job pls_integer,
h_url varchar2
) is
username varchar2(320); -- Username to query
wf_core.context('WF_SETUP', 'DeleteJob', h_job, h_url);
end DeleteJob;
procedure DeletePropagation(
h_qname in varchar2,
h_system in varchar2
)is
username varchar2(320); -- Username to query
wf_core.context('WF_SETUP', 'DeletePropagation', h_qname, h_system);
end DeletePropagation;
select NEXT_DATE into nDate
from WF_ALL_JOBS
where job = jobnum;
Wf_Setup.DeletePropagation(h_qname, h_system);