sql>create table ADIFETTI ( 
  2  CODDIFETTO char (6) not null, 
  3  DESCDIFETTO char (25) ) ;
 
Table created.
 
sql>insert into adifetti values ('Test', 'Description');
 
1 row created.
 
sql>insert into adifetti values ('Test 2', 'Another one');
 
1 row created.
 
sql>commit;
 
Commit complete.
 
sql>create or replace package MARC_PKG_CURSDEF
  2  as
  3    type MARCELLOCURS is ref cursor return ADIFETTI%rowtype;
  4  end MARC_PKG_CURSDEF;
  5  /
 
Package created.
 
sql>create or replace function MARCELLOLIPPI
  2    (numero in number)
  3    return MARC_PKG_CURSDEF.MARCELLOCURS
  4  as
  5    LIPPI MARC_PKG_CURSDEF.MARCELLOCURS;
  6  begin
  7    open LIPPI for 
  8      select CODDIFETTO as CODICE, DESCDIFETTO as DESCRIZIONE
  9        from ADIFETTI;
 10  
 11    return lippi;
 12  end;
 13  /
 
Function created.
 
sql>var rc refcursor
sql>exec :rc := MARCELLOLIPPI(1)
  
PL/SQL procedure successfully completed.
 
sql>print rc
 
CODICE DESCRIZIONE
------ -------------------------
Test   Description
Test 2 Another one
 
2 rows selected.

begin
  :rc := MARCELLOLIPPI(1);
end;