Operaciones Aritméticas en COBOL

COBOL, acrónimo de COmmon Business-Oriented Language, es un lenguaje de programación orientado a negocios diseñado para el desarrollo de sistemas de información empresariales. A pesar de su antigüedad, COBOL sigue siendo relevante en muchos sistemas financieros y de seguros donde la precisión en las operaciones aritméticas es crítica.

En este artículo, exploraremos las operaciones aritméticas básicas en COBOL, que incluyen suma, resta, multiplicación y división, proporcionando ejemplos prácticos de cómo implementarlas en código COBOL.

Suma en COBOL

La operación de suma en COBOL se realiza utilizando la palabra clave ADD. Para sumar dos o más números y almacenar el resultado en una variable, se sigue la siguiente sintaxis:

ADD numero1, numero2 TO resultado GIVING resultado-final.

Ejemplo de Suma:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SumaEjemplo.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUMERO1        PIC 9(4) VALUE 1234.
       01 NUMERO2        PIC 9(4) VALUE 5678.
       01 RESULTADO      PIC 9(5).

       PROCEDURE DIVISION.
           ADD NUMERO1, NUMERO2 TO RESULTADO.
           DISPLAY "El resultado de la suma es: " RESULTADO.
           STOP RUN.

En este ejemplo, se suman NUMERO1 y NUMERO2, y se almacena el resultado en la variable RESULTADO.

Resta en COBOL

Para realizar una operación de resta en COBOL, se utiliza la palabra clave SUBTRACT. La sintaxis para restar un número de otro es:

SUBTRACT numero1 FROM numero2 GIVING resultado.

Ejemplo de Resta:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. RestaEjemplo.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUMERO1        PIC 9(4) VALUE 7000.
       01 NUMERO2        PIC 9(4) VALUE 1234.
       01 RESULTADO      PIC 9(4).

       PROCEDURE DIVISION.
           SUBTRACT NUMERO2 FROM NUMERO1 GIVING RESULTADO.
           DISPLAY "El resultado de la resta es: " RESULTADO.
           STOP RUN.

En este código, NUMERO2 se resta de NUMERO1, y el resultado se guarda en RESULTADO.

Multiplicación en COBOL

La multiplicación se realiza con la palabra clave MULTIPLY. La sintaxis básica para multiplicar dos números es:

MULTIPLY numero1 BY numero2 GIVING resultado.

Ejemplo de Multiplicación:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. MultiplicacionEjemplo.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUMERO1        PIC 9(3) VALUE 123.
       01 NUMERO2        PIC 9(2) VALUE 45.
       01 RESULTADO      PIC 9(5).

       PROCEDURE DIVISION.
           MULTIPLY NUMERO1 BY NUMERO2 GIVING RESULTADO.
           DISPLAY "El resultado de la multiplicación es: " RESULTADO.
           STOP RUN.

Aquí, NUMERO1 se multiplica por NUMERO2, y el resultado se asigna a RESULTADO.

División en COBOL

La operación de división en COBOL se hace mediante la palabra clave DIVIDE. La sintaxis para dividir un número entre otro es:

DIVIDE numero1 INTO numero2 GIVING resultado.

Ejemplo de División:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. DivisionEjemplo.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUMERO1        PIC 9(4) VALUE 2500.
       01 NUMERO2        PIC 9(2) VALUE 50.
       01 RESULTADO      PIC 9(3).

       PROCEDURE DIVISION.
           DIVIDE NUMERO1 INTO NUMERO2 GIVING RESULTADO.
           DISPLAY "El resultado de la división es: " RESULTADO.
           STOP RUN.

En este fragmento de código, NUMERO1 se divide entre NUMERO2, y el cociente se almacena en RESULTADO.

Consideraciones Adicionales

• Es importante definir correctamente el tamaño de las variables (PIC) para evitar la pérdida de información o desbordamiento.
• Los nombres de las variables y las constantes deben ser descriptivos para mantener la claridad del código.
• Asegúrate de inicializar las variables que almacenan los resultados antes de usarlas en operaciones aritméticas.
• Para más información y detalles sobre la programación en COBOL, puedes referirte a la documentación oficial de IBM COBOL o buscar manuales específicos de COBOL como Micro Focus COBOL documentation.

Al diseñar y escribir programas en COBOL, es esencial comprender estas operaciones aritméticas básicas, ya que son fundamentales para el procesamiento de datos y cálculos financieros. Con una sólida comprensión y práctica, puedes manejar con confianza la lógica de negocios que requiere precisión matemática, una de las grandes fortalezas de COBOL.