Types / Examples |
The following example defines a type in first module, and then uses the type in a report program:
PUBLIC TYPE rpt_order RECORD order_num INTEGER, store_num INTEGER, order_date DATE, cust_num INTEGER, fac_code CHAR(3) END RECORD
IMPORT FGL type_order MAIN DEFINE o type_order.rpt_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) DEFINE ro rpt_order FORMAT ON EVERY ROW PRINT ro.order_num, ... ...