Merçi Javier. A veces cuando explicas los problemas encuentras la solución

Tenia un fallo en la definición de la estructura "viejo"  la tenia definida
como


[EMAIL PROTECTED]            S               *   Inz(*Null)
D viejo         E DS                  ExtName(ENTCOD) Based(@viejo)
Prefix(A$_)

y cuando ejecutaba el eval me daba error de puntero.


Un Saludo.
José Bermúdez Huerta.


Alcoholes Montplet, S. A.

Departamento Informática
Tel.:  93 313 63 62  Horario: de 07:00 a 15:00
Fax.: 93 313 21 00
Email:  [EMAIL PROTECTED]
Web.:  http://www.montplet.es

----- Mensaje original ----- 
De: "Javier Mora" <[EMAIL PROTECTED]>
Para: <[email protected]>
Enviado: martes, 18 de octubre de 2005 10:34
Asunto: RE: Operaciones con estructuras de datos


> > -----Mensaje original-----
> > De: Jose Bermúdez [SMTP:[EMAIL PROTECTED]
> > Enviado el: martes, 18 de octubre de 2005 9:40
> > Para: [email protected]
> > Asunto: Operaciones con estructuras de datos
> >
> > Quisiera saber si hay la posibiliad de pasar el contendio de una
> > estructura a otra sin tener que ir campo a campo de dicha estructura.
> > Guardar la informacion de la estructura leido en la estructura viejo sin
> > necesidad de ir campo a campo.
> >
> > EJEMPLO
> > Guardar la información de la estructura leido en la estructura viejo sin
> > necesidad de ir campo a campo
> > D leido         E DS                  ExtName(FICHERO)
> > D viejo         E DS                  ExtName(FICHERO) Prefix(A$_)
> >
> > C             Key        chain Fichero
> > C* En este momento tengo rellenos todos los campos de la estructura
leido.
> >
> > C* Quiero de alguna manera cómoda y sin tener que cambiar el programa si
> > cambia el fichero guardar los valores originales.
> > C                             eval        a$_campo1=campo1
> > C                             eval        a$_campo2=campo2
> > C                              ....
> > C                             eval         a$_campoN=campoN
> >
> Muy fácil:
>
> Eval viejo = leido
>
> Un saludo,
>
> Javier Mora
> Dpto. Informática
> Dialsur S.A.U.
>
>
> __________________________________________________
> 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 visita la siguente URL:
> http://coyote.combios.es/mailman/listinfo/forum.help400


__________________________________________________
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 visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400

Responder a