Example 2: Defining a record with a database table structure

SCHEMA stores 
DEFINE cust RECORD LIKE customer.*
MAIN
  DATABASE stores
  SELECT * INTO cust.* FROM customer WHERE customer_num=2
  DISPLAY cust.*
END MAIN