cobol
ADD-Anweisung

Bemerkungen

ADD-Anweisung

ADD 1 TO cobol

Dies verändert die Variable cobol . Überlauf wird still ignoriert.

ADD 1 TO cobol GIVING GnuCOBOL

Dies verändert nicht cobol , das Ergebnis der ADD-Speicherung in GnuCOBOL . Auch hier wird der Überlauf der Speicherzuordnung unbemerkt ignoriert (das Feld bleibt bei Größenfehlern auf dem alten Wert und es wird keine Ausnahme ausgelöst).

ADD
    a b c d f g h i j k l m n o p q r s t u v w x y z
    GIVING total-of
    ON SIZE ERROR
        PERFORM log-problem
    NOT ON SIZE ERROR
        PERFORM graph-result
END-ADD

Es sind mehrere Eingaben zulässig, wobei die Speichergröße explizit getestet wird. COBOL hat eine intrinsische FUNCTION E , daher ist es keine kluge Wahl für einen einzelnen Buchstaben.

SIZE ERROR in COBOL ist abhängig von Typ und / oder PICTURE . Ein PIC 9 Feld speichert nur Werte von 0 bis 9, ein Zwischenergebnis von 10 würde in diesem Fall die ON SIZE ERROR Phrase auslösen.