/* -----------------------------------------------------------------------------------
 * Define Simple Structure 
 * -----------------------------------------------------------------------------------
 */
structure="Name IDNo Telephone Address"    /* name required items */
strdef1=declare('DEFINE',structure,";;")         /* construct structure */ 
SAY "Defined, PARSE string:" strdef1    
/* Set Variables, which will become part of the record */ 
NAME="John Smith"
idno="2178"
telephone=442518234
ADDRESS="Leicester Court Road 2356"
inrec=declare('PUT',strdef1)
SAY "Constructed Record: "inrec
/* Drop variables, and re-construct them from record */
DROP NAME idno telephone ADDRESS 

a=declare('GET',strdef1,inrec)

SAY 'Name     : 'NAME
SAY 'IDNo     : 'idno
SAY 'Telephone: 'telephone
SAY 'Address  : 'ADDRESS

EXIT

Declare.rex