DBC_RIInfo Procedure
This function return RI info by relation.
=
DBC_RIInfo
Parameter
lcAlias
DBC Alias
Type Character
Direction Input
Alias of opened DBC as table.
liIDObject
Object ID
Type Integer
Direction Input
See DBC_GetIDObject().
luValue
RI Info
By reference  
Direction Output
Detail information about type of RI.
Return value Integer
If the function succeeds, the return value is _DBC_ObjectFound.

If the function fails, the return value is _DBC_ObjectNotFound or _DBC_ObjectNotType.
Example
#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


See also
Expand/Collapse source code of procedure DBC_RIInfo Source Code
LPARAMETERS lcAlias,liIDObject,luValue
* lcAlias    - Alias of opended DBC
* liIDObject - Object ID
* @luValue   - (output) RI Info


SELE (lcAlias) && Skip to DBC 
LOCATE FOR ObjectID=liIDObject && Find object
IF !FOUND() && If not found
   RETURN _DBC_ObjectNotFound && Get out
ENDIF
IF OBJECTTYPE#_DBC_Relation
   RETURN _DBC_ObjectNotType
ENDIF
luValue=RIINFO
RETURN _DBC_ObjectFound