Class: | _DBC |
Type | Character |
Direction | Input |
#INCLUDE "dbc.h" SET PROCEDURE TO dbc.prg ADDITIVE LOCAL loDBC,lcAlias lcAlias=SYS(2015) loDBC=CREATEOBJECT("_DBC") =loDBC.OpenTable(HOME(2)+"\Tastrade\Data\tastrade.dbc",lcAlias,"") * Get field ID ?loDBC.GetIDObject(lcAlias,_DBC_Field,"products.product_id") =loDBC.CloseTable(lcAlias) RELEASE loDBC RELEASE PROCEDURE dbc.prg
LPARAMETERS lcAlias * lcAlias - Alias IF USED(lcAlias) USE IN (lcAlias) ENDIF RETURN _DBC_ErrOK