@Kuk por curiosidad he probado tu ejemplo pero creo que no puede funcionar.
Código COBOL:
01 crc PIC X(1).
01 crcNum redefines crc pic 9(2) comp-5.
crcNum esta definido como pic 99 pero puede llegar a 256 con lo que hace falta un pic 999.
@Dasije, dame un ejemplo mas corto para poder comprobar. Con el ejemplo que indicas es demasiado largo para depurar.
La cadena
"TBAI-00000006Y-251019-btFpwP8dcLGAF-" me da 130
"Hola amigo" me da 153
Dame resultado para la cadena: "123" y poder depurar si hay algun error