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. |