DEFINE BUFFER bufCustomer FOR Customer.

ETIME (yes).
FOR EACH bufCustomer NO-LOCK:
   FOR EACH order OF customer NO-LOCK
/*      for each order no-lock where order.CustNum = customer.CustNum:*/
        WHERE MONTH(order.orderDate + 1) <> MONTH(order.orderDate):
        disp Customer.Name.
/*        disp order.orderDate.                                 */
/*        disp weekday(order.orderdate) label "Day of the week".*/
    END.
END.
MESSAGE ETIME
VIEW-AS ALERT-BOX.