Помогите,пожалуйста!
Это мой пакет:
create or replace package body PACKAGE is
pc_text clob;
procedure rep(av_source varchar2, av_target varchar2) is
begin
pc_text := replace(pc_text, av_source, av_target);
end;
procedure load(av_rep varchar2) is
begin
select data dat into pc_text from rep_blob where rep = av_rep;
exception
when no_data_found then
dbms_lob. trim(pc_text, 0);
end;
procedure cur_body(an_Cont P_Type.T_Contract, av_rep varchar2) is
lc_temp clob;
begin
-- First part
dbms_lob.createtemporary(lc_temp, true, dbms_lob.call);
for r in ((select
(select cst.customer from u_customer cst where cst.customer=pl.customer)cust, to_char(s.ENTRYDATE, 'dd.mm.yyyy') entdate
from TABLE1 s, TABLE2 l,TABLE pl
where l.CONTRACT = s.CONTRACT
and pl.contract=l.CONTRACT
and l.CONTRACT =an_cont
and s.refnum =
(select max(refnum)
from TABLE4
where s.contract = contract
and s.ACCOUNT = account))
) loop
load(av_rep);
rep('&cust&', r.cust);
rep('&entdate&', r. entdate);
end loop;
p_lob.setclob(pc_text, 2);
end;
begin
dbms_lob.createtemporary(pc_text, true, dbms_lob.call);
dbms_lob.createtemporary(P_REPRTF.pc_doc, true, dbms_lob.call);
end PACKAGE;
где получаю текст1 в формате word из таблицы rep_blob.
Мне нужно вызвать другой пакет,например PACKAGE1.cur_body1(l.CONTRACT, av_rep1),где av_rep1 другой текст2 в формате word из таблицы rep_blob.Где нужно ставить и как нужно вызвать PACKAGE1.cur_body1,чтобы после текст1 вывести сразу текст2?
Заранее спасибо |