Mejorando la Estructura del Código con Subprogramas en COBOL
En esta lección, exploraremos la creación y el uso de subprogramas en COBOL. Aprenderemos cómo dividir nuestro código en módulos más pequeños y reutilizables, mejorando así la legibilidad, la mantenibilidad y la eficiencia del programa.
IDENTIFICATION DIVISION.
PROGRAM-ID. ProgramaPrincipal.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 SalarioMinimo CONSTANT 1500.00.
PROCEDURE DIVISION.
PERFORM INICIALIZAR-DATOS.
PERFORM PROCESAR-REGISTROS.
PERFORM CERRAR-ARCHIVO.
STOP RUN.
INICIALIZAR-DATOS.
OPEN INPUT ArchivoEntrada
OUTPUT ArchivoSalida.
PROCESAR-REGISTROS.
PERFORM UNTIL EOF-ArchivoEntrada
READ ArchivoEntrada INTO RegistroDatos
AT END SET EOF-ArchivoEntrada TO TRUE
NOT AT END
PERFORM PROCESAR-REGISTRO
END-READ
END-PERFORM.
CERRAR-ARCHIVO.
CLOSE ArchivoEntrada ArchivoSalida.
PROCESAR-REGISTRO.
IF Edad >= 18
PERFORM VALIDAR-SALARIO
END-IF.
MOVE RegistroDatos TO RegistroSalida
WRITE RegistroSalida.
VALIDAR-SALARIO.
IF Salario < SalarioMinimo
ADD 500 TO Salario
DISPLAY 'Ajuste Salarial Aplicado - ', Nombre
END-IF.
En este programa, hemos dividido la lógica en subprogramas como INICIALIZAR-DATOS, PROCESAR-REGISTROS, CERRAR-ARCHIVO, y VALIDAR-SALARIO. Esto mejora la estructura del código y facilita la comprensión de cada parte del programa.
Puntos Destacados:
- Los subprogramas permiten dividir el código en funciones lógicas y reutilizables.
- La sección
PROCEDURE DIVISIONcoordina la ejecución de los subprogramas. - La modularidad mejora la mantenibilidad y facilita la incorporación de cambios en el futuro.
En futuras lecciones, exploraremos casos más avanzados de creación y uso de subprogramas, así como estrategias para maximizar la reutilización del código en COBOL. ¡Sigue aprendiendo y disfrutando del viaje!
No hay comentarios:
Publicar un comentario