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.