Example 3: Assigning an comparing records

SCHEMA stores 
TYPE t_cust RECORD LIKE customer.*
MAIN
  DEFINE cust1, cust2 t_cust
  ...
  INITIALIZE cust1.* TO NULL
  ...
  LET cust2.* = cust1.*
  ...
  IF cust1.* != cust2.* THEN
     DISPLAY "Records are different!"
  END IF
  ...  
END MAIN