COBOL es simplemente otro lenguaje de computadora de tercera generación. Es un poco más antiguo que la mayoría, lo que no significa que esté incompleto de alguna manera (en realidad viene con bastante equipaje, pero esa es otra historia).
Al igual que con cualquier otro lenguaje de tercera generación, COBOL manipula los archivos de datos de la misma manera que lo haría en un programa C. Nada extraño, misterioso o mágico al respecto. Los archivos se abren, leen, escriben y cierran usando las características de E/S del archivo del idioma.
Se utilizan varios mecanismos para formar un enlace entre un archivo real y el programa. Los detalles aquí a menudo son específicos del sistema operativo en el que está trabajando. En general, las implementaciones de COBOL intentan aislarse del entorno operativo a través de un nombre de archivo lógico en lugar de un nombre real. Esta indirección adicional es importante cuando escribe programas que se trasladarán a diferentes plataformas (por ejemplo, escribir y probar dentro de un IDE en una plataforma Windows, y luego ejecutar en un mainframe).
Los siguientes ejemplos se relacionan con un entorno IBM Mainframe.
Dentro del mundo de mainframe de IBM, encontrará que los programas se ejecutan ya sea por lotes o en línea (por ejemplo, CICS). No describiré cómo configurar la E/S de archivo en CICS (esa es una larga historia). Los programas que se utilizan para manipular archivos suelen ser por lotes. Aquí es una ilustración aproximada de cómo funciona un programa por lotes:
programas por lotes se ejecutan a través de JCL. JCL se utiliza para identificar el programa que se ejecutará (instrucción 'EXEC') e identificar a qué archivos hará referencia su programa utilizando sentencias 'DD'. La función de una Declaración DD es formar una conexión lógica entre un archivo real y un nombre al que hará referencia su programa COBOL cuando quiera referirse al archivo (este es el mecanismo de aislamiento mencionado anteriormente). Por ejemplo,
JCLDDNAM DD DSN='HLQ.MY.FILE'...
podría asociar el nombre de 'DD' 'JCLDDNAM' en el fichero llamado 'HLQ.MY.FILE'. Esta parte depende de la plataforma, por lo que los detalles son específicos del entorno operativo.
En la sección 'FILE-CONTROL' de su programa COBOL, conecta el 'DD NOMBRE' definido en su JCL con el nombre que usará en cada instrucción de E/S para referenciar ese archivo. Esta conexión se define mediante la instrucción 'SELECT'.
Por ejemplo,
SELECT MYFILE
ASSIGN JCLDDNAM
remainder of select
hace una conexión entre cualquier archivo que guardan relación con 'JCLDDNAM' en su 'JCL' a 'MIARCHIVO' que se hará referencia más adelante en las declaraciones de COBOL de E/S. La declaración SELECT en sí misma es parte del estándar ISO COBOL. Sin embargo, muchas implementaciones de COBOL definen algunas extensiones no estándar para facilitar varias peculiaridades a sus subsistemas de archivos.
Abrir, leer, escribir, cerrar archivos dentro de la 'PROCEDIMIENTO DE DIVISIÓN' de programar utilizando el nombre de 'MIARCHIVO' como en:
OPEN MYFILE
READ MYFILE
CLOSE MYFILE
Lo anterior se simplifica enormemente, y hay una multitud de formas de hacer esto dentro de COBOL. Comprender la imagen completa requerirá mucho esfuerzo, tiempo y práctica. Las declaraciones de E/S ilustradas arriba son parte del estándar COBOL, pero cada proveedor tendrá sus propias extensiones.
IBM COBOL admite una amplia gama de organizaciones de archivos y métodos de acceso. Puede consultar el manual de referencia de lenguaje de IBM Enterprise COBOL here para obtener la sintaxis y las reglas para la manipulación de archivos. Sin embargo, el User Guide proporciona muchos buenos ejemplos para leer/escribir archivos (tendrá que excavar un poco, pero todo está arreglado fuera para ti).
La configuración para hacer referencia a una base de datos SQL a través de un programa COBOL es algo diferente, pero implica la configuración de una conexión entre su programa y el subsistema de la base de datos. En el mundo de IBM esto se hace a través de JCL, otros entornos utilizarán diferentes mecanismos.
IBM COBOL utiliza un preprocesador o coprocesador para integrar el acceso a la base de datos y el intercambio de datos. Por ejemplo, el siguiente código recuperar algunos datos de una base de datos DB2:
MOVE 1234 TO PERSON-ID
EXEC SQL
SELECT FIRST_NAME, LAST_NAME
INTO :FIRST-NAME, :LAST-NAME
FROM PERSON
WHERE PERSON_ID = :PERSON-ID
END-EXEC
DISPLAY PERSON-ID FIRST-NAME LAST-NAME
Las cosas entre EXEC SQL y END-EXEC es una bastante simple instrucción de selección de SQL. Los nombres precedidos por dos puntos son variables de host COBOL utilizadas para pasar datos a DB2 o recibirlos de nuevo. Si alguna vez ha codificado las rutinas de acceso a la base de datos, esto le resultará muy familiar. Este link proporciona una introducción simple a la incorporación de sentencias SQL en un programa IBM Enterpirse COBOL.
Por cierto, IBM Enterprise COBOL también es capaz de trabajar con documentos XML. Lo siento por la gran inclinación de IBM, pero ese es el entorno con el que estoy más familiarizado.
Espero que esto lo inicie en la dirección correcta.
que casi le da al hombre de la cabeza. ¡Gracias por tomarte el tiempo de escribir tanto! –
@MC Emperor, cuando realice ediciones, incluya la razón en el cuadro provisto. Si cambia una palabra, asegúrese de hacerlo correctamente. –
@BillWoodger Puede verlo fácilmente en el historial de revisiones. –