Some simplistic code:

Code:
Procedure doShow_Vendor_SQL_Limited 
  String  sSQL_Filter
  
  Move ("Vendor.State >= 'CA' and Vendor.State <= 'CT' and Vendor.Name like 'D%'") to sSQL_Filter
  
  Set_Attribute DF_FILE_SQL_FILTER of Vendor.File_Number to sSQL_Filter   
  Set_Attribute DF_FILE_SQL_FILTER_ACTIVE of Vendor.File_Number to True         
  
  Clear Vendor
  Find Ge vendor by Index.1
  While (Found)
    Showln Vendor.Name 

    Find Gt vendor by Index.1
  Loop                 
  
  Set_Attribute DF_FILE_SQL_FILTER_ACTIVE of Vendor.File_Number to False      
  Set_Attribute DF_FILE_SQL_FILTER of Vendor.File_Number to ""    
End_Procedure
Peter