La sentencia CALL en COBOL se utiliza para invocar subprogramas desde un programa principal. Esta capacidad de dividir un programa en módulos más pequeños y manejables es fundamental para la programación modular y la reutilización de código. En esta sección, aprenderás cómo utilizar la sentencia CALL para llamar a subprogramas, cómo pasar parámetros y cómo manejar el retorno de valores.

1. Subprograma: Un bloque de código que realiza una tarea específica y puede ser llamado desde otros programas.
2. Programa Principal: El programa que llama a uno o más subprogramas.
3. Parámetros: Datos que se pasan entre el programa principal y el subprograma.

La sintaxis básica de la sentencia CALL es la siguiente:

• subprogram-name: El nombre del subprograma que se va a llamar. Debe estar entre comillas simples.
• USING: Palabra clave que indica que se están pasando parámetros al subprograma.
• parameter-1, parameter-2, ...: Los parámetros que se pasan al subprograma. Pueden ser variables, literales o estructuras de datos.

1. Programa Principal:

   • Define tres variables en la sección WORKING-STORAGE: WS-NUM1, WS-NUM2 y WS-RESULT.
   • Utiliza la sentencia CALL para invocar al subprograma AddNumbers, pasando WS-NUM1, WS-NUM2 y WS-RESULT como parámetros.
   • Muestra el resultado de la operación en la pantalla.

2. Subprograma:

   • Define las variables en la sección LINKAGE, que se utilizarán para recibir los parámetros del programa principal.
   • La sección PROCEDURE realiza la suma de LK-NUM1 y LK-NUM2, almacenando el resultado en LK-RESULT.
   • La sentencia EXIT PROGRAM finaliza la ejecución del subprograma y devuelve el control al programa principal.

Escribe un programa principal y un subprograma en COBOL que realicen la multiplicación de dos números. El programa principal debe solicitar al usuario que ingrese dos números, llamar al subprograma para realizar la multiplicación y luego mostrar el resultado.

Programa Principal

Subprograma

1. Programa Principal:

   • Solicita al usuario que ingrese dos números y los almacena en WS-NUM1 y WS-NUM2.
   • Llama al subprograma MultiplyNumbers pasando WS-NUM1, WS-NUM2 y WS-RESULT como parámetros.
   • Muestra el resultado de la multiplicación en la pantalla.

2. Subprograma:

   • Recibe los parámetros LK-NUM1, LK-NUM2 y LK-RESULT.
   • Realiza la multiplicación de LK-NUM1 y LK-NUM2, almacenando el resultado en LK-RESULT.
   • Finaliza la ejecución del subprograma y devuelve el control al programa principal.

1. No Declarar Correctamente los Parámetros: Asegúrate de que los parámetros en la sección LINKAGE del subprograma coincidan en tipo y tamaño con los parámetros pasados desde el programa principal.
2. Olvidar la Sentencia USING: La sentencia USING es obligatoria cuando se pasan parámetros. No olvides incluirla tanto en el programa principal como en el subprograma.
3. No Utilizar EXIT PROGRAM: Siempre utiliza EXIT PROGRAM para finalizar un subprograma y devolver el control al programa principal.

La sentencia CALL es una herramienta poderosa en COBOL que permite la modularización y reutilización de código. Al aprender a utilizar CALL y a manejar subprogramas, puedes escribir programas más organizados y fáciles de mantener. En la próxima sección, exploraremos cómo pasar parámetros de manera más avanzada y cómo manejar diferentes tipos de datos en subprogramas.