Pur fornendo l'efficienza numerica e la precisione durante il calcolo e memorizzazione , COBOL offre un modo efficiente per consentire di calcolare i numeri velocemente sfruttando la sua architettura interna . Uno dei più comuni è il decimale compresso o campo numerico COMP -3, che consente di memorizzare due cifre all'interno di ogni byte di memoria . Usando questa notazione , si determina il numero di cifre del numero memorizzato sarà aggiungendo uno al campo notazione e dividendo il risultato per due. Ad esempio, un campo di PIC S9 ( 5) COMP - 3 ha una conservazione di 3 byte . È necessario inizializzare questo campo prima di qualsiasi manipolazione o calcolo viene eseguito su di esso per evitare un errore di elaborazione . Istruzioni
1

identificare il campo ( s ) che si desidera inizializzare nel codice COBOL . Ad esempio , si può avere un campo come " 05 - importo ricevuto PIC S9 ( 5v99 ) comp - 3 . " Questo è un campo decimale compresso firmato e si deve prima inizializzarlo prima che possa essere coinvolto in alcuna ulteriore elaborazione .
2

Vai alla sezione Working -Storage del vostro programma e determinare la struttura dei file del variabili. Se i campi comp - 3 sono subordinate ad una struttura più elevata, è sufficiente digitare il comando " Inizializza" nella Divisione procedura. A titolo di esempio , un campo di tipo " 01 account -Tipi " seguito da un campo subalterno di "05 Acctype -Fiscal Pic S9 ( 7) V99 " potrebbe essere inizializzato e sono zeri entrato nel suo campo con il comando COBOL "Initialize Account -Tipi ". Ogni altro campo sottostante all'interno di quel livello "01 " verrà inizializzato come bene. Il passo successivo viene illustrato un altro modo per raggiungere questo obiettivo .
3

Procedere alla tua sezione di Lavoro -Storage e includere un "Valore clausola " per ogni variabile comp -3 . Come ulteriore esempio , un campo che recita "05 Acctype - Accantonamento Pic S9 ( 5) V99 valore zero " avrebbe lo stesso risultato . I campi vengono automaticamente inizializzati prima della prima istruzione Divisione procedura. Se si utilizza il comando di inizializzazione , assicurarsi che sia eseguita prima di qualsiasi altro programma di riferimento dei comandi nei campi comp - 3 .
4

Eseguire la versione compilata e controllare i codici di condizione per eventuali errori di compilazione . Entrambi i metodi di garantire i valori decimali confezionati verranno inizializzate conseguenza.