cobol
AJOUTER une déclaration

Remarques

AJOUTER une déclaration

ADD 1 TO cobol

Cela modifie la variable cobol . Dépassement silencieux ignoré.

ADD 1 TO cobol GIVING GnuCOBOL

Cela ne modifie pas le cobol , le résultat de l’ADD étant stocké dans GnuCOBOL . Encore une fois, le dépassement de capacité de l’allocation de stockage est ignoré en silence (le champ conservera son ancienne valeur en cas d’erreur de taille et aucune exception ne sera déclenchée).

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

Plusieurs entrées sont autorisées, avec des tests de taille de stockage explicites. COBOL a une FUNCTION E intrinsèque, donc ce n'est pas un choix judicieux pour un identifiant à lettre unique.

SIZE ERROR dans COBOL dépend du type et / ou de PICTURE . Un champ PIC 9 ne stockera en toute sécurité que des valeurs de 0 à 9, un résultat intermédiaire de 10 déclencherait la phrase ON SIZE ERROR dans ce cas.