# 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