iTS 1.0+)

Procedure Division

Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001

6-40

DIVIDE Statements

enabled and is pressed during a DISPLAY operation, the DISPLAY terminates and no

terminal error condition results.

The value of the TERMINATION-SUBSTATUS special register on the DISPLAY

operation is:

•

1 if the BREAK key is pressed

•

0 if the BREAK key is not pressed

DIVIDE Statements

The DIVIDE statements divide one data item into another and store the results in one or

more data items. The forms of the DIVIDE statements are:

DIVIDE INTO

DIVIDE GIVING

DIVIDE BY GIVING

Each form is described in the following paragraphs.

DIVIDE INTO Statement

The DIVIDE INTO statement divides one data item into one or more other data items.

divisor

is either a numeric literal or the identifier of an elementary numeric data item.

dividend

is the identifier of an elementary numeric data item that is the dividend and

receiving field for the quotient.

DIVIDE GIVING Statement

The DIVIDE GIVING statement divides one data item into another and stores the

quotient in one or more data items.

divisor

is either a numeric literal or the identifier of an elementary numeric data item.

dividend

is either a numeric literal or the identifier of an elementary numeric data item.

DIVIDE divisor INTO { dividend } ,...

DIVIDE divisor INTO dividend GIVING { quotient } ,...