Spec:
CREATE OR REPLACE PACKAGE PKG_VERIFY AS
PROCEDURE prc_Verify (i_id IN tablename.id%TYPE,
o_cursor OUT sys_refcursor,
o_ErrorCode OUT VARCHAR2);
END PKG_VERIFY;
Body:
create or replace
PACKAGE BODY PKG_VERIFY IS
PROCEDURE prc_Verify
(i_id IN tablename.id%TYPE,
o_cursor OUT sys_refcursor,
o_ErrorCode OUT VARCHAR2)
IS
BEGIN
o_Errorcode := SQL_OK;
OPEN o_cursor FOR
SELECT Acc,Bcc
FROM tablename
WHERE id = i_id;
EXCEPTION
WHEN NO_DATA_FOUND THEN
o_Errorcode := 'No Record Found';
END;
END PKG_VERIFY;
Hope this helps!