Example 1: Defining a type with a record structure

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