Quarta, Dezembro 13, 2017

ROUNDED

Após o alinhamento do ponto decimal, o número de lugares na fração do resultado de uma operação aritmética é comparado com o número de lugares fornecidos para a fração do identificador resultante.

Quando o tamanho do resultado fracionário excede o número de locais fornecidos para seu armazenamento, o truncamento ocorre a menos que ROUNDED for especificado. Quando ROUNDED é especificado, o dígito menos significativo do identificador resultante é aumentado em 1 sempre que o dígito mais significativo do excesso for maior ou igual a 5.

Quando o identificador resultante é descrito por uma cláusula PICTURE que contém o Ps mais à direita e quando o número de posições no resultado calculado excede o número de posições inteiras especificadas, arredondamento ou truncamento ocorre relativamente à posição inteira mais à direita para a qual o armazenamento é alocado.

Em uma operação aritmética de ponto flutuante, ROUNDED não tem efeito; O resultado de uma operação de ponto flutuante é sempre arredondado.

Quando a opção de compilador ARITH (EXTEND) está em vigor, ROUNDED não é suportada para receptores aritméticos com posições de 31 dígitos à direita do ponto decimal.

Por exemplo, nem X nem Y abaixo é válido como um receptor com ROUNDED:

01  X PIC V31.
01  Y PIC P(30)9(1).
    . . .
    COMPUTE X ROUNDED = A + B
    COMPUTE Y ROUNDED = A - B

Caso contrário, ROUNDED é totalmente suportada para declarações aritméticas de precisão estendida.

 

 

 

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