Executing procedure with IN OUT parameters using SQL developer

Question

Hi, I'm trying to exceute the below procedure in SQL developer. Here the IN OUT cursor 'journal_cursor' is already defined.
PROCEDURE LIST_FORPROJECT (
          p_project_sid IN NUMBER,
          p_journal_cursor IN OUT journal_cursor,
     AS
     BEGIN
          OPEN p_journal_cursor FOR
          -- get the journal
               SELECT j.JOURNAL_KEY AS "Journal_SID",
                         j.JOURNALTEXT AS "Entry",
                         j.CREATEDATE AS "CreateDate",
                         --j.COMMENT_ AS "Comment",
                         j.PROJECTPHASETASK_KEY AS "ProjectPhaseTaskSet_SID",
                         j.person_key AS "Person_SID"
FROM vdl_JOURNAL j
               INNER JOIN vdl_PROJECTJOURNAL pj ON pj.JOURNAL_KEY = j.JOURNAL_KEY
               WHERE pj.PROJECT_KEY = p_project_sid
               ORDER BY j.CREATEDATE ASC, j.JOURNAL_KEY ASC;
END LIST_FORPROJECT;
When trying to run the above procedure through SQL developer, I get the below code generated.
DECLARE
P_PROJECT_SID NUMBER;
P_JOURNAL_CURSOR journal_cursor;
BEGIN
P_PROJECT_SID := 5974;
-- Modify the code to initialize the variable
-- P_JOURNAL_CURSOR := NULL;
-- Modify the code to initialize the variable
LIST_FORPROJECT(
P_PROJECT_SID => P_PROJECT_SID,
P_JOURNAL_CURSOR => P_JOURNAL_CURSOR,
-- Modify the code to output the variable
DBMS_OUTPUT.PUT_LINE('P_JOURNAL_CURSOR' || P_JOURNAL_CURSOR);
END;
But executing the above sql doesn't print the cursor as output but errors out saying 'wrong number or type or arguments in call to ||'. Can somebody please help me in finding a way test and view the results of such a procedure through SQL developer?
Any help is highly appreciated.
Regards,
Ranganath

Answer 1

Hi,
I was able to solve the problem.. My cursor was declared like this.
TYPE journal_def IS RECORD
          journal_sid                    NUMBER(10),
          journaltext                    CLOB,
          createdate                    DATE,
          projectphasetaskset_sid     NUMBER(10),
          person_sid                    NUMBER(10)
TYPE journal_cursor                    IS REF CURSOR RETURN journal_def;
I used the journal_def type to fetch the records.
Here is how my final sql looked like.
DECLARE
P_PROJECT_SID NUMBER;
P_JOURNAL_CURSOR journal_cursor;
P_J_CURSOR journal_def;
BEGIN
P_PROJECT_SID := 11171;
-- Modify the code to initialize the variable
-- P_JOURNAL_CURSOR := NULL;
LIST_FORPROJECT(
P_PROJECT_SID => P_PROJECT_SID,
P_JOURNAL_CURSOR => P_JOURNAL_CURSOR,
-- Modify the code to output the variable
BEGIN
--open P_JOURNAL_CURSOR;
loop
fetch P_JOURNAL_CURSOR into P_J_CURSOR;
exit when P_JOURNAL_CURSOR%NOTFOUND;
DBMS_OUTPUT.put_line(P_J_CURSOR.journal_sid);
end loop;
--close P_JOURNAL_CURSOR;
END;
END;
This gave me results. Thanks a ton ALL for your help..... :)..
Regards,
Ranganath