ADD 声明

ADD 1 TO cobol

这会修改变量 cobol。溢出默默忽略。

ADD 1 TO cobol GIVING GnuCOBOL

这不会修改 cobol，ADD 的结果存储在 GnuCOBOL 中。同样，存储分配的溢出被静默忽略（该字段将在大小错误上保持其旧值，并且不会引发异常）。

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

允许多个输入，显式存储大小测试。COBOL 有一个内在的 FUNCTION E，所以它不是单个字母标识符的明智选择。

COBOL 中的 SIZE ERROR 取决于类型和/或 PICTURE。PIC 9 字段只能安全地存储从 0 到 9 的值，在这种情况下，10 的中间结果将触发 ON SIZE ERROR 短语。