esta apresentando esta mensagem
PLS-00225: subprogram or cursor 'A' reference is out of scope
segue a procedure.
create or replace procedure prod7035_002(p_mens in out varchar2)
is
v_cd_endosso_endossado number;
v_dt_emissao_apolice number;
v_id_tipo_endosso number;
cursor c1 is
select a.cd_ramo,
a.cd_local,
a.cd_apolice,
a.cd_endosso,
a.id_registro
from interface_extracao a
where a.id_registro = '37'
and trunc(a.dt_extracao) = trunc(sysdate);
cursor c2 (
p_cd_local number,
p_cd_ramo_cober number,
p_cd_apolice number,
p_cd_endosso number
) is
--
select c.cd_ramo_cobertura
from v_histo_apoli_item_ramo c
where c.cd_ramo = p_cd_ramo_cober
and c.cd_local = p_cd_local
and c.cd_apolice = p_cd_apolice
and nvl(c.cd_endosso,0) = nvl(p_cd_endosso,0);
--
begin
for rg1 in c1 loop
select b.cd_endosso_endossado,
b.dt_emissao_apolice,
b.id_tipo_endosso
into v_cd_endosso_endossado,
v_dt_emissao_apolice,
v_id_tipo_endosso
from v_histo_apolice b
where b.cd_ramo = a.cd_ramo
and b.cd_local = a.cd_local
and b.cd_apolice = a.cd_apolice
and nvl(b.cd_endosso,0) = nvl(a.cd_endosso,0);
--
for rg2 in c2 ( rg1.cd_ramo,
rg1.cd_local,
rg1.cd_apolice,
rg1.cd_endosso,
rg1.id_registro
) loop
insert into inter_estatistica_cancelamento ( cd_ramo,
cd_local,
cd_apolice,
cd_endosso,
id_registro_plataforma,
id_tipo_endosso,
dt_emissao,
cd_endosso_endossado,
cd_ramo_cobertura,
vl_premio
)
values ( rg1.cd_ramo,
rg1.cd_local,
rg1.cd_apolice,
rg1.cd_endosso,
rg1.id_registro,
v_id_tipo_endosso,
v_dt_emissao_apolice,
v_cd_endosso_endossado,
p_cd_ramo_cober,
0
);
end loop;
end loop;
end;
alguém sabe o porque ?
