• Introdução
• Regras de um programa COBOL
  • Regras de codificação
  • Divisões
• Variáveis
  • Regras de formação
  • Níveis de dados
• Palavras Reservadas
  • Constantes Figurativas
  • Condições de Classe
• Comando Aritméticos
  • ADD
  • SUBTRACT
  • MULTIPLY
  • DIVIDE
  • COMPUTE
• Estruturas de Controle
  • Condicional
  • Iteração

Este repositório tem como objetivo reunir códigos e conceitos básicos da linguagem de programação COBOL (COmmon Bussines Oriented Language), que será foi ministrado 27 de outubro de 2018 como minicurso na 2ª edição do FlashCLIP.

• Lucas Costa
• Pablo Henrique
• Thiago Aparecido

Para executar programas COBOL é necessário que você tenha um interpretador da linguagem instalado na sua máquina, no curso utilizaremos software OpenCobolIDE que pode ser obtido através deste link (https://launchpad.net/cobcide/+download) baixe e instale-o normalmente no seu computador.

Um programa de origem COBOL deve ser escrito em um formato aceitável para os compiladores, os programas são escritos em folhas de codificação que possuem 80 caracteres de posição sobre cada linha de uma folha.

Pode-se digitar até a coluna 80 mas tudo que for digitado entre 73 e 80, será considerado como um comentário. Atualmente, em muitos compiladores, essas regras não são mais necessárias. Mas é importante conhecer essas regras, pois dependendo da versão da sua ferramenta COBOL, poderá se deparar com programas utilizando essa estrutura.

Um programa COBOL possui 4 DIVISIONS (divisões), que por sua vez possuem SECTIONS (seções). Cada divisão/seção tem um objetivo bem específico, o que torna o programa muito legível e fácil de entender, pois cada definição fica em um local específico.

IDENTIFICATION DIVISION. (divisão de identificação)
ENVIRONMENT DIVISION. (divisão de ambiente)
DATA DIVISION. (divisão de dados)
PROCEDURE DIVISION. (divisão de procedimentos)

É a divisão de identificação do programa na qual se fornece informações sobre o programa, tais como nome do programa, autor, comentários do autor e informações de uso para o usuário final. Essa divisão não possui seções. Esta divisão possui a seguinte estrutura:

IDENTIFICATION DIVISION.
PROGRAM-ID. nome-programa.
AUTHOR. nome-autor.
INSTALLATION. local-desenvolvimento.
DATE-WRITTEN. mm/dd/yy.
DATE-COMPILED. mm/dd/yy. HH:MM:SS.

• PROGRAM-ID. Onde deverá ser informado o nome do programa a ser feito.
• AUTHOR. (opcional) Onde poderá ser indicado o nome do autor do programa
• INSTALLATION. (opcional) Onde poderá conter o nome da empresa ou local de geração do programa.
• DATE-WRITTEN. (opcional) Onde poderá conter a data em que o programa foi codificado.
• DATE-COMPILED. (opcional) Onde poderá conter a data em que o programa foi compilado.
• SECURITY. (opcional) Onde poderá conter os comentários sobre a segurança do programa e/ou seus arquivos.
• REMARKS. (opcional) Onde poderá conter os comentários adicionais sobre o programa.

Todos os comandos opcionais não possuem nenhum efeito na aplicação, são apenas parâmetros para documentação do programa, mas, caso queira utilizar algum deve ser escrito corretamente para que não cause erro de compilação.

É a divisão de ambiente, descreve o computador e os periféricos que serão utilizados pelo programa, fazendo ligação com o ambiente operacional onde o programa será executado, pode ser dividida em duas seções:

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. nome.
OBJECT-COMPUTER. nome.
SPECIAL-NAMES.   (comandos).
INPUT-OUTPUT SECTION.
FILE-CONTROL.    (comandos).
I-O-CONTROL.     (comandos).

• CONFIGURATION SECTION. Destina-se a configuração do ambiente

  • SOURCE-COMPUTER. Identifica em qual computador o programa foi feito.

  • OBJECT-COMPUTER. Identifica o computador no qual o programa está.

  • SPECIAL-NAMES. É onde se especifica comandos que atribuem características como sinal monetário, tipo de ponto decimal e caracteres simbólicos necessários para o bom funcionamento da aplicação.

• INPUT-OUTPUT SECTION. Esta seção destina-se a configuração do ambiente de Leitura e Gravação

  • FILE-CONTROL. Destina-se a especificação dos arquivos que o programa irá acessar.

  • I-O CONTROL. É onde é especificado como o programa deve receber as informações por outros meios de entrada, como cartões perfurados.

Essa é a divisão de dados, na qual se declaram as variáveis, as constantes e todos os tipos de dado que irão alocar memória no decorrer do processo, pode ser dividida por essas seções:

DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
LINKAGE SECTION.
SCREEN SECTION.

• FILE SECTION. Aqui são definidas todas as variáveis e constantes utilizadas pelo programa e que realmente serão gravadas em arquivo.
• WORKING-STORAGE SECTION. Aqui são definidas todas as variáveis e constantes utilizadas pelo programa que serão apenas utilizadas em tempo de execução (tais como variáveis utilizadas para armazenar valores temporários e operadores lógicos).
• LINKAGE-STORAGE SECTION. Descreve os parâmetros formais de entrada e de retorno de dados
• SCREEN SECTION. Descreve as telas a serem exibidas durante a execução do programa

Esta é a divisão de procedimentos, contém o código que irá manipular os dados descritos na DATA DIVISION. É nesta divisão que o desenvolvedor descreverá a lógica do programa. Consiste em instruções executáveis ​​usando variáveis ​​definidas na divisão de dados. Nesta divisão, nomes de parágrafo e seção são definidos pelo usuário. Deve haver pelo menos uma declaração na divisão de procedimento. A última instrução para encerrar a execução nesta divisão é STOP RUN que é usado nos programas de chamada ou EXIT PROGRAM que é usado nos programas chamados.

Os tipos existentes na linguagem cobol são: alfabética, numérica e alfanumérica. A palavra reservada PIC [PICTURE] identifica o tipo e o tamanho da variável. Todas as variáveis e constantes utilizadas devem ser declaradas dentro da DATA DIVISION na seção WORKING-STORAGE.

Alfabética
Representado pelo caractere “A”, indica que esta variável suportará apenas caracteres alfabéticos ou espaço. Possuem tamanho máximo de 160 caracteres. Devem ser declaradas entre aspas, normalmente simples.
Exemplo:

01 nome PIC A(010) value spaces.

Numérica
Representado pelo caractere “9”, indica que esta variável suportará apenas caracteres de 0 a 9. As variáveis numéricas suportam no máximo 18 dígitos incluindo as casas decimais.
Exemplo:

01 numero PIC 9(006) value zeros.

Alfanumérica
Representado pelo caractere “X”, indica que esta variável suportará todos os caracteres da tabela ASCII.
Exemplo:

01 nome PIC X(10) value spaces.

As regras para nomes de variáveis são:

• O tamanho máximo é de 30 caracteres
• Não pode conter espaços ou brancos
• Pode começar com um número, mas precisa ter pelo menos um caractere alfabético
• Não pode ser uma palavra reservada COBOL
• Não pode conter outros caracteres senão A-Z, 0-9 e o hífen (-)

Toda variável deve ser declarada em níveis, que vai do 01 até 49. Quanto menor o número do nível, maior ele será na hierarquia, por exemplo:

WORKING-STORAGE SECTION.
    01 NOME-COMPLETO.
        05 NOME          PIC X(20).
        05 SOBRENOME     PIC X(20).
        05 ULT-NOME      PIC X(20).

Variável NOMECOMPLETO com 60 caracteres.

Quando uma variável declarada não tem itens abaixo dela, essa variável pode ser chamada de: item elementar ou item individual. Caso contrário essa variável é chamada de item de grupo e as variáveis abaixo dela de item elementar.

Existem ainda os níveis especiais 66, 77, 78 e 88 que permitem um uso diferenciado para as variáveis.

Nível 66 é utilizado para renomear outras variáveis do programa, isto é útil quando queremos por exemplo utilizar apenas o mês e o dia de uma data:

01 DATA.
     10 DIA     PIC 9(002) value zeros.
     10 MES     PIC 9(002) value zeros.
     10 ANO     PIC 9(004) value zeros.
     66 DIA-MES RENAMES DIA THRU MES.

Desta forma acessando a variável DIA-MES estaremos enxergando o conteúdo das variáveis DIA E MES.

Nível 77 é utilizado para declarar variáveis que não irão possuir sub-itens, isso significa que a variável não tem relacionamento definido com nenhuma outra variável.

Nível 78 é utilizado para declarar constantes, ou seja, são referências que não podem ter o seu conteúdo alterado no programa. Nesta declaração é informado o nome da constante e seu valor.

78 PI VALUE 3.14159.
78 AZUL VALUE 1.
78 BRANCO VALUE 7.

Nível 88 é utilizado para definição de condição de variáveis, sua utilização é opcional, mas costuma tornar o código muito mais legível.

77 HORA PIC 9(002).
    88 HORA-OK VALUES 0 THRU 23.
IF NOT HORA-OK
    DISPLAY “HORA INVALIDA !!”
END-IF

Sem Nível 88

77 HORA PIC 9(002).
IF HORA > 23
    DISPLAY “HORA INVALIDA !!”
END-IF

O COBOL possui cerca de 400 palavras reservadas e mais alguns símbolos, cada uma significado específico para o compilador COBOL, e não pode ser utilizada fora de sua finalidade dentro de um programa. Na parte da leitura é útil pois os nomes descrevem o que a função faz (ex: SUM é a função para somar), já para escrita é um pouco menos usual porque é necessário saber como usar as palavras reservadas. Você pode visualizar todas palavras reservadas do COBOL acessando esse link.

São literais geradas pelo compilador e usados como palavras reservadas. Algumas dessas palavras são descritas abaixo. Pode-se usar tanto o plural quanto o singular.

ZERO, ZEROS, ZEROES Representa o valor numérico "zero" ou uma ou mais ocorrências do caracter 0.

SPACE, SPACES Representa um ou mais espaços.

HIGH-VALUE, HIGH-VALUES Representa um ou mais caracteres com valores-altos. Usualmente é o hexadecimal "FF".

LOW-VALUE, LOW-VALUES Representa um ou mais caracteres com valores-baixos. Usualmente é o binário 0.

ALL Literal Representa um conjunto de caracteres pré definido.

NULL, NULLS Representa o valor numérico "zero". Também representa um endereço inválido de memória quando usado em conjunto com tipos de dados POINTER. igurative constants for a literal restricted to numeric literals.

A condição de classe é usada para testes onde se deseja saber se uma variável é formada ou não de um tipo particular de dados.

NUMERIC Numérico, caracteres de 0 a 9.
ALPHABETIC Alfabético, caracteres de A - Z, de a – z e espaços.
ALPHABETIC-UPPER Alfabético, caracteres de A - Z, e espaços.
ALPHABETIC-LOWER Alfabético, caracteres de a - z, e espaços.

Exemplo:

IF NUM1 IS ALPHABETIC THEN
    DISPLAY "NUM1 é alfabético".

IF NUM2 IS NUMERIC THEN
    DISPLAY "NUM2 é numérico".

No caso da exponenciação não há um operador, assim para realizar o cálculo com o símbolo é necessário utilizar o comando COMPUTE.

Utilizado para adicionar um valor a uma variável.

1ª Sintaxe:

ADD [nome-de-dado-1], [nome-de-dado-2] TO (nome-de-dado-n);

2ª Sintaxe:

ADD [nome-de-dado-1], [nome-de-dado-2] GIVING (nome-de-dado-n);

Regras:

• O comando ADD tem a função de somar dois ou mais valores numéricos e armazenar a soma resultante;
• Quando a opção TO é usada, os valores de todos os nomes-de-dados, incluindo nome-de-dado-n, são somados e o resultado é armazenado em nome-de-dado-n;
• Quando a opção GIVING é usada pelo menos dois nomes-de-dados e/ou literais-numéricos devem seguir a palavra ADD.

Exemplos:

ADD A TO B
B = A + B - Soma o valor de “A” e “B” e armazena o resultado em “B”

ADD A B TO C
C = A + B + C - Soma o valores de “A”, “B” e “C” e armazena o resultado em “C”

ADD A B GIVING RESULTADO
RESULTADO = A + B - Soma o valores de “A” e “B” e armazena o resultado em “RESULTADO”

Utilizado para subtração de valores.

1ª Sintaxe:

SUBTRACT [nome-de-dado-1], [nome-de-dado-2] FROM (nome-de-dado-n);

2ª Sintaxe:

SUBTRACT [nome-de-dado-1], [nome-de-dado-2] FROM [nome-de-dado-n-1] GIVING (nome-de-dado-n)

Regras:

• No comando SUBTRACT os nome-de-dados que precedem FROM são somados e esta soma é subtraída do nome-de-dado que sucede FROM;

• O resultado será armazenado em nome-de-dado-n se houver GIVING e, em nome-de-dado-m se houver.

Exemplos:

SUBTRACT A B FROM C
C = C – (A + B)

SUBTRACT A B 2 FROM C
C = C – (A + B + 2)

SUBTRACT A B 2 FROM 200 GIVING C
C = 200 – (A + B + 2)

Utilizado para multiplicação de valores.

1ª Sintaxe:

MULTIPLY [nome-de-dado-1] BY (nome-de-dado-2);

2ª Sintaxe:

MULTIPLY [nome-de-dado-1] BY [nome-de-dado-2] GIVING (nome-de-dado-n)

Regras:

• Calcula o produto de dois itens-de-dados numéricos e armazena o resultado.
• Quando a opção GIVING é usada, o produto vai para nome-de-dado-n e quando não, o produto vai para o nome-de-dado-2.

Exemplos:

MULTIPLY A BY B
B = A X B

MULTIPLY A BY 5 GIVING C
C = A X 5

Utilizado para divisão de valores. O comando DIVIDE divide dois valores numéricos e armazena o quociente.

Sintaxe:

DIVIDE {nome-de-dado-1} {BY/INTO} {nome-de-dado-2} GIVING {nome-de-dado-3}

Regras:

• A instrução DIVIDE divide um item numérico por outro armazenando o resultado no item especificado.
• A forma BY diz que o primeiro operando é o dividendo, e que o segundo operando é o divisor;
• Para a forma INTO, vale o contrário. Se a opção GIVING não estiver presente, o operando que representar o dividendo deve ser um nome-de-dado que armazenará o quociente. A divisão por zero sempre cria um condição de erro.

Exemplos:

DIVIDE A INTO B
B = B / A

DIVIDE A INTO B GIVING C REMAIDER D.
C = B / A

DIVIDE A BY B GIVING C REMAIDER D.
C = A / B

OBS:

1. D armazena o resto da divisão.
2. Só se usa BY com o comando GIVING.

O COMPUTE é utilizado para cálculos formados por expressões matemáticas de diferentes complexidades, podendo-se utilizar parênteses para priorizar cálculos e organizar a expressão.

O operadores são: '+' para adição, '-' para subtração,'*' para multiplicação, '/' para divisão e '**' para exponenciação.

Sintaxe:

COMPUTE [nome-de-dado-1] = nome-de-dado-2 [símbolos] nome-de-dado-n

Exemplos:

COMPUTE F = A + B / ( ( C – D ) * E )

Quando se usa parenteses valem as seguintes regras:

• Um abre parenteses é precedido por um ou mais espaços;
• Um fecha parenteses é seguido por um ou mais espaços;

Instrução “IF” verifica as condições. Se uma condição é verdadeira, o bloco é executado, e se a condição for falsa, o outro bloco é executado. A estrutura condicional “IF” do COBOL consiste no seguinte trecho de código:

IF <condição>
    <sentença>.
ELSE
    <sentença>.
END-IF.

Podemos aninhar várias estruturas condicionais da seguinte maneira:

IF <condição>
    IF <condição>
        <sentença>.
    ELSE
        <sentença>.
    END-IF.
ELSE
    <sentença>.
END-IF.

Lembrando que, em COBOL:
1 – Todo “IF” precisa ter um “END-IF”.
2 – Um “IF” não precisa ter um “ELSE”.
3 – Um “ELSE” vale pro último “IF” sem “ELSE” dentro de um “END-IF” dentro do ninho.

O comando “EVALUATE WHEN” é o comando equivalente no COBOL para a estrutura condicional “switch” de outras linguagens. Ela representa uma alternativa mais simples para a criação de um ninho de instruções “IF”. Consiste no seguinte trecho de código:

EVALUATE <variável>
WHEN <condição 1>    <sentença>.
WHEN <condição 2>    <sentença>.
WHEN <condição 3>    <sentença>.
END-EVALUATE.

Exemplo:

EVALUATE NOTA
WHEN < 5
    DISPLAY "REPROVADO"
WHEN >= 5 AND < 7
    DISPLAY "RECUPERACAO"
WHEN >= 7 AND <= 10 
    DISPLAY "APROVADO"
WHEN OTHER
    DISPLAY "NOTA INVALIDA"
STOP RUN.

A principal estrutura de repetição do COBOL é dada pelo comando “PERFORM UNTIL”. Sua sintaxe básica é dada por:

PERFORM VARYING <variável> FROM <valor1> TO <valor2> UNTIL <condição>
    <sentença>
END-PERFORM.

O parâmetro “VARYING <variável> FROM <valor 1> TO <valor 2>” permite que a estrutura se comporte como uma estrutura “for” de outras linguagens. A omissão do mesmo faz com que a estrutura se comporte como uma estrutura de repetição “do while”.

Exemplo 1:

PERFORM VARYING CONT FROM 1 BY 1 UNTIL CONT>10
    DISPLAY CONT
END-PERFORM.

Exemplo 2:

PROCEDURE DIVISION.
MAIN.
    PERFORM A UNTIL I=9.
A.
    DISPLAY  'CONTADOR : 'I.
    ADD 1 TO I.

Executa o bloco até a condição ser verdadeira:
Exemplo 3:

A.
    PERFORM B VARYING I FROM 1 BY 1 UNTIL I=5
STOP RUN.

B.
    DISPLAY I.

Nessa estrutura o paragrafo será executado “n” vezes.

A.
    PERFORM B 3 TIMES.
STOP RUN.

B.
    DISPLAY 'FlashCLIP'.