All pastes #28190 Raw Edit

Stuff

public text v1 · immutable
#28190 ·published 2005-11-10 01:51 UTC
rendered paste body
CREATE OR REPLACE PACKAGE toystore AS
--	INVALID_ITEM_ID EXCEPTION
--	INVALID_ORDER_ID EXCEPTION
--	NOT_ENOUGH_STOCK EXCEPTION

	PROCEDURE addStock (item_Id IN ITEM.itemId%TYPE, addQty IN NUMBER);
--	PROCEDURE documentStock(item_Id IN ITEM.itemId%TYPE, subQty IN NUMBER);
--	PROCEDURE displayItem(item_Id IN ITEM.itemID%TYPE;
--	PROCEDURE displayItemsCategory(item_Id IN catId VARCHAR);
--	PROCEDURE createOrderItem(orderId IN NUMBER, item_Id IN ITEM.itemId%TYPE, qty IN NUMBER);
--	PROCEDURE displayOrder(IN orderId NUMBER);
--
--	FUNCTION getStockAmount(item_Id IN ITEM.itemId%TYPE) RETURN NUMBER;
--	FUNCTION getPrice(item_Id IN ITEM.itemId%TYPE) RETURN NUMBER;
--	FUNCTION createOrder(custId IN VARCHAR2) RETURN NUMBER;
	
END toystore;

CREATE PACKAGE BODY toystore AS

	PROCEDURE addStock (item_Id IN ITEM.itemId%TYPE, addQty IN NUMBER) IS
	v_old_qty Inventory.Qty%TYPE;
	v_new_qty Inventory.Qty%TYPE;
	BEGIN
		SELECT qty INTO v_old_qty 
		FROM inventory
		WHERE inventory.itemId = item_Id;
	
		v_new_qty := v_old_qty + addQty;
	
		UPDATE Inventory SET qty = v_new_qty WHERE inventory.itemId = item_Id;
	END addStock;
END toystore;
/