El lenguaje de programación COBOL (Common Business-Oriented Language) ha sido un pilar en el mundo de la informática empresarial desde su creación en 1959. Aunque se considera un lenguaje de programación de alto nivel, COBOL está especialmente diseñado para el procesamiento de datos comerciales. En este artículo, nos centraremos en dos de las operaciones más fundamentales para el manejo de datos en COBOL: READ y WRITE.
COBOL maneja datos principalmente a través de archivos. Estos archivos pueden ser de acceso secuencial, indexado o relativo. La lectura y escritura de datos se realizan mediante las operaciones READ y WRITE, respectivamente, las cuales están estrechamente ligadas a la estructura y definición de los archivos en el programa.
Un programa COBOL típico que accede a datos tiene la siguiente estructura:
IDENTIFICATION DIVISION.
PROGRAM-ID. YourProgram.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT your-file ASSIGN TO "filename"
ORGANIZATION IS SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD your-file.
01 your-record.
05 field-name-1 PIC X(10).
05 field-name-2 PIC 9(4).
WORKING-STORAGE SECTION.
01 ws-variables.
05 ws-var-1 PIC X(10).
PROCEDURE DIVISION.
BEGIN.
OPEN INPUT your-file.
* Procesamiento de datos usando READ y WRITE
CLOSE your-file.
STOP RUN.
La operación READ se utiliza para recuperar registros de un archivo y colocarlos en un área de almacenamiento en la memoria del programa.
READ file-name [INTO data-name] [AT END imperative-statement]
file-name: Nombre del archivo definido en la sección FILE-CONTROL.data-name: Área de almacenamiento donde se colocará el registro leído.AT END: Cláusula que especifica qué hacer si se intenta leer más allá del final del archivo.PROCEDURE DIVISION.
READ-FILE.
OPEN INPUT your-file.
READ your-file INTO ws-variables AT END DISPLAY "End of file reached.".
CLOSE your-file.
En este ejemplo, el programa intenta leer un registro del archivo your-file y almacenarlo en ws-variables. Si se alcanza el final del archivo, se muestra un mensaje.
La operación WRITE es utilizada para escribir registros desde un área de memoria del programa a un archivo.
WRITE record-name [FROM data-name] [INVALID KEY imperative-statement]
record-name: Nombre del registro que se escribirá en el archivo.data-name: Área de almacenamiento de la que se obtendrán los datos para escribir.INVALID KEY: Cláusula que especifica qué hacer en caso de un error al intentar escribir en el archivo.PROCEDURE DIVISION.
WRITE-FILE.
OPEN OUTPUT your-file.
MOVE "ExampleData" TO ws-var-1.
WRITE your-record FROM ws-var-1 INVALID KEY DISPLAY "Error writing to file.".
CLOSE your-file.
En este ejemplo, se mueven datos a la variable ws-var-1 y luego se escribe en el archivo your-file usando la estructura de registro your-record. Si hay un error en la escritura, se muestra un mensaje de error.
OPEN) y el cierre (CLOSE) de archivos son operaciones fundamentales que deben realizarse adecuadamente para evitar errores de acceso a datos.EOF) para evitar bucles infinitos o errores de lectura.El acceso a datos en COBOL a través de las operaciones READ y WRITE es fundamental para el procesamiento de información en aplicaciones empresariales. Aunque COBOL puede parecer anticuado para algunos, su robustez y capacidad para manejar grandes volúmenes de datos lo hacen relevante incluso hoy en día.
Para más información sobre COBOL y sus operaciones de acceso a datos, puede consultar las siguientes referencias:
Recuerde que la práctica es esencial para dominar estas operaciones, así que no dude en experimentar y crear sus propios ejemplos para consolidar su conocimiento en COBOL.