1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
|
create or replace procedure SR_FORM(s_pays IN varchar2) is
begin
declare
cursor cur_sect is select so0.nrid, code_post, societe, var12, var17 from so0
where var11=s_pays and societe like 'WEST%' and template is null;
code varchar(10);
soc varchar(100);
old_sect varchar(30);
comte varchar(100);
new_sect varchar(30):= '';
v_nrid number(15);
v_rid varchar2(32);
v_rmod varchar2(32);
v_dmod date;
v_so0_nrid number(15);
begin
open cur_sect;
loop
exit when (cur_sect%NOTFOUND);
fetch cur_sect into v_so0_nrid, code, soc, comte, old_sect;
begin
update so0 set var17=new_sect, dmod=v_dmod, rmod=v_rmod where nrid=v_so0_nrid;
end;
end loop;
close cur_sect;
end;
commit;
end SR_FORM; |
Partager