Enquanto proporcionando eficiência e precisão numérica durante a computação e armazenamento , COBOL oferece uma maneira de permitir que você de forma eficiente para calcular seus números rapidamente , tirando partido da sua arquitetura interna. Um dos mais comuns é o decimal embalado ou COMP -3 campo numérico , que permite armazenar dois dígitos dentro de cada byte de armazenamento . Usando esta notação , você determina quantos dígitos o número armazenado será adicionando um para o campo anotada e dividindo o resultado por dois. Por exemplo , um campo de PIC S9 ( 5 ) COMP - 3 tem um armazenamento de 3 bytes . Você deve inicializar esse campo antes de qualquer manipulação ou cálculo é feito sobre ele para evitar um erro de processamento . Instruções
1

Identificar o campo (s ) que deseja inicializar em seu código COBOL. Por exemplo, você pode ter um campo como " 05 - recebido quantidade PIC S9 ( 5v99 ) comp- 3. " Este é um campo decimal embalado assinado e você deve primeiro inicializá-lo antes que ele possa estar envolvido em qualquer tratamento posterior.
2

Vá para a seção Working -Storage do seu programa e determinar a estrutura do arquivo de seu variáveis ​​. Se os comp- 3 campos estão subordinados a uma estrutura maior , basta digitar o comando "Inicializar " na Divisão de procedimento . Como exemplo, um campo como "01 Conta -tipos ", seguido de um campo subordinado de " 05 Acctype - Fiscal Pic S9 (7) V99 " pode ser inicializado e ter zeros inseridos em seu campo , emitindo o comando COBOL "Inicializar Conta -Tipos ". Qualquer outro campo abaixo dentro desse nível "01" será inicializado também. O próximo passo demonstra uma outra maneira de conseguir isso.
3

Proceder à sua seção de trabalho em Armazenamento e incluir uma "cláusula de valor" para cada variável comp- 3. Como mais um exemplo, um campo que se lê como " 05 Acctype - Provisão Pic S9 (5) V99 Valor Zero " teria o mesmo resultado. Os campos serão automaticamente inicializados antes da primeira instrução de procedimento Divisão . Se você usar o comando de inicialização , verifique se ele é executado antes de quaisquer outros comandos do programa referenciar os comp- 3 campos.
4

Execute sua versão compilada e verificar os códigos de condição para qualquer erros de compilação . Qualquer método vai garantir os seus valores decimais embalados será inicializado em conformidade.