IIUG Español

Re: Definicion de Cursor

Posted By:
Date:

Que error te está sacando?

Chucho!


Mesa Ayuda wrote:
> Hola,
>
> Quiero definir un cursor y dentro del mismo modificar ciertas campos pero me
> tira el siguiente error...
>
> que puede estar mal....
>
> Estoy usando SPL puro, con IDS 9.30.
>
> Muchas Gracias
>
>
> ----------------------------------------------------------------------------
> ------------------------
> Create procedure prueba ()
> returning int;
> DEFINE p_Tmp_Calle VarChar (50);
> DEFINE p_Rec_Calle_Int Int;
> DEFINE p_C1Cal_NombreCalle VARCHAR (35);
> DEFINE p_C2Cal_NombreCalle VARCHAR (35);
> DEFINE p_Rec_Altura Int;
>
> FOREACH Cursor1 FOR
> Select tmpConsulta.Tmp_Calle, Rec_Calle_Int, C1.Cal_NombreCalle,
> C2.Cal_NombreCalle, Rec_Altura
> into p_Tmp_Calle, p_Rec_Calle_Int, p_C1Cal_NombreCalle,
> p_C2Cal_NombreCalle, p_Rec_Altura
> From tmpConsulta, Sar_Reclamos, Sar_Callejero C1, Sar_Callejero C2
> Where Rec_Numero = Tmp_NroRec
> And C1.Cal_CodCalle = Rec_Calle
> And C2.Cal_CodCalle = Rec_Calle_Int
>
> If p_Rec_Calle_Int > 1 then
> Update tmpConsulta set Tmp_Calle = C1.Cal_NombreCalle || 'Y' ||
> C2.Cal_NombreCalle WHERE CURRENT OF Cursor1;
> else
> Update tmpConsulta set Tmp_Calle = Trim(C1.Cal_NombreCalle) || ' '
> || Rec_Altura WHERE CURRENT OF Cursor1;
> end if
> End foreach
> return 0;
> end procedure;
>
>
>
>


--


Atte,


Jesús Antonio Santos Giraldo
jeansagi@spils.com
jeansagi@netscape.net

Messages In This Thread

• Definicion de Cursor
  Mesa Ayuda -- Tuesday, 11 March 2003, at 11:13 a.m.
  • Re: Definicion de Cursor
    Jean Sagi -- Tuesday, 18 March 2003, at 12:12 a.m.
  • RE: RE: Mmmmm.... qué poco movimiento
    Walter Milan -- Thursday, 2 October 2008, at 4:59 p.m.
  • RE: RE: Mmmmm.... qué poco movimiento
    Walter Milan -- Thursday, 2 October 2008, at 10:15 p.m.
    • RE: RE: Mmmmm.... qu? poco movimiento
      sbarea -- Tuesday, 7 October 2008, at 11:51 a.m.
      • RE: RE: Mmmmm.... qu? poco movimiento
        Walter Milan -- Tuesday, 7 October 2008, at 12:32 p.m.

IIUG Español is maintained by Administrator with WebBBS 5.12.