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 取决于类型和/或 PICTUREPIC 9 字段只能安全地存储从 0 到 9 的值,在这种情况下,10 的中间结果将触发 ON SIZE ERROR 短语。