Types / Examples |
TYPE t_customer RECORD cust_num INTEGER, cust_name VARCHAR(50), cust_addr VARCHAR(200) END RECORD MAIN DEFINE custrec t_customer DEFINE custarr DYNAMIC ARRAY OF t_customer DEFINE index INTEGER LET custrec.cust_num = 123 ... LET custarr[index].* = custrec.* ... END MAIN