COBOL - Comando MULTIPLY - www.cadcobol.com.br



Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

MULTIPLY
Como a propria forma da escrita, esta instrução é usada para efetuar multiplicações.

Primeiro formato: (MULTIPLY)


Segundo formato: (MULTIPLY with GIVING)



Observações:

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.

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



Exemplos:
Antes Comando Depois
VALOR-1 VALOR-2 VALOR-3 VALOR-1 VALOR-2 VALOR-3
8 9 16 MULTIPLY VALOR-1 BY VALOR-2 GIVING VALOR-3 8 9 72
10 -2 MULTIPLY VALOR-1 BY VALOR-2 GIVING VALOR-3 10 -2 -20
-10 2 MULTIPLY VALOR-1 BY VALOR-2 GIVING VALOR-3 -10 2 -20
-10 -2 MULTIPLY VALOR-1 BY VALOR-2 GIVING VALOR-3 -10 -2 20
8 9 MULTIPLY VALOR-1 BY VALOR-2 8 72
5 MULTIPLY 2 BY 3 GIVING VALOR-1 6
23 78 MULTIPLY 5 BY VALOR-1 GIVING VALOR-2 23 390
23 MULTIPLY 5 BY VALOR-1 115
-10 MULTIPLY 5 BY VALOR-1 -50
-10 MULTIPLY -5 BY VALOR-1 50

Veja também