Getting started with cobol GnuCOBOL installation with GNU/Linux ACCEPT statement ADD statement ALLOCATE statement ALTER statement CANCEL statement CALL statement COMMIT statement COMPUTE statement CONTINUE statement COPY directive String DELETE statement DIVIDE statement DISPLAY statement EVALUATE statement EXIT statement GENERATE statement FREE statement GO TO statement GOBACK statement IF statement INITIALIZE statement INITIATE statement INSPECT statement MERGE statement MOVE statement MULTIPLY statement OPEN statement PERFORM statement READ statement RELEASE statement RETURN statement REPLACE directive REWRITE statement SET statement SEARCH statement SORT statement START statement SUBTRACT statement STOP statement TERMINATE statement STRING statement SUPPRESS statement UNLOCK statement Intrinsic Functions UNSTRING statement USE statement WRITE statement Data division How does the computational work in cobol?

DIVIDE statement

Remarks:

The COBOL DIVIDE statement divides one numeric item into others setting data items to the quotient and, optionally, the remainder.

ROUNDED phrase:

Default is TRUNCATION if no rounded phrase specified. Default ROUNDED mode is NEAREST-TOWARD-ZERO (rounding down) unless other specified. So called Banker's rounding is NEAREST-EVEN.

DIVIDE statement formats

DIVIDE a INTO b c d

Data item b, c, and d are changed as b/a, c/a and d/a.

DIVIDE a INTO b GIVING c

Data item c is changed as b/a.

DIVIDE a BY b GIVING c

Data item c is changed as a/b.

DIVIDE a INTO b GIVING q REMAINDER r

Data items q and r are set with results of b/a

DIVIDE a BY b GIVING q REMAINDER r

Data items q and r are set with results of b/a

All DIVIDE result fields may have ROUNDED MODE IS clauses.

All DIVIDE statements may have ON SIZE ERROR and NOT ON SIZE ERROR declarative statements included to catch invalid results given the type and size of the result fields.

Contributors

Topic Id: 7081

Example Ids: 23793

This site is not affiliated with any of the contributors.