ADD 宣告
ADD 1 TO cobol
這會修改變數 cobol
。溢位默默忽略。
ADD 1 TO cobol GIVING GnuCOBOL
這不會修改 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
,所以它不是單個字母識別符號的明智選擇。
COBOL 中的 SIZE ERROR
取決於型別和/或 PICTURE
。PIC 9
欄位只能安全地儲存從 0 到 9 的值,在這種情況下,10 的中間結果將觸發 ON SIZE ERROR
短語。