Al tiempo que la eficiencia y la precisión numérica durante el cálculo y almacenamiento , COBOL ofrece una manera de permitir eficiente a calcular los números rápidamente mediante el aprovechamiento de su arquitectura interna . Uno de los más comunes es el decimal empaquetado o COMP- 3 campos numéricos , lo que le permite almacenar dos dígitos dentro de cada byte de almacenamiento . Utilizando esta notación , se determina el número de dígitos del número almacenado será sumando uno al campo anotada y dividiendo el resultado por dos. Por ejemplo , un campo de PIC S9 ( 5 ) COMP - 3 tiene un almacenamiento de 3 bytes . Debe inicializar este campo antes de cualquier manipulación o cálculo se realiza sobre el mismo para evitar un error de procesamiento . Instrucciones
1

Identificar el campo ( s ) que desea inicializar en el código COBOL. Por ejemplo , usted puede tener un campo como " 05 cantidad recibida PIC S9 ( 5v99 ) comp- 3 . " Este es un campo decimal empaquetado firmado y primero debe inicializar antes de que pueda estar implicado en ningún otro proceso .
2

Ir a la sección Working- Storage de su programa y determinar la estructura de archivos de su variables. Si los comp- 3 campos están subordinados a una estructura superior, simplemente escriba el comando "Ejecutar " en la División de Procedimiento. A modo de ejemplo , un campo como " 01 Cuenta -Tipos " seguido de un campo de subordinación de " 05 Acctype -Fiscal Pic S9 ( 7 ) V99 " se pudo inicializar y han entrado en su campo de ceros con el comando COBOL "Iniciar Cuenta -Tipos ". Cualquier otro campo de abajo dentro de ese nivel "01 " se iniciará también. El siguiente paso se muestra otra forma de lograr esto .
3

Proceda a la sección Working- Storage e incluir un " valor de la cláusula " a cada variable comp- 3 . Como otro ejemplo , un campo que se lee como " 05 Acctype - Devengo Pic S9 ( 5 ) V99 Valor cero" tendría el mismo resultado. Los campos automáticamente se inicializan antes de la primera declaración División Procedimiento. Si se utiliza el comando Initialize, asegúrese de que se ejecuta antes que cualquier otro programa de referencia de los comandos comp- 3 campos.
4

Ejecute la versión compilada y comprobar los códigos de condición de los errores de compilación . Cualquiera de estos métodos garantiza sus valores decimales empaquetados se pueden inicializar en consecuencia.