No creo que se puedan hacer milagros en este tema (el When ya es una gran
mejora respecto a los IF anidados ;) ). 

Se me ocurre que si los campos del fichero donde dejas el dato son del mismo
tipo y longitud, lo que podr�as hacer es meterlos en un array (llam�mosle
Campos), via DS, y en el fichero que tiene los nombres de los campos poner
el n�mero de �ndice en lugar del nombre(p.ej. NUMCAM en vez de NOMCAM). As�
la asignaci�n quedar�a : Eval  Campos(NUMCAM)=AAAAA

Saludos.

Fernando P�rez.
Cer�mica Saloni. Dpto. Sistemas
<mailto:[EMAIL PROTECTED]>


-----Mensaje original-----
De: Jaime Villa Torres [mailto:[EMAIL PROTECTED]
Enviado el: viernes, 28 de febrero de 2003 1:01
Para: [EMAIL PROTECTED]
Asunto: Asignar un valor a una variable





> Se�ores, como siempre consultando su sabidur�a
>
>
> En un pgm leo un archivo, uno de sus campos es NOMCAM, donde se tiene el
> nombre de un campo del archivo XXXX, en el mismo programa he leido un
> registro del archivo XXXX, en el mismo programa se tiene una varible YYYYY
> que contine un valor AAAAA, se requiere asignar este valor al nombre del
> campo del archivo XXXX que se encuentra en el campo NOMCAM.
> Quiero optimizar el actual proceso, ahora tengo tengo un SELECT.
> Este select simplemente tiene un WHEN por cada campo del archivo comparado
> por igual con el valor de NOMCAM, si son iguales se asigna el valor de
YYYYY
> al campo del archivo.
> Conoce alguno de ustedes una forma mas simple de realizar esta asignaci�n.




_____________________________________________________
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]

_____________________________________________________
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]

Responder a