Como escrever um arquivo do Excel no programa COBOL

A principal força da linguagem de programação COBOL é a capacidade de escrever uma grande variedade de arquivos de dados úteis para pequenas empresas, incluindo o Microsoft Excel. Organizar o arquivo como um valor separado por vírgula ou CSV simplifica a tarefa de programação. Com o CSV, você configura uma estrutura de arquivos básica na Seção de Arquivo da Divisão de Dados do seu programa COBOL e, em seguida, move os valores para a estrutura na Divisão de Procedimentos. O Excel abre este arquivo como uma pasta de trabalho básica contendo linhas e colunas simples.

1

Crie uma entrada Selecionar na seção Entrada-Saída da Divisão de Ambiente do seu programa COBOL. Este é o nome do arquivo e onde você deseja que ele esteja localizado no diretório de arquivos do seu disco rígido. O seguinte COBOL ilustra a instrução Select:

DIVISÃO AMBIENTAL. SEÇÃO ENTRADA-SAÍDA. ARQUIVO-CONTROLE SELECT O EXCEL-OUTPUT-FILE ASSIGN À ORGANIZAÇÃO "C: \ WORKSHEET.CSV" É LINE SEQUENCIAL.

2

Defina um registro na Seção de Arquivo da Divisão de Dados como um espaço reservado com o tamanho da linha desejada para a planilha. Configure os valores da coluna da planilha na Seção de Armazenamento de Trabalho da Divisão de Dados como tipos de dados de exibição separados por vírgulas. Encerre cada registro com caracteres de retorno de carro e de avanço de linha, como no exemplo a seguir:

DIVISÃO DE DADOS. SEÇÃO DE ARQUIVO O FD EXCEL-OUTPUT-FILE DATA-RECORD É SPREADSHEET-RECORD. 01 SPREADSET-REGISTRO PIC X (14).

SEÇÃO DE ARMAZENAMENTO DE TRABALHO. 01 WS-SPREADSHEET-ROW. 05 WS-SALES-AMOUNT PIC 999, 99. 05 FILLER PIC X VALUE ', '. 05 WS-SALES-QTY PIC 99999. 05 PREENCHIMENTO PIC XX VALOR X'0D25 '.

Observe que X'0D25 'representa um avanço de linha de retorno de carro em hexadecimal. Esses dois caracteres marcam o final de cada registro em um arquivo CSV.

3

Mova os dados para os elementos de dados de armazenamento de trabalho de nível 05 e mova o rótulo de armazenamento de trabalho de nível 01 para o seu arquivo de saída na Divisão de Procedimentos do seu programa. Escreva o registro que você criou na definição de arquivo ou FD. O código COBOL a seguir cria e grava uma única linha em seu arquivo de saída CSV:

DIVISÃO DE PROCEDIMENTO. ABERTURA DE SAÍDA EXCEL-OUTPUT-FILE. MOVE VENDA-VALOR PARA WS-SALES-MONTANTE. MOVE VENDAS-QTY PARA WS-SALES-QTY. Mova o WS-SPREADSHEET-ROW para o SPREADSHEET-RECORD. GRAVAR ESPAÇO DE GRAVAÇÃO. FECHAR EXCEL-OUTPUT-FILE.

Gorjeta

• Na Divisão de Procedimentos, configure as instruções MOVE e WRITE em seu próprio parágrafo. Chame o parágrafo de um loop que executa quantas vezes o número de linhas em sua planilha, em seguida, feche o arquivo.