Procedure pr_obtener_cursor    (PN_CODIGO     In Number,
                                PC_CURSOR     Out Sys_Refcursor,
                                PV_ERROR      Out Varchar2) Is
    
     lv_programa      Varchar2(100) := 'pr_obtener_cursor';
                             
  Begin
    
    If PN_CODIGO Is Null Then
       Pv_error := 'El c�³digo no puede ser nulo';
       Return;
    End If;
    
    Open PC_CURSOR For
           Select *
            From TABLA T
           Where T.CODIGO= PN_CODIGO
             And T.ESTADO In ('A', 'I');

  Exception
    When no_data_found Then
         pv_error:='C�³digo no existe';
    When Others Then
         pv_error:= lv_programa ||'-'||Sqlerrm;
  End pr_obtener_cursor;

Procedure pr_obtener_cursor    (PN_CODIGO     In Number,
                                PC_CURSOR     Out Sys_Refcursor,
                                PV_ERROR      Out Varchar2) Is
    
     lv_programa      Varchar2(100) := 'pr_obtener_cursor';
                             
  Begin
    
    If PN_CODIGO Is Null Then
       Pv_error := 'El código no puede ser nulo';
       Return;
    End If;
    
    Open PC_CURSOR For
           Select *
            From TABLA T
           Where T.CODIGO= PN_CODIGO
             And T.ESTADO In ('A', 'I');

  Exception
    When no_data_found Then
         pv_error:='Código no existe';
    When Others Then
         pv_error:= lv_programa ||'-'||Sqlerrm;
  End pr_obtener_cursor;

Procedure pr_obtener_cursor    (PN_CODIGO     In Number,
                                PC_CURSOR     Out Sys_Refcursor,
                                PV_ERROR      Out Varchar2) Is
    
     lv_programa      Varchar2(100) := 'pr_obtener_cursor';
                             
  Begin
    
    If PN_CODIGO Is Null Then
       Pv_error := 'El código no puede ser nulo';
       Return;
    End If;
    
    Open PC_CURSOR For
           Select *
            From TABLA T
           Where T.CODIGO= PN_CODIGO
             And T.ESTADO In ('A', 'I');

  Exception
    When no_data_found Then
         pv_error:='Código no existe';
    When Others Then
         pv_error:= lv_programa ||'-'||Sqlerrm;
  End pr_obtener_cursor;

Procedimiento para retornar un Cursor y recorrerlo en Java

Retornar Cursor Oracle para Java

java

PL/SQL