Muchas gracias Alex, le hecho un ojo.

-----Mensaje original-----
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] nombre de alex martinez
Enviado el: viernes, 17 de febrero de 2006 9:31
Para: [email protected]
Asunto: Re: Consulta SQL Embebido


Hola:

Sí es posible, pero es necesario utilizar la sentencia DESCRIBE,
aunque el programa que obtendrás es más complejo.

Hay un excelente artículo publicado en el número 122 del suplemento de
la revista help/400 de Mike Cravitz. El código fuente del ejemplo se
puede descargar desde aqui:

http://www.help400.com/asp/scripts/nwart.asp?Num=122&Pag=901&Tip=U

Salu2

El 16/02/06, Arbués Sanz, Jesús<[EMAIL PROTECTED]> escribió:
>
>
> Hola a todos.
>
>         Estoy intentando hacer un SQLRPG en donde yo le meto por parámetro
> una consulta SQL (no siempre es la misma), posición desde registro y
> posición hasta registro, para que el programa me devuelva un resultSet.
>
>         He estado buscando documentación y no llego a ver si puedo llegar
> hacer lo que quiero. El FETCH me pide un descriptor y un área de
> almacenamiento de registro, que no tengo ni idea que es. Si fuera siempre el
> mismo resultado podría hacer una DS pero siempre es variable....
>
>         ¿Alguno me puede dar una pista o ayuda al respecto?
>
> c     *entry        plist
>
> c                   Parm                    SQLP           2000
> C                   Parm                    Desde             5 0
> C                   Parm                    Hasta             5 0
>
>
> C                   EVAL      dif=hasta-desde
>
>
> C/Exec Sql
> C+ DECLARE C1 SCROLL CURSOR FOR :SQLP
> C/End-Exec
>
> C/Exec Sql
> C+ OPEN C1
> C/End-Exec
>
> C/Exec Sql
> C+ FETCH RELATIVE :DESDE FROM C1 FOR :DIF ROWS USING DESCRIPTOR
> C+ :DESCRIPTOR INTO :AREA_ALMACENAMIENTO_REGISTRO
>
> C/End-Exec
>
> C/Exec Sql
> C+ SET RESULT SETS CURSOR C1
> C/End-Exec
>
>
> Un saludo,
>
> Jesús


--
Mi blog sobre as400
http://www.ajut400.com

__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400

__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400

Responder a