Cobl

1

/,1*8$*(0'(352*5$0$d­2&2%2/3DJ

&2%2/ - &RPPRQ%XVLQHVV2ULHQWHG/DQJXDJH - Linguagem de Programação Comum

Orientada à negócios. Um programa COBOL é composto de 4(quatro) divisões:

1)IDENTIFICATION DIVISION - divisão que serve para identificar o programa-fonte, dados sobre

o autor,data em que foi escrito,observações sobre o que o programa faz,e sobre a segurança.

Sintaxe:

IDENTIFICATION DIVISION.

PROGRAM-ID. EXEMPLO.

AUTHOR. WILSON PEDRO CARLI.

DATE-WRITTEN. 01/08/1996.

REMARKS. ESTE PROGRAMA EH UM EXEMPLO.

SECURITY. NÃO EXECUTAR SEM TESTAR ANTES.

2)ENVIRONMENT DIVISION - esta divisão fornece informações relativas aos meios externos,ou

seja, arquivos e equipamento.Define os arquivos a serem utilizados no programa,a sua

organização,meio de acesso,chaves primárias e/ou secundárias.

Sintaxe:

ENVIRONMENT DIVISION.

CONFIGURATION SECTION.

SPECIAL-NAMES. DECIMAL-POINT IS COMMA.

INPUT-OUTPUT SECTION.

FILE-CONTROL.

SELECT nome-arquivo ASSIGN TO {DISK,PRINTER}

[ ORGANIZATION IS { SEQUENTIAL,INDEXED,LINE SEQUENTIAL}

[ACCESS MODE IS { SEQUENTIAL,DYNAMIC}

[ RECORD KEY IS nome-chave-primaria ]

[ ALTERNATE RECORD KEY IS nome-chave-secundaria

[WITH DUPLICATES ] ]

[ FILE STATUS IS nome-campo-file-status ] .

Para cada arquivo a ser utilizado pelo programa, deverá haver uma cláusula SELECT.

ACCESS- define o método de acesso aos registros do arquivo.

Sequential=>leitura e gravação dos registros a partir do primeiro registro do arquivo

até o final do mesmo.

Dynamic=> leitura,regravação,exclusão,gravação de registros através de um chave

primária, ou secundária definida dentro do lay-out do arquivo.



2



/,1*8$*(0'(352*5$0$d­2&2%2/3DJ



 ORGANIZATION- especifica a estrutura lógica do arquivo. A organização do arquivo

é estabelecida no momento em que o arquivo é criado, e não pode ser modificada

subsequentemente.Quando a organização não é especificada, a organização sequencial

é assumida na compilação. SEQUENTIAL=> os registros são criados através de programas

cobol e armazenados na ordem em que foram gerados(disco,impressora,fita).

LINE SEQUENTIAL => os registros são criados por editor de texto e armazenados

na ordem em que foram criados. INDEXED=> os registros são identificados pelo conteúdo

dos campos denominados “chaves”(primária ou secundária), e são armazenados

em qualquer ordem na criação do registro, mas na leitura, obedece a ordem da chave

e o método de acesso.

RECORD KEY - especifica a chave primária de um arquivo com organização indexada.

É um campo definido no lay-out do registro do arquivo e deverá ser alfanumérica,

e pode chegar até 250 bytes.

ALTERNATE KEY - especifica a chave secundária do arquivo, que é opcional para

os arquivos com organização indexada. É também um campo definido no lay-out do

registro do arquivo, com até 250 bytes alfanuméricos, mas tem a opção de aceitar

valores duplicados.

FILE STATUS - campo alfanumérico de 2 bytes definido na WORKING_STORAGE

da DATA DIVISION, que a cada operação efetuada com o arquivo, demonstra o valor

da operação efetuada.

Valor Descrição

00 Comando executado com sucesso

02 Comando arquivo c/chave duplicada executado com sucesso

10 Fim do arquivo

21 Erro de sequencia na gravação de arquivo sequencial

22 Chave duplicada não definida.

23 Chave não encontrada.

24 Espaço em disco está cheio

30 Arquivo não encontrado

91 Erro na estrutura do arquivo

94 Registro ou arquivo sendo utilizado por outro programa.

3) DATA DIVISION - armazena todos os dados a serem processados ou manipulados pelo

programa, durante o processamento, podendo ser internos ou externos.Pode ser

dividida em até seis seções, mas usualmente são utilizadas 3 seções:

FILE SECTION- seção que define a estrutura dos arquivos de dados. Esta definição

envolve a descrição do arquivo e seus respectivos registros. Para cada SELECT

definido temos uma