RIInfo Method
Class: _DBC
This method return RI info by relation.
=
Object.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 method succeeds, the return value is _DBC_ObjectFound .

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


See also
Expand/Collapse source code of procedure RIInfo Source Code
      LPARAMETERS lcAlias,liIDObject,luValue
      * lcAlias    - Alias of opened 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