转账存储过程的创建和调用

--创建转账存储过程
CREATE OR REPLACE PROCEDURE testPro
(
       inId bank.bid%TYPE,
       updateMoney bank.bmoney%TYPE,
       outId bank.bid%TYPE
)
AS
myValue NUMBER(10,2);
BEGIN
  UPDATE bank SET bmoney=bmoney-updateMoney WHERE bid=outId;
  UPDATE bank SET bmoney=bmoney+updateMoney WHERE bid=inId;
  SELECT bmoney INTO myValue FROM bank WHERE bid=outId;
  IF(myValue>0) THEN COMMIT;
  ELSE ROLLBACK;
  END IF;
END;
--调用转账存储过程
BEGIN
 testPro(1,100,2);
END;