<select_statement> AS DATASET dataset;
execute ibeblock returns (FieldName varchar(31), FieldType varchar(100)) as begin select * from rdb$fields where (1 = 0) as dataset RdbFields; iCount = ibec_ds_FieldCount(RdbFields); i = 0; while (i < iCount) do begin FieldName = ibec_ds_FieldName(RdbFields, i); FieldType = ibec_ds_FieldTypeN(RdbFields, i); suspend; i = i + 1; end; close dataset RdbFields; end