Source extrahiere
Script um en Klassesource z'etrahiere und anschliessend no die alte source z'droppe
select s.name ||'.'|| src_type file_name, h.text --, s.*
from (
select h.src_id, s.name, s.src_status_id, s.src_type_id, h.src_owner_id, cst.user_id src_type, max(h.seq_nr) max_seq_nr
from src_hist h
,src s
,code_src_type cst
where h.src_id = s.id
and cst.id = s.src_type_id
and (s.name like upper('CODE_OBJ_CLASSIF_ASSET%') or s.name like upper('CODE_OBJ_CLASS_ASSET%.asset$RBSC$ass_ag'))
and cst.user_id like upper('CODE%')
and h.src_owner_id = 2
--and instr(h.text, 'adj_doc')> 0
group by h.src_id, s.name, s.src_status_id, s.src_type_id, h.src_owner_id, cst.user_id
) s
,src os
,src_hist h
--
,code_src_owner cso
,code_src_text_type cstt
,code_src_status css
where os.id = s.src_id
and h.src_id = s.src_id
and h.seq_nr >= s.max_seq_nr
and h.src_owner_id = s.src_owner_id
and cso.id = h.src_owner_id
and cstt.id = h.src_text_type_id
and css.id = s.src_status_id
order by s.name, seq_nr desc;
-- Get drop statement
select s.id src_id, s.name, cst.user_id||' ('||cst.id||')' src_type, css.user_id||' ('||css.id||')' src_status, cso.name src_owner
,'exec src_intf#.src#do_action('''||s.name||''','||s.src_type_id||',def_src_action.do_drop);' cmpl_stmt
from src s
--
,code_src_type cst
,code_src_owner cso
,code_src_status css
where 1=1
--and s.src_status_id not in (1, 5) -- 1 valid, 2 invalid, 5 dropped, 7 to_install
--
and s.name like '%CODE_OBJ_CLASS.ASSET$RBSC$ASS_ACDC_UNDRLY%' -- source name
--and cst.user_id like '%PKG%' -- source type
--and cst.user_id not like 'TASK TEMPL' -- exclude invalid task templates
--
-- join descriptive code tables
and cst.id (+)= s.src_type_id
and cso.id (+)= s.src_owner_id
and css.id (+)= s.src_status_id
order by cst.src_cmpl_order, name;
exec src_intf#.src#do_action('CODE_OBJ_CLASS.ASSET$RBSC$ASS_ACDC_UNDRLY',220,def_src_action.do_drop);
exec src#.garbcol
