---

---

DIVIDE Esta declaração é utilizada para divisão. A declaração DIVIDE divide um item numérico em ou por outro e seta os valores em itens igual (numéricos) para o quociente e resto. Tanto a palavra INTO quanto a palavra BY podem ser usadas em uma instrução DIVIDE. A cláusula GIVING é opcional com INTO, mas obrigatória com BY.

Primeiro formato: No formato 1, o valor de identifier-1 ou literal-1 é dividido no valor do identifier-2 e o quociente é armazenado então no identifier-2. Para cada ocorrência sucessiva do identifier-2, a divisão acontece da esquerda para direito na qual identifier-2 é especificado.

Segundo formato: No formato 2, o valor de identifier-1 ou literal-1 é dividido no valor de identifier-2 ou literal-2. O valor do quociente é armazenado em cada item referenciado no identifier-3.

Terceiro formato: No formato 3, o valor de identifier-1 ou literal-1 é dividido pelo valor de identifier-2 ou literal-2. O valor do quociente é armazenado em cada item referenciado no identifier-3.

Quarto formato: No formato 4, o valor de identifier-1 ou literal-1 é dividido em identifier-2 ou literal-2. O valor do quociente é armazenado dentro do identifier-3 e o valor do resto armazenado no identifier-4.

Quinto formato: No formato 5, o valor de identifier-1 ou literal-1 é dividido pelo identifier-2 ou literal-2. O valor do quociente é armazenado dentro do identifier-3 e o valor do resto armazenado no identifier-4.

Para todos os Formatos: identifier-1, identifier-2 Tenha que ser um item elementar numérico. identifier-3, identifier-4 Tenha que ser um item elementar numérico ou um item numérico-editado. literal-1, literal-2 Tenha que ser uma literal numérica. Nos formato 1, 2 e 3 podem ser usados dados de ponto-flutuante e literais em qualquer lugar que um item de dados numérico ou literal pode ser especificado. Nos formato 4 e 5, artigos de dados de ponto-flutuante ou literaais não podem ser usados.

Primeiro exemplo: Os dois abaixo produzem o mesmo resultado DIVIDE TOTAL-VENDAS BY 10 GIVING MEDIA-VENDAS DIVIDE 10 INTO TOTAL-VENDAS GIVING MEDIA-VENDAS

Segundo exemplo: A opção REMAINDER armazena o resto da divisão DIVIDE TOTAL-VENDAS BY 10 GIVING MEDIA-VENDAS REMAINDER RESTO DIVIDE 10 INTO TOTAL-VENDAS GIVING MEDIA-VENDAS REMAINDER RESTO

Terceiro exemplo: A opção ON SIZE ERROR evita que o programa ABEND por exemplo com uma divisão por zero A opção ON SIZE ERROR evita que o programa ABEND por exemplo com uma divisão por zero DIVIDE TOTAL-VENDAS BY TOTAL-FUNC GIVING MEDIA-VENDAS           ON SIZE ERROR           PERFORM 900-ERRO-DIVISAO END-DIVIDE.