Cobol - Validar rut, no digito del rut

Como puedo validar el rut, no el digito porque eso es conocido.
Necesito saber si el rut ingresado es correcto, por ejemplo:
El rut correcto es 10.363.052, pero el digitador se equivoca e ingresa 10.463.052.
Existe algún algoritmo que me permita validar esto?.
Gracias.

para saber si el Nro de rut esta correcto primero debes sacar el digito verificador de acuerdo al nro ingresado y compararlo con el digito que ingresas

VALI-RUTSS.
*-----------
COMPUTE ENTERO = (R1 * 5) + (R2 * 4) + (R3 * 3) + (R4 * 2)
COMPUTE N3 = (R5 * 7) + (R6 * 6) + (R7 * 5) + (R8 * 4)
COMPUTE N4 = (R9 * 3) + (R0 * 2)
COMPUTE ENTERO = ENTERO + N3 + N4
DIVIDE ENTERO BY 11 GIVING DIGRE
MULTIPLY DIGRE BY 11 GIVING N3
SUBTRACT N3 FROM ENTERO GIVING DIGRE
SUBTRACT DIGRE FROM 11 GIVING DIGRE
MOVE DIGRE TO XDIG
IF DIGRE = 10 MOVE "K" TO X2.
IF DIGRE = 11 MOVE "0" TO X2.

NOTA: el X2 corresponde al digito calculado el cual debes comparar contra el digito ingresado.

ojala te sirva

Hola si deseas saber sobre dígitos autoverificadores (modulo 11) visita este link.
http://es.wikipedia.org/wiki/Clave_%C3%9Anica_de_Identificaci%C3%B3n_Tributaria

Saludos