Inhalt
Index
Support Über uns
Home

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.



add.cob


Siehe auch Subtract Multiply Divide Compute

Zurück zu Acc-Cobol Accept Statement    Hoch zu Procedure Divison in COBOL    Weiter zu ALTER
Entwickler Portal Impressum AGB Kontakt


© 1980-2017 Acc Computertechnik GmbH All rights reserved.