#INCLUDE "dbc.h"
SET PROCEDURE TO dfo.prg ADDITIVE
LOCAL lcAlias,lcDBC,liIDT,liCount,lii,luValue
LOCAL ARRAY laObjects(1)
lcAlias=SYS(2015)
lcDBC=HOME(2)+"\Tastrade\Data\tastrade.dbc"
USE (lcDBC) ALIAS (lcAlias) IN 0
* Get all relations for table products
liIDT=DBC_GetIDObject(lcAlias,_DBC_Table,"products")
liCount=DBC_EnumObjects(lcAlias,_DBC_Relation,liIDT,@laObjects)
FOR lii=1 TO liCount
=DBC_RIInfo(lcAlias,laObjects(lii,1),@luValue)
?laObjects(lii,2),luValue
NEXT
USE IN (lcAlias)
RELEASE PROCEDURE dfo.prg