Tout en offrant l'efficacité et la précision numérique lors du calcul et de stockage , COBOL offre un moyen efficace pour permettre de calculer vos numéros rapidement en profitant de son architecture interne . Une des plus courantes est le décimal condensé ou COMP -3 champ numérique , qui vous permet de stocker deux chiffres au sein de chaque octet de stockage . En utilisant cette notation , vous déterminez le nombre de chiffres du numéro enregistré sera en ajoutant un champ notée et en divisant le résultat par deux . Par exemple, un champ de PIC S9 ( 5) COMP -3 dispose d'un stockage de 3 octets. Vous devez initialiser ce domaine avant toute manipulation ou calcul est effectué sur elle afin d'éviter une erreur de traitement . Instructions
1

identifier le champ (s ) que vous souhaitez initialiser votre code COBOL . Par exemple , vous pouvez avoir un domaine tel que «05 - montant reçu PIC S9 ( 5v99 ) comp -3. " Il s'agit d' un champ décimal condensé signé et vous devez d'abord l'initialiser avant qu'il puisse être impliqué dans aucun autre traitement .
2

Aller à la section de travail et de rangement de votre programme et de déterminer la structure des fichiers de votre Variables. Si les comp - 3 champs sont subordonnés à une structure supérieure, il suffit de taper la commande " Initialize " dans la Division de la procédure . À titre d'exemple , un domaine tel que " 01 types de comptes " suivie d'un champ subalterne de "05 Pic Acctype -Fiscal S9 ( 7) V99 " pu être initialisé et ont zéros entré dans son champ en exécutant la commande COBOL " Initialisation compte -Types ». Tout autre champ ci-dessous au sein de ce niveau "01" sera initialisé ainsi . L'étape suivante montre une autre façon d' atteindre cet objectif.
3

Passez à votre section Working- Storage et inclure une «clause de valeur» pour chaque variable comp -3. Comme autre exemple, un champ qui se lit comme "05 Acctype - cumul Pic S9 ( 5) V99 valeur nulle " aurait le même résultat. Les champs seront automatiquement initialisés avant la première déclaration de la Division de procédure . Si vous utilisez la commande d'initialisation , assurez-vous qu'il est exécuté avant les autres commandes programme référence les comp - 3 domaines.
4

Exécutez votre version compilée et vérifier les codes d'état des erreurs de compilation. Soit la méthode garantira vos valeurs décimales emballés seront initialisés en conséquence.