No lo he probado, pero no seria mejor hacer:
NRR = *HIVAL;
SetGT NRR Fichero;
ReadP Fichero;
Asi te aseguras que incluso si existiese un Numero Relativo de Registro
*HIVAL, leas el �ltimo realmente.
fins aviat...
�lex Corretg�
"Jesus Arzak" <[EMAIL PROTECTED]>@QUIJOTE.COMBIOS.ES con fecha 20/02/2003
16:50:20
Por favor, responda a [EMAIL PROTECTED]
Tram�s per: [EMAIL PROTECTED]
Destinataris: [EMAIL PROTECTED]
C�pia:
Classificat: |----------------|
| ( ) Important |
| ( ) urgent |
| ( ) hist�ric |
| ( ) temporal |
| ( ) bretolada |
| ( ) particular |
|----------------|
Assumpte: RE: Incio y fin de archivo
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 f=
ichero.
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 num=
ero de
registros del fichero por CL y pasarlo como parametro
Un saludo,
Jesus M=AA arzak capilla
Talleres de Escoriaza,S.A.
Dpto Proceso de datos
www.tesa.es
"gerardo.santillana" <[EMAIL PROTECTED]> con fecha 20/02/20=
03
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, cuan=
do 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 h=
aces 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 momen=
tos no lo
tengo a mano. Si lo necesitas lo busco y te digo como hacerlo.
Un saludo,
Jesus M=AA Arzak Capilla
Talleres de Escoriaza,S.A.
Dpto Proceso de Datos
www.tesa.es
"gerardo.santillana" <[EMAIL PROTECTED]> con fecha 20/02/20=
03
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 u=
tilizo 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 ten=
go 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=E1s de NEWS/400.
=A9 Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env=EDa el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?bodyLEAVE
_____________________________________________________
Forum.HELP400 es un servicio m=E1s de NEWS/400.
=A9 Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env=EDa el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=3DAVE
_____________________________________________________
Forum.HELP400 es un servicio m=E1s de NEWS/400.
=A9 Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env=EDa 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
_____________________________________________________
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
