Example 2: User type defined in a module
This example shows how to use a type defined in another module.
The module "type_order.4gl":
PUBLIC TYPE t_order RECORD
order_num INTEGER,
store_num INTEGER,
order_date DATE,
cust_num INTEGER,
fac_code CHAR(3)
END RECORD
The main
program:
IMPORT FGL type_order
MAIN
DEFINE o type_order.t_order
CONNECT TO "custdemo"
DECLARE order_c CURSOR FOR
SELECT orders.*
FROM orders ORDER BY cust_num
START REPORT order_list
FOREACH order_c INTO o.*
OUTPUT TO REPORT order_list(o)
END FOREACH
FINISH REPORT order_list
END MAIN
REPORT order_list(ro t_order)
FORMAT
ON EVERY ROW
PRINT ro.order_num, ro.order_date
END REPORT