{----------------------------------------------------------------------+ | GLOBAL variable definition | +----------------------------------------------------------------------} { $Id: global.4gl,v 1.2 2010/01/14 07:41:44 mikeaubury Exp $ } GLOBALS DEFINE ga_rec_found ARRAY[10] OF SMALLINT, ga_rec_no ARRAY[10] OF SMALLINT, ga_table_name ARRAY[10,2] OF CHAR(32), gv_table_no, gv_table_max INTEGER, ga_screen_name ARRAY[20,3] OF CHAR(32), gv_screen_no, gv_screen_max INTEGER, ga_table_screen ARRAY[10] OF SMALLINT, ga_master_of ARRAY[10] OF SMALLINT, gv_master_of_no, gv_master_of_max INTEGER, gv_show_detail SMALLINT, gv_attribute CHAR(32), end_flag INTEGER, abort_flag INTEGER, answer CHAR(1) END GLOBALS