Thanks, SET. Looks *very* promising! Can't wait to get home and try
it.

Regards,
Andrew
-- more slogans than a bag of shaved weasels

--- In ib-support@y..., Svein Erling Tysvær
<svein.erling.tysvaer@k...> wrote:

> I would recommend changing to
> SELECT RDB$FIELD_NAME
> FROM RDB$INDEX_SEGMENTS RS
> WHERE (RS.RDB$INDEX_NAME STARTING WITH 'RDB$PRIMARY')
> AND EXISTS(SELECT 1 FROM RDB$INDEXNAME RI
> WHERE (rI.RDB$INDEX_NAME = RS.RDB$INDEX_NAME)
> AND (RI.RDB$RELATION_NAME = :VAR_TABLENAME)
> )
> INTO :VAR_PKNAME;
>
> but it would be interesting to see if it was enough to qualify your

fields.