COBOL ainda é uma das mais ricas e elegantes linguagens de computador no mercado. Além do poder de computação e capacidades de manipulação de arquivos enormes, você tem a flexibilidade de conversões e relatórios numéricos. Muitas vezes pode ser necessário para exibir valores numéricos específicos nos relatórios de saída, arquivos ou campos de exibição da tela como CICS. Sem dúvida, você vai encontrar formatos numéricos que não será exibido corretamente como armazenado e que terão de ser ainda convertido para um formato mais legível. Um dos mais comuns é o decimal embalado ou COMP-3 campo numérico.
Identificar o campo (s) que deseja converter no código COBOL. Por exemplo, você pode ter um campo que lê semelhante a: "05 pkd-field-01 PIC S9 (5v99) comp-3." Esta é uma assinado, campo decimal embalado utilizados de forma eficiente para cálculos, mas não pode ser facilmente lido em um display.
Vou ao "Seção de Trabalho-Storage do programa e configurar os campos intermédios você vai precisar para fazer a transição numérica desejada da seguinte forma: criar dois campos numéricos "S9 pic 05 ws-numérico (5v99) valor zero," e "05 ws-display-numérico pix x (8)."
Inserir o código no programa para mover o campo de entrada directamente para o primeiro campo intermediário "ws numéricos." Isto irá descompactar o número comp-3 em um campo numérico zoneada. Por sua vez, têm o código agora mover o primeiro campo intermediário na segunda, ws-display-numérico. Este último campo pode ser usado para exibir o número, quer sob forma impressa ou na tela do computador.
Compilar o programa com as alterações salvas e certifique-se que não há erros na compilação, verificando o código de condição.
Executar a versão compilada e verificar os resultados.
Como posso alterar o meu teclado numérico para alfa no meu Aspire 3500?
Como quebrar o texto no access 2007 campos
Como faço para adicionar um campo de cálculo no adobe acrobat?