ADD
Format 1
ADD { {Identifier-1} } ... TO { Identifier-2 [ROUNDED] } ...  {Literal-1 } [ ON SIZE ERROR Imperative-Statement-1 ] [ NOT ON SIZE ERROR Imperative-Statement-2 ] [END-ADD] |
Format 2
ADD { {Identifier-1} } ... TO { {Identifier-2} } ... {Literal-1 } {Literal-2 } GIVING { Identifier-3 [ROUNDED] } ... [ ON SIZE ERROR Imperative-Statement-1 ] [ NOT ON SIZE ERROR Imperative-Statement-2 ] [END-ADD] |
Format 3
ADD { CORRESPONDING }{ {Identifier-4} } ... TO { {Identifier-5} } ... { CORR } [ ON SIZE ERROR Imperative-Statement-1 ] [ NOT ON SIZE ERROR Imperative-Statement-2 ] [END-ADD] |
Syntax rules
1. Identifier-1 and identifier-2 shall reference a numeric data item.
2. Literal-1 and literal-2 shall be numeric literals.
3. Identifier-3 shall reference a numeric data item or a numeric-edited data item.
4. CORRESPONDING and CORR are synonymous.
5. Identifier-4 and identifier-5 shall reference a group item.
General rules
1. When Format 1 is used, the initial evaluation consists of determining the value to be added, that is literal-1 or the value of the data item referenced by identifier-1, or if more than one operand is specified, the sum of such operands. The sum of the initial evaluation and the value of the data item referenced by identifier-2 is stored as the new value of the data item referenced by identifier-2.
When standard arithmetic is in effect, the result of the initial evaluation is equivalent to the result of the arithmetic expression:
(operand-11 + operand-12 + ... + operand-1n)
where the values of operand-1 are the values of literal-1 and the data items referenced by identifier-1 in the order in which they are specified in the ADD statement. The result of the sum of the initial evaluation and the value of the data item referenced by identifier-2 is equivalent to the result of the arithmetic expression:
(initial-evaluation + identifier-2)
where initial-evaluation represents the result of the initial evaluation.
2. When format 2 is used, the initial evaluation consists of determining the sum of the operands preceding the word GIVING, that is literal-1 or the value of the data item referenced by identifier-1, and literal-2 or the value of the data item referenced by identifier-2. This value is stored as the new value of each data item referenced by identifier-3.
When standard arithmetic is in effect, the result of the initial evaluation is equivalent to the result of the arithmetic expression:
(operand-11 + operand-12 + ... + operand-1n + operand-2)
where the values of operand-1 are the values of literal-1 and the data items referenced by identifier-1 in the order in which they are specified in the ADD statement and the value of operand-2 is the value of either literal-2 or the data item referenced by identifier-2 in the ADD statement.
3. Additional rules and explanations relative to this statement are given in Overlapping operands; Incompatible data; ROUNDED phrase; SIZE ERROR phrase and size error condition; CORRESPONDING phrase; and Arithmetic statements.
4. In Format 3, each pair of corresponding elementary numeric items in Identifier-4 and Identifier-5 are added together. The results are moved to the corresponding items in Identifier-5.
Examples
Format 1- Increment the numeric data item num-var by 1
add 1 to num-var |
Format 1 - Add 1.253 to num-var, producing a rounded result and check if the resulting value does not exceed the defined size of num-var.
add 1.253 to num-var rounded on size error display message "Value to long for num-var" not on size error display message "New value for num-var : " num-var end-add |
Format 2 - Assign to num-3 the result of adding num-1 and num-2.
add num-1 to num-2 giving num-3 |
Format 2 - Assign to num-3 the result of adding num-1 and num-2, checking if the resulting value does not exceed the defined size of num-3.
add num-1 to num-2 giving num-3 on size error display message "Value to long for num-3" not on size error display message "New value for num-3 : " num-3 end-add |
Format 3 - Add values from one group data item to another one with corresponding sub-items.
working-storage section. 01 work-hours. 05 test-hours pic 9(3) value 10. 05 doc-hours pic 9(3) value 11. 05 support-hours pic 9(3) value 12. 01 additional-work-hours. 05 test-hours pic 9(3) value 2. 05 doc-hours pic 9(3) value 4. 05 support-hours pic 9(3) value 2. procedure division. add-hours. add corresponding additional-work-hours to work-hours on size error display message "Error adding to work-hours" not on size error display message test-hours of work-hours " , " doc-hours of work-hours " , " support-hours of work-hours end-add |