En este módulo, aprenderemos sobre los subprogramas en COBOL, una característica esencial para la programación modular y la reutilización de código. Los subprogramas permiten dividir un programa grande en partes más pequeñas y manejables, facilitando la lectura, el mantenimiento y la depuración del código.

Un subprograma en COBOL es un bloque de código que realiza una tarea específica y puede ser llamado desde otros programas o subprogramas. Los subprogramas ayudan a:

• Reutilizar código: Evitar la duplicación de código al reutilizar funciones comunes.
• Modularidad: Dividir el programa en módulos más pequeños y manejables.
• Mantenimiento: Facilitar la actualización y el mantenimiento del código.

Un subprograma en COBOL tiene una estructura similar a la de un programa principal, pero con algunas diferencias clave. A continuación, se muestra la estructura básica de un subprograma:

1. IDENTIFICATION DIVISION: Define el nombre del subprograma.
2. DATA DIVISION:
   • WORKING-STORAGE SECTION: Declara las variables locales del subprograma.
   • LINKAGE SECTION: Declara las variables que se pasan desde el programa principal.
3. PROCEDURE DIVISION: Contiene el código del subprograma. La cláusula USING especifica las variables que se pasan al subprograma.

A continuación, se muestra un ejemplo de un subprograma que calcula el cuadrado de un número:

1. Programa Principal:

   • Declara las variables NUMERO y RESULTADO.
   • Llama al subprograma SquareSubprogram usando la sentencia CALL y pasa las variables NUMERO y RESULTADO.
   • Muestra el resultado en la pantalla.

2. Subprograma:

   • Recibe las variables NUMERO y RESULTADO a través de la cláusula USING.
   • Calcula el cuadrado de NUMERO y almacena el resultado en RESULTADO.
   • Termina la ejecución con EXIT PROGRAM.

Instrucciones:

1. Escribe un programa principal que solicite al usuario un número y llame a un subprograma para calcular el factorial de ese número.
2. El subprograma debe recibir el número, calcular su factorial y devolver el resultado al programa principal.

Solución:

1. Programa Principal:

   • Solicita al usuario un número y lo almacena en NUMERO.
   • Llama al subprograma FactorialSubprogram pasando NUMERO y FACTORIAL.
   • Muestra el resultado en la pantalla.

2. Subprograma:

   • Inicializa FACTORIAL a 1.
   • Utiliza un bucle PERFORM para calcular el factorial multiplicando FACTORIAL por cada número desde 1 hasta NUMERO.
   • Devuelve el resultado al programa principal.

En esta lección, hemos aprendido qué son los subprogramas en COBOL, su estructura y cómo utilizarlos para crear programas modulares y reutilizables. Los subprogramas son una herramienta poderosa para mejorar la organización y el mantenimiento del código. En la próxima lección, exploraremos la sentencia CALL en detalle y cómo pasar parámetros a los subprogramas.