#INCLUDE "dbc.h"
SET PROCEDURE TO dbc.prg ADDITIVE
LOCAL lcAlias,loDBC,liIDT,liCount,lii,luValue
LOCAL ARRAY laObjects(1)
loDBC=CREATEOBJECT("_DBC")
lcAlias=SYS(2015)
=loDBC.OpenTable(HOME(2)+"\Tastrade\Data\tastrade.dbc",lcAlias,"")
* Get all relations for table products
liIDT=loDBC.GetIDObject(lcAlias,_DBC_Table,"products")
liCount=loDBC.EnumObjects(lcAlias,_DBC_Relation,liIDT,@laObjects)
FOR lii=1 TO liCount
=loDBC.RIInfo(lcAlias,laObjects(lii,1),@luValue)
?laObjects(lii,2),luValue
NEXT
loDBC.CloseTable(lcAlias)
RELEASE loDBC
RELEASE PROCEDURE dbc.prg