De entrada, si est�s seguro de que lo �nico que vas a tener son blancos en
lugar de ceros, solucionar�as el problema compilando con IGNDECERR(*YES) si
es RPG y con FIXNBR(*ZONED) si es ILE/RPG. Por otra parte, en ILE tienes la
funci�n %CHECK que te permitir�a hacer una comprobaci�n del campo.
Puedes hacer algo similar a esto:
IF %CHECK('0123456789':%XLATE('_':'0':%EDITC(VARIABLE:'Z')))=0
Donde _ es un espacio en blanco y VARIABLE es el nombre de campo que t�
tengas definido en la DS. Esto tiene la ventaja de que no necesita ser un
procedimiento o programa que tenga que recibir par�metros, de tal manera que
no tendr�s problemas con la longitud de las variables.
Saludos:
Juan Carlos
> -----Mensaje original-----
> De: Nicol�s Machado [SMTP:[EMAIL PROTECTED]
> Enviado el: lunes, 20 de septiembre de 2004 21:28
> Para: [EMAIL PROTECTED]
> Asunto: Validacion de campos numericos.
>
>
>
> Hola, quiero ver si se puede hacer algo para este tema.
> Tengo una ds interna que mapeo con un registro unico de un archivo
> Externo.
> Dentro de esta DS tengo campos alfa y n�mericos.
> El problema que tengo es que cuando en el regsutro externo tengo blancos
> donde deberia tener 0 (ceros) o numeros el RPG me da error de datos
> decimales.
>
> Ahora bien, me gustaria poder hacer un procedimiento, donde le pueda pasar
> la variable numerica y que este me evalue si cada uno de los bites es un
> numero.
>
> Con TESTN deberia definir para cada campo un homonimo en caracter, y si
> hago un procedimento me gustaria que sea lo suficientemente dinamico en
> cuanto a la longitud de la variable numerica, o pasar el puntero !!
>
> Alguna idea ??
>
> gracias
> Nicolas
>
>
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system ( <http://www.grisoft.com>).
> Version: 6.0.766 / Virus Database: 513 - Release Date: 17/09/2004
_____________________________________________________
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]
