RPG-free antes %found después de un Chain, y error en un Update

[Emiliano Rubio]

Title: Adimpo Iberia S.L.

Ya he solucionado el tema.   Estoy haciendo mis primeros pinitos con RPG-Free y me he dado cuenta que si en un programa pongo:        Chain  clave  Fichero; o      Read   Fichero;        El programa compila bien pero al ejecutar el programa no pasa por estas instrucciones y por tanto ni busca ni lee en el fichero, (para ello he ejecutado el debug y he intentado poner un punto de interrupción en dichas instrucciones, y no me ha dejado).   Para hacer un chain tengo que poner Chain(n)  clave fichero;    (tampoco me funciona Chain(e) clave Fichero;)   Para hacer un read:     Read(n)  Nombre_registro_Fichero;  (no me funciona tampoco Read(n) fichero;)     ¿PORQUE?     Un saludo. -----Mensaje original----- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]En nombre de Machado Nicolás Guillermo Enviado el: jueves, 11 de agosto de 2005 20:29 Para: forum.help400@combios.es Asunto: RE: %found después de un Chain, y error en un Update Hola Emiliano,     También para actualizar fichero con un pgm CGI al ejecutar:      Chain clave   fichero;      If     %found(fichero) ;        ........            Update reg_fichero;        endif;   Al hacer el update me salta un error, indicándome que debo hacer una lectura antes de una actualización.         Como no se que hay entre el %found(Fichero) y el Update Reg_fichero, deberia verificar que no se esta cambiando el puntero del archivo con otro read.   Saludos       From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Sent: Jueves, 11 de Agosto de 2005 07:34 a.m. To: forum.help400@combios.es Subject: %found después de un Chain, y error en un Update      Buenos días   Estoy empezando a escribir RPG libre en un pgm cgi  y me encuentro con el desagradable sorpresa de el código:        Chain clave   fichero;      If     %found() ;        ........           endif; Nunca lo encuentra, este o no en el fichero,  en cambio si pongo:         If       %found(fichero);        ........       endif; Si la clave esta, si lo encuentra.     ¿Porque?   También para actualizar fichero con un pgm CGI al ejecutar:      Chain clave   fichero;      If     %found(fichero) ;        ........            Update reg_fichero;        endif;   Al hacer el update me salta un error, indicándome que debo hacer una lectura antes de una actualización.               Emiliano Rubio Departamento Informática t 902 194 320 e [EMAIL PROTECTED]