Entrada de datos, sumar, restar, multiplicar y dividir

Por fin empezamos con temas más interesantes, los cálculos básicos (ya sé que no es para tanto, pero al menos tu programa de COBOL empezará a operar, que no es poca cosa).

Sumar en COBOL con la entrada de datos en consola

Aquí un ejemplo sencillo de suma en COBOL.
Además, contiene la forma de hacer que el usuario introduzca datos en el programa (INPUT).

IDENTIFICATION DIVISION.
PROGRAM-ID. CAPITULO-8.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
	01 NUM1 PIC 9(4).
	01 NUM2 PIC 9(4).
	01 RESULTADO PIC 9(5).
PROCEDURE DIVISION.
MAIN-PROCEDURE.
	DISPLAY "Introduce el primer número: ".
	ACCEPT NUM1.
	DISPLAY "Introduce el segundo número: ".
	ACCEPT NUM2.
	ADD NUM1 TO NUM2 GIVING RESULTADO.
	DISPLAY "El resultado es " RESULTADO.
	STOP RUN.
END PROGRAM CAPITULO-8.

Resultado

Ejecutamos el programa, lo primero que devuelve la consola es:

Introduce el primer numero:

Supongamos que introduzco un 10, acto seguido me dice que introduzca el segundo número y le introduzco un 15. Finalmente, devuelve el resultado:

Introduce el primer numero:
10
Introduce el segundo numero:
15
El resultado es 00025.

Analicemos esto paso por paso.
Tenemos 2 variables sin inicializar preparadas para almacenar números con un máximo de 4 dígitos de longitud (NUM1 y NUM2).
Tenemos una tercera variable para almacenar el resultado de la suma(RESULTADO).

En la PROCEDURE DIVISION tenemos un DISPLAY informativo para indicarle al usuario que debe introducir un número.
Gracias a los ACCEPT podemos introducir en el programa los números, es decir, el ACCEPT es el que consigue capturar la entrada de datos del usuario en el programa.
La operación de la suma en COBOL se realiza con la palabra reservada ADD, la cual podríamos decir que añade, suma o adiciona dos números y muy importante, con el GIVING le decimos que almacene esa suma en la variable RESULTADO.
Finalmente, mostramos el valor almacenado en RESULTADO con el DISPLAY.

Para el resto de operaciones aritméticas, ya sabes casi cómo hacerlo, el sistema es el mismo.

Realizar restas en COBOL

Solo tienes que cambiar la línea del ADD NUM1 TO NUM2 GIVING RESULTADO.

Lo único que cambia es la palabra reservada ADD por SUBTRACT (sustraer o restar) y el TO por FROM.

SUBTRACT NUM1 FROM NUM2 GIVING RESULTADO.

Realizar multiplicaciones en COBOL

Para multiplicar en COBOL lo hacemos de esta forma:

MULTIPLY NUM1 BY NUM2 GIVING RESULTADO.

Realizar divisiones en COBOL

Para dividir en COBOL lo hacemos de esta forma:

DIVIDE NUM1 BY NUM2 GIVING RESULTADO.