MULTIPLY
Format 1
MULTIPLY {Identifier-1} BY { Identifier-2 [ROUNDED] } ...  {Literal-1 } [ ON SIZE ERROR Imperative-Statement-1 ] [ NOT ON SIZE ERROR Imperative-Statement-2 ] [END-MULTIPLY] |
Format 2
MULTIPLY {Identifier-1} BY {Identifier-2} {Literal-1 } {Literal-2 } GIVING { Identifier-3 [ROUNDED] } ... [ ON SIZE ERROR Imperative-Statement-1 ] [ NOT ON SIZE ERROR Imperative-Statement-2 ] [END-MULTIPLY] |
Syntax rules
1. Identifier-1 and identifier-2 shall reference a data item of category numeric.
2. Identifier-3 shall reference a data item of category numeric or numeric-edited.
3. Literal-1 and literal-2 shall be numeric literals.
General rules
1. When format 1 is used, the initial evaluation consists of determining the multiplier, which is literal-1 or the value of the data item referenced by identifier-1. The multiplicand is the value of the data item referenced by identifier-2. The product of the multiplier and the multiplicand is stored as the new value of the data item referenced by identifier-2.
2. When format 2 is used, the initial evaluation consists of determining the multiplier, which is literal-1 or the value of the data item referenced by identifier-1; determining the multiplicand, which is literal-2 or the value of the data item referenced by identifier-2; and forming the product of the multiplier and the multiplicand. The product is stored as the new value of each data item referenced by identifier-3.
Examples
Format 1 - Multiply literal or variable by variable
move 20 to ws-factor move 10 to ws-age multiply 2 by ws-age *> resulting value of ws-age : 20 multiply ws-factor by ws-age on size error display message "size error" end-multiply *> resulting value of ws-age : 400 *> if ws-age is only pic 9(2) the "size error" message will be displayed move 10 to ws-age move 20 to ws-age2 move 15 to ws-age3 multiply 2 by ws-age ws-age2 *> resulting values: ws-age = 20 , ws-age2 = 40, ws-age3 = 30 |
Format 1 - Rounding the result of the multiply
move 5.99 to ws-radius multiply 3.141593 by ws-radius rounded *> If ws-radius is pic 9(3)v9(3), result will be : 18.818 *> If ws-radius is pic 9(3)v9(2), result will be : 18.82 |
Format 2 - Rounding the result of the multiply and placing result on different variable
move 5.99 to ws-radius multiply 3.141593 by ws-radius rounded giving ws-result end-multiply *> If ws-result is pic 9(3)v9(3), result will be : 18.818 *> If ws-result is pic 9(3)v9(2), result will be : 18.82 |