Compaq COBOL
Reference Manual

Function

The DIVIDE statement divides one or more numeric data items by another and sets the value of the data items equal to the quotient, optionally storing the remainder.

num

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

rsult

is the identifier of an elementary numeric item or an elementary numeric edited item. However, in Format 1, rsult must be an elementary numeric item. It is the resultant identifier.

stment

is an imperative statement executed when a size error condition has occurred.

stment2

is an imperative statement executed when no size error condition has occurred.

remaind

is the identifier of an elementary numeric item or an elementary numeric edited item.

General Rules

Format 1

1. The value of num is divided into the value of the first rsult. This quotient replaces the current value of the first rsult. The process repeats for each of the other occurrences of rsult.

Format 2

2. The value of the first num is divided into the value of the second. This quotient replaces the current value of each rsult.

Format 3

3. The value of the first num is divided by the value of the second. This quotient replaces the current value of each rsult.

Formats 4 and 5

4. These formats produce a remainder (remaind) from the division operation. The remainder is the result of subtracting the product of the quotient (rsult) and the divisor from the dividend.
   If rsult refers to a numeric edited item, the quotient is an equivalent unedited intermediate field. For example, if you describe rsult with the PICTURE -ZZ.99, the compiler uses an intermediate field with the implicit PICTURE S99V99.
   When the ROUNDED phrase is present, the remainder computation uses an intermediate quotient field that is truncated rather than rounded.
5. The computation described in rule 4 determines the accuracy of remaind. It includes decimal point alignment and truncation (not rounding) required by the description of remaind.
6. When the ON SIZE ERROR phrase is present:
   • If the size error occurs on rsult, the contents of both rsult and remaind are unchanged.
   • If the size error occurs on remaind, its contents are unchanged.

Additional References

• Section 6.1.4, Scope of Statements
• Section 6.6.1, Arithmetic Operations
• Section 6.6.2, Multiple Receiving Fields in Arithmetic Statements
• Section 6.6.3, ROUNDED Phrase
• Section 6.6.4, ON SIZE ERROR Phrase
• Section 6.6.7, Overlapping Operands and Incompatible Data

Examples

The following example shows a run-time message issued for an illegal attempt to divide by zero:

%COB-E-DIVBY-ZER, divide by zero; execution continues

Each of the examples assume the following data descriptions and initial values. The initial values are listed in the righthand column:

INITIAL VALUES

03 ITEMA PIC 99V99 VALUE 9. 9.00 03 ITEMB PIC 99V99 VALUE 24. 24.00 03 ITEMC PIC 99V99 VALUE 8. 8.00 03 ITEMD PIC 99 VALUE 12. 12 03 ITEME PIC 99V99 VALUE 3. 3.00 03 ITEMF PIC 99 VALUE 47. 47 03 ITEMG PIC 9 VALUE 9. 9 03 ITEMH PIC 9 VALUE 2. 2 03 ITEMI PIC 99 VALUE 4. 4

In each of the following examples, the righthand column shows the results of the DIVIDE operation.

1. Without GIVING phrase or rounding: RESULTS

   DIVIDE ITEMA INTO ITEMB. ITEMB = 2.66

2. With rounding:

   DIVIDE ITEMA INTO ITEMB ROUNDED. ITEMB = 2.67

3. GIVING phrase:

   DIVIDE ITEMA INTO ITEMB ITEMD = 2 GIVING ITEMD.

4. GIVING phrase with rounding:

   DIVIDE ITEMA INTO ITEMB ITEMD = 3 GIVING ITEMD ROUNDED.

5. BY phrase:

   DIVIDE ITEMA BY ITEMB ITEMD = 0 GIVING ITEMD.

6. REMAINDER phrase:

   DIVIDE ITEMA INTO ITEMB ITEMD = 2 GIVING ITEMD REMAINDER ITEMC. ITEMC = 6.00

7. REMAINDER phrase with rounding:

   DIVIDE ITEMA INTO ITEMB ITEMD = 3 GIVING ITEMD ROUNDED REMAINDER ITEMC. ITEMC = 6.00

8. Effects of decimal alignment on quotient and remainder:

   DIVIDE ITEMA INTO ITEMB ITEME = 2.66 GIVING ITEME REMAINDER ITEMC. ITEMC = .06

9. Effects of decimal alignment on remainder and quotient with rounding:

   DIVIDE ITEMA INTO ITEMB ITEME = 2.67 GIVING ITEME ROUNDED REMAINDER ITEMC. ITEMC = .06

10. The ON SIZE ERROR phrase: (IF ON SIZE ERROR occurs on an occurrence of rsult, the contents of that occurrence of rsult are unchanged.)

    DIVIDE ITEME INTO ITEMF GIVING ITEMG ITEMD ITEMD = 15 ON SIZE ERROR ITEMG = 9 MOVE 0 TO ITEMH. ITEMH = 0

11. The ON SIZE ERROR phrase:
    (IF ON SIZE ERROR occurs on remaind, the contents of remaind are unchanged.)

    DIVIDE ITEMD INTO ITEMF GIVING ITEMI REMAINDER ITEMG ITEMI = 3 ON SIZE ERROR ITEMG = 9 MOVE 0 TO ITEMH. ITEMH = 0

12. The NOT ON SIZE ERROR phrase:

    DIVIDE ITEMD INTO ITEMF ITEMI = 3 GIVING ITEMI REMAINDER ITEMC ITEMC = 11.00 ON SIZE ERROR MOVE 0 TO ITEMH NOT ON SIZE ERROR MOVE 1 TO ITEMH. ITEMH = 1

Function

The EVALUATE statement selects a program action based on the evaluation of one or more conditions.

subj-item

is an identifier, an arithmetic or conditional expression, or a literal other than the figurative constant ZERO.

cond

is a conditional expression.

obj-item

is a literal, an identifier, or an arithmetic expression.

stment1

is an imperative statement.

stment2

is an imperative statement.

Syntax Rules

1. Before the first WHEN phrase: (a) subj-item and the words TRUE and FALSE are called subjects, and (b) all subjects comprise the subject set.
2. In a WHEN phrase: (a) ANY, TRUE, FALSE, and the operands are called objects, and (b) all objects in a single WHEN phrase comprise an object set.
3. The number of objects in the object set must equal the number of subjects in the subject set.
4. The words THROUGH and THRU are equivalent.
5. Two obj-items connected by a THROUGH phrase:
   • Must be of the same class
   • Combine to form one object
6. Each object in an object set must correspond to the subject by appearing in the same ordinal position as in the subject set. For each pair:
   • The obj-item must be a valid operand for comparison to the subject.
   • TRUE, FALSE, or cond as an object must correspond only to TRUE, FALSE, or a conditional expression as the subject.
   • ANY can correspond to any type of subject.
7. Conditional expressions can be simple or complex conditions.

General Rules

Evaluation Procedure

1. The EVALUATE statement operates as if each subject and object were evaluated and assigned one of the following:
   • A numeric or nonnumeric value
   • A range of numeric or nonnumeric values
   • A truth value
   
   The statement assigns values according to the following rules:

   	Condition	Value Assigned
   a.	An identifier for a subject, or for an object without the NOT or THROUGH phrases	Value and class of the identifier's data item.
   b.	A literal for a subject, or for an object without the NOT or THROUGH phrases	Value and class of the literal.
   c.	The figurative constant ZERO for an object without the NOT or THROUGH phrases	Value and class of the corresponding subject.
   d.	An arithmetic expression for a subject, or for an object without the NOT or THROUGH phrases	Numeric value, according to the rules for evaluating arithmetic expressions.
   e.	A conditional expression for a subject or a conditional expression for an object	Truth value, according to the rules for evaluating conditional expressions.
   f.	TRUE or FALSE as a subject or object	Truth value: true for the word TRUE and false for the word FALSE.
   g.	ANY for an object	No further evaluation.
   h.	THROUGH phrase for an object without the NOT phrase	The range of values is all values that, when compared to the subject, are greater than or equal to the first obj-item and less than or equal to the second obj-item. If the first obj-item is greater than the second obj-item, there are no values in the range.
   i.	Object with the NOT phrase	All values not equal to the value (or range of values) that would be assigned without the NOT phrase.

Comparison Procedure

2. After values have been assigned to each subject and object, comparison begins. It proceeds as if the values were compared to determine if any WHEN phrase satisfies the subject set.
3. EVALUATE compares each object in the object set of the first WHEN phrase to the subject in the same ordinal position in the subject set. The comparison is satisfied if one of the following conditions is true:
   • The items being compared are assigned numeric or nonnumeric values or a range of numeric or nonnumeric values; and the value assigned to the subject equals the value, or one of the range of values, assigned to the object, according to the rules for comparison.
   • The items being compared are assigned identical truth values.
   • The word ANY represents the object.
4. If the comparison is satisfied for every object in an object set, the WHEN phrase containing that object set is selected.
5. If the comparison is not satisfied for every object in an object set, the object set does not satisfy the subject set.
6. The comparison procedure is repeated for each object set, in order of appearance, until one of these conditions occur:
   • A WHEN phrase is selected by satisfying the subject set.
   • A WHEN OTHER phrase is selected.
   • There are no more object sets.
   • The END-EVALUATE statement is reached.
   • A separator period is reached.

Execution Procedure

7. If a WHEN phrase is selected, execution continues with stment1.
8. If no WHEN phrase is selected, and a WHEN OTHER phrase is present, execution continues with stment2.
9. EVALUATE statement execution ends when one of the following conditions occurs:
   • Execution reaches the end of the selected WHEN phrase.
   • Execution reaches the end of the WHEN OTHER phrase.
   • No WHEN phrase is selected and there is no WHEN OTHER phrase.
   • Execution reaches END-EVALUATE.
   • Execution reaches a separator period.

Additional References

• Section 6.1.4, Scope of Statements
• Section 6.4, Arithmetic Expressions
• Section 6.5, Conditional Expressions
• Section 6.5.1, Relation Conditions
• Section 6.6.1, Arithmetic Operations

Examples

In these examples, the results are shown as either data item values or procedure branches. However, stment can be any imperative statement, including multiple statements.

1. One condition.

   EVALUATE ITEMA WHEN "A01" MOVE 1 TO ITEMB WHEN "A02" THRU "C16" MOVE 2 TO ITEMB WHEN "C20" THRU "L86" MOVE 3 TO ITEMB WHEN "R20" ADD 1 TO R-TOT GO TO PROC-A WHEN OTHER MOVE 0 TO ITEMB END-EVALUATE.

   
   Samples:

   ITEMA	Result
   "A15"	ITEMB = 2
   "P80"	ITEMB = 0
   "F01"	ITEMB = 3
   "M19"	ITEMB = 0
   "A01"	ITEMB = 1
   "R20"	PROC-A

2. Multiple conditions. This example shows how EVALUATE can represent a decision table.

   EVALUATE LOW-STOK WEEK-USE LOC-VNDR ON-ORDER WHEN "Y", 16 THRU 999, ANY, "N" GO TO RUSH-ORDER WHEN "Y", 16 THRU 999, ANY, "Y" GO TO NORMAL-ORDER WHEN "Y", 8 THRU 15, "N", "N" GO TO RUSH-ORDER WHEN "Y", 8 THRU 15, "N", "Y" GO TO NORMAL-ORDER WHEN "Y", 8 THRU 15, "Y", "N" GO TO NORMAL-ORDER WHEN "Y", 0 THRU 7, ANY, "N" GO TO NORMAL-ORDER WHEN "N", ANY, ANY, "Y" GO TO CANCEL-ORDER END-EVALUATE.

   
   Samples:

   LOW-STOK	WEEK-USE	LOC-VNDR	ON-ORDER	Result
   "Y"	38	"N"	"Y"	NORMAL-ORDER
   "N"	20	"Y"	"Y"	CANCEL-ORDER
   "N"	12	"Y"	"N"	next statement
   "Y"	12	"Y"	"N"	NORMAL-ORDER
   "Y"	12	"Y"	"Y"	next statement
   "Y"	40	"N"	"N"	RUSH-ORDER

3. Relation conditions and arithmetic expressions.

   EVALUATE-ITEM-ROUTINE. * * After the imperative statement in the selected WHEN phrase * executes (for example PERFORM PROC-A), control then * transfers to the first statement following the end of the * EVALUATE statement (MOVE A TO B). * EVALUATE ITEMA > 6 AND < 30, 8 * ITEMB - 1 WHEN TRUE, 5 * ITEMC PERFORM PROC-A WHEN FALSE, ITEMC PERFORM PROC-B WHEN ITEMC > 12, -1 PERFORM PROC-C WHEN TRUE, NOT 7 THRU 40 PERFORM PROC-D WHEN OTHER PERFORM PROC-E END-EVALUATE. MOVE A TO B.

   
   Samples:

   ITEMA	ITEMB	ITEMC	Result
   12	2	3	PROC-A
   25	0	14	PROC-C
   30	0	14	PROC-E
   6	3	23	PROC-B
   14	0	5	PROC-D
   5	0	11	PROC-C

Consider how the EVALUATE statement works using the values in the previous sample:

1. The value of the first subject is a truth value (General Rule 1e). ITEMA is not greater than 6 and less than 30; therefore, the value of the first subject is false.
2. The value of the second subject is a numeric value (General Rule 1d):
   8 * 0-1 = -1.
3. When the first WHEN phrase is evaluated:
   • The value of the first object is a truth value (General Rule 1f): true.
   • The value of the second object is a numeric value: 55.
   • The value of the first object does not equal that of the first subject. Furthermore, the values of the second object and subject do not match. Therefore, this WHEN phrase is not selected (General Rule 5).
4. When the second WHEN phrase is evaluated:
   • The value of the first object is a truth value (General Rule 1f): false.
   • The value of the second object is a numeric value: 11.
   • The value of the first object equals that of the first subject. However, the values of the second object and subject do not match. Therefore, this WHEN phrase is not selected (General Rule 5).
5. When the third WHEN phrase is evaluated:
   • The value of the first object is a truth value (General Rule 1f). Because the value of ITEMC is not greater than 12, the value of this object is false.
   • The value of the second object is a numeric value: -1.
   • The value of the first object equals that of the first subject. The values of the second object and subject also match. Therefore, this WHEN phrase is selected (General Rule 4).
6. The statement following the third WHEN phrase is PERFORM PROC-C. Control transfers to that procedure, and the EVALUATE statement ends.

Function

The EXIT statement provides a common logical end point for a series of procedures.

Syntax Rule

The EXIT statement must appear in a sentence by itself and be the only sentence in the paragraph.

General Rule

The EXIT statement associates a procedure-name with a point in the program. It has no other effect on program compilation or execution.

Example

REPORT-INVALID-ADD. DISPLAY " ". DISPLAY "INVALID ADDITION". DISPLAY "RECORD ALREADY EXISTS". DISPLAY "UPDATE ATTEMPT: " UPDATE-REC. DISPLAY "EXISTING RECORD: " OLD-REC. REPORT-INVALID-ADD-EXIT. EXIT.

6.8.14 EXIT PROGRAM

Function

The EXIT PROGRAM statement marks the logical end of a called program.

Syntax Rules

1. If the EXIT PROGRAM statement is in a consecutive sequence of imperative statements, it must be the last statement in that sequence.
2. The EXIT PROGRAM statement cannot appear in a GLOBAL USE procedure.

General Rules

1. If EXIT PROGRAM executes in a program that is not a called program, it causes execution to continue with the next executable statement. Refer to the Compaq COBOL User Manual for information on how the v3 setting of the standard compiler option affects the EXIT PROGRAM statement.
2. If the EXIT PROGRAM statement executes in a called program without the INITIAL clause in its PROGRAM-ID paragraph, execution continues with the next executable statement after the CALL statement in the calling program.
   The state of the calling program does not change; it is the same as when the program executed the CALL statement. However, the contents of data items and the positioning of data files shared by the calling and called programs can change.
   The state of the called program does not change. However, the called program is considered to have reached the ends of the ranges of all PERFORM statements it executed. Therefore, an error does not occur if the called program is entered again during image execution.
3. When EXIT PROGRAM executes in a called program with the INITIAL attribute, the actions described in General Rule 2 also apply. In addition, executing the EXIT PROGRAM statement is equivalent to executing a CANCEL statement that names the called program.
4. Special handling of the EXIT PROGRAM statement is performed when you specify the standard compiler option with the v3 setting on the compiler command line. Refer to the Compaq COBOL User Manual for more information.

Example

TEST-RETURN. IF ITEMA NOT = ITEMB MOVE ITEMA TO ITEMB EXIT PROGRAM.