Juan Carlos, gracias por tu respuesta, pero aqui va problema completo.Estoy en
V5R4, además estoy trabajando con IWS, o sea Web Service desde el 400Tengo un
servicio que genera la informacion de un archivo, que como ejemplo tiene la
siguiente información.ITSXML000 ITSXML001
ITSXML002Tipo de proceso... Proceso........... Archivo Orig/Dest.
GH HORIZ01 ITSGNI0F GH
HORIZ01CO ITSGNI0F GH HORIZ02
ITSGNI1F GH INDUCCION ITSSG1F
GV TARCRED ARCHIVO1 GV
TARCRED ARCHIVO2 GV VERTICAL
ITSGNI0F IH HORIZ0L ITSGNI0F
IH HORIZ01 ITSGNI0F IH
HORIZ01L ITSGNI0F IH HORIZ02
ITSGNI1F IH IINDUCCION ITSSG1FI
IV TARCRED ARCHIVO2 Para generar la informacion tengo
la siguiente sentencia embebida.Las variables LITSXML000 y LITSXML001, estarian
viajando continuamente para saber cual fue el último registro enviado,con esto
pretendo leer el siguiente bloque. X = *Zeros;
Clear CITSXML000; Clear
CITSXML001; Clear CITSXML002;
exec Sql Declare C1
Cursor For Select ITSXML000, ITSXML001,
ITSXML002 From ITSXML0V00 Where
ITSXML000 > :LITSXML000 and ITSXML001 > :LITSXML001
Order By ITSXML000, ITSXML001; Exec Sql Open C1;
If SqlStt = '00000' ;
Dow SqlStt = '00000' and X < 3; X +=1;
exec sql
Fetch C1 into :XITSXML000, :XITSXML001,
:XITSXML002; If
SqlStt = '00000' ; CITSXML000(X) = XITSXML000;
CITSXML001(X) = XITSXML001;
CITSXML002(X) = XITSXML002; Else; IndFin =
*On; EndIf; EndDo;
LITSXML000 = XITSXML000; LITSXML001 = XITSXML001;
Else; EndIf ;
Exec Sql Close C1; Lo de color rojo es nuevo, (ESPERO LLEGUE EL ROJO)hasta
ahora se envia toda la informacion, pero ahora, por el nùmero de registros se
debe paginar.Para ver el problema, tomemos la infomacion inicial y hagamos
cursores de 3 registros.Tipo de proceso... Proceso........... Archivo
Orig/Dest. GH HORIZ01 ITSGNI0F GH
HORIZ01CO ITSGNI0F GH HORIZ02
ITSGNI1F GH INDUCCION ITSSG1F
GV TARCRED ARCHIVO1 GV
TARCRED ARCHIVO2 GV VERTICAL
ITSGNI0F IH HORIZ0L ITSGNI0F
IH HORIZ01 ITSGNI0F IH
HORIZ01L ITSGNI0F IH HORIZ02
ITSGNI1F IH IINDUCCION ITSSG1FI
IV TARCRED ARCHIVO2 pero al aplica el concepto en el
WHERE con la variables del ultimo registro enviado en la anterior peticion, no
funciona, solo ocurre en la primerasolicitud, cuando las variables vienen en
blanco.Espero me colaboren para resolver este problema.
----- Original Message -----
From: "Juan Carlos Paredes" <[email protected]>
To: "forum.help400" <[email protected]>
Sent: Tuesday, November 10, 2009 2:17 AM
Subject: RE: Seleccionar n registros en un Select
Utilizando la cláusula fetch:
Select * from biblioteca/tabla fetch first 10 rows only
Saludos.
Juan Carlos
-----Mensaje original-----
De: Jaime Villa Torres [mailto:[email protected]]
Enviado el: martes, 10 de noviembre de 2009 2:12
Para: forum.help400
Asunto: Seleccionar n registros en un Select
Señores, como se puede definir un select (lo tengo embebido), que tome un
número de registros dado, por ejemplo 10
Se certificó que el correo entrante no contiene virus.
Comprobada por AVG - www.avg.es
Versión: 9.0.698 / Base de datos de virus: 270.14.57/2492 - Fecha de la
versión: 11/09/09 13:11:00
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
__________ Información de ESET Smart Security, versión de la base de firmas de
virus %s __________
ESET Smart Security ha comprobado este mensaje.
http://www.eset.com
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
