Returns TRUE if an expression is false, and
FALSE if an expression is true.
Syntax
-
expression
- A logical expression whose value is logical, that is TRUE/FALSE, YES/NO.
Example
In
this procedure, if the user enters the number of a Customer that
does not exist, the procedure displays a message that the Customer
does not exist and the user must try again. If the Customer does
exist, the procedure displays the Name and Phone number
of the Customer.
r-not.p
REPEAT:
PROMPT-FOR Customer.CustNum.
FIND Customer USING Customer.CustNum NO-ERROR.
IF NOT AVAILABLE customer THEN DO:
MESSAGE "Customer with CustNum:" INPUT Customer.CustNum
" does not exist. Please try another.".
UNDO, RETRY.
END.
ELSE
DISPLAY Customer.Name Customer.Phone.
END.
|