IIUG Español

RE: Digest 2764

Posted By: Gustavo Tobares
Date: Saturday, 8 August 2009, at 7:02 p.m.

Hola, desde un 4GL para procesar varias filas, es necesario utilizar una instrucción FOREACH.

Quedaría algo asi:

DATABASE temporal
MAIN
DEFINE variable char(12)

Declare c_a cursor for
SELECT multiples()FROM sysmaster:systables
WHERE tabid = 1

Foreach c_a into variable do

DISPLAY variable;

End foreach

END MAIN

No lo he probado, pero creo que esto debería funcionar, saludos!

-----Mensaje original-----
De: iiug-esp@iiug.org [mailto:iiug-esp@iiug.org]
Enviado el: Sábado, 08 de Agosto de 2009 05:00 p.m.
Para: forum.subscriber@iiug.org
Asunto: [IIUG Espanol:] Digest 2764

The following new message has been posted on IIUG Espanol at
<http://www.iiug.org/forums/iiug-esp/index.cgi>.

*******************************************************************************

#2764: Retorno Multiple de SPL llamado de 4gl (AWE BOLDO)

*******************************************************************************

MESSAGE: (#2764) Retorno Multiple de SPL llamado de 4gl

<http://www.iiug.org/forums/iiug-esp/index.cgi?rev=2764>
AUTHOR: AWE BOLDO
DATE: Friday, 7 August 2009, at 5:01 p.m.

Hola a todos,

He leido varios manuales, y en verdad no he podido encontrar solucion a lo
siguiente:

Tengo un SPL de la forma:
CREATE PROCEDURE multiples()
RETURNING char(150);

DEFINE variable char(12);

FOREACH SELECT tabname INTO variable FROM sysmaster:systables

RETURN variable WITH RESUME;
END FOREACH;
END PROCEDURE;

que como se observa, retorna multiples filas.

El tema es que quiero ejecutarlo desde un 4gl (cuando retorna 1 fila, no hay
drama) pero no se como hacerlo en verdad.

Si pudieran ayudarme, se los agradeceria:

DATABASE temporal
MAIN
DEFINE variable char(12)

SELECT multiples() INTO variable
FROM sysmaster:systables
WHERE tabid = 1

DISPLAY variable;

END MAIN

Sl2 a To2

*******************************************************************************

This is an automatically-generated notice. If you'd like to be removed from
the mailing list, please unsubscribe in the IIUG Member Area at
http://www.iiug.org or email forummaster@iiug.org .

Este mail es privado, confidencial y esta dirigido solo a su destinatario. Si lo recibe por error, avise al remitente, y destruya el mail original. La distribucion o copia de este mail esta prohibida.

Messages In This Thread

• RE: Digest 2764
  Gustavo Tobares -- Saturday, 8 August 2009, at 7:02 p.m.
  • Re: RE: Digest 2764
    CRISTIAN PEREDO -- Monday, 10 August 2009, at 9:25 a.m.
    • Re: RE: Digest 2764
      JOSé LUIS CABRERA SACCO -- Monday, 10 August 2009, at 3:34 p.m.

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