How to Execute the procedure?

Question

Hi,
How to execute a below procedure with refcursor output parameter,
in that procedure refcursor declare in package
create or replace PROCEDURE prc_sam(
P_LIST OUT pkg_sam.REF_CURSOR_TYPE) IS
BEGIN
OPEN P_LIST FOR
SELECT 1+1 FROM dual;
EXCEPTION
WHEN OTHERS THEN
RAISE_APPLICATION_ERROR(-20001,SQLERRM);
END prc_sam;
Regards,
Fame

Answer 1

SQL> create or replace PROCEDURE prc_sam(
2 P_LIST OUT SYS_REFCURSOR) IS
3 BEGIN
4
5 OPEN P_LIST FOR
6 SELECT 1+1 FROM dual;
7 EXCEPTION
8 WHEN OTHERS THEN
9 RAISE_APPLICATION_ERROR(-20001,SQLERRM);
10 END prc_sam;
11 /
Procedure created.
SQL> VARIABLE P_CURSOR REFCURSOR;
SQL> EXEC prc_sam(:P_CURSOR);
PL/SQL procedure successfully completed.
SQL> PRINT P_CURSOR;
1+1
2
Intead of SYS_REFCURSOR, you can use ur pkg_sam.REF_CURSOR_TYPE inside a package
AND
execute a procedure like EXEC pkg_sam.prc_sam(:P_CURSOR);
like this, then you will get the result............................
Thanks,
Ann