ITONUM: Como Converter um Inteiro Binário Grande para o Formato Dupla Precisão

Como:

Linguagens Disponíveis: Reporting, Maintain

A função ITONUM converte um número alto em uma fonte de dados não FOCUS em formato de precisão dupla.

Algumas linguagens de programação e sistemas de armazenamento de dados não FOCUS utilizam formatos de inteiro binários grandes. No entanto, inteiros binários grandes (mais de 4 bytes de comprimento) não possuem suporte no Arquivo Master, portanto necessitam de conversão para o formato de precisão dupla.

Você deve especificar quantos dos bytes mais à direita no campo de entrada são significativos. O resultado é um campo de precisão dupla de 8 bytes.

Topo da página
x
Sintaxe: Como Converter um Número Inteiro Binário Grande para o formato Precisão Dupla
ITONUM(maxbytes, infield, output)

onde:

maxbytes

Numérico

É o número máximo de bytes no campo de 8 bytes com dados numéricos importantes, incluindo o sinal binário. Valores válidos são:

5 ignora os 3 bytes mais à esquerda.

6 ignora os 2 bytes mais à esquerda.

7 ignora o byte mais à esquerda.

infield

A8

É o campo que contém o número binário. Ambos os formatos USAGE e ACTUAL do campo devem ser A8.

saída

Precisão dupla com ponto flutuante (Dn)

É o nome do campo que contém o resultado ou o formato do valor de saída posto entre aspas simples. O formato deve ser Dn.
Exemplo: Como Converter um Número Inteiro Binário Grande para o Formato Dupla Precisão

Suponha que um número binário em um arquivo externo possua o seguinte formato COBOL: 

PIC 9(8)V9(4) COMP

É definido no Arquivo Master EUROCAR como um campo com nome BINARYFLD. Seus formatos de campo são USAGE=A8 e ACTUAL=A8, já que seu comprimento é maior que 4 bytes.

A solicitação a seguir converte o campo no formato de precisão dupla:

DEFINE FILE EUROCAR
MYFLD/D14 = ITONUM(6, BINARYFLD, MYFLD);
END
TABLE FILE EUROCAR
PRINT MYFLD BY CAR
END
Information Builders