The following lines contain the word 'select', 'insert', 'update' or 'delete':
select middleware_id into l_mw_id from cct_middlewares
where middleware_type_id= p_mw1_id
and config_name=p_name
and nvl(f_deletedflag,'Y') <> 'D';
update cct_middlewares set middleware_type_id=p_mw2_id
where middleware_type_id=p_mw1_id
and config_name=p_name;
update cct_middlewares set middleware_type_id=p_mw2_id
where middleware_type_id=p_mw1_id;
delete_params(p_mw1_id,p_mw2_id,l_mw_id);
update_params(p_mw1_id,p_mw2_id,l_mw_id);
delete cct_middleware_types
where middleware_type_id=p_mw1_id;
procedure delete_params(p_mw1_id IN NUMBER,p_mw2_id IN NUMBER, p_mw_id IN NUMBER )
IS
BEGIN
SAVEPOINT CCT_MIDDLEWARE_DELETE_SAV;
delete from cct_middleware_values where nvl(f_deletedflag,'Y') <> 'D'
and middleware_param_id IN
(
select mw.middleware_param_id
from cct_middleware_params mw
where middleware_type_id=p_mw1_id and nvl(mw.f_deletedflag,'Y') <> 'D'
minus
select mw1.middleware_param_id
from cct_middleware_params mw1, cct_middleware_params mw2
where mw1.middleware_type_id=p_mw1_id and mw2.middleware_type_id=p_mw2_id
and mw1.name=mw2.name
and nvl(mw1.f_deletedflag,'Y') <> 'D'
) ;
delete from cct_middleware_values where middleware_id=p_mw_id and nvl(f_deletedflag,'Y') <> 'D'
and middleware_param_id IN
(
select mw.middleware_param_id
from cct_middleware_params mw
where middleware_type_id=p_mw1_id and nvl(mw.f_deletedflag,'Y') <> 'D'
minus
select mw1.middleware_param_id
from cct_middleware_params mw1, cct_middleware_params mw2
where mw1.middleware_type_id=p_mw1_id and mw2.middleware_type_id=p_mw2_id
and mw1.name=mw2.name
and nvl(mw1.f_deletedflag,'Y') <> 'D'
) ;
rollback TO SAVEPOINT CCT_MIDDLEWARE_DELETE_SAV;
raise_application_error(-20011, sqlerrm || 'Could not delete middlewares') ;
procedure update_params(p_mw1_id IN NUMBER,p_mw2_id IN NUMBER, p_mw_id IN NUMBER )
IS
l_mw1_param_id cct_middleware_params.middleware_param_id%type;
select mw1.middleware_param_id, mw2.middleware_param_id
from cct_middleware_params mw1, cct_middleware_params mw2
where mw1.middleware_type_id=p_mw1_id and mw2.middleware_type_id=p_mw2_id
and mw1.name=mw2.name
and nvl(mw1.f_deletedflag,'Y') <> 'D';
SAVEPOINT CCT_MIDDLEWARE_UPDATE_SAV;
update cct_middleware_values Set middleware_param_id = l_mw2_param_id
where middleware_param_id = l_mw1_param_id and nvl(f_deletedflag,'Y') <> 'D' ;
update cct_middleware_values Set middleware_param_id = l_mw2_param_id
where middleware_id=p_mw_id and middleware_param_id = l_mw1_param_id
and nvl(f_deletedflag,'Y') <> 'D' ;
rollback TO SAVEPOINT CCT_MIDDLEWARE_UPDATE_SAV;
raise_application_error(-20012, sqlerrm || 'Could not update middlewares') ;
procedure update_agent_params(p_mw1_id IN NUMBER,p_mw2_id IN NUMBER, p_mw_id IN NUMBER )
IS
l_mw1_param_id jtf_rs_resource_values.resource_param_id%type;
select mw1.resource_param_id, mw2.resource_param_id
from jtf_rs_resource_params mw1, jtf_rs_resource_params mw2
where mw1.param_type=p_mw1_id and mw2.param_type=p_mw2_id
and mw1.name=mw2.name;
SAVEPOINT CCT_MIDDLEWARE_UPDATE_AGT_SAV;
update jtf_rs_resource_values Set resource_param_id = l_mw2_param_id
where resource_param_id = l_mw1_param_id ;
update jtf_rs_resource_values Set resource_param_id = l_mw2_param_id
where value_type=p_mw_id and resource_param_id = l_mw1_param_id ;
rollback TO SAVEPOINT CCT_MIDDLEWARE_UPDATE_AGT_SAV;
raise_application_error(-20012, sqlerrm || 'Could not update agent paras') ;