cobol
Инструкция ADD

замечания

Инструкция ADD

ADD 1 TO cobol

Это изменяет переменную cobol . Переполнение молча игнорируется.

ADD 1 TO cobol GIVING GnuCOBOL

Это не изменяет cobol , результат 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 , поэтому она не является разумным выбором для одного буквенного идентификатора.

SIZE ERROR в COBOL зависит от типа и / или PICTURE . Поле PIC 9 будет только безопасно хранить значения от 0 до 9, промежуточный результат 10 будет запускать фразу ON SIZE ERROR в этом случае.