Multiply - Control Data Corporation 3300 Reference Manual

4.7.14
MULTIPLY The MULTIPLY statement causes numeric data items to be multiplied and
sets the value of a data item or items equal to the results.
Format 1:
MULTIPLY
1
identifier-
1
l
BY identifier-m [ROUNDED] ,[identifier-n
literal-l
~
[ROUNDED]] ... [; ON SIZE ERROR imperative-statement]
Format 2:
MULTIPLY
1
i~entifier-li
BY
1
identifier- 2
1
hteral-1 \ - literal-2 \
,
,
GIVING identifier-m [ROUNDED] ,[identifier-n [ROUNDED]] ...
[; ON SIZE ERROR imperative-statement]
In format 1, each identifier must refer to a numeric elementary item. In
format 2, an identifier to the right of the word GIVING may refer to a data
item that contains editing symbols. Each literal must be a numeric literal.
The maximum size of each operand is 18 decimal digits. The initial value of
identifier-lor literal-1 is multiplied by the initial values of identifier-m,
identifier-n, . .. The resulting products replace the values 'of identifier-m,
identifier-n, ... respectively.
In format 2, the initial value of identifier-lor literal-l is multiplied by
identifier-2 or literal-2 and the result is stored in identifier-m,
identifier-n, . .. respectively.
Examples:
1.
MULTIPLY 1. 05 BY MONTHLY-EARNINGS, OVERTIME-RATE,
SOC-SEC, FEDERAL-TAX.
2. MULTIPLY ALPHA BY BETA GIVING CHI ROUNDED DELTA
ROUNDED ON SIZE ERROR PERFORM ERROR-ROUTINE.
60229400 4-39