·BEGIN TRAN read A; A:=A-S; IF(A<O)THEN [display“A款不足 “； ROLLBACK]/*恢复* ELSE [B:=B+S; display“完成拨款“； COMMIT]:/*提交 209-8• BEGIN TRAN • read A; • A:= A-S; • IF(A<0) THEN • [display “A款不足“； • ROLLBACK] /* 恢复 */ • ELSE • [B:=B+S； • display “完成拨款“； • COMMIT]； /* 提交 */ • 209—8