一个简单的pl/sql块代码

DECLARE
  qty_on_hand   NUMBER(5);
BEGIN
  SELECT        quantity
           INTO qty_on_hand
           FROM inventory
          WHERE product = 'TENNIS RACKET'
  FOR UPDATE OF quantity;

  IF qty_on_hand > 0 THEN   -- check quantity
    UPDATE inventory
       SET quantity = quantity - 1
     WHERE product = 'TENNIS RACKET';

    INSERT INTO purchase_record
         VALUES ('Tennis racket purchased', SYSDATE);
  ELSE
    INSERT INTO purchase_record
         VALUES ('Out of tennis rackets', SYSDATE);
  END IF;

  COMMIT;
END;

－－

程序是用于处理一个网球拍订单的。首先声明一个NUMBER类型的变量来存放现有的球拍数量。然后从数据表inventory中把球拍的数量检索出来。

如果数量大于零，程序就会更新inventory表，并向purchase_record表插入一条购买记录，如果数量不大于零，程序会向purchase_record表

插入一条脱销(out-of-stock)记录。

 

－－注意for update of