CREATE OR REPLACE PROCEDURE PAC_CURSOR_EXAMPLE IS
W_P_CODE PRODUCT.P.CODE%TYPE;
W_P_DESCRIPT PRODUCT.P_DESCRIPT%TYPE;
W_TUT NUMBER(3);
CURSOR PROD_CURSOR IS
SELECT P_CODE, P_DESCRIPT
FROM PRODUCT
WHERE P_QOH > (SELECT AUG(P_QOH) FROM PRODUCT);
BEGIN
DBMS_OUTPUT.PUT_LINE('PRODUCTS WITH P_QOH > AUG[P_QOH]');
DBMS_OUTPUT.PUT_LINE('=======================================');
OPEN PROD_CURSOR;
LOOP
FETCH PROD_CURSOR INTO W_P_CODE, W_P_DESCRIPT;
EXIT WHEN PROD_CURSOR%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(W_P_CODE || ' -> ' || W_P_DESCRIPT );
END LOOP;
DBMS_OUTPUT.PUT_LINE('=======================================');
DBMS_OUTPUT.PUT_LINE('TOTAL PRODUCT PROCESSED ' || PROD_CURSOR%FONCOUNT);
DBMS.OUTPUT_PUT_LINE('-- END OF REPORT --');
CLOSE PROD_CURSOR;
END;
/