System Receiver (Functions/Subroutines/Programs)
Created at 13 JUN 1997 04:30PM
Certain calls in OpenInsight, such ast List_Tables or List_Volume are designed to return values to specific applications like the System Editor and not to a variable. With OpenInsight, you can use the RECEIVER property to specify an edit box to capture this data.
The following Code example lists all tables in the volume you pass to the ListTables Stored Procedure in the Volume parameter, puts them in an Editbox, Reads the TEXT property of the editbox and produces an @vm delimited list of tables in the Tables variable and returns this list. This only works with an editbox control. If you do not want to show this simply make the editbox invisible.
Function ListTables(Volume)
Declare Subroutine Set_Property
Declare Function Get_Property
Set_Property ("SYSTEM", "RECEIVER", @window: ".EDITBOX_RESULTS")
Set_Property (@window: ".EDITBOX_RESULTS", "TEXT", "")
Call List_Volume (Volume , , , '')
Tables = Get_Property (@window: ".EDITBOX_RESULTS", "TEXT")
swap \0D0A\ with @vm in Tables
Set_Property ("SYSTEM", "RECEIVER", "")
Return Tables