如何实现类似存储过程同时执行多条语句？

Question

declare
  w_int int;
begin
  w_int := 1;
  update useraccount set money=9999 where unid=82;
  insert into USERBUYPRODUCT (itemid,userid,Itemnum,Buytime) values(40,82,1,to_date('2006-3-9','yyyy-mm-dd'));
  commit;
end;

Answer 1

begin
update useraccount set money=9999 where unid=82;
insert into USERBUYPRODUCT (itemid,userid,Itemnum,Buytime) values(40,82,1,to_date('2006-3-9','yyyy-mm-dd'));
end;
写成块来执行