Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 945
L’esempio mostra in particolare il concatenamento che si vuole ottenere. Si ricorda che non è
importante se le variabili utilizzate nell’istruzione sono alfanumeriche o numeriche, perché è
il compilatore che provvede a convertire tutto nel modo più appropriato al tipo di dispositivo
che deve emettere il messaggio.
82.12.7 Istruzione «DIVIDE»
L’istruzione ‘DIVIDE’ consente di eseguire delle divisioni, fornendone il risultato ed
eventualmente il resto. Sono previsti diversi formati per l’utilizzo di questa istruzione.
«
Nello schema sintattico appena mostrato, si vede che dopo la parola chiave ‘DIVIDE’ viene
indicato un valore, in forma costante o attraverso una variabile; questo valore viene diviso
per la variabile indicata dopo la parola chiave ‘INTO’ e il risultato viene assegnato alla stessa
variabile che funge da divisore. Se appaiono più variabili dopo la parola ‘INTO’, la divisione
viene ripetuta per ognuna di quelle, assegnando rispettivamente il risultato.
L’opzione ‘ROUNDED’ richiede di eseguire un arrotondamento se la variabile ricevente non può
rappresentare in modo esatto il valore; l’opzione ‘SIZE ERROR’ serve a eseguire un’istruzione
nel caso una delle variabili riceventi non possa accogliere la porzione più significativa del
valore ottenuto dalla somma. Si osservi l’esempio seguente:
|000000 DIVIDE 100 INTO A.
Supponendo che la variabile ‘A’, prima della divisione contenga il valore 5, dopo l’operazione
contiene il valore 20 (100/5). Si potrebbe scrivere la stessa cosa utilizzando l’istruzione
‘COMPUTE’:
|000000 COMPUTE A = 100 / A.
Lo schema sintattico successivo mostra l’utilizzo di ‘DIVIDE’ in modo da non alterare i valori
utilizzati come divisori: