COBOL ainda é uma das línguas mais ricas e elegantes de computadores no mercado. Além do poder de computação e enormes capacidades de manipulação de arquivo, você tem a flexibilidade de conversões de números e relatórios. Muitas vezes você pode precisar exibir valores numéricos específicos sobre relatórios de saída , arquivos ou campos de exibição de tela , como CICS. Sem dúvida , você vai encontrar formatos numéricos que não vai mostrar corretamente como armazenado e terá de ser ainda convertido para um formato mais legível. Um dos mais comuns é o decimal embalado ou COMP -3 campo numérico . Instruções
1
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 assinatura , o campo decimal embalado utilizados de forma eficiente para cálculos , mas não pode ser lido facilmente em um display.
2
Vá para a "Seção de Trabalho -Storage do programa e configurar os campos intermediários você vai precisa fazer a transição numérica desejada da seguinte forma: " . pix x 05 - ws -display numérico ( 8 ) " criar dois campos numéricos "05 ws- numéricos pic s9 ( 5v99 ) de valor zero", e
3
Insira o código no programa para mover o campo de entrada directamente para o primeiro campo intermediário " ws- numérico. " Isso vai descompactar o número comp- 3 em um campo numérico zoneada . , por sua vez , tem o código agora avançar o primeiro campo intermediário no segundo, ws -display- numérico. Este último campo pode ser usado para exibir o número ou em formulário impresso ou na tela do computador .
4
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 .
5
executar a versão compilada e verificar os resultados.