COBOL - Comando ADD - www.cadcobol.com

Menu principal [Fechar]

Introdução

Divisões

Identification Division

Environment Division

Data Division

Procedure Division

Comandos CICS

VSAM - File Status

Quadros importantes

SQL - Structured Query Language

Outros programas

Rotinas prontas

Palavras reservadas

Introdução ao Oracle

Sites de busca

Sites interessantes

Meu e-mail

Linguagem de programação COBOL - ADD

Volta a página anterior

Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF.

Esta declaração permite somar campos que tenham a cláusula PICTURE numérica e que os dados realmente sejam numéricos

Primeiro formato:

Primeiro formato da sintaxe do comando ADD

Todos os identificadores ou literais que precede a palavra-chave TO são somados, e esta soma é agregado e armazenados em identificador-2.
Este processo é repetido para cada ocorrência sucessiva de identificador-2, na ordem da esquerda para a direita em que identificador-2 é especificado.

Segundo formato:

Segundo formato da sintaxe do comando ADD

Os valores dos operandos que antecede a palavra GIVING são somados, e a soma é armazenada como o novo valor de cada item de dados referenciados pelo identificador-3.

Terceiro formato:

Terceiro formato da sintaxe do comando ADD

Itens elementares de dados dentro identificador-1 são adicionados e armazenados no correspondentes itens elementares dentro identificador-2.

ADD

Identifier-1, Identifier-2 e Identifier-3 representam variáveis numéricas. Literal-1 e Literal-2 representam valores fixos, ou seja, o número escrito no programa.

ROUNDED

indica ao comando que os valores decimais devem ser arredondados, caso esta palavra reservada não seja indicada o compilador irá truncar estes valores, ou seja, um valor 10.25 truncado ficará como 10.2.

GIVING

indica que utilizaremos uma variável como repositório do resultado obtido pela soma de Identifier-1 com Identifier-2, caso GIVING não seja especificado o Identifier-2 será afetado pelo comando, ou seja, ele será utilizado para o resultado da soma. Imperative-statement-1 e Imperative-statement-2 indicam que algum comando deverá ser executado, desde que este comando não seja de análise condicional, por exemplo, um IF.

ON SIZE ERROR

ocorrerá sempre que o Indentifier-2 ou Indentifier-3 não comportarem o valor especificado e NOT ON SIZE ERROR ocorrerá na situação de normalidade do processo.

CORRESPONDING

é utilizado para somar uma TABELA inteira, ou seja, podemos construir tabelas nas definições das variáveis e com este recurso do comando somar a tabela de uma única vez, sem a necessidade da construção de laços para somar item a item. END-ADD é opcional.

ANS85 indica que esta é uma convenção nova e OSVS é uma convenção antiga utilizada no MainFrame.

Regras para adição

Todos os literais e campos que são parte da adição devem ser numéricos. Antes da palavra GIVING, contudo, o campo pode ser um item de relatório.

O campo resultante, imediatamente após a palavra TO ou a palavra GIVING, deve ser un nome de dados, e não um literal.

Ao usar o formato TO, o nome de dados imediatamente após a palavra TO é o campo receptor. Este campo rceptor é parte da instrução ADD; isto é, seu conteúdo inicial é somado junto ao dos outros campos. O campo receptor deve ser numérico ao usar este formato.

Ao usar o formato GIVING, o nome de dados imediatamente após a palavra GIVING é o campo receptor. Ele conterá a soma, mas seu conteúdo original não será parte da instrução ADD. Ele pode ser tanto um campo numérico como um item de relatório.

As palavras TO e GIVING poderão ser especificadas na mesma instrução se voce estiver usando o compilador COBOL 85.

Exemplo 1:

ADD VALOR1 VALOR2 VALOR3 GIVING VALOR4
	VALOR1	VALOR2	VALOR3	VALOR4
Antes da instrução ADD	2	4	6	15
Depois da instrução ADD	2	4	6	12

Exemplo 2:

ADD VALOR1 VALOR2 VALOR3 TO VALOR4
	VALOR1	VALOR2	VALOR3	VALOR4
Antes da instrução ADD	2	4	6	15
Depois da instrução ADD	2	4	6	27

Volta a página anterior