39 lines
1.0 KiB
Plaintext
39 lines
1.0 KiB
Plaintext
# Property of Four Js*
|
|
# (c) Copyright Four Js 1995, 2019. All Rights Reserved.
|
|
# * Trademark of Four Js Development Tools Europe Ltd
|
|
# in the United States and elsewhere
|
|
#
|
|
# Four Js and its suppliers do not warrant or guarantee that these
|
|
# samples are accurate and suitable for your purposes. Their inclusion is
|
|
# purely for information purposes only.
|
|
|
|
GLOBALS
|
|
TYPE custrec RECORD
|
|
cust_id INTEGER,
|
|
cust_name VARCHAR(50),
|
|
cust_state CHAR(3),
|
|
cust_checked SMALLINT,
|
|
cust_city VARCHAR(50),
|
|
cust_zipcode INT,
|
|
cust_address VARCHAR(200)
|
|
END RECORD
|
|
|
|
DEFINE customers DYNAMIC ARRAY OF custrec
|
|
|
|
DEFINE orders DYNAMIC ARRAY OF RECORD
|
|
ord_id INTEGER,
|
|
ord_crea DATE,
|
|
ord_amount MONEY(15,2)
|
|
END RECORD
|
|
|
|
DEFINE ordrec RECORD
|
|
ord_id INTEGER,
|
|
ord_daddr VARCHAR(50),
|
|
ord_crea DATE,
|
|
ord_deliv DATE,
|
|
ord_valid CHAR(1),
|
|
ord_amount MONEY(15,2)
|
|
END RECORD
|
|
|
|
END GLOBALS
|