Hola, es m�s f�cil si en lugar de definir la constante con todas las letras la
defines s�lo con n�meros (son menos ;-) simplemente hay que hacer la l�gica al
rev�s o sea si no coincide entonces es letra, espacio o caracter especial.
Asi es como yo lo hago para comprobar que los n�meros de fax son v�lidos:
I** DEFINICION VALORES VALIDOS PARA NUMERO DE FAX
I ' 0123456789+' C VALFAX
..... *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
C** COMPRUEBA EL NUMERO DE FAX
B01 C *IN97 IFEQ *ON
C WSNUFX ANDNE*BLANK
C VALFAX CHECKWSNUFX 96
B02 C *IN96 IFEQ *ON
C SETON 9960 CARACTS.MAL
C GOTO PANT1F
E02 C ENDIF
C ' ':1 SCAN WSNUFX:1 PB 20 96
B02 C *IN96 IFEQ *ON
C SUBSTWSNUFX:PB RESFAX 25 P
B03 C RESFAX IFNE *BLANK
C SETON 9960 BLANCOS INT.
C GOTO PANT1F
E03 C ENDIF
E02 C ENDIF
E01 C ENDIF
En mi caso admito el caracter "+" ya que supone una pausa de marcaci�n y el espacio
porque al final del n� de fax siempre hay blancos, el control de blancos intercalados
lo realizo moviendo a otro campo a partir del primer blanco encontrado.
Un saludo.
Juanra
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, June 30, 2004 10:08 AM
Subject: Re: distinguir una letra en un alfanumerico
Crea un campo alfanumerico con las letras en mayucula y minuscula... o
una constante...
Ej. 'ABCDEFGH....abcdefgh...'
Comparalo con un LOKUP o con un bucle DO WHILE (bueno, hay mil maneras)
contra tu variable....
No es lo mas sofisticado pero es seguro...
_____________________________________________________
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]
