LPARAMETERS lcAlias,loInfo
* lcAlias - Alias of opened DBC
* loInfo - Info object
LOCAL lii,liCount,liy
LOCAL ARRAY laProp(1)
liy=0
SELECT (lcAlias)
SCAN FOR !DELETED() AND OBJECTNAME#PADR("TransactionLog",128) AND ;
OBJECTNAME#PADR("StoredProceduresSource",128) AND ;
OBJECTNAME#PADR("StoredProceduresObject",128)
liCount=This.CheckProperties(lcAlias,OBJECTID,@laProp) && Check Property's value
FOR lii=1 TO liCount
IF laProp(lii,4)#_DBC_Check_OK
liy=liy+1
DIMENSION loInfo.aInvalidProperties(liy)
loInfo.aInvalidProperties(liy)=CREATEOBJECT("_DBC_CheckInfo_InvalidProperties")
loInfo.aInvalidProperties(liy).ObjectID=OBJECTID
ACOPY(laProp,loInfo.aInvalidProperties(liy).aInvalidProperties)
loInfo.aInvalidProperties(liy).iInvalidProperties=liCount
EXIT
ENDIF
NEXT
ENDSCAN
loInfo.iInvalidProperties=liy