Quarta, Dezembro 13, 2017

A instrução DIVIDE divide um item de dados numéricos em / por outros e define os valores dos itens de dados iguais ao quociente e ao restante.

 

No Formato 1 da declaração DIVIDE, o valor do identificador-1 ou literal-2 é dividido em o valor de identificador-2; o quociente é então colocado no identificador-2. Este processo é repetido para cada ocorrência sucessiva.

Formato 1 (DIVIDE)
 
                                   *----------------------*
                                   V                      +
->->--DIVIDE-*--identifier-1--*-INTO identifier-2-*---------*->
           *--literal-1-----*                   *-ROUNDED-*
 
->----*----------------------------------------------*------->
     *--*----*---SIZE ERROR imperative-statement-1--*
        *-ON-*
 
->---*---------------------------------------------------*--->
    *-NOT---*----*---SIZE ERROR imperative-statement-2--*
            *-ON-*
 
->--*------------*-------------------------------------------><-
   *-END-DIVIDE-*
 

 

No Formato 2 , o valor do identificador-1 ou literal-1 é dividido em o valor de identificador-2 ou literal-2 . O valor do quociente é armazenado em cada item de dados referenciado na frase GIVING pelo identificador-3.

Formato 2 (DIVIDE INTO, GIVING)
 
->->--DIVIDE--*--identifier-1--*-----INTO----*-identifier-2-*->
            *--literal-1-----*             *-literal-2----*
 
          *-------------------------*
          V                         +
->--GIVING identifier-3--*-----------*----------------------->
                        *--ROUNDED--*
 
->----*----------------------------------------------*------->
     *--*----*---SIZE ERROR imperative-statement-1--*
        *-ON-*
 
->---*---------------------------------------------------*--->
    *-NOT---*----*---SIZE ERROR imperative-statement-2--*
            *-ON-*
 
 
->--*------------*-------------------------------------------><-
   *-END-DIVIDE-*
 

 

No Formato 3 , o valor do identificador-1 ou literal-1 é dividido pelo valor de identificador-2 ou literal-2 . O valor do quociente é armazenado em cada item de dados referenciado na frase GIVING pelo identificador-3 .

Formato 3 (DIVIDE BY, GIVING)
 
->->--DIVIDE--*--identifier-1--*--BY--*-identifier-2-*-------->
            *--literal-1-----*      *-literal-2----*
 
          *-------------------------*
          V                         +
->--GIVING identifier-3--*-----------*----------------------->
                        *--ROUNDED--*
 
->----*----------------------------------------------*------->
     *--*----*---SIZE ERROR imperative-statement-1--*
        *-ON-*
 
->---*---------------------------------------------------*--->
    *-NOT---*----*---SIZE ERROR imperative-statement-2--*
            *-ON-*
 
 
->--*------------*-------------------------------------------><-
   *-END-DIVIDE-*
 

 

No Formato 4 , o valor do identificador-1 ou literal-1 é dividido em identificador-2 ou literal-2 . O valor do quociente é armazenado no identificador-3, e o valor do restante é armazenado no identificador-4.

Formato 4 (DIVIDE INTO, GIVING, with REMAINDER)
 
->->--DIVIDE--*--identifier-1--*-----INTO----*-identifier-2-*->
            *--literal-1-----*             *-literal-2----*
 
->--GIVING identifier-3--*-----------*----------------------->
                        *--ROUNDED--*
 
->--REMAINDER identifier-4----------------------------------->
 
->----*----------------------------------------------*------->
     *--*----*---SIZE ERROR imperative-statement-1--*
        *-ON-*
 
->---*---------------------------------------------------*--->
    *-NOT---*----*---SIZE ERROR imperative-statement-2--*
            *-ON-*
 
->--*------------*-------------------------------------------><-
   *-END-DIVIDE-*

 

No Formato 5, o valor do identificador-1 ou literal-1 é dividido pelo identificador-2 ou literal-2. O valor do quociente é armazenado no identificador-3, e o valor do restante é armazenado no identificador-4.

Formato 5 (DIVIDE BY, GIVING, with REMAINDER)
 
->->--DIVIDE--*--identifier-1--*--BY--*-identifier-2-*-------->
            *--literal-1-----*      *-literal-2----*
 
->--GIVING identifier-3--*-----------*----------------------->
                        *--ROUNDED--*
 
->--REMAINDER identifier-4----------------------------------->
 
->----*----------------------------------------------*------->
     *--*----*---SIZE ERROR imperative-statement-1--*
        *-ON-*
 
->---*---------------------------------------------------*--->
    *-NOT---*----*---SIZE ERROR imperative-statement-2--*
            *-ON-*
 
->--*------------*-------------------------------------------><-
   *-END-DIVIDE-*
 

 

identifier-1 or -2

Identificador-1 e identificador-2 deve nomear um item numérico elementar.

 

literal-1 or -2

Literal deve ser um literal numérico.

 

identifier-3

Identificador-3 deve nomear um item numérico ou numérico-editado elementar.

 

identifier-3 or identifier-4

Identificador-3 e identificador-4 deve nomear um item numérico ou numérico-editado elementar.

 

ROUNDED

O quociente usado para calcular o restante está em um campo intermediário. O valor do campo intermediário é truncado ao invés de arredondado.

 

REMAINDER

O resultado da subtração do produto do quociente e o divisor de o dividendo é armazenado no identificador-4. Se identificador-3, o quociente, é um item numérico-editada, o quociente usadas para calcular o restante é um campo intermediário que contém o quociente não editada.

Quaisquer subscritos para identificador-4 na frase restantes são avaliados após o resultado da operação de divisão é armazenado no identificador-3 da frase dar.

 

SIZE ERROR imperative-statement-1

Se ocorrer um erro de tamanho no quociente, nenhum cálculo de restante é significativo. Portanto, o conteúdo do campo quociente (identificador-3) e o campo restante (identificador-4) permanecem inalteradas.

Se ocorrer um erro de tamanho no restante, o conteúdo do campo restante (identificador-4) permanecem inalteradas.

Em qualquer destes casos, você deve analisar os resultados para determinar qual situação realmente ocorreu. 

A Historia do cobol

A Historia do cobol

COBOL significa Common Business Oriented Language, isto é, Linguagem Comum Orientada para o Comércio. O Cobol é um subconjunto de palavras da língua inglesa, ou seja, um número limitado de palavras inglesas sujeita a uma sintaxe própria. É uma linguagem que lida com problemas comerciais, envolvendo arquivos de dados de apreciáveis proporções (Seqüências/Vsam/Banco de dados DB2).   História: Criado por um comitê de investigadores de várias instituições civis e governamentais durante o segundo semestre de 1959. As especificações eram em grande parte inspiradas na linguagem de programação FLOW-MATIC inventada pela Grace Hopper - referida como "a mãe da língua COBOL." Em 8 de abril de...

Vagas

Em breve estaremos divulgando vagas de COBOL/CICS/DB2

Camisetas

IDENTIFICATION DIVISION

IDENTIFICATION DIVISION: Possui informações documentais, como nome do programa, quem o codificou e quando essa codificação foi realizada.    PROGRAM-ID nome do programa. (Obrigatório) AUTHOR nome do desenvolvedor. (Obrigatório) INSTALLATION nome da empresa ou local de geração do...

ENVIRONMENT DIVISION

ENVIRONMENT DIVISION: é a segunda divisão de um programa COBOL. Descreve o computador e os periféricos que serão utilizados pelo programa, fazendo ligação com o ambiente operacional onde o programa...

DATA DIVISION

DATA DIVISION: É a terceira divisão de um programa COBOL, descreve os arquivos de entrada e saída que serão usadas pelo programa. Também define as áreas de trabalho e constantes...

PROCEDURE DIVISION

PROCEDURE DIVISION: 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...

Comandos