Ref CURSOR

[maurimono]

Hola, mi problema es es siguiente:

tengo un SQL inserto en un PRC que envía el resultado de una consulta por medio de una variable REF CURSOR. Dicho SP necesito recorrerlo pero no logro hacerlo.

Código SQL:

CREATE OR REPLACE PROCEDURE CHI_CON."P_FWDASIA_FAXCONFIR" 
                            ( p_Branch    IN NUMBER,
                              p_FechaIni  IN VARCHAR2,
                              p_NumeroOpe IN NUMERIC,
                              p_errcod   OUT NUMBER,
                              p_errmsg   OUT VARCHAR2,
                              C_Retorno  OUT Pkg_Seguridad.cursorgenerico
                             ) IS
/**************************************************************************/ 
BEGIN
 
    OPEN C_Retorno FOR          
        SELECT pk_structure            numero_mdr,
               pk_structure_murex      numero_murex,
               name_branch             branch,
               to_char(tradedate_1,'dd') dia_contrato,
               CHI_CON.f_buscar_mes (tradedate_1) mes_contrato,
               to_char(tradedate_1,'yyyy') agno_contrato,
               strucsubtype_desc       nombre_estructura,
               name_trader_1           operador,
               pk_structure            nro_mdr_estructura,
               CHI_CON.F_Formatnumber (quantity_1 ,2)||' USD'      cantidad_moneda_referencia,
               decode(struc_tipo_ope,'COMPRA',name_branch,name_entity) Comprador,
               decode(struc_tipo_ope,'VENTA',name_branch,name_entity) Vendedor,
               modalidad_1             modalidad_cumplimiento,
               enddate_1               fecha_vencimiento,
               settledate_1            fecha_pago,
               CHI_CON.F_Formatnumber (strike_1,6)   strike_1,
               CHI_CON.F_Formatnumber (strike_2,6)   strike_2,
               tipo_index_1            subyacente,
               fax_branch              fax_branch,
               fono_branch             fono_branch
        FROM V_STRUCTURE_FWDASIA
        WHERE  FK_BRANCH = decode(p_Branch, 0, FK_BRANCH, p_Branch) 
          AND trunc(tradedate_1) = decode(p_NumeroOpe, 0, to_Date(p_FechaIni,'dd/mm/yyyy'), trunc(tradedate_1))
          AND PK_STRUCTURE = decode(p_NumeroOpe, 0, PK_STRUCTURE, p_NumeroOpe); 
   P_ERRMSG := 'OK';
   P_ERRCOD := 0;
 Exception WHEN NO_DATA_FOUND THEN
   P_ERRCOD := SQLCODE;
   P_ERRMSG := SQLERRM;
 WHEN OTHERS THEN
   P_ERRCOD := SQLCODE;
   P_ERRMSG := SUBSTR(SQLERRM,200);
END P_FWDASIA_FAXCONFIR;
 

[/HTML]

[gnzsoloyo]

OK.... Pero alli no hay ninguna parte de código donde lo estés recorriendo. Sólo lo mandas como parámetro de salida, pero no sabemos a qué destino, el que puede ser otro SP, o bien por programación en algún lenguaje.

Si va a otro SP, debes poner ese codigo, y si lo recorres programáticamente, tendrás que consultar en el subforo del lenguaje que usarás.

[maurimono]

Hola, así lo estoy haciendo:

Código SQL:

DECLARE 
  P_BRANCH NUMBER;
  P_FECHAINI VARCHAR2(32767);
  P_NUMEROOPE NUMBER;
  P_ERRCOD NUMBER;
  P_ERRMSG VARCHAR2(32767);
  --C_Retorno  Pkg_Seguridad.cursorgenerico;
-------------------------Variables del cursor-----------------------
numero_mdr                  varchar2(100);--number;
numero_murex                varchar2(100);
branch                      varchar2(100);
dia_contrato                varchar2(100);
mes_contrato                VARCHAR2(100);
agno_contrato               VARCHAR2(100);
nombre_estructura           VARCHAR2(30);
operador                    VARCHAR2(50);
nro_mdr_estructura          varchar2(100);--number;
cantidad_moneda_referencia  VARCHAR2(50);
Comprador                   VARCHAR2(50);
Vendedor                    VARCHAR2(50);
modalidad_cumplimiento      varchar2(100);--number;
fecha_vencimiento           varchar2(100);--date;
fecha_pago                  varchar2(100);--date;
strike_1                     VARCHAR2(50);
strike_2                    VARCHAR2(50);
subyacente                  VARCHAR2(100);
fax_branch                  VARCHAR2(100);
fono_branch                 VARCHAR2(100);
 
 
BEGIN 
  P_BRANCH := 20010.4;
  P_FECHAINI := NULL;
  P_NUMEROOPE := 16058.24;
  P_ERRCOD := NULL;
  P_ERRMSG := NULL;
  C_RETORNO := NULL;  --Modify the code to initialize this parameter
 
  CHI_CON.P_FWDASIA_FAXCONFIR ( P_BRANCH, P_FECHAINI, P_NUMEROOPE, P_ERRCOD, P_ERRMSG, C_RETORNO );
  
  --OPEN <subst>;
  OPEN C_RETORNO;
  LOOP
     FETCH C_RETORNO INTO  numero_mdr,numero_murex,branch,dia_contrato,mes_contrato,agno_contrato,nombre_estructura,operador,nro_mdr_estructura,
                           cantidad_moneda_referencia,Comprador,Vendedor,modalidad_cumplimiento,
                           fecha_vencimiento,fecha_pago,strike_1,strike_2,subyacente,fax_branch,fono_branch;
     EXIT WHEN C_RETORNO%NOTFOUND;
    DBMS_OUTPUT.PUT_LINE('I got here:' || numero_mdr);    
  END LOOP;
  close C_RETORNO;
  COMMIT; 
END;
 

[/HTML]


Saludos y gracias por tu ayuda

[maurimono]

Al final el tema es que no hay que volver a ahecr un open cursor ya que el procedimiento lo deja abierto, el resto es tal cual, incluso el close cursor.