cobol
Declaración ADD

Observaciones

Declaración ADD

ADD 1 TO cobol

Esto modifica la variable cobol . Desbordamiento silenciosamente ignorado.

ADD 1 TO cobol GIVING GnuCOBOL

Esto no modifica cobol , el resultado del ADD se almacena en GnuCOBOL . Nuevamente, el desbordamiento de la asignación de almacenamiento se ignora silenciosamente (el campo permanecerá en su valor anterior en los errores de tamaño y no se generará ninguna excepción).

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

Se permiten múltiples entradas, con pruebas de tamaño de almacenamiento explícitas. COBOL tiene una FUNCTION E intrínseca, por lo que no es una opción inteligente para un identificador de una sola letra.

SIZE ERROR en COBOL depende del tipo y / o la PICTURE . Un campo PIC 9 solo almacenará de forma segura los valores de 0 a 9, un resultado intermedio de 10 activará la frase ON SIZE ERROR en ese caso.