Reutilizar código repetitivo

En este capítulo te enseño a reutilizar código repetitivo en diversos archivos escribiéndolo solo una vez.

Voy a utilizar el ejemplo del archivo indexado que expliqué en el capítulo anterior, aquí tienes la descarga de nuevo: Archivo indexado en COBOL.

Tanto la descripción del archivo físico y el lógico, se repite en el archivo CREATE-INDEXED-FILES para crear el índice, como en el archivo READ-INDEXED-FILE para la lectura del mismo.

En un programa como este, que no es muy grande, realmente no es un problema, ya que tenemos poco código redundante.
Pero si nos vamos a programas con cientos o miles de ficheros, el asunto cambia bastante.

La solución a todo esto la habrás empleado en otros lenguajes de programación (si sabes de otros), se trata de colocar el código repetitivo en archivos a parte para poder llamarlos las veces que necesitemos ese código. Es algo así como las hojas de estilos CSS, las cuales creamos una sola vez para dar estilo a todo un sitio web.

Para hacer esto, debemos cortar el código que se vaya a repetir y guardarlo en una hoja de COBOL en blanco.

Una vez tienes las hojas guardadas, puedes hacer la llamada al fragmento de código con la palabra reservada COPY en la zona donde lo quieras utilizar.
Por ejemplo:

COPY "ARCHIVO-FISICO.cbl".