LOCAL DBContainer AS String LOCAL DBArea AS String LOCAL VCX AS String CLOSE DATABASES m.VCX = "%XYZ%" m.DBContainer = GETFILE("dbc") USE (m.DBContainer) NOUPDATE m.DBArea = ALIAS() SELECT ParentId, ObjectName AS FieldName, ; CAST(STREXTRACT(Property, CHR(1) + CHR(0) + "3", CHR(0)) AS Varchar(254)) AS DisplayLibrary ; FROM (m.DBContainer) ; WHERE ALLTRIM(ObjectType) == "Field" AND STREXTRACT(Property, CHR(1) + CHR(0) + "3", CHR(0)) LIKE (m.VCX) ; INTO CURSOR FieldsWithDisplayLibrarySet SCAN ? ALLTRIM(FieldsWithDisplayLibrarySet.FieldName) SELECT (m.DBArea) GO FieldsWithDisplayLibrarySet.ParentId ? " - in table", ObjectName ENDSCAN