BGEIN
~~~~~BEGIN??
sSQL := 'SELECT * FROM MST_PRODUCT';
OPEN cCUR for sSQL;
IF cCUR%NOTFOUND THEN
DBMS_OUTPUT.PUT_LINE('HAVE DATA!');
END IF;
END PRC_SEARCH;
end PKG_SEARCH;
~~~~~BEGIN??
sSQL := 'SELECT * FROM MST_PRODUCT';
OPEN cCUR for sSQL;
IF cCUR%NOTFOUND THEN
DBMS_OUTPUT.PUT_LINE('HAVE DATA!');
END IF;
END PRC_SEARCH;
end PKG_SEARCH;
TYPE c_REFCUR IS REF CURSOR; PROCEDURE PRC_SEARCH;end PKG_SEARCH;create or replace package body PKG_SEARCH is
PROCEDURE PRC_SEARCH IS
sSQL VARCHAR2(200);
cCUR c_REFCUR;
BEGIN
sSQL := 'SELECT * FROM MST_PRODUCT';
OPEN cCUR for sSQL;
IF cCUR%NOTFOUND THEN
DBMS_OUTPUT.PUT_LINE('HAVE DATA!');
END IF;
END PRC_SEARCH;
end PKG_SEARCH;