Gracias 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:50 AM To: [EMAIL PROTECTED] Subject: 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 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=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]?body=LEAVE