comparando cadenas - ayuda

[andresf02]

Buenos Dias

Intentando realizar una validacion a una cadena.

La cadena solamente puede conteneder letras mayusculas y numeros

'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789'

La validacion que quiero hacer es que si la cadena tiene por lo menos 1 caracter que no este en la cadena anterior (letras mayusculas y numeros) generé un error.

He probado con: CN , CO , CA , NA de la siguiente forma:

IF output NA 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789'.
MESSAGE 'SoloMayusculas y numeros' TYPE 'E'.
ENDIF.

Pero no logro obtener el resultado deseado que es que
si la cadena tiene por lo menos 1 caracter que no sea letras mayuscula o numeros generé un error.


La otra solucion que tengo por el momento es:

IF output CA '!"#$%&/()=?¡*''+-{}_´¨¿,.\~@<>:;|'.
MESSAGE 'Caracteres Especiales No Permitidos' type 'E'.
EXIT.
ENDIF.

Lo que no me gusta de esta solucion es que si luego se inventan un nuevo caracter especial porque cambian el teclado de idioma, entonces quedaria como permitido.


Gracias de antemano.

[mysmb2]

podrias verificar carater por caracter ingresado en la variable output de la siguiente manera

IF output+var(1) NA 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789'.
MESSAGE 'SoloMayusculas y numeros' TYPE 'E'.
ENDIF.

donde var es un numero incremental hasta la longitud de tu variable - 1.

saludos

[javi24]

Buenas,
Una forma muy fácil de hacerlo es usando expresiones regulares.
Te dejo un ejemplo de verificación del formato de un mail, en tu caso es algo más fácil porque sólo quieres validar letras.

PARAMETERS email TYPE c LENGTH 30 LOWER CASE
default 'shai.agassi@sap.com'.


DATA matcher TYPE REF TO cl_abap_matcher.

matcher = cl_abap_matcher=>create(
pattern= `\w+(\.\w+)*@(\w+\.)+(\w{2,4})`i
gnore_case= 'X'
text= email ).


IF matcher->match( ) IS INITIAL.
MESSAGE 'Wrong Format' TYPE 'I'.ELSE.MESSAGE 'Format OK' TYPE 'I'.
ENDIF.

Espero que te sirva de ayuda

[andresf02]

Gracias a todos por sus respuestas.

Encontre una forma bastante sencilla de resolver el problema acorde a al primer respuesta:

Definí una variable entera para tener la logitud de la cadena OUTPUT y con la sentencia "CN" realizaba la comparacion de cadenas solo hasta la logitud del output


El codigo quedó de la siguiente manera:

----------------------------------------------------------------------
data: len type i.

IF input IS INITIAL.
MESSAGE e031(zmen). "Campo no puede ser vacio
ENDIF.

output = input. "Salida es igual a la entrada
CONDENSE output NO-GAPS. "Borra los espacios en blanco
TRANSLATE output TO UPPER CASE. "Convierte a letras mayusculas
len = STRLEN( output ). "Obtiene la logitud de la salida

IF output(len) CN 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789'.
MESSAGE e032(zmen). "Carateres especiales no permitidos
ENDIF.
MESSAGE i033(zmen). "Se ajustó la salida a solo mayusculas sin espacios
ENDFUNCTION.

-------------------------------------------------------------------------


Gracias a todos.