Hola Miguel.
 
Lo mejor para comprobar si todos los caracteres de un campo alfanum�rico son d�gitos del 0 al 9 es mediante la instrucci�n CHECK, que en OPM ser�a:
 
0027.10      I              '0123456789'          C         DIGITS
...
0586.11      C           DIGITS    CHECKCAMPOA    X       30
 
X ser� la primera posici�n (empezando por la izquierda) donde hay alg�n car�cter no num�rico.
Si X=0, todo son d�gitos y puedes moverlo a un campo num�rico.
 
Saludos,
Marcel.
 
 
 -----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]En nombre de Miguel Angel Peinador
Enviado el: lunes, 28 de junio de 2004 14:06
Para: [EMAIL PROTECTED]
Asunto: Re: distinguir una letra en un alfanumerico

Hace ya tiempo que pregunt� como distinguir si hay letras en un alfanum�rico, he probado con testn como me recomendaron pero hay determinadas letras que cuelan por ejemplo:
 
C                     TESTN          ZNUMV      3737     
C         37          MOVE ZNUMV     XENNCA               <--- num�rico
C        N37          MOVE *ZEROS    XENNCA              
C        N37          MOVE ZNUMV     XENEPL               <--- alfanum�rico
con '   7B' testn lo da como correcto num�ricoy lo pasa a 72 en un move de alfanum�rico a num�rico.
 
Yo quiero detectar si hay letras en el alfanum�rico y si las hay no moverlo a un num�rico.
 
�alguna ayuda?
 
Un saludo,
Miguel
 
 
----- Original Message -----
Sent: Tuesday, May 25, 2004 1:39 PM
Subject: Re: distinguir una letra en un alfanumerico


Con TESTN

Responder a