Cómo escribir un archivo de Excel desde el programa COBOL

La principal fortaleza del lenguaje de programación COBOL es su capacidad para escribir una gran variedad de archivos de datos útiles para pequeñas empresas, incluido Microsoft Excel. Organizar el archivo como un valor separado por comas, o CSV, simplifica la tarea de programación. Con CSV, configura una estructura de archivos básica en la Sección de Archivos de la División de Datos de su programa COBOL, luego mueve los valores a la estructura en la División de Procedimientos. Excel abre este archivo como un libro básico que contiene filas y columnas simples.

1.

Cree una entrada de Selección en la sección Entrada-Salida de la División de Medio Ambiente de su programa COBOL. Este es el nombre del archivo y dónde lo quiere ubicar en el directorio de archivos de su disco duro. El siguiente COBOL ilustra la declaración Select:

DIVISIÓN DE MEDIO AMBIENTE. SECCIÓN DE ENTRADA-SALIDA. CONTROL DE ARCHIVOS. SELECCIONE EL EXCEL-OUTPUT-FILE ASSIGN TO "C: \ WORKSHEET.CSV" LA ORGANIZACIÓN ES SECUENCIAL DE LÍNEA.

2.

Defina un registro en la Sección de archivos de la División de datos como un marcador de posición que tenga el tamaño de la fila que desea para la hoja de cálculo. Configure los valores de columna de la hoja de cálculo en la Sección de almacenamiento y trabajo de la División de datos, como tipos de datos de visualización separados por comas. Finalice cada registro con caracteres de retorno de carro y avance de línea como en el siguiente ejemplo:

DIVISIÓN DE DATOS. SECCIÓN DE ARCHIVO. FD EXCEL-OUTPUT-FILE DATA-RECORD ES SPREADSHEET-RECORD. 01 HOJA DE CÁLCULO HOJA DE REGISTRO X (14).

SECCIÓN DE ALMACENAMIENTO LABORAL. 01 WS-SPREADSHEET-ROW. 05 WS-SALES-AMOUNT PIC 999.99. 05 FILLER PIC X VALUE ', '. 05 WS-SALES-QTY PIC 99999. 05 FILLER PIC XX VALUE X'0D25 '.

Tenga en cuenta que X'0D25 'representa un retorno de carro, avance de línea en hexadecimal. Estos dos caracteres marcan el final de cada registro en un archivo CSV.

3.

Mueva los datos a los elementos de datos de almacenamiento de trabajo de nivel 05, luego mueva la etiqueta de almacenamiento de trabajo de nivel 01 a su archivo de salida en la División de Procedimientos de su programa. Escriba el registro que creó en la definición de archivo, o FD. El código COBOL que sigue crea y escribe una sola fila en su archivo de salida CSV:

DIVISIÓN DE PROCEDIMIENTOS. SALIDA ABIERTA EXCEL-SALIDA DE ARCHIVO. MUEVE EL VALOR DE VENTAS A WS-SALES-AMOUNT. MUEVE LA CALIDAD DE VENTAS A WS-SALES-QTY. MUEVA WS-SPREADSHEET-ROW TO SPREADSHEET-RECORD. ESCRIBE LA HOJA DE ESPACIO-REGISTRO. CERRAR EXCEL-SALIDA DE ARCHIVO.

Propina

• En la División de procedimientos, configure las declaraciones MOVE y WRITE en su propio párrafo. Llame al párrafo desde un bucle que se ejecute tantas veces como la cantidad de filas en su hoja de cálculo, luego cierre el archivo.