Add - Control Data Corporation 3300 Reference Manual

Computer systems usasi cobol/ master
Table of Contents

Advertisement

4.7.2
ADD
4-18
The ADD statement causes two or more numeric operands to be summed and
the result to be stored.
Format 1:
ADD
1
identifier-It
- - literal-I
~
[ 1
identifier-2l]
.
. .
'literal-2
,~
... ldentifler-n [ROUNDED]
[; ON SIZE ERROR imperative-statement]
Values of operands are added together and the sum
is
stored in the location
of the last operand specified. This operand may not be a literal.
Format 2:
ADD
1
identifier-It
- - literal-I
~
[ 1
identifier-2l]
'literal-2
~
TO identifier-m [ROUNDED]
[, identifier-n [ROUNDED]] ...
[; ON SIZE ERROR imperative-statement]
Values of operands preceding the word TO are added together, then the sum
is added to the current value in each identifier-m, identifier-n, ... , and the
result is stored in each identifier-m, identifier-n, ... , respectively.
Format 3:
ADD
1
identifier-It
1
identifier-2 {
- - literal-I
~'
literal-2
~
l
r
1
identifier":'3
l ]
GIVING
'literal-3
~
. ..
~-=-=;..;.;::;,.
identifier-m [ROUNDED] [identifier-n [ROUNDED]]
[; ON SIZE ERROR imperative-statement]
Values of operands preceding the word GIVING are added together, then the
sum is stored as the new value of identifier-m, identifier-n, ...
Format
4:
ADD
1
CORRESPONDINGI
identifier-I TO identifier-2 [ROUNDED]
- - CORR
[; ON SIZE ERROR imperative-statement]
Data items in identifier-I are added to and stored in corresponding data items
in identifier-2.
In
Formats
1,
2, and 3 each identifier refers to an elementary numeric item;
identifiers to the right of GIVING may refer to data items containing editing
symbols. Each literal must be a numeric literal.
60229400

Advertisement

Table of Contents
loading
Need help?

Need help?

Do you have a question about the 3300 and is the answer not in the manual?

This manual is also suitable for:

3500

Table of Contents