Cobol - CRC-32 En Cobol VAX

CRC-32 En Cobol VAX

Publicado por Andres (1 intervención) el 10/08/2006 15:59:07

Les explico lo que necesito, tengo un archivo plano al cual debo aplicar el modulo 997 a un campo y luego el algoritmo crc-32, si alguien me pudiera orientar al respecto sobre los 2 temas o bien tuviera alguno en cobol se lo agradeceria

El lenguaje es Cobol Vax

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Aplicar módulo 997 y algoritmo CRC-32 en Cobol Vax

Publicado por Alejandro (300 intervenciones) el 06/09/2023 23:08:38

Para aplicar el módulo 997 y el algoritmo CRC-32 a un campo en un archivo plano usando Cobol Vax, aquí tienes una orientación general y un ejemplo para cada uno:

Módulo 997:

El módulo 997 es un algoritmo utilizado en el procesamiento de archivos EDI (Electronic Data Interchange) para verificar la integridad de los mensajes. En Cobol, puedes implementar el cálculo del módulo 997 de la siguiente manera:

IDENTIFICATION DIVISION.

PROGRAM-ID. Modulo997Example.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 InputField        PIC X(100).

01 ModuloResult      PIC 9(3).

PROCEDURE DIVISION.

    MOVE "123456789" TO InputField  -- Reemplaza con tu campo de entrada.

    MOVE FUNCTION MOD(997, FUNCTION NUMVAL(InputField)) TO ModuloResult.

    DISPLAY "Resultado del Módulo 997: " ModuloResult.

    STOP RUN.

Este es un ejemplo básico que calcula el módulo 997 de un campo de entrada y almacena el resultado en `ModuloResult`. Asegúrate de reemplazar `"123456789"` con el valor real de tu campo de entrada.

Algoritmo CRC-32:

El algoritmo CRC-32 se utiliza para verificar la integridad de datos y se puede aplicar de la siguiente manera en Cobol Vax:

IDENTIFICATION DIVISION.

PROGRAM-ID. CRCCalculationExample.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 InputField        PIC X(100).

01 CRCResult         PIC 9(10).

PROCEDURE DIVISION.

    MOVE "Hello, World!" TO InputField  -- Reemplaza con tu campo de entrada.

    CALL 'CRC32' USING InputField LENGTH OF InputField CRCResult.

    DISPLAY "Resultado del Algoritmo CRC-32: " CRCResult.

    STOP RUN.

En este ejemplo, estamos usando una llamada a una función externa llamada 'CRC32' para calcular el valor CRC-32 del campo de entrada. Asegúrate de reemplazar `"Hello, World!"` con el valor real de tu campo de entrada y de tener acceso a una función externa que pueda calcular el CRC-32.

Ten en cuenta que la implementación real del cálculo del CRC-32 puede variar según las especificaciones de tu sistema y las bibliotecas disponibles. Deberás asegurarte de tener acceso a una función o rutina que realice este cálculo de manera confiable en tu entorno Cobol Vax.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Aplicar módulo 997 y algoritmo CRC-32 en Cobol Vax

Publicado por Marcelo Madelón (1 intervención) el 05/04/2024 13:54:20

Alejandro

Vi una respuesta en el foro de Clarion de LWP y buscando información sobre el cálculo del CRC encontré tu aporte en Cobol.
Trabajo con Clarion y debo calcular el CRC según el estándar ISO/IEC 13239 usando el polinomio '1021' (hex) y un valor inicial
'FFFF' (hex).
El algoritmo es:
CRC-16/CCITT-FALSE

Con lo que he visto hasta ahora no llego al resultado correcto. Abajo te paso un string de ejemplo al que le debo calcular el CRC

¿Tienes información sobre este tema?
Creo que Clarion no tiene ninguna función para dicho cálculo.

Desde ya muchas gracias,

00020101021141420017ar.com.bancoroela98113059891004599020150150011200837428105126002200222470005610000000585204472253030325802AR5914TURISMO ANIBUS608SANTA FE6108S2600IKP62830032fc751fa68bc4473aac2be9dda9afa91e01200000000000000034780106190000000000000004722807600329332b32784bf45859ecbfa1ce17e19ca011424041524100.5002100826015.2703100829714.346304

Donde según la pagina https://crccalc.com/ el CRC debe ser: 0x952D

Valora esta respuesta

Comentar

Aplicar módulo 997 y algoritmo CRC-32 en Cobol Vax

Publicado por Alejandro (300 intervenciones) el 10/09/2024 17:08:08

Hola Marcelo.

Entiendo que estás buscando calcular el CRC-16/CCITT-FALSE para un string específico en Clarion. Desafortunadamente, Clarion no tiene una función incorporada para calcular el CRC. Sin embargo, puedo ayudarte a entender cómo se calcula el CRC y proporcionarte un ejemplo de código en Cobol que puedes adaptar a tu entorno de Clarion.

El cálculo del CRC-16/CCITT-FALSE implica dividir el string en bytes y realizar una serie de operaciones XOR y desplazamientos a nivel de bit. El polinomio utilizado en este caso es '1021' en hexadecimal y el valor inicial es 'FFFF' en hexadecimal.

Aquí tienes un ejemplo de código en Cobol que puedes utilizar como referencia:

IDENTIFICATION DIVISION.

PROGRAM-ID. CALCULATE-CRC.

DATA DIVISION.

WORKING-STORAGE SECTION.

01  INPUT-STRING       PIC X(100).

01  CRC-VALUE          PIC X(4) VALUE X'FFFF'.

01  CRC-POLYNOMIAL     PIC X(2) VALUE X'1021'.

01  BYTE-COUNT         PIC 9(4) COMP VALUE 0.

01  BYTE-INDEX         PIC 9(4) COMP VALUE 1.

PROCEDURE DIVISION.

MAIN-LOGIC.

    MOVE "00020101021141420017ar.com.bancoroela98113059891004599020150150011200837428105126002200222470005610000000585204472253030325802AR5914TURISMO ANIBUS608SANTA FE6108S2600IKP62830032fc751fa68bc4473aac2be9dda9afa91e01200000000000000034780106190000000000000004722807600329332b32784bf45859ecbfa1ce17e19ca011424041524100.5002100826015.2703100829714.346304"

        TO INPUT-STRING.

    MOVE LENGTH OF INPUT-STRING TO BYTE-COUNT.

    PERFORM CALCULATE-CRC-LOOP UNTIL BYTE-INDEX > BYTE-COUNT.

    DISPLAY "CRC: " CRC-VALUE.

    STOP RUN.

CALCULATE-CRC-LOOP.

    MOVE BYTE-COUNT TO BYTE-INDEX.

    PERFORM CALCULATE-CRC-BYTE.

    ADD 1 TO BYTE-INDEX.

CALCULATE-CRC-BYTE.

    MOVE BYTE-INDEX TO CRC-INDEX.

    PERFORM CALCULATE-CRC-BIT 8 TIMES.

CALCULATE-CRC-BIT.

    IF CRC-VALUE BIT AND 1 = 1

        XOR CRC-POLYNOMIAL WITH CRC-VALUE

    END-IF.

    SHIFT RIGHT 1 PLACES IN CRC-VALUE.

    IF BIT-COUNT > 0

        SHIFT LEFT 1 PLACES IN CRC-VALUE

    END-IF.

    SUBTRACT 1 FROM BIT-COUNT.

Este código es solo un ejemplo y puede requerir ajustes para adaptarlo a tu entorno de Clarion. Sin embargo, debería darte una idea de cómo se realiza el cálculo del CRC-16/CCITT-FALSE.

Espero que esta información te sea útil.

Saludos,
Ale

Valora esta respuesta

Comentar

RMCobol

Problemas precompilado