%DIV Function
%DIV built-in function returns the integer portion of the quotient that results from dividing operands N by M .
%DIV ( N,M )
Parameters
N,M
Required. Must be numeric values with zero decimal positions.
- If either operand is a packed, zoned, or binary numeric value, the result is packed numeric.
- If either operand is an integer numeric value, the result is integer. Otherwise, the result is unsigned numeric.
- Float numeric operands are not allowed.
Remarks
% DIV and %REM built-in function have the following relationship:
%REM(A,B) = A - (%DIV(A,B) * B)
If the operands are constants that can fit in 8-byte integer or unsigned fields, constant folding is applied to the built-in function. In this case, %REM can be coded in the definition specifications.
Example
BEGSR Div_Ex
DclFld Name(A) Type(*ZONED) Len(5,0)
DclFld Name(B) Type(*ZONED) Len(5,0)
DclFld Name(Result) Type(*ZONED) Len(5,0)
A = 123
B = 27
Result = %DIV (A,B)
MsgBox Result
Result = %Rem (A,B)
MsgBox Result
Result = %Rem (A,B) + %Div (A,B)
MsgBox Result
//Now, "Result" = 4, 15, and 19
ENDSR