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

Fri, 12 Aug 2005 05:08:18 -0700

Title: Adimpo Iberia S.L.
Te puedo asegurar que con V5R2 y ptf's más o menos al día eso no pasa.

¿ Como vas tu de ptf's ?. Te lo digo porque me suena mucho haber leido lo que comentas en la documentación de ptf's.

Emiliano Rubio escribió:
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: [email protected]
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: [email protected]
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]


--
Saludos.

Fernando Pérez 

Cerámica Saloni. Dpto. Sistemas
 
begin:vcard
fn;quoted-printable:Fernando P=C3=A9rez
n;quoted-printable:P=C3=A9rez;Fernando
org:;Sistemas
email;internet:[EMAIL PROTECTED]
tel;work:Ext. 627
x-mozilla-html:TRUE
version:2.1
end:vcard

Responder a