with Zoom.Records; use Zoom.Records; package Zoom.Result_Sets is type Result_Set is private; function Size (RS : Result_Set) return Natural; function Get_Record (This : Result_Set; Index : Natural) return Rec; procedure Set (This : in out Result_Set; Key : String; Value : String); procedure Get (This : Result_Set; Key : String; Value : out String); private type Result_Set is null record; end Zoom.Result_Sets;