|
Calcular CRC8 en Cobol
Hola a tod@s.
Como calcular el valor CRC8 desde un campo de texto. Os dejo el ejemplo en Delphi, también existe para Java y PHP, pero para COBOL no hay. Código Delphi:
@Kuk, |
@Dasije, hola amigo, hace mucho que no te vemos.
Quieres traducirlo a Cobol? O es un aporte en Delphi? |
Hola Kuk.
Traducirlo a COBOL, aunque el ejemplo se entiende hasta cierto punto, pero hay cosas que no entiendo, como las variables como trabajan en DELPHI, sobre todo el TArray, si es numérico o no, como calcular el XOR, cosas que se me escapan de no haber trabajado con este compilador. Gracias y saludos. |
Cita:
MF: CBL_XOR @Dasije, tienes algún ejemplo de lo que le pasas y qué tiene que dar en la salida? Ya no tengo el Fujitsu Cobol instalado, pero esto funciona en MF y debe funcionar en Fujitsu: Código COBOL:
Para la cadena "Hola amigo" en la salida tengo 023 o lo que es lo mismo X'17' |
Hola buenas tardes.
Lo he probado, y tiene errores al utilizar un string con determinadas letras, como ejemplo funciona correctamente. Este es el string que tengo que utilizar: TBAI-00000006Y-251019-btFpwP8dcLGAF- Y el resultado debe ser: 237 Saludos. |
@Dasije, estás seguro que el código Delphi es correcto?
En todo caso el XOR y AND en Cobol se hacen como en el ejemplo, o sea que tienes el mecanismo de cómo hacerlo. Puedes intentar partir de otro ejemplo. Si te surgen más dudas, ya sabes ;) |
@Kuk por curiosidad he probado tu ejemplo pero creo que no puede funcionar.
Código COBOL:
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 |
@JCantero, es un COMP-5 o sea binario nativo y por lo tanto no obedece al PIC de Cobol sino al tamaño físico ;)
Para que te hagas una idea, declara un campo como PIC 9(4) COMP-5 y hazle un MOVE de 54321 y luego hazle un DISPLAY, ya verás :bien: COMPUTATIONAL-5 or COMP-5 (native binary): Computational items En cuanto al resultado: el problema de @Dasije eran las operaciones sobre Bits. En realidad, según lo que vi por los internetes, no estoy para nada seguro que el código Delphi es correcto. Por lo pronto la tabla difiere de las que he visto por ahí. Y el código pues también. Pero es lo de menos porque se puede jugar con ello hasta dar con lo que se desea o simplemente ver el algoritmo en sí y crear código propio. |
Cita:
Si hago esto : Código COBOL:
El resultado del display es 05 He probado en OpenCobol y funciona igual. Ya no se en otros cobol, pero en los que he probado es asi. :losiento: |
@JCantero, tendrás que poner una directiva de compilación porque seguramente los COMP-5 se traten de igual manera que los COMP (que son los binarios BigEndian, independientes de máquina y sí que obeden a las reglas PIC de Cobol).
En IBM, Fujitsu y MF los COMP-5 por defecto son binarios nativos. ---------- Post añadido : 17:19 ---------- Post anterior : 16:31 ---------- @JCantero, Computational items [table]Digits in PICTURE clause|Storage occupied 1 through 4 |2 bytes (halfword) 5 through 9 |4 bytes (fullword) 10 through 18 |8 bytes (doubleword) [/table] |
| La franja horaria es GMT +2. Ahora son las 13:03. |
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.