Hola, así lo estoy haciendo:
Código SQL:
Ver originalDECLARE
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