Example 2: Defining a type an using it in another module

This example shows how to use a type defined in another module.

The module "type_order.4gl":
PUBLIC TYPE rpt_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.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, , ro.order_date
END REPORT