Testumgäbig optimiere
Mit däre Query löhn sich d'Testumgäbig (BGP, PRCQ etc) optimiere
---------------------------------------------------------------------------------------------------------------------------
-- Tune BGP
set def off
exec obj_bgp#.stop;
-- Adjust source TASK (BGP) and add the following lines
declare
i_customer varchar2(10) := 'CBVE';
i_client varchar2(10) := 'CBVE';
i_src_name varchar2(50) := 'TASK';
i_src_type_id binary_integer := 205;
i_src_text_type_id binary_integer := 1; -- 0 def, 1 override
i_src_owner_id binary_integer := 2; -- 1 priv, 2 client
i_init_deactiv boolean := false;
i_src_text clob;
begin
i_src_text := '[bgp 1.0]
bgp task (911)
max_instn_cnt "4"
dflt_instn_cnt "1"
end bgp';
x.install#.src#install(i_src_name, i_src_type_id, i_src_text, i_src_text_type_id, i_customer, i_src_owner_id, i_init_deactiv, null, null, null, i_client );
commit;
end;
/
exec src_intf#.src#do_action('TASK', def_src_type.bgp, def_src_action.do_valid);
-- Adjust source TASK (BGP) and add the following lines
declare
i_customer varchar2(10) := 'CBVE';
i_client varchar2(10) := 'CBVE';
i_src_name varchar2(50) := 'MSG_IN_PRL';
i_src_type_id binary_integer := 205;
i_src_text_type_id binary_integer := 1; -- 0 def, 1 override
i_src_owner_id binary_integer := 2; -- 1 priv, 2 client
i_init_deactiv boolean := false;
i_src_text clob;
begin
i_src_text := '[bgp 1.0]
bgp MSG_IN_PRL (923)
max_instn_cnt "4"
dflt_instn_cnt "1"
end bgp';
x.install#.src#install(i_src_name, i_src_type_id, i_src_text, i_src_text_type_id, i_customer, i_src_owner_id, i_init_deactiv, null, null, null, i_client );
commit;
end;
/
exec src_intf#.src#do_action('MSG_IN_PRL', def_src_type.bgp, def_src_action.do_valid);
-- Adjust source RBSC$MAILING_GEN_EXP (BGP) and add the following lines
declare
i_customer varchar2(10) := 'CBVE';
i_client varchar2(10) := 'CBVE';
i_src_name varchar2(50) := 'RBSC$MAILING_GEN_EXP';
i_src_type_id binary_integer := 205;
i_src_text_type_id binary_integer := 1; -- 0 def, 1 override
i_src_owner_id binary_integer := 2; -- 1 priv, 2 client
i_init_deactiv boolean := false;
i_src_text clob;
begin
i_src_text := '[bgp 1.0]
bgp RBSC$MAILING_GEN_EXP (515)
naming
dfltlang "PRCQ Processor #111"
type bgp_ora (no_override)
statement "bgp_prcq(i_bgp_id=>&id, i_instn_id => &instn_id, i_wait => 20, i_wait_min => 1)"
instance null
job_user "K"
job_interval "sysdate" (no_override)
session_level open (no_override)
session_reset false (no_override)
max_instn_cnt "1"
dflt_instn_cnt "1"
prcq bind
PRCQ_MAILING_GEN_EXP timeslot 10
end prcq bind
end bgp';
x.install#.src#install(i_src_name, i_src_type_id, i_src_text, i_src_text_type_id, i_customer, i_src_owner_id, i_init_deactiv, null, null, null, i_client );
commit;
end;
/
exec src_intf#.src#do_action('RBSC$MAILING_GEN_EXP', def_src_type.bgp, def_src_action.do_valid);
-- Adjust source PRCQ_11 (BGP) and add the following lines
declare
i_customer varchar2(10) := 'CBVE';
i_client varchar2(10) := 'CBVE';
i_src_name varchar2(50) := 'PRCQ_11';
i_src_type_id binary_integer := 205;
i_src_text_type_id binary_integer := 1; -- 0 def, 1 override
i_src_owner_id binary_integer := 2; -- 1 priv, 2 client
i_init_deactiv boolean := false;
i_src_text clob;
begin
i_src_text := '[bgp 1.0]
bgp prcq_11 (915)
max_instn_cnt "1"
dflt_instn_cnt "1"
prcq bind
--Express Mailing PRCQ will now be handled by RBSC$MAILING_GEN_EXP (BGP 515)
--PRCQ_MAILING_GEN_EXP timeslot 10
PRCQ_MAILING_GEN timeslot 10
PRCQ_MINSTR_GEN timeslot 10
end prcq bind
end bgp';
x.install#.src#install(i_src_name, i_src_type_id, i_src_text, i_src_text_type_id, i_customer, i_src_owner_id, i_init_deactiv, null, null, null, i_client );
commit;
end;
/
exec src_intf#.src#do_action('PRCQ_11', def_src_type.bgp, def_src_action.do_valid);
-- Deactivate "unused" BGPs
begin
for s in (
select name, ref_id, obj_id
from obj_src s
where s.ref_id in (971, 580, 590, 508, 509, 510, 511)
and s.src_type_id = 205
) loop
install#.log#write('Disabling BGP '|| s.name);
src#.src#do_action(s.obj_id,def_src_action.do_deactiv);
end loop;
end;
exec obj_bgp#.valid;
