create or replace procedure tran(outname varchar2,inname varchar2,tranval int)
is
tran_no number;
tran_name varchar2(10);
begin
select ename,sal into tran_name,tran_no from emp where ename=outname;
update emp set sal = sal + tranval where ename=inname;
update emp set sal = tran_no - tranval where ename=outname;
dbms_output.put_line('已经转帐成功');
end;
/
is
tran_no number;
tran_name varchar2(10);
begin
select ename,sal into tran_name,tran_no from emp where ename=outname;
update emp set sal = sal + tranval where ename=inname;
update emp set sal = tran_no - tranval where ename=outname;
dbms_output.put_line('已经转帐成功');
end;
/
is
begin
update emp set sal = sal + tranval where ename=inname;
update emp set sal = sal - tranval where ename=outname;
dbms_output.put_line('已经转帐成功');
end;
/这样也就够了。
is
begin
update emp set sal = sal + tranval where ename=inname;
update emp set sal = sal - tranval where ename=outname;
commit;
dbms_output.put_line('已经转帐成功');
exception
when others then
rollback;
dbms_output.put_line('转帐失败');
end;
/这样更好点。