createcustomer:
DO TRANSACTION:
CREATE customer NO-ERROR.
IF ERROR-STATUS:ERROR THEN
DO:
MESSAGE "Could Not Create Customer" VIEW-AS ALERT-BOX ERROR.
UNDO, LEAVE createcustomer.
END.
ELSE
ASSIGN
customer.name = "Whatever".
END.