Gerardo ,
prueba a hacer lo siguiente,
H J
FFICHERO0IF E DISK
I*
C*
C Z-ADD1 RRN 90
C RRN CHAINFICHERO 99
C*
C *IN99 IFEQ *OFF
C* HABRAS RECUPERADO EL PRIMERO
C*
C MOVE *ALL'9' RRN
C RRN CHAINFICHERO 99
C READPFICHERO 99
C*
C* DEBERIAS HABER RECUPERADO EL ULTIMO. ESTO LO PRUEBAS
C*
No he encontrado en la estructura de datos el numero de registros del fichero.
Quizas estoy equivocado. De todas formas te propongo que accedas al
fichero con un numero de registro alto, que sepas que no lo vas a tener y hagas
un READP.
Si esto ultimo no te funciona existe la posibilidad de recuperar el numero de
registros del fichero por CL y pasarlo como parametro
Un saludo,
Jesus M� arzak capilla
Talleres de Escoriaza,S.A.
Dpto Proceso de datos
www.tesa.es
"gerardo.santillana" <[EMAIL PROTECTED]> con fecha 20/02/2003
17:21:21
Por favor, responda a [EMAIL PROTECTED]
Destinatarios: [EMAIL PROTECTED]
CC: (cci: Jesus Arzak/TESANET)
Asunto: RE: Incio y fin de archivo
Esto es precisamente lo que quiero, y de lo ultimo si me interesa, cuando lo
tengas a la mano te agradeceria si me dices como hacerlo
Gracias a todos por su ayuda
Gerardo Santillana
IT Department
Delphi Mechatronic Systems
US Ph: (956) 554.5832
MX Ph: (88) 12.81.63/64/65 Ext. 5832
e-mail [EMAIL PROTECTED]
-----Original Message-----
From: Jesus Arzak [mailto:[EMAIL PROTECTED]]
Sent: Thursday, February 20, 2003 9:10 AM
To: [EMAIL PROTECTED]
Subject: Re: Incio y fin de archivo
Cuando te refieres a primero y ultimo entiendo, por el comentario que haces de
*LOVAL y *HIVAL, que los tendras ordenado desde el QRY.
Si no es asi lo primero que debes hacer es ordenarlo en el QRY. Una vez ordenado
lo que tienes que hacer es acceder por registro relativo.
Para el primero haces un chain con numero de registro relativo 1 y para el
ultimo lo haces con el numero total de registros. Este ultimo lo debes de
recoger de la estructura de informacion de registro pero en estos momentos no lo
tengo a mano. Si lo necesitas lo busco y te digo como hacerlo.
Un saludo,
Jesus M� Arzak Capilla
Talleres de Escoriaza,S.A.
Dpto Proceso de Datos
www.tesa.es
"gerardo.santillana" <[EMAIL PROTECTED]> con fecha 20/02/2003
16:33:01
Por favor, responda a [EMAIL PROTECTED]
Destinatarios: [EMAIL PROTECTED]
CC: (cci: Jesus Arzak/TESANET)
Asunto: Incio y fin de archivo
Hola a todos
Tengo un archivo generado por un query (no tiene llaves), el cual lo utilizo en
un programa RPG, como le hago para posicionarme en el primer registro o el
ultimo, ya que las instrucciones *LOVAL y *HIVAL no me funcionan, o tengo que
usar el OPEN, CLOSE para poder hacerlo?
Saludos
Gerardo Santillana
IT Department
Delphi Mechatronic Systems
US Ph: (956) 554.5832
MX Ph: (88) 12.81.63/64/65 Ext. 5832
e-mail [EMAIL PROTECTED]
_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?bodyLEAVE
_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=AVE
_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?bodyLEAVE
_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
