Hola:
Tambien podes redefinir el string y hacer distintos cálculos para encontrar una clave, que cuando la quieras controlar volves a realizar la misma rutina y comparar si te da el mismo resultado.
Código COBOL:
01 nombre pic x(100).
01 redefines nombre.
02 letra pic 9999 comp-4 occurs 100 times
01 suma pic 9(8).
01 ii pic 999.
Por ejemplo podrías hacer una rutina parecida a ésta:
Código COBOL:
move zeros to suma.
perform varying ii from 1 by 2 until ii > 100
compute suma = suma + letra(ii) + (ii / 6)
end-perform.
perform varying ii from 2 by 2 until ii > 100
compute suma = suma + letra(ii) + (ii / 3)
end-perform.
Cualquier tipo de cálculo, para el caso es lo mismo. Y te va a dar un valor en la variable "suma" que es la que tenés como serial.
Saludos.
Fito...