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 31 32 33 34 35 36 37 38
|
--Type'
TYPE v_interface IS RECORD
(
client_code shadow_account.client_code%type,
contract_number shadow_account.contract_number%type,
branch_name branch.branch_name%type,
account_type shadow_account.account_type%type,
transaction_code cr_settlement_transaction.transaction_code%type
);
--var du type'
my_interface v_interface
cursor my_cur is
select client_code , contract_number
,branch_name ,account_type
,transaction_code
from shadow_account, branch, cr_settlement_transaction
where <Jointure>;
begin
if my_cur%isopen then
close my_cur;
end if;
open my_cur;
loop
fetch my_cur into my_interface;
exit when my_cur%notfound or my_cur%notfound is null;
<TRAITEMENT...........>
end loop;
if my_cur%isopen then
close my_cur;
end if;
end; |
Partager