cobol
ADD-verklaring

Opmerkingen

ADD-verklaring

ADD 1 TO cobol

Dit wijzigt de variabele cobol . Overloop wordt stilletjes genegeerd.

ADD 1 TO cobol GIVING GnuCOBOL

Dit wijzigt cobol , het resultaat van de ADD wordt opgeslagen in GnuCOBOL . Nogmaals, overloop van de opslagtoewijzing werd stil genegeerd (het veld blijft op de oude waarde bij fouten in de grootte en er wordt geen uitzondering opgeworpen).

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

Meerdere ingangen zijn toegestaan, met expliciet testen van opslaggrootte. COBOL heeft een intrinsieke FUNCTION E , dus het is geen verstandige keuze voor een enkele letteridentificatie.

SIZE ERROR in COBOL is afhankelijk van type en / of PICTURE . Een PIC 9 veld slaat alleen waarden van 0 tot 9 veilig op, een tussenresultaat van 10 zou in dat geval de ON SIZE ERROR zin activeren.