Divide - Control Data Corporation 3300 Reference Manual

Computer systems usasi cobol/ master
Table of Contents

Advertisement

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

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?

Subscribe to Our Youtube Channel

This manual is also suitable for:

3500

Table of Contents