Reverses the sign of a numeric expression.
Do not confuse this operator with the subtraction operator that
subtracts one expression from another.
Syntax
-
expression
- An expression whose value is numeric.
Example
If
you supply a negative value for the variable fx,
the r-uneg.p procedure uses the unary negative
operator (-) to reverse the sign of fx, producing
the absolute value of fx (fabs-x).
r-uneg.p
DEFINE VARIABLE fx AS DECIMAL NO-UNDO LABEL "X".
DEFINE VARIABLE fabs-x AS DECIMAL NO-UNDO LABEL "ABS(X)".
REPEAT:
SET fx.
IF fx < 0 THEN
fabs-x = -fx.
ELSE
fabs-x = fx.
DISPLAY fabs-x.
END.
|