2.4.2 ADD
Der ADD-Befehl addiert 2 oder mehrere numerische Werte und speichert das Resultat ab.
| |  | |  | | |
Format1
ADD Wert1 [Wert2 ...] TO Datenfeld1 [ROUNDED]
[Datenfeld2 [ROUNDED] ...]
[ON SIZE ERROR Befehlssequenz 1]
[NOT ON SIZE ERROR Befehlssequenz 2]
[END-ADD]
| |
|  | |  |
| | | | | | |
Format2
ADD Wert1 [Wert2 ...] [TO Datenfeld1 [ROUNDED]]
GIVING Datenfeld2 [ROUNDED]
[Datenfeld3 [ROUNDED] ...]
[ON SIZE ERROR Befehlssequenz 1]
[NOT ON SIZE ERROR Befehlssequenz 2]
[END-ADD]
| |
| | | |
Die angegebenen Werte werden zum Inhalt der angegebenen Datenfelder addiert und falls angegeben, entsprechend gerundet und abgespeichert.
Bei der Angabe von GIVING wird die Summe der Werte zum Inhalt von Datenfeld1 (falls angegeben) addiert, und das Ergebnis in Datenfeld2 [Datenfeld3 ...] abgestellt.
Wird bei dem Zielfeld ROUNDED spezifiziert, wird das Ergebnis auf- bzw. abgerundet.
Tritt ein Überlauf auf wird Befehlssequenz 1 (falls angegeben) ausgeführt, wenn nicht, wird Befehlssequenz 2 (falls angegeben) ausgeführt.
END-ADD beendet den Ausführungsbereich des ADD - Befehls.
Beispielprogamm: add.cob
*c32 add.cob;slink add
identification division.
program-id. COMPUTE Demo
environment division.
set cwsize to '0:0 0:0 55:24'.
set cfont to 'fixedsys'.
data division.
working-storage section.
77 f1 pic 9(4)V99 value 1,2.
77 f2 pic 9(3) value -2.
77 f3 pic 9(5)v999 value 3,213.
77 ant pic x.
procedure division.
display 'Start: f1 pic 9(4)v99 f2 pic 9(3) f3 pic 9(5)v999'.
display ' ' f1 ' ' f2 ' ' f3.
display 'add 1 to f1 f2 f3'.
add 1 to f1 f2 f3.
perform showres
add f1 f2 to f3.
display 'add f1 f2 to f3'.
perform showres
add f3 f1 giving f2.
display 'add f3 f1 giving f2'.
perform showres
add f3 f1 giving f2 rounded.
display 'add f3 f1 giving f2 rounded'.
perform showres
display 'add f1 f2 to f3 giving f1 f2'.
add f1 f2 to f3 giving f1 f2.
perform showres.
display "add 20 to f1 f2 f3 not on size error display 'ok'".
call getchar.
add 20 to f1 f2 f3 not on size error display 'ok'.
perform showres1.
display "add 980 to f1 f2 f3 not on size error display 'ok'"
display " on size error display 'overflow'"
display " end-add"
call getchar.
add 980 to f1 f2 f3 not on size error display 'ok'
on size error display 'overflow'
end-add
perform showres1.
stop run.
showres section.
call getchar.
showres1.
display ' ' f1 ' ' f2 ' ' f3.
call getchar.
Siehe auch Subtract Multiply Divide Compute
 Zurück zu Acc-Cobol Accept Statement
 Hoch zu Procedure Divison in COBOL
 Weiter zu ALTER
|
Home