Hola Jaime, aver que te parece esta idea.
Podes utilizar la funcion %DEC para convertir un valor a una campo Packed.
Supongo que recibes 2 parametros, entro otros:
VAriable (Alfanumerico de x posiciones)
Valor (Alfanumerico de x Posiciones )
Entonces ...
Si la VAriable es = 'TuCAmpoPacked'
MOVE VALOR AUXZoned Zoned de igual tamaño en longitud a VALOR, sin
Decimales
AuxPAcked = %DEC(AUZZoned)
MOVE AUXPacked TuCampoDS
Endif
No se si funcionaria, es un idea.
Quiza hasta puedas hacer algo para saber si un campo es packed con
alguna funcion ...
Y no haces el IF.
Espero te sirva la idea.
Saludos
Nicolas
Jaime Villa Torres escribió:
Ese no es el problema, tienes el programa que le ingresan dos
parámetros, un parámetro que contiene el nombre de la variable a
actualizar y otro con el valor, par a todos los campos sabemos la
posición inicial de cada campo en la ds y utilizando %subst,
actualizamos el campo, pero esta forma no sirve para campos numéricos
empaquetados.
Gracias otra vez.
----- Original Message -----
*From:* Fernando Pérez <mailto:[EMAIL PROTECTED]>
*To:* forum.help400 <mailto:[email protected]>
*Sent:* Thursday, January 31, 2008 3:24 AM
*Subject:* Re: Actualizar un campo numérico tipo P
5 es el tamaño que ocupa en memoria, pero el campo es de 8 dígitos.
Solo tendrás problemas si lo quieres actualizar con MOVE/MOVEL, en
cuyo caso tendrás que usar una variable del mismo tipo (8p 0). Si
utilizas ADD, Z-ADD, EVAL o la asignación en formato libre (por
ejemplo, variable = *date) no tendrás ningún problema.
Saludos.
Fernando Pérez
Cerámica Saloni. Dpto. Auditoría y Organización
Jaime Villa Torres escribió:
Señores tengo el siguiente problema-
Exite un pgm con una ds de un archivo
d dsarchivo e ds extname(archivo)
a este programa llega un nombre de variable de esta ds del
archivo y un valor, cuando el campo es alfa o numérico
desempaquetado no hay problema con el procedimiento que tenemos
para actualizar el campo, pero cuando este es numérico
empaquetado no hemos encotrado la forma de actualizar dicho campo.
Ejemplo, el campo fecha de 8p 0, este en el sistema realmente es
de 5, y el valor que tengo es 20080125, como volverlo
empaquetado.???
Una solucion es realizar un select por cada campo, pero no es
practico, dependiendo del numero de campos que tenga el archivo.
en este caso, el archivo tiene mas de 400 campos y si cambia el
archivo, se debe cambiar el select, no es nada dinámico.
Cualquier consejo es bien venido.
Gracias como siempre.
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos
reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
------------------------------------------------------------------------
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
------------------------------------------------------------------------
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
--
.::.
Nicolas Machado
Metodo Argentina S.A.
_____________________
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
