Cobol - Validar para aceptar solo letras y números

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

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.

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