Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 941
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 2005-02-27.
|000500*
|000600 ENVIRONMENT DIVISION.
|000700 CONFIGURATION SECTION.
|000800 SOURCE-COMPUTER.
|000900 OPENCOBOL.
|001000 SPECIAL-NAMES.
|001100 CONSOLE IS STANDARD-INPUT.
|001200*
|001300 DATA DIVISION.
|001400*
|001500 WORKING-STORAGE SECTION.
|001600 77 MESSAGGIO PIC X(30).
|001700*
|001800 PROCEDURE DIVISION.
|001900*
|002000 MAIN.
|002100 DISPLAY "INSERISCI IL MESSAGGIO".
|002200 ACCEPT MESSAGGIO FROM STANDARD-INPUT.
|002300 DISPLAY "HAI INSERITO: ", MESSAGGIO.
|002400*
|002500 STOP RUN.
|002600*
82.12.2 Istruzione «ADD»
L’istruzione ‘ADD’ consente di eseguire delle somme.
l’utilizzo di questa istruzione.
Sono previsti diversi formati per
«
Nello schema sintattico appena mostrato, si vede che dopo la parola chiave ‘ADD’ si elencano
delle costanti o variabili con valore numerico, da sommare assieme, sommando poi quanto ottenuto
al contenuto delle variabili specificate dopo la parola chiave ‘TO’. 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 ADD 1, 2, 3, TO A.
Supponendo che la variabile ‘A’, prima della somma contenga il valore 10, dopo la somma
contiene il valore 16 (1+2+3+10).