cobol
LÄGG till uttalande

Anmärkningar

LÄGG till uttalande

ADD 1 TO cobol

Detta ändrar variabeln cobol . Överflödet ignoreras tyst.

ADD 1 TO cobol GIVING GnuCOBOL

Detta modifierar inte cobol , resultatet av att ADD lagras i GnuCOBOL . Återigen ignorerar överflödet av lagringsallokering tyst (fältet förblir på sitt gamla värde på storleksfel och det kommer inget undantag att tas upp).

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

Flera ingångar är tillåtna, med test av lagringsstorlek uttryckligen. COBOL har en egen FUNCTION E , så det är inte ett klokt val för en identitetsbokstav.

SIZE ERROR i COBOL är beroende av typ och / eller PICTURE . Ett PIC 9 fält lagrar bara säkert värden från 0 till 9, ett mellanresultat av 10 skulle i så fall utlösa ON SIZE ERROR frasen.