min balance program in oracle

create or replace procedure mini as
acno number:=&acno;
txnno varchar2(20);
mdate date:=&mdate;
cou number;
cdno varchar(16);
cid number;
bal number;
v daily_transactions%rowtype;
cursor c1 is select * from daily_transactions where cdno=(select cardno from card_master5064 where cin=(select cin from customer_master where accno=acno));

begin
select count(*) into cou from customer_master where accno=acno;
select cin,balance into cid,bal from customer_master where accno=acno;
select cardno into cdno from card_master where cin=cid;
if(cou>0) then
open c1;
loop
fetch c1 into v;
exit when c1%notfound;

dbms_output.put_line(v.cardno||v.trandate||v.balance||v.deposit||v.withdraw);
end loop;
close c1;

dbms_output.put_line('Total Balance Is:'||bal);
select to_char(mdate,'ddmmyyyyhhmiss')||transeq.nextval into txnno from dual;
insert into daily_transactions values(cdno,mdate,bal,0,0,txnno);
commit;

else
dbms_output.put_line('Account Number Does Not Exist');
end if;

No comments:

Post a Comment

Template Design by faris vio