select WorkFile lnTagCount=TagCount() if lnTagCount>0 dimension laIndTags[lnTagCount], ; laIndExpr[lnTagCount], ; laFilterExpr [lnTagCount] for lnCount=1 to lnTagCount laIndTags[lnCount]=upper(tag(lnCount)) && TagName laIndExpr[lnCount]=upper(sys(14,lnCount)) && Index Expression laFilterExpr[lnCount]=upper(for(lnCount)) && Filter Expression endfor endifIn VFP7.0 it would not need this code, since there would be a native function available.