Configurando o ambiente COBOL 4.5

Neste artigo veremos como configurar o ambiente COBOL 4.5, isso é importante para aqueles que querem dar um passo maior com a linguagem COBOL, fazendo do seu arquivo COBOL um executável.

Para tanto estaremos mostrando como configurar o compilador COBOL 4.5 dentro de um sistema operacional de 32 bits. Caso você tenha um sistema operacional de 64 bits, é indicado fazer um download da ferramenta que citaremos aqui, que é o DOSBox. Caso seu sistema operacional tenha um sistema de compatibilidade forte, que é muito difícil simular por si só a concatenação de bits, então você não precisará utilizar o DOSBox.

Por conveniência, veremos os passos com o prompt de comando do próprio Windows e da ferramenta DOSBox que vai ser baixada dentro do Windows também.

Primeiro passo: faça o download do COBOL 4.5 e descompacte-o na pasta raiz C:\. Em seguida acesse o prompt de comandos e depois a pasta raiz

Listagem 1: Acessando a pasta raíz no prompt

Se está montando uma partição com algum simulador de sistema de 32 bits, como o DOSBox, faça a montagem apenas como se fosse a pasta C:\ e depois acessando o diretório criado.

Listagem 2: Acessando a pasta raiz no DOSBox

Figura 1: O resultado dos comandos no DOSBox

Isso porque as variáveis de configuração do arquivo em lotes "SETCOBOL.BAT" irão apontar exatamente para o caminho da pasta raiz padrão.

Listagem 3: Descrição do arquivo "SETCOBOL.BAT", que vai estar na pasta SOURCE

Caso tenha montado um outro diretório com outra nomenclatura, com “mount j c:\”, é só renomear o arquivo do SETCOBOL onde aponta o caminho de C:\ para j:\.

Listagem 4: Mudando o diretório de C:\ para j:\

Isso pode causar um trabalho imenso e o intuito não é esse, então se está usando o simulador DOSBox, faça conforme os passos iniciais montando um diretório com o mesmo nome da pasta raiz C, se não está usando despreze essa parte de montagem.

Feito isso, é só acessar a pasta SOURCE.

Veja que agora, em ambos os casos, você já está no diretório inicial c:\, então é só continuar com esses passos.

Listagem 5: Acessando a pasta SOURCE

Essa parte de acessar a pasta SOURCE é muito importante. Caso tenha feito o download e o nome da pasta original seja COBOL45, o que fazer? É simples, substitua COBOL4.5 por COBOL45.

Digite dir par ver se o arquivo de configuração, "SETCOBOL.BAT", está dentro da pasta. Se estiver, é só chama-lo, assim:

Listagem 6: Acionando arquivo de configuração

O resultado será conforme a Figura 2.

Figura 2: Resultado da configuração para desenvolvimento COBOL 4.5

Ele irá automaticamente configurar o ambiente para desenvolvimento COBOL. Como isso acontece? Ele habilita o compilador e outros programas que estão dentro da pasta bin e outras pastas, tornando-os visíveis na pasta SOURCE.

Agora já temos o ambiente configurado através do console, o que isso significa é que você já poderá programar no console. Se fechar o console, tem que configurar novamente, se não, siga os próximos passos.

Coloque os arquivos com extensão cbl e cob, dentro da pasta SOURCE.

Digamos que você acabou de salvar o MSPROG com extensão cbl na pasta SOURCE, então é só digitar dir, que seus arquivos vão ser listados.

Figura 3: Lista de arquivos na pasta SOURCE

Para compilar, digite o nome do compilador e o arquivo com a extensão depois do ponto e ponto e virgula no final.

Listagem 7: Primeira compilação

Assim ele estará criando o objeto, agora é só gerar o executável, chamando o link e o programa.

Listagem 8: Criando o executável

Agora, não tendo nenhum problema de compilação, você terá o executável.

Listagem 9: Chamando o executável

Com isso seu programa já é um executável, mas não significa que por não ter nenhum problema de compilação esteja correto ou por ter algum problema de compilação esteja errada a sintaxe dele.

Uma das explicações para isso, em um dos casos, é que tem erro que é mais frequente, como o erro do display e do accept.

Listagem 10: Código usado nas versões anteriores

Listagem 11: Código usado nas versões atuais

Percebeu que as linhas e colunas estão juntas?

Você pode encontrar um programa completo de demonstração na pasta DEMO. A seguir desenvolvemos um programa de demonstração e que não está na pasta DEMO, que use poucos recursos da linguagem COBOL ao invés de não usarmos nenhum, como é o caso em que geralmente conhecemos de exemplos na internet, com programas "completos” com apenas mensagem.

Listagem 12: Programa executável completo

Então esse foi um exemplo de programa completo para teste no seu ambiente COBOL 4.5. Você não precisará em embasar-se nele para todos os desenvolvimentos, o COBOL é fruto de muita pesquisa e análise, em que cada um pode construir sua lógica, mas também o COBOL é fruto de muita cópia de código pré-compilável. Como outras linguagens, ninguém irá dominar sem que tenha estudado o código de outro para entender a linguagem.

Então vamos quebrar todo o código e ver sua explicação por partes.

Aqui está a parte inicial de identificação do programa, você pode chama-lo de qualquer coisa, nós o chamamos de JALMOX.

Listagem 13: Identificação do programa

Agora já começamos com configuração dentro da ENVIRONMENT DIVISION. Primeiro configuramos os nomes especiais, ou seja, vamos declarar que a vírgula é o ponto decimal, mudando o modo padrão Americano.

Listagem 14: Configurando ENVIRONMENT DIVISION

Ainda dentro da ENVIRONMENT DIVISION, vamos configurar os arquivos de entrada e saída, utilizando uma SELECT para cada arquivo e apontando o endereço lógico, que nesse caso vai ser "FUNC.DAT".

Quando o arquivo for criado, você vai vê-lo com esse nome e extensão dentro da pasta SOURCE, a organização dele vai ser sequencial e a variável que vai retornar o status do arquivo vai ser ST-ERRO, com o status indicando uma informação. Você vai ver o status retornar dois dígitos, o ST-ERRO que vai ser declarado na WORKING, depois, caso necessite, é só imprimir esse status e procurar informação em uma tabela de status. A IBM tem algumas tabelas online, muitas vezes em inglês, mas ajudam muito.

Listagem 15: Configurando o arquivo

Agora chegou a hora de entrarmos na estrutura do arquivo, isso se fará na DATA DIVISION. Quando você abrir uma file section, não precisará por mais de uma, é só declarar uma FD para cada arquivo.

Listagem 16: Declarando FD

Embaixo da FD estará o registro com as variáveis. Perceba que sempre vai vir uma numeração na frente, os registros obrigatoriamente têm a numeração 01 na frente, as demais variáveis podem vir "geralmente" até o nível 77. Então a declaração da variável vai ser como segue embaixo, nível, nome da variável, PIC, de Picture (tipo 9 para inteiros e x para alfanuméricos) e, por último, tamanho (a vírgula indica os decimais).

Listagem 17: Registrando as variáveis

Agora estamos na parte da WORKING-STORAGE SECTION, que vai servir para declarar outras variáveis. Também tem estrutura de registro dentro da WORKING, veja o nível 01 aparecendo, essas variáveis de sistemas são as que vão colher algumas informações possíveis pelo teclado e outras como a data do sistema, que você vai poder observar quando executar o programa pela primeira vez no canto superior esquerdo.

Listagem 18: WORKING-STORAGE SECTION

Então nós vamos criar a tela que estará dentro da SCREEN SECTION. Perceba que a linha aponta para a posição em tela do console e a coluna também, depois é só declarar o valor que aparecerá nessa posição.

Listagem 19: SCREEN SECTION

Ainda como parte da configuração da tela estaremos chamando as variáveis que suportarão as variáveis do arquivo, uma espécie de LABLEs especiais, e devem ter o mesmo tamanho e mesmo tipo. É como se nós estivéssemos dizendo que aqui estará um inteiro com um número de posições pré determinada, inteiro para inteiro e alfanumérico para alfanumérico.

Listagem 20: Variáveis

Chegamos então na parte final do PROCEDURE, que conterá todo o desenvolvimento, todos os métodos e funções. Aqui nós colocamos as LABLEs, por exemplo, 010-INICIO. terá a função de ser uma referência para esse trecho de código que está dentro dele até o ponto. O OPEN que é primordial para tratar com as variáveis do arquivo e com todo o arquivo, o CLOSE para fechar o arquivo.

O condicional IF continuará tratando situações de se sim ou se não. O GO TO irá apontar a LABLE para onde o processo será direcionado e o accept irá receber a informação. Já o display serve para exibir informações, enquanto o MOVE terá a função de preencher as variáveis com algum valor.

Listagem 21: SCREEN SECTION - Continuação

Depois disso é puramente lógica, será a parte que você vai decidir como tratar e o que fazer com o seu programa. Limpamos cada espaço da tela que seria digitado com a variável WS-LIMPA, apontando a posição, e permitimos que as informações fossem digitadas em tela através do accept. Depois exibimos uma mensagem como se estivesse gravando através do display. Por último fechamos o arquivo FUNC.

Listagem 22: Finalizando FUNC.

Outras dicas:

• Lembre-se que a maior parte das configurações igual ao que vimos aqui.
• Nunca coloque nada para ser executado antes da coluna 8, que não será reconhecível pelo compilador.
• O comando de escrita WRITE continuará sendo processado em cima do registro do arquivo.
• O de leitura READ, sempre em cima do arquivo.
• Para ler ou escrever em cima de um arquivo ou registro, respectivamente, é necessário abrir o arquivo.
• Se o arquivo não puder ser aberto, ele poderá ser criado, com o comando OPEN OUTPUT arquivo, mas lembrem-se, todas as vezes que o arquivo é aberto com o OUTPUT, ele vai criar um novo arquivo e apagar o antigo, se houver.
• As Lables podem continuar na coluna 8, os demais códigos da procedure division podem ser executados a partir da coluna 12.
• Os comentários pode-se fazer com os asteriscos na coluna 7.
• Se o seu asterisco for posto na coluna errada, ou seja, na coluna 8 em diante, vai dar erro.

Essas pequenas alterações vão te ajudar como uma pequena introdução de configuração COBOL 4.5. E que todos tenham um ótimo proveito com o desenvolvimento COBOL 4.5.