Divide - Control Data Corporation 3300 Reference Manual

4.7.7
DIVIDE
60229400
The DIVIDE statement divides one numeric data item into another and sets
the value of a data item equal to the results.
Format 1:
DIVIDE
lli~entiflie1r-1l
INTO identifier-m [ROUNDED]
Itera -
~--
[, identifier-n ROUNDED]]
0 0 0 [ ;
ON SIZE ERROR imperative-
statement]
The value of identifier-lor literal-1 is divided into the initial values of
identifier-m, identifier-n, ..
0
Dividend values are replaced by the
quotient values
0
Format 2:
TY ..... TTTYT:'
'identifier-1 (
TlI.T'T'f"\
,identifier-2 (
~n:Tn
..
T~
,rlantifi<"..,,_l'Yl
.LJJ.V J..LJ£.
i
literal-1 ~ ~ lliteral-2 ~
'-"LV .£..Ln." ... u.v .... " ....... ..., ........
[ROUNDED] [, identifier-n [ROUNDED]]
0 0 0
[; ON SIZE ERROR imperative-statement]
The initial value of identifier-lor literal-1 is divided into identifier-2 or
literal-2 and the result is stored in identifier-m, identifier-n,... respectively.
Format 3:
~
identifier-1 (
BY
1
identifier-2 ( GIVING °d tOfO -
DIVIDE /lOt
1 1
l°te
1 2
1
en ller m
1
era - -
1
ra-
[ROUNDED] [, identifier-n [ROUNDED]]
0 • •
[; ON SIZE ERROR imperative-statement]
The value of identifier-lor literal-1 is divided by the value of identifier-2
or literal-2 and the result is stored in identifier-m, identifier-n,.
0 0
respectively.
Each identifier must refer to a numeric elementary item, except that any
identifiers to the right of the word GIVING can refer to data items that con-
tain editing symbols. Each literal must be a numeric literal.
4-25