procedure CloseTables( pcTable1, pcTable2... pcTableN )
local i, lcStr
for i = 1 to pcount()
   lcStr = "pcTable" + alltrim( str( i ) )
   select &lcStr
   use
endfor
return