Returning result set from procedure out parameter, display with anon block

Question

I'm trying to do something pretty simple (I think it should be simple at least). I want to use a pl/sql procedure to return a result set in an OUT parameter. If I run this code by itself (in the given anonymous block at the end, without trying to display any results), toad says that the PL/SQL procedure successfully completed.
How can I display the results from this procedure? I am assuming that the result set should be stored in the O_RETURN_REDEEM_DTL, but how can I get anything out of it?
I have this package with the following procedure:
/* FUNCTION - REDEEM_DTL_READ                          */
     PROCEDURE REDEEM_DTL_READ(
          ZL_DIVN_NBR_IN     IN     REDEEM_DTL.ZL_DIVN_NBR%TYPE,
          GREG_DATE_IN     IN     REDEEM_DTL.GREG_DATE%TYPE,
          ZL_STORE_NBR_IN     IN     REDEEM_DTL.ZL_STORE_NBR%TYPE,
          REGISTER_NBR_IN     IN     REDEEM_DTL.REGISTER_NBR%TYPE,
          TRANS_NBR_IN     IN     REDEEM_DTL.TRANS_NBR%TYPE,
          O_RETURN_REDEEM_DTL OUT REDEEM_DTL_TYPE,
          o_rtrn_cd       OUT NUMBER,
          o_err_cd        OUT NUMBER,
          o_err_msg       OUT VARCHAR2
     IS
     BEGIN
          o_rtrn_cd := 0;
          o_err_msg := ' ';
          o_err_cd := 0;
          --OPEN REDEEM_DTL_READ_CUR(ZL_DIVN_NBR_IN, GREG_DATE_IN, ZL_STORE_NBR_IN, REGISTER_NBR_IN, TRANS_NBR_IN);
          OPEN O_RETURN_REDEEM_DTL FOR SELECT * FROM REDEEM_DTL;
--           LOOP
--                FETCH REDEEM_DTL_READ_CUR INTO O_RETURN_REDEEM_DTL;
--                EXIT WHEN REDEEM_DTL_READ_CUR%NOTFOUND;
--           END LOOP;
--           CLOSE REDEEM_DTL_READ_CUR;
     EXCEPTION
      WHEN OTHERS
      THEN
           o_rtrn_cd := 7;
             o_err_msg := SUBSTR (SQLERRM, 1, 100);
             o_err_cd  := SQLCODE;
     END REDEEM_DTL_READ;and call it in an anonymous block with:
DECLARE
  ZL_DIVN_NBR_IN NUMBER;
  GREG_DATE_IN DATE;
  ZL_STORE_NBR_IN NUMBER;
  REGISTER_NBR_IN NUMBER;
  TRANS_NBR_IN NUMBER;
  O_RETURN_REDEEM_DTL PSAPP.CY_SALESPOSTING.REDEEM_DTL_TYPE;
  O_RETURN_REDEEM_DTL_OUT PSAPP.CY_SALESPOSTING.REDEEM_DTL_READ_CUR%rowtype;
  O_RTRN_CD NUMBER;
  O_ERR_CD NUMBER;
  O_ERR_MSG VARCHAR2(200);
BEGIN
  ZL_DIVN_NBR_IN := 71;
  GREG_DATE_IN := TO_DATE('07/21/2008', 'MM/DD/YYYY');
  ZL_STORE_NBR_IN := 39;
  REGISTER_NBR_IN := 1;
  TRANS_NBR_IN := 129;
  -- O_RETURN_REDEEM_DTL := NULL;  Modify the code to initialize this parameter
  O_RTRN_CD := NULL;
  O_ERR_CD := NULL;
  O_ERR_MSG := NULL;
  PSAPP.CY_SALESPOSTING.REDEEM_DTL_READ ( ZL_DIVN_NBR_IN, GREG_DATE_IN, ZL_STORE_NBR_IN,
REGISTER_NBR_IN, TRANS_NBR_IN, O_RETURN_REDEEM_DTL, O_RTRN_CD, O_ERR_CD, O_ERR_MSG );
  FOR item IN O_RETURN_REDEEM_DTL
  LOOP
    DBMS_OUTPUT.PUT_LINE('ZL_DIVN_NBR = ' || item.ZL_DIVN_NBR);
  END LOOP;
END; And end up with an error:
ORA-06550: line 25, column 15:
PLS-00221: 'O_RETURN_REDEEM_DTL' is not a procedure or is undefined
ORA-06550: line 25, column 3:
PL/SQL: Statement ignoredMessage was edited by:
user607908

Answer 1

Aha, I knew I forgot something!
I actually had it defined as a REF CURSOR in PSAPP.CY_SALESPOSTING package spec:
TYPE REDEEM_DTL_TYPE IS REF CURSOR;since I wasn't sure what to make it.
Cursor used in procedure:
CURSOR REDEEM_DTL_READ_CUR (
  zl_divn_nbr_in IN NUMBER,
  greg_date_in IN DATE,
  zl_store_nbr_in IN NUMBER,
  register_nbr_in IN NUMBER,
  trans_nbr_in IN NUMBER)
IS
SELECT ZL_DIVN_NBR, GREG_DATE, ZL_STORE_NBR, REGISTER_NBR, TRANS_NBR, PAYMENT_TYP_NBR
FROM REDEEM_DTL
WHERE ZL_DIVN_NBR = zl_divn_nbr_in AND GREG_DATE = greg_date_in AND
   ZL_STORE_NBR = zl_store_nbr_in AND REGISTER_NBR = register_nbr_in AND
   TRANS_NBR = trans_nbr_in;Updated code:
/* PROCEDURE - REDEEM_DTL_READ                          */
     PROCEDURE REDEEM_DTL_READ(
          ZL_DIVN_NBR_IN     IN     REDEEM_DTL.ZL_DIVN_NBR%TYPE,
          GREG_DATE_IN     IN     REDEEM_DTL.GREG_DATE%TYPE,
          ZL_STORE_NBR_IN     IN     REDEEM_DTL.ZL_STORE_NBR%TYPE,
          REGISTER_NBR_IN     IN     REDEEM_DTL.REGISTER_NBR%TYPE,
          TRANS_NBR_IN     IN     REDEEM_DTL.TRANS_NBR%TYPE,
          O_RETURN_REDEEM_DTL OUT REDEEM_DTL_TYPE,
          o_rtrn_cd       OUT NUMBER,
          o_err_cd        OUT NUMBER,
          o_err_msg       OUT VARCHAR2
     IS
     BEGIN
          o_rtrn_cd := 0;
          o_err_msg := ' ';
          o_err_cd := 0;
          OPEN REDEEM_DTL_READ_CUR(ZL_DIVN_NBR_IN, GREG_DATE_IN, ZL_STORE_NBR_IN,
               REGISTER_NBR_IN, TRANS_NBR_IN);
          --OPEN O_RETURN_REDEEM_DTL FOR SELECT * FROM REDEEM_DTL;
          LOOP
              FETCH REDEEM_DTL_READ_CUR INTO O_RETURN_REDEEM_DTL;
               EXIT WHEN REDEEM_DTL_READ_CUR%NOTFOUND;
               DBMS_OUTPUT.PUT_LINE('ZL_DIVN_NBR = ' || O_RETURN_REDEEM_DTL.ZL_DIVN_NBR);
            END LOOP;
           CLOSE REDEEM_DTL_READ_CUR;
--           LOOP
--                FETCH REDEEM_DTL_READ_CUR INTO O_RETURN_REDEEM_DTL;
--                EXIT WHEN REDEEM_DTL_READ_CUR%NOTFOUND;
--           END LOOP;
--           CLOSE REDEEM_DTL_READ_CUR;
     EXCEPTION
      WHEN OTHERS
      THEN
           o_rtrn_cd := 7;
             o_err_msg := SUBSTR (SQLERRM, 1, 100);
             o_err_cd  := SQLCODE;
     END REDEEM_DTL_READ;the updated anon block:
DECLARE
  ZL_DIVN_NBR_IN NUMBER;
  GREG_DATE_IN DATE;
  ZL_STORE_NBR_IN NUMBER;
  REGISTER_NBR_IN NUMBER;
  TRANS_NBR_IN NUMBER;
  O_RETURN_REDEEM_DTL PSAPP.CY_SALESPOSTING.REDEEM_DTL_TYPE;
  O_RTRN_CD NUMBER;
  O_ERR_CD NUMBER;
  O_ERR_MSG VARCHAR2(200);
BEGIN
  ZL_DIVN_NBR_IN := 71;
  GREG_DATE_IN := TO_DATE('07/21/2008', 'MM/DD/YYYY');
  ZL_STORE_NBR_IN := 39;
  REGISTER_NBR_IN := 1;
  TRANS_NBR_IN := 129;
  -- O_RETURN_REDEEM_DTL := NULL;  Modify the code to initialize this parameter
  O_RTRN_CD := NULL;
  O_ERR_CD := NULL;
  O_ERR_MSG := NULL;
  PSAPP.CY_SALESPOSTING.REDEEM_DTL_READ ( ZL_DIVN_NBR_IN, GREG_DATE_IN, ZL_STORE_NBR_IN,
     REGISTER_NBR_IN, TRANS_NBR_IN, O_RETURN_REDEEM_DTL, O_RTRN_CD, O_ERR_CD, O_ERR_MSG );
  FOR item IN 1..O_RETURN_REDEEM_DTL.COUNT
  LOOP
    DBMS_OUTPUT.PUT_LINE('ZL_DIVN_NBR = ' || O_RETURN_REDEEM_DTL(item).ZL_DIVN_NBR);
  END LOOP;
END;and the new error:
ORA-06550: line 25, column 38:
PLS-00487: Invalid reference to variable 'O_RETURN_REDEEM_DTL'
ORA-06550: line 25, column 3:
PL/SQL: Statement ignoredAlso, it would be nice if the forums would put a box around code so that it would be easy to
distinguish between what is supposed to be code and what should be regular text...
Message was edited by:
user607908