Populate a REF CURSOR from regular cursor...

Question

Hi all,
I apologize if the answer to this is somewhere...I've been looking on the web for sometime and can't find an answer to the following problem. I have a Significant Events database that contains network based issues and problems. As problems are detected on the network an SE is issued and published. As the SE records are updated, NEW records are entered into the table and "linked" back to the original. Each update results in a new row. Thus, an SE with two updates would have a total of 3 lines. When the SE gets closed (set the column CLOSED to SYSDATE), only the "original" SE is closed, any updates are left open...aka, the CLOSED column is left null.
That said, I need a way to get the original and/or latest updated SE rows from the table. Thus, I am trying to use a PL/SQL package. The PL/SQL "must" return a REF CURSOR as the results are being passed to a client process.
My initial approach was within a PL/SQL procedure, I have an SQL statement that returns the SE originals. Once in that cursor I need to do the following:
- Attempt to fetch any linked SE rows.
- if no rows then
- add the original to the REF CURSOR.
- else
- find latest SE update
- add latest SE update to REF CURSOR.
- end if
My Question is : How do I manually "add" a row to a REF CURSOR?
If this is not possible, is there a way to populate a REF CURSOR from maybe another construct like:
TYPE ian_se_record is RECORD (
se_id number
,linked_se_id number
,submitted date
,updated date
,closed date
,segroup varchar2(150)
,incident_start_time varchar2(150)
,business_units_affected varchar2(150)
,officenum varchar2(1500)
,sedetails varchar2(4000)
TYPE ian_se_table is table of ian_se_record index by binary_integer;
With the above construct I could:
- Fill ian_se_table with the process described above.
- And finally select off ian_se_table into the REF CURSOR?
Any help would be greatly appreciated,
adym

Answer 1

Hi michaels,
I've put your solution in place, but can't seem to get it to run. The two types were moved out of the package and into real types as you said. Here's the function, for brevity, I've remove some of the less important code:
function ian_se_fetch return sys_refcursor
is
    p_csr_events            sys_refcursor;
    cursor csr_items is
        select
             se_id
    ...removed for brevity...
    /* END : csr_items  */
    ian_se_row     ian_se_record;
    ian_se_tbl     ian_se_table;
    l_lng_index    number;
    l_lng_linked   number;
    l_lng_id       number;
begin
     * OPEN : Open the main cursor of originals...
    for the_item in csr_items loop
         * CHECK : Check for any updates to the original...
        l_lng_linked := 0;
        select count(*)
        into l_lng_linked
        from sig_se_t src
        where src.linked_se_id = the_item.se_id;
        l_lng_id := 0;    /* reset the se-id    */
        /* SE original...no linked records yet.    */
        if ( l_lng_linked = 0 ) then
            l_lng_id := the_item.se_id;
        /* SE updates...one or more updates are present.    */
        else
            begin
                select
                     se_id
                into l_lng_id
                from sig_se_t src
                where src.linked_se_id = the_item.se_id
                  and rownum = 1
                order by updated desc; /* latest update    */
            exception
                when too_many_rows then
                    l_lng_id := the_item.se_id;
                when others then
                    l_lng_id := 0;
            end;
        end if;
        if ( l_lng_id != 0 ) then
            select
                 se_id
                ,linked_se_id
                ,submitted
                ,updated
                ,closed
                ,segroup
                ,incident_start_time
                ,business_units_affected
                ,officenum || decode( nvl(impact,'1')
                                  ,'1',''
                                  ,decode(impact
                                      ,'NA', ''
                                      ,':' || impact
                              )                           impact
                ,sedetails
            into ian_se_row.se_id
                ,ian_se_row.linked_se_id
                ,ian_se_row.submitted
                ,ian_se_row.updated
                ,ian_se_row.closed
                ,ian_se_row.segroup
                ,ian_se_row.incident_start_time
                ,ian_se_row.business_units_affected
                ,ian_se_row.officenum
                ,ian_se_row.sedetails
            from sig_se_t src
            where src.se_id = l_lng_id;
            l_lng_index := nvl(ian_se_tbl.last,0)+1;
            ian_se_tbl(l_lng_index).se_id                   := ian_se_row.se_id;
            ian_se_tbl(l_lng_index).linked_se_id            := ian_se_row.linked_se_id;
            ian_se_tbl(l_lng_index).submitted               := ian_se_row.submitted;
            ian_se_tbl(l_lng_index).updated                 := ian_se_row.updated;
            ian_se_tbl(l_lng_index).closed                  := ian_se_row.closed;
            ian_se_tbl(l_lng_index).segroup                 := ian_se_row.segroup;
            ian_se_tbl(l_lng_index).incident_start_time     := ian_se_row.incident_start_time;
            ian_se_tbl(l_lng_index).business_units_affected := ian_se_row.business_units_affected;
            ian_se_tbl(l_lng_index).officenum               := ian_se_row.officenum;
            ian_se_tbl(l_lng_index).sedetails               := ian_se_row.sedetails;
        end if;
    end loop;
     * REF CURSOR : Open the ref cursor on the dataset...
    if ( nvl(ian_se_tbl.last,0) = 0 ) then
        p_csr_events := null;
    else
        open p_csr_events for
        select *
        from table (cast ( ian_se_tbl as ian_se_table ));
    end if;
    return p_csr_events;
end;Here's the test. I keep getting the same error ORA-06530:
SQL> variable v refcursor;
SQL> exec :v:=pkg_ian.ian_se_fetch;
BEGIN :v:=pkg_ian.ian_se_fetch; END;
ERROR at line 1:
ORA-06530: Reference to uninitialized composite
ORA-06512: at "N0002501.PKG_IAN", line 131
ORA-06512: at line 1
SQL> print v
ERROR:
ORA-24338: statement handle not executedOther things I tried:
- The ian_se_fetch() function was a procedure using an in out parameter...same error.
- Wrote a small anonymous block and tried to LOOP/FETCH. Same ORA-06530 error.
P.S. Line 131 of pkg_ian is the SELECT ... INTO ian_se_row.se_id, ...
Any help would be greatly appreciated,
tia,
adym
Message was edited by:
alink