Andre Long
CISP 350 Oracle
May 18, 2006
Chapter 4B PSC 

CASE#6

SET SERVEROUTPUT ON SIZE 6000
DECLARE
blank		VARCHAR2(1):= ' ';
total		number:= 0;
CURSOR	MisterCursor	IS
SELECT	item_desc, inv_size, color, inv_price, inv_qoh, inv_price * inv_qoh AS value
FROM	item, inventory
WHERE	inventory.item_id = item.item_id	AND inventory.item_id = 5;
MisterVariable MisterCursor%ROWTYPE;

BEGIN
OPEN	MisterCursor;
	LOOP
		FETCH	MisterCursor	INTO	MisterVariable;
		EXIT WHEN MisterCursor%NOTFOUND;
		DBMS_OUTPUT.PUT_LINE(MisterVariable.item_desc || blank || MisterVariable.inv_size || blank ||
							 MisterVariable.color || blank || TO_CHAR(MisterVariable.inv_price, '$9,999.99') || blank ||
							 MisterVariable.inv_qoh || blank || TO_CHAR(MIsterVariable.value, '$9,999.99'));
		total := total + MisterVariable.value;
	END LOOP;
DBMS_OUTPUT.PUT_LINE('Total Value = ' || TO_CHAR(total, '$99,999.99'));
CLOSE	MisterCursor;
END;