Cobol - Validar para aceptar solo letras y números

   
Vista:

Validar para aceptar solo letras y números

Publicado por Rosa (1 intervención) el 12/07/2014 03:26:14
Estimados,

Necesito saber como validar un registro, de modo que solo acepte números, letras y espacios y cuando encuentre un símbolo como #"!='"|@ ...etc lo reemplace por espacio.

¿Puedo usar código ascii en Cobol para realizar esto???

Ejemplo:

Validar carácter por carácter del registro, para que solo acepte valores ascii dentro de los rangos 65-90; 97-122
y 48-57
Si el carácter del registro está fuera de esos rangos mover espacios


Tengo esta idea de utilizar código ascii, pero no sé como implementarlo en cobol .


ALGUIEN ME PUEDE AYUDAR POR FAVOR
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Validar para aceptar solo letras y números

Publicado por gatomalo (21 intervenciones) el 13/07/2014 02:54:47
INSPECT CAMPO-INGRESO-DATOS CONVERTING '=?¡¿?'&%$#!"()= '
TO " ".

poner todos los caracteres que desees y en poner la misma cantidad de espacios en blanco
como correspondencia ejem.si son 20 caracteres en to " " 20 espacios en blancos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Validar para aceptar solo letras y números

Publicado por SuperIndio (1 intervención) el 30/07/2014 21:23:45
VALIDA-ALGUNOS-CARCTERES.

INITIALIZE U--CONTADOR, U-CHARR-NO-PERM
INITIALIZE U--MENSAJE-ERROR.
*>>
INSPECT W--APELLIDO TALLYING U--CONTADOR FOR ALL "@" .
ADD U--CONTADOR TO U-CHARR-NO-PERM
INSPECT W--APELLIDO TALLYING U--CONTADOR FOR ALL "=" .
ADD U--CONTADOR TO U-CHARR-NO-PERM
INSPECT W--APELLIDO TALLYING U--CONTADOR FOR ALL "?" .
ADD U--CONTADOR TO U-CHARR-NO-PERM
INSPECT W--APELLIDO TALLYING U--CONTADOR FOR ALL "¡" .
ADD U--CONTADOR TO U-CHARR-NO-PERM
INSPECT W--APELLIDO TALLYING U--CONTADOR FOR ALL "¿" .
ADD U--CONTADOR TO U-CHARR-NO-PERM
INSPECT W--APELLIDO TALLYING U--CONTADOR FOR ALL "?" .
ADD U--CONTADOR TO U-CHARR-NO-PERM
INSPECT W--APELLIDO TALLYING U--CONTADOR FOR ALL "'" .
ADD U--CONTADOR TO U-CHARR-NO-PERM
INSPECT W--APELLIDO TALLYING U--CONTADOR FOR ALL "&" .
ADD U--CONTADOR TO U-CHARR-NO-PERM
INSPECT W--APELLIDO TALLYING U--CONTADOR FOR ALL "%" .
ADD U--CONTADOR TO U-CHARR-NO-PERM
INSPECT W--APELLIDO TALLYING U--CONTADOR FOR ALL "$" .
ADD U--CONTADOR TO U-CHARR-NO-PERM
INSPECT W--APELLIDO TALLYING U--CONTADOR FOR ALL "#" .
ADD U--CONTADOR TO U-CHARR-NO-PERM
INSPECT W--APELLIDO TALLYING U--CONTADOR FOR ALL "!" .
ADD U--CONTADOR TO U-CHARR-NO-PERM
INSPECT W--APELLIDO TALLYING U--CONTADOR FOR ALL """ .
ADD U--CONTADOR TO U-CHARR-NO-PERM
INSPECT W--APELLIDO TALLYING U--CONTADOR FOR ALL "(" .
")"
IF U-CHARR-NO-PERM > 0 THEN
STRING "ERR-9122 - "
"CARACTERES NO "
"PERMITIDOS EN EL APELLIDO"
DELIMITED BY SIZE U--MENSAJE-ERROR
END-STRING
END-IF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar