Strukturänderung Ja/Nein-Felder in Firebird

[IBExpert]

Code:

execute block
returns (tblname varchar(31))
as
declare variable sql varchar(2000);
begin
  sql='execute block
returns (tbl varchar(80))
as
begin
  for select rdb$relation_name from rdb$relations into tbl do
  suspend;
  when any do
  begin
   --hier kannst du z.B. exception wie hier einfach ignorieren
   --oder mit exception exceptionname selber definieren
   --falls du ''Stringkonstanten'' braucht, doublequotes nehmen
  end
end';

  for execute statement :sql into tblname do
  begin
    if (tblname not containing '$') then suspend ;
  end
end