You may want to set-up special properties for particular AS/400 files.
Having a TTable, a TDatabase or TQuery component, some additional properties can be set-up.
You will use DbiSetProp/DbiGetProp with the Handle property of your component.
For example:
DbiSetProp(hDBIObj(Table1.Handle), curNRECORD, 50) ;
Current available properties for TTable/TQuery are :
const
dbCONVRULES = $0404ACE5 ;
curNRECORDS = $22050000 ;
curLOCALFILTER = $22050001 ;
curLOCKTYPE = $22050002 ;
dbCONVRules value is used to change conversion rules.
This as the same features as the CONVERSION RULES option of the ALIAS.
Current possible values is a combination of integers:
const
CONVR_LNUM_DOUBLE = 1 ;
CONVR_SMALLPACK_INTEGER = 2 ;
CONVR_USEBIG_BCD = 4 ;
CONVR_COMP = 8 ;
CONVR_LUM_DOUBLE conrresponds to LONGNUM=DOUBLE
CONVR_SMALLPACK_INTEGER conrresponds to SMALLPACK=INTEGER
CONVR_USEBIG_BCD conrresponds to LONGNUM=BCD
CONVR_COMP conrresponds to LONGNUM=COMP
curNRECORDS is used to change default number of records that are used for internal cache. Default value is 30.
curLOCALFILTER corresponds to LOCALFILER=TRUE in the OPTIONS ACE/400 option alias.
curLOCKTYPE corresponds to the LOCKTYPE and LOCKTYPESQL alias options.
value 0 correponds to PESSIMISTIC (default)
value 1 correponds to OPTIMISTIC