一个简单的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